d ** MATH.BAS ** CODEWORKS MAGAZINE, 3838 S. WARNER STn ** TACOMA, WA 98409 ** (206) 475-2219 VOICE=x ** (206) 475-2356 MODEM ** PLEASE DO NOT REMOVE THESE LINES.o ** Adapted for the Tandy 600 by Dave Thomas: I P:DA$DA$"-": ,,: (DA$,, )" The CodeWorks "(DA$,,!);  )" M O V I N G M A T H P R O G R A M>  )" Algebra in action, or AlgeCalc?I DA$;  )" This program contains three different mathematical equations"  )"in which you can change various values interactively and"  )"see the results while the computer solves the equation.d  )" Pressing the upper case key for the letter variable in the  )"formula will increase that value, lower case will decrease   )"it. Pressing ENTER will return you to this menu.   );"1 - Compound Interest Formula"< " );"2 - Permutation Formula"h , );"3 - Resonant Frequency Formula" 1 );"4 - Exit program" 6 :"Your choice?";: JX$$():X(X$): X X J T X ,,^,Y Y ^ h L,C,S,F2 r  )" Resonant Frequency Formula"8 |o   )"Use F key to adjust rate of change, now = "u    )"Where L is in Henrys, C is in Farads, 2xPI is constant and"   )"f is the resonant frequency in cycles per second (Hertz)."   )" 1"J   )"--------------------- = f (resonant)k   )" /-----------   )"2xPI x \/ L x C PIA1AY:SP L= C:  C8 C8  L; L;  SP SP SPF SPF" ,5,: SP,&SLC90S1(S)M:F(S1(PI))^D  ,:"1"N  , :"----------------------------------- = ";: "###,#####.###";F;:" Hertz"X , :" /--------------------------"3b , :"2xPI x \/ ";: "#.######";L;:" x ";: "#.#########";CJlK$: K$"" lv K$"L" LL;SP : K$"l" LL;SP K$"C" CC8SP : K$"c" CC8SP K$"F" SPSP : K$"f" SPSP  K$( ) :   C )" Compound Interest Formula"I  )"Where P = Principal amount, I = Annual Interest Rate, Y is"  )"number of years and C = number compounding periods per year."  )"Use F key to adjust rate of change, now = "S  )" (Y x C)"   )" P x (1 + I) ^ = Future Value" PI?P C*Y 4I1IC> SPF SPFH SP SPR ,5: SP\NYCfFVP((I1)N)Kp  , ,:" ";Y;" x ";Cz , : "$$##,#####";P;:" x (1+";I;")^ = ";: "$$###,#####.##";FVK$: K$""  K$"P" PPSP : K$"p" PPSP: P P8 K$"I" II? : K$"i" II?: I? I?s K$"C" CCSP : K$"c" CCSP: C C K$"Y" YY : K$"y" YY: Y Y K$"F" SPSP : K$"f" SPSP  K$( ) :  4. )" Permutation Formula"4e )"How many ways can (R) items within a" )"larger group (N) be arranged?" )"P is the answer." )" N!$ )" ----------------------- = P. )" ( N - R )! 8(BN0LRkV N N : : GOTTA HAVE 2 TO ARRANGE ANYTHING` N N : : CAUSES OVERFLOW IF MOREj R R : : MUST HAVE AT LEAST ONE ITEMt RN RN: : CAN'T ARRANGE MORE THAN YOU HAVE~TNR:N1NT I N1 : : FACTORIAL TAKES PLACE HERE `N1N1Ih I~ T T:  I T : : FACTORIAL TAKES PLACE HERE TOOTTI IPN1T  ,,:" ";N;"! ";N1.  ,:" ------------ = -------------- =";PT  ,:" (";N;"-";R;")! ";TkK$: K$""  K$"N" NN : K$"n" NN  K$"R" RR : K$"r" RR K$( ) :  V