ZXTape! 0Created with Ramsoft MakeTZX|ADV. MATHS\\^X0:7:0::"PART 2":0:7:18,0;:"PART 3" DPART 2 @ <~B<|~<|BB<<~B<|~|><@B|<|>B<@@<<<<$@B@BBBf@B@BBB@BDB@BBBbB@@B(BBBB $B@@BDBB??????BB@ZBD@BB@?????????DBBFB@@BBB???????????????~B<@~<B<~BB<|>BB~~<><<<<@@@@><@@@@B@@@@@@@@@@@@@@???????????????B@@?????@?????@?????><~@@@@@@GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGBGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGBV@GGGGGGGGGGGGGGGGGGGGGGGGGGGGBVt@GGGGGGGGGGGGGGGGGGGGGGGGGGGBVte@GGGGGGGGGGGGGGGGGGGGGGGGGGBVtehGGGGGGGGGGGGGGGGGGGGGGGGGGBVtehGGGGGGGGGGGGGGGGGGGGGGGGGGBVtehGGGGGGGGGGGGGGGGGGGGGGGGGGBVtehGGGGGGGGGGGGGGGGGGGGGGGGGGBVtehGGGGGGGGGGGGGGGGGGGGGGGGGGBVtehGGGGGGGGGGGGGGGGGGGGGGGGGGBVtehGGGGGGGGGGGGGGGGGGGGGGGGGGBVtehGGGGGGGGGGGGGGGGGGGGGGGGGGBVtehGGGGGGGGGGGGGGGGGGGGGGGGGGBVtehGGGGGGGGGG>PART 3 b@=Jd@2j(h )=((1000*h+.5))/1000  7200  B$=Y$  7420  1,0;z$:7420:1''" For illustrative moving graph: press A"'''" For advanced functions:"," press B"'''" To enter an equation:"," press ENTER"'''" To stop:"'" press S" B7500L:a$=q$:(a$="S"a$="A"a$="B"a$=13 )8 a$="S"51757 4a$=""+(a$(a$="A"a$="B")):7420:1000 A$="" 1,0;z$''" Enter your equation, y = ?"'''" (If x has negative values"," use * and not ^ Eg: ""x*x*x"","'" NOT ""x^3"""''" If your equation has even"'" fractional powers, such as" s" ""SQR (x-5)"", use"'" ""1*SQR (x-5)"".)"''''" If you do want to input an equation, just press ENTER." 7030v:y$=q$:7420 Y$=""7 !1,0;"y=";y$:C$=Y$ S$="S"23 ~'''" If you want to solve "'" simultaneous equations,"'"  press S  "''" If not,"'"  press any other letter " 7500L:s$=q$ S$="S" 4:12 s$=""  7420 I$"I" P$"S"29 X''" For integral calculus:"''" Please state highest power in equation"'" ";C$;" ";B$ )7700:k$=q$:(k$)ɰk$26 "K$="1"K$="3"K$="7"K$="1+"+K$ K$0KK=.5/K$  7420  500 !!p$="S"i$="I"g$="G":40( " 7420 #L1'" For GRAPH of curve: press G"''" BOTH graph and roots: press B"''" ROOTS but no graph: press R"''(" Solution only of SIMULTANEOUS equations: press S"s$="S")''" Other CALCULATIONS: press C"''" EXIT to initial screen:press E" $'7500L:g$=q$:G$="C"4900$ %G$="E"g$="":7 &G$="R"G$="S"1200 'g$"G"g$"B"35# (7420:K$"1"44, )''" By steps of? "; *7030v:C=q$:1;c ,''" Specify y-scale "; -7030v:d=q$:1;d /''" Specify x-scale "; 07030v:e=q$:1;e 1 7420 2T=A 3U=B 4V=C 7K$=""K$="1" 8G$="S"S$="W" 9K$>1LX=A :K$"1"C=KK ;-((S$="S"S$="")(G$="B"G$="R"))65A < 7420 = R=0 >''" If y-values are small (eg less than 2), the roots may not be very precise."''" For greater precision (at the expense of more computing),"'"  press P "'''1'" To keep current precision level  press any other letter ." ? 7500L @Q$="P"KK=0.0625| A I=1 BS$"W"SA=0 D 7420 E I$="R"S$="F"S$="W"86V G*k$>1ƽB-A2C=0.0625| O)(P$="H"I$=""I$="L"I$="I")85U P 1062& Q 7400 W LSA=0 X SSA=0 Y SY=0 Z SI=0 d 2 e%1,87W:253,0 f)127,159:0,-143 j 1;10 ,0;"X" k 1;2,15;"Y" n#j$=(((3200 /e))/100d) o#1;11 ,0;"-";j$ p$1;11 ,32 -j$;j$ q#j$=(((1800/d))/100d) r19,16;"-";j$ s2,16;j$ t!1;11 ,16;"O" v 0 xG=F*4+6*P L=(O+A)(O+B)C P$="H"Y$="0+"+D$ I$="G"S$="W"279 ðK$>1S$="W"G$="R" X=L-O Y=Y$ P$"P"209 Y=Y X=X L=O+AI=-1 S$="W"B$=""213 W=C$-B$ Y=W I=I*-1 I=1Z=Y I=-1Z=LY 0K$>1RS=0SA=(SA)+((Z*(X-LX))) p$="S"600X K$>1SSA=SA 5K$>119,0;"SA=";j(SSA);" " SY=Y G$=""G$="R"G$="S"237 -(SY*D)>20Ž(X*E)>32 237 Y$=491II=I @NEWX=(X*E+O)*4-1:NEWY=(II*SY*D+P)*4+3 7650 A$="A"250 I$="G"252 *S$="W"(G$="R"G$="B")ƽY1S$="W"ƽY1PP=017,0;"x=";j(X);" "'"y=";j(SY);" " A$="A"252 S(G$="B"G$="R")((Y<0LY>0)(Y>0LY<0))ýY1RS=0SI=(SI)+((ZSI*(X-LX))) [K$>1SSA=SA \SSA=SI ]>K$>11;18,0;"SA=";j(SSA);" " `SY=Y aSY=SA b 230 p$=""  A=-4  B=10  C=1.5@ D=1/5  E=2 G$="G"  RS=0 Y$="" C$=""  SA=0  R(10 ) K$="1" J=110 R(J)= J I$=""  R=0  S=0 S$=""  Z=0  1503  I=-1  II=1  X=0  O=32  SI=0  SSA=0  SY=0 B$=""  PS=42*  XX=0  LSI=0  LX=0 F=(O*2)^2  PP=0 "A$=""12 #A$="B"1100L $y$="x*x+2*x-23":'"y=";y$' %"MOVING GRAPH" 'P$="H"71G (1:"From x=";A;" to ";B )"by steps of ";C ,"y-scale ";D -"x-scale ";e .0:A$="A"100d 3A$""7 8'2''"Are you happy with these values?"'1'"Press: E - change EQUATION"''7;"P - change PARAMETERS"''7;"other letter - CONTINUE" : 7500L =q$="E"i$="N":4003 @q$="P"29 A 7420 B 87W L%''7;"ADVANCED FUNCTIONS" M97,1;"For polar co-ordinates:press P" N:10 ,1;"For second integral: press S" OZ13 ,1;"For illustration of harmonic analysis: press H" P7500L:p$=q$ Q"p$"P"p$"S"p$"H"1104P R 7420 VP$"H"11 `M1,7;"HARMONIC ANALYSIS (using Fourier series)" ae1''" Any wave-form can be composed by adding together a series of sine or cosine waves." bE'" The moving graph illustrates the formation of a square wave." c-1'" The Fourier series has the form" dC2'" y = 4/*((sin x)+1/3*(sin 3*x) +1/5*(sin 5*x)...)" e7'" The first term produces a simple sine wave." h 7400 lA=- mB= nC=0.25~ o D=12 p E=7 s C$="1*" tG$="G" v B$="*4/*" w D$="0+1" yQ=1252 zQ=1D$=D$+"+1" { C$="1/" | C$=C$+Q C$=C$+"*(("  C$=C$+Q C$=C$+"*x))"  D$=D$+B$+C$ G20,3;"Fourier series: term ";Q/2+1/2  100d Q=25PS=70F G20,2;"Press: E - exit; any other letter - continue"  7500L q$="E"7  7420 Q l'" The 13th term of the Fourier equation of the square wave is:"'1'y$(7) '2',"!!!"  7400 Y$=""  7  D=1  E=1  1500  7420 C=KK KK=KK/2 K$="1"  557 A=T B=U C=V S$=""SA=0 KK=0.5  Q=0  LY=0  I$=""G$="S"200  1500 S$="F"S$="W" S$="S"S$="F"  RS=0 Y$=C$Y$=B$ 9(S$="W"K$="1")1;XX+4,0;" y=";Y$ XX=XX+2 S$="W"PP=1  120x "I$="R"R(1)=8000@  R=0  S=0 I$="N"10 I$="I"25  1500 K$>1K$="1"  XX=0 I$="I"25  I$="L"I$="G"I$="R"I$="" J=110 I$="R"I$="L"R(J)= J G$="B"G$="G"  PP=1 I$="L"30  557 $ 7420 %" PRESS: G - to see GRAPH"''" V - EVALUATE equ'n; any x-value"''" L - same equ'n; new x-LIMITS"''" N - NEW equation" ''" R - calculate ROOTS of equation"''" P - PRINT roots (if known)"''" D - DIFFERENTIAL calculus"''" I - INTEGRAL calculus"''" Any other letter - exit" )7500L:i$=q$:7420 *(I$="V"I$="D")Y$=B$Y$=C$ +B$=""S$="S" ,I$="G"G$="C"34" -I$="G"G$="G":4000 .I$="V"7000X /i$="L"I$="N"4000 0I$="P"8000@ 2I$="R"G$="R":4000 5I$="D"4999 ;'I$="I"K$="1"sa=0:4000 <I$="I"6000p =i$="" B 7  7420 Y$=""5148 T''" Enter value of x for which you want to differentiate";1'" y = ";y$ 7030v:x=q$  Y=0  7420 9 20,0;" COMPUTER CALCULATING ... " DD=KK PX=X NY=Y N=PX "X=N-DD/2 N+DD/2 DD PY=NY X05094 Y$=4915121 PX=0X=2*X  7021m NY=Y DY=(NY-PY)/DD X (PXǧƽ(NY-PY)<0.005y# =5117 %ýPXǧƽ(NY-PY)<75117 DD=DD/2  5090 3DY>1DY=(DY*10 +0.5)/10 DY2DY=j(DY) DY<0.1}LDY=0 X=PX  7420 71;2,1;"For y = ";Y$'" and x = ";X !P$="P"" (polar co-ordinates)" 5I$="D"2;5,1;"dy/dx = ";j(DY)  L13 ,1;"For other values of x (same equation): press V"  BB$""'" For values of x (previous"'" equation): press P"  O'" Further calculations: press C"''" To exit: press any other letter"  7500L:x$=q$ &x$"C"x$"P"x$"V"x$="":7  7420 X$"P"5157% X$="P"Y$=C$5147 X$="P"Y$=C$  5149 X$="P"Y$=B$ ;Y$=""" No previous equation;"'" current equation only."  5200P #Y$=B$ $B$=C$ (X$="C"4900$ , 5200P 70:7:7::2,4;2;6;" ";6,4;" ";3,4;" "'"  "'"  " 913 ,14;0;"ICL":"n","L":28,0:0,-28:-28,0:0,28:19,6;" ROBIN ALLOTT, 1983" < PI$="D"X$="V"5001 Q$I$="V"(X$="P"X$="V")7000X ZY$=""Y$=C$ dI$="D"X$="P"5001  4900$ pSA<2000000t$DI=j(SA) q/SA<200000CPDI=(SA/100d)*100d r,SA<20000 NDI=(SA/10 )*10 sSA<10000'DI=SA t8SA<3.5`DI=(SA*100d*1.017-V)/100d uJSA<3.5`P$="P"DI=(SA*100d*1.0101J+0.5)/100d vSI>5SDI=SI w+SI>200SDI=(SI/10 )*10 x/SI>10000'SDI=(SI/100d)*100d ySI>500000t$SDI=j(SI) z+SI5SDI=(SI*100d)/100d {4SA2000000t$DI=(SA/10000')*10000' |91''" For y = ";Y$'" (from x = ";T;" to ";U;")" }!P$="P"" (polar co-ordinates)" ~72;7,1;"Definite integral=";j(DI) >P$="S"2'" Definite double integral = ";j(SDI) `16,0;" Further calculations: press C"''" To exit: press any other letter" 7500L:r$=q$ R$="C"4900$  7 XJ''" For which value of x do you"'" want the value of"'" y = ";Y$;"?" b7030v:X=q$ g l#P$="P"" (polar co-ordinates)"'' mY=Y$ nI$="I"P$="P"Y=Y p!I$="D"I$="I"I$=""5101 q+2;" For x = ";j(X);"; y = ";j(Y) s 5130  t 7 v7100:q$ j=1̱q$ !q$(j)"0"q$(j)"9"7080 !q$(j)="."q$(j)="-"7080 !q$(j)="x"q$(j)="X"7080 !q$(j)=""q$(j)=""7080 !q$(j)=""q$(j)=""7080 !q$(j)="("q$(j)=")"7080 !q$(j)="+"q$(j)="^"7080 !q$(j)="*"q$(j)="/"7080 #q$(j)""7150:7030v j  sound.1}L,30  sound.5,-20   7420  )0,6;"ADVANCED MATHEMATICS"   sound=1:z$(32 ) 46:7:0:: 9 6 >00,0;z$;z$;20,0;z$;z$ H 8 R 7180  W*2''" Welcome to this program." \&''" The program can run in silence." a" However, the computer can:" fl1'" - ring when input is required"''" - buzz if you make a mistake"''" - beep each key depression." k)2''6;"Do you want sound?" pI20,6;"Press S for sound;"'" any other letter for silence!" u 7500L zq$"S"sound=0 |sound236099\,32  7 320,1;"Press any letter to continue."  7100 =""7410 j=219 7;j,0;z$ j 6;z$;z$ $2,0;: L 7100 Vq$= `q$=""7510V jq$>"Z"q$=(q$-32 ) ~ <newx<1newx>254newy<16newy>159 sound.1}L,0 0+(4s$="F")  newx,newy newx+1,newy+1 newx,newy+1 newx+1,newy  0   7100:q$ -q$="-"q$="."q$=""7150:7700 (j=1̱q$ F!q$(j)"0"q$(j)"9"7780d Z-q$(j)"-"q$(j)"."7150:7700 dj n @J=110 EY$=C$ Fj18014N G1;" For y = ";Y$ J!P$="P"" (polar co-ordinates)" K$B$""1;" and for y = ";B$ L N'R(1)=R(2)=8035c O#R(J)=R(J+1)=8040h T;" Root ";J;" = ";((1000*R(J)+.5))/1000 ^J _ 8040h c72;11 ,1;"Roots not yet calculated" h`16,0;" Further calculations: press C"''" To exit: press any other letter" r7500L:d$=q$ |D$="C"4900$ } 7 &"PART 3"2 pabc~de rsz~yio s *sftuv@s gg$~yhOADVANCED MATHEMATICSewew'ldldew}na}p׳ds E$ PRESS ENTER TO CONTINUE U-FOR FURTHER CALCULATIONS:  PRESS C ounF CALCULEX IIRCXCDC5 IڢIڢIڢIڢIڢIڢIڢIڢIڢIڢIBPSY5C5SK1+1GGJ9# QSAS