}? "!6D:\}<B<<<|< B B< .|<B %< < *| < (BBBB88@88D88 B888x DbB8 8x+B88888x8888888BB%B@hD88x88D88B|< < DT< x B xD"DJBB8"D D+|x<8xxDx <xx ~>B%~TD<<<B< < 8<8 (< < $ 8 | 1<=BB8888x8<8 8.B@ |"i""110" *װ".1","10"::"500"+(a$-"96")*"500"  q="0" a1=q a1<"1""790" u="1"̰"4e4" a1<"10""760" a1=a1/"10":u  dp=(a1*"1000"+".5")/"1000" q1=dp*"10"^(u-1)  "840" u="1"̰"4e4"  a1>"1""820" *a1=a1*"10":u 4 dp=(a1*"1000"+".5")/"1000" >q1=dp*"10"^(-u+"1") Hq="-1"q=-q1: Rq=q1: *q="0":" Simultaneous equation solver" <"3","0";"Equation in the form"''"A*X+B*Y=C"'"D*X+E*Y=F" %a;"*X+";b;"*Y=";c'd;"*X+";e;"*Y=";f  det=a*e-b*d >detq="1":''"The two equations given are"'"unsolvable "; Fd/a=e/bd/a=f/cq"because they are"'"identical.":0:"1000" $?q"because the two"'"equations are parallel.":"0":"1000" .$'"The solution to the equation is" 8"y=(a*f-c*d)/det:x=(c*e-b*f)/det B/''"Y=";:q=y:"700":q'"X=";:q=x:"700":q L"9000":"1000" " Quadratic equation solver" (''"Equation in the form"'"Y=AX^2+BX+C" +"Enter A ";A'"Enter B ";B'"Enter C ";C d=-(b/a/"2") Ad*d-c/a<"0"''"No solution to the equation":"9000":"1500" e=(d*d-c/a) d'''"The solutions to the equation:"''"either X=";:q=d-e:"700":q'" or X=";:q=d+e:"700":q "qd-e=(d-e)d+e=(d+e)''"The equation factorised is"''"Y=(X"+("+"d-e<"0");-d+e;")(X"+("+"d+e<"0");-d-e;")" ,"9000":"1500" Ga(a ,b ,c )=((a*a+b*b-c*c)/(2*a*b))*180/ Fb(a",b,c )=((a*a+b*b)-2*a*b*(c/180*)) 7c(a)=180-a(4)-a(5)-a(6) Dd(ACb,B,c-)=c/((B/180*))*((A/180*)) (a("6"):b$="A":" Triangle solver" %c="0":a="u""u"+"7":b:a,b:a  c,c,c,c,c,"24","36","66" 0c,"75":"105",c:"-25","75":"-80","-75"  hc:"11","2";"A";"10","2";"";"11","11";"B";"10","11";"";"5","9";"C";"4","9";"":c *0"7","12";"a";"13","7";"c";"6","5";"b" 4"16","0";"Enter all the information you"'"know about the triangle. If you do not know the side length or"'"angle simply press ." >3c="1"̰"6":c<"4"n$="length of side":"2130" Hn$="angle":c="4"b$="A" R0"Enter ";(n$;" ";b$);" ";a$:a$""a(c)=a$ \b$=(b$+"1"):c z[b$="":a$="":tot=0:side=3:a="1"̰"3":a(a)side=side-"1":q=a:"2180" a$=a$+a:tot=tot+a a(a+"3")="0"y=a:a i=a a Eangle="3":a="4"̰"6":a(a)angle=angle-"1":b$=b$+a:"2200" t=a:tot=tot+a-"3" a(a-"3")z=a a Tangle="3"a("4")+a("5")+a("6")ɰ"180""Impossible triangle":"9000":"2000" 7angle="2"a(b$("1"))=c("1"):side="3""2260" fside+angle<"3"angle="3"side"Not enough information given to solve triangle":"9000":"2000" pside="3"a("6")=a(a("1"),a("2"),a("3")):a("4")=a(a("3"),a("2"),a("1")):a("5")=c("1"):"2260" angleȰ"2"sidet=a(a$("1"))/((a(a$("1")+"3")/"180"*)):a("1")=t*(a("4")/"180"*):a("2")=t*(a("5")/"180"*):a("3")=t*(a("6")/"180"*):"2260" sideȰ"2"angletot="6"a(q)=b(a(a$("1")),a(a$("2")),a(t)):a(b$("1"))=(((a(t)/"180"*)/a(t-"3"))*a(b$("1")-"3"))*"180"/:a(b$("2"))=c("1"):"2260" ʸsideȰ"2"angletotɰ"6"a(y+"3")=((((a(i+3)/"180"*)))/a(i)*a(y))*"180"/:a(z)=c("1"):t=((a(a$("1"))/(a(a$("1")+)/"180"*))):a(q)=t*(a(q+3)/"180"*) "16","0", ޟ"15","0";:b="1"̰"6":("Angle "b>);("Side"b<"4");(b+("96"b<"4")+("61"b>"3"));"=";:q=a(b):"700":q;(" degrees"b>);(" units"b<"4")':b "9000":"2000" l" Mean/mode and medium"'''" To exit the input part of this"'"program enter ""stop"""'"(command word)" #stop=:a$="":tot="0":xst="0" c="1"̰"4e4" "Enter number ";(c);" ";a stop=a2580 a$=a$+a+"|":tot=tot+a xst=xst+a*a c num="1":d="1":"Data entered is:"'':e="1"̱a$:a$(e)="|""Data item ";num;"12";"=",a$(de-1):d=e+"1":num=num+"1" ,e:#0;1;"Press any key":"0" (P:''"The mean (arithmetic average) is"',:mean=tot/(c-"1"):q=mean:"700":q 2L''"The variance is",:var=(xst/(c-"1"))-mean^2:q=var:"700":q:' <4''"The standard deviation is"',:q=var:"700":q F"9000":"2500" " Volume calculation" S'"Which of the following shapes"'"do you want to determine the"'"volume/area of?" F''"1) Triangle"''"2) Pyramid"''"3) Cylinder"''"4) Sphere"''"5) Cone" a$=:a$<"1"a$>"7""3030" װ".1","10":a=a$-"48" a$=("2Length of bottom side:Perpendicular height:.5*a*b"a=1)+("2Perpendicular height:Radius:a*b*b**1/3"a=2)+("2Radius:Height:a*a*b*"a=3)+("1Radius:4/3**(a^3)"a=4)+("2Radius:Height:.5**a*a*b"a=5) z="2"̱a$:a$(z)":"z r=a (a$("2"z));" ";a a$(1)="1"y=z:"3110" y=z+"1"̱a$:a$(y)":"y (a$(z+"1"y));" ";b 0X'':rɰ"1"'''"The volume is ";:q=a$(y+1):"700":q;" cubic units":"3140" :?"The area is ";:q=a$(y+1):"700":q;" square units" D"9000":"3000" " Limits" ''"The y value of many equations"'"may only reach a certain"'"maximum value however large a"'"number is substituted into it."''" The computer will calculate"'"this ""limit"" if there is one." 4''"Please enter the equation as a"'"function of Y" "Y=";a$ ̌w="1"̱a$:a$(w)"a"a$(w)"z"a$(w)"x"''1;"Invalid input. Enter the"'"equation in the form Y is a"'"function of x":3530 6a="0":x="1000"̰"10"Ͱ"10000":olda=a:a=a$ d(olda-a)<"1e-6""16","0";"The limit of the equation"'"entered is ";:q=a:"700":q:"3580" w 16,0, x ;"16","0";"There is no limit to the"'"equation entered" "9000":"3500" " Boolean Algebra" ''" This program will calculate a"'"truth table from any boolean"'"algebra function with up to "'"four variable."''" It is important to enter a"'"function such as"''"7";"F=A(C+B') as";"7";"F=A(CB)"'"using keywords where possible." <N="0":"23658","8":"Boolean algebra function"'"F=";a$ @a="1"̱A$:A$(A)>"A"A$(A)<"E"ƯA$(A)-"64">NN=A$(A)-"64" A  J"2";"A";"9";"B";"16";("C"nȰ"3");"23";("D"nȰ"4");"30";"F"'' z="0"̰"2^N-1" l"16384",z:A=("4"+"4-N","175"):B=("5"+"4-N",175):C=("6"+"4-N","175"):D=("7","175") "2";a;"9";b; &NȰ"3""16";c;:N="4""23";D; "30";a$:z !"16384","0":"9000":"4000" ^" Equation solver"''"This program will solve any"'"equation where Y is a function"'"of X." q"Please enter the equation in"'"terms of y."'"Y=";a$'"Enter two points between which the solution may be"'a,b "10","1";"Solution=";  x=a:c=a$ x=b d=a$ 9(c-d)<"1e-9"d="0"q=b:"700":q:"9000":"4500" +x=(d*a-c*b)/(d-c):c=d:a=b:b=x:"4540" " Base convert" R''"This program will convert any number in any base less than tento base ten." Ftot=0:"Please enter the number "'a$;"...and the base ";base Ha=1̱a$:a$(a):"Program name ";a$:a$=a$+" ":a$(̰"10")ʰ"10" %&+"10","4";"Please rewind to verify":"" %0>:"10","0";"The program has verified"'"correctly":"0": A"" nn n j\  KUNDE M}M3}3}}}}3}}3}}]+}}},> P3}3}}}}3}}MOnO\GWq !v>fff~fff~~ xflxlf```bf8ll8ff|``8lvff|lf