$ ---------------------------- ;
$ !SS Sample File              ;
$ ---------------------------- ;
$ ---------------------------- ;
$ ---------------------------- ;
#FUNCTION SimpleSum&Avg;
#VARIABLES;
$The # assigns Display Name;
G#SUM;
H#NUM;
I#AVG;
$The ~ defines allow INPUT;
A~I;
B~I;
C~I;
D~I;
E~I;
F~I;
H~I;
#CALCS;
G=A+B+C+D+E+F;
I=G/H;
#STOP;
$ ---------------------------- ;
#FUNCTION Sample Funcs;
#VARIABLES;
G#A^B;
H#A^(1/B);
I#Sqrt(C);
J#LOG(D);
K#LG10(E);
L#EXP(F);
A~I;B~I;C~I;D~I;E~I;F~I;
#CALCS;
G=A^B;
H=A^(1/B);
$ square root ;
I=C^0.5;
J=LOG(D);
K=LGD(E);
L=EXP(F);
#STOP;
$ ---------------------------- ;
#FUNCTION Present/Future Vals;
#VARIABLES;
A#FVAMT;B#RATE%;
C#NUMPER;D#PVAMT;
G#PVAMT;H#RATE%;
I#NUMPER;J#FVAMT;
A~I;B~I;C~I;
G~I;H~I;I~I;
#CALCS;
E=1+(B/100);
F=E^C;D=A*(1/F);
K=1+(H/100);
L=K^I;J=G*L);
#STOP;
$ ---------------------------- ;
#FUNCTION Loan Amort;
#VARIABLES;
A#PRINC;B#RATE%;
C#MONTHS;D#PAYMNT;
A~I;B~I;C~I;
#CALCS;
E=B/100;
D=A*(E/12)/(1-1/(EXP(C*LOG(1+E/12))));
#STOP;
$ ---------------------------- ;
#FUNCTION TRIG FUNCS;
#VARIABLES;
A#ANGLE;B#Sin(A);C#COS(A);
D#TAN(A);G#RADIAN;
A~I;
#CALCS;
B=SIN(A);C=COS(A);
D=TAN(A);G=RAD(A);
#STOP;
$ ---------------------------- ;
#FUNCTION Concrete Calc;
#VARIABLES;
A#DIAM;B#Depth;C##Holes;
D#H/YD;E#Yards;F#Vol:1H;
A~I;B~I;C~I;D~C;E~C;F~C;
#CALCS;
F=(A/2)^2*3.1416*B;
D=46656/F;E=C/D;
#STOP;
$ ---------------------------- ;
#FUNCTION Temp Tax Calc;
#VARIABLES;
A#InvTOTL;
B#Tax%1;C#Tax%2;
D#TFac1;E#TFac2;
G#MtlB4Tx;
H#TAmt1;I#TAmt2;
J#Check;
A~I;B~I;C~I;
#CALCS;
D=B/100*.35;
E=C/100*.35;
F=1/(D+E+1);
G=(A*F);
H=G*D;
I=G*E;
J=G+H+I;
#STOP;
$ ---------------------------- ;
#FUNCTION Book&Disc Price;
#VARIABLES;
A#QTY;
B#BOOK$;
C#Dscnt%;
D#Net$;
E#Ext$;
F#Net%;
A~I;B~I;C~I;
#CALCS;
F=(100-C)/100;
D=B*F;
E=A*D;
#STOP;
$ ---------------------------- ;
#FUNCTION LABOR;
#VARIABLES;
A##UNITS;
B#UNIT$;
C#Dscnt%;
D#Labor$;
A~I;B~I;C~I;
#CALCS;
F=(100-C)/100;
E=A*B;
D=E*2*F;
#STOP;
$ ---------------------------- ;
#END;
$ ---------------------------- ;
$ ---------------------------- ;