' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y&L߼ 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зL߼ɫЮ꽌Ф`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?   1 /" * .  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0/#0>2*<27</#0>2?<2*4<,e(B+ 4!H( 1 @h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`ɫ8`ɪ`L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIR4b_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^쳪 ^LƮZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@ ,\Z[PRN,XɄOɊRQF(0B1 ^0(p ߩRP1Q ɿ, P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLL-# 0 Ԡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`# d£àĠz# u`3140Z 3166(\ 54915:216,0:31642] 3160]^ 216,0:1:22:" for new option";b 1:23:" to continue list";l 1:24:" to toggle graph ";v GC1:8000 G$"C"AA1:XX0AIN:3132 3170H 1:20:"An error has ";:8000:X0(R$)# 1:2:(6);=& 3:6:"X";:27:"Y";t0 1:4:"----------------------------------------";: A0:XX0:B5< B5= 1:B:(6);? B1320:18:B1:"!";:A 3164D 1:B:X;:20:A(X);X AA1:XX0AIN:BB2:B21(R$) IN03040 3400I ER$"F(X)"Ė1:1:(6);:"y = ";EQ$;t ER$"F(X)"Ė1:1:(6);:"y = ";ER$; 5:5:"X = ";:8000:9:5:(5);R$;:R$""3030 5:7:(5);ER$;" = ";A((R$));" "; 3030 1:9:"Enter starting x value*******************$RA(X)B(X)p\H.001:N(X)12H(B(X)XX)(B(X2H)8B(XH)8B(XH)B(X2H))xf50 (1)(16);:: FUNCTION TABLE ROUTINE 1:1:"Table of values for ";ER$; 1:7:"Enter increment ";:8000:INGC2R$EQ$:2080GC1D GC8000,8010:GC0:EQ$R$:R$""2070[%EQ$R$:R$""2070~*EP$EQ$:ES$"F'(X)":ER$"F(X)">"2120 DEFFNB(X) = "EP$":REM"H*************************************************************************************** INPUT EQUATION EQ$!K1:1:"Enter Y as a function of X":g"* = Multiplication":}"/ = Division": "^ = Exponentiation":::EQ$""ĺ"Edit existing function? (y,n) ";:R$:R$"y"R$"Y"GC21:11:(5);"Y = ";:)PK1750%XX0ēX3,Y3:XX1:17051X3,Y3;Y4Y3QIID1:IX21660[1750t54915:216,0:1730XX0:17101:24:(5);54915:216,0W$;"Y = "ER$;T3$;30:" ";:16368,0:R$50 )11610"AN11@,AA1:YA%,Y(A3A)YA%4,Y(A3A)N6A01610q@Y(AA3)8.9:YA%43:AA3;JAN21580TT3$;^216,0h1730rIX1:XX0|XIY3Y(A(I)):X3X(I):XX0Y4Y3(Y3Y4)COXX0 (16384,10YA%,18010,XA%270,XA%*1530UA1D6:7000:N1(X1A3):N2(X2A3)1`AN11AA1:X(A3A),XA%X(A3A),XA%4A01530X(AA3)4.5:XA%83:AA3;AN21500216,0A1(Y2Y1)4:7000:N1(Y1A3):N2(Y2A3I2:D2(Y2Y1)150PDX2X1-ZD201260sdX(X)(260X10X2270X1)D:Y(Y)(170Y10Y1180Y2)(Y1Y2)}nT1$;xXA%Y(0):YA%X(0)X10X20YA%10X10X20YA%250Y10Y20XA%160Y10Y20XA%10 YA%";Y1"1:11:"Maximum Y = ";Y2D1:15:"Input y-axis limits"|1:17:"Minimum y = ";:8000:Y1(R$):R$""1060Y5Y1 1:19:"Maximum y = ";:8000:Y2(R$):Y1Y2R$""1270Y6Y2(2(2)(16);<FD1(X2X1)"1030.X6X28I0$BDX2X1/L12108VJX1J`YA(J):II1]jI1Y1Y:Y2YltYY11170u~Y1Y1190YY21190Y2YJJDI1:JX21120123054915:216,0:12101190216,01:9:"Minimum Y =  b 5 ER$"F(X)"Ė1:1:W$;"Y = ";EQ$;T3$;` ER$"F(X)"Ė1:1:W$;"Y = ";ER$;T3$; 1:3:"Input x-axis limits"; 1:5:"Minimum x = ";:8000:X1(R$):R$""1030 X5X1 $1:7:"Maximum x = ";:8000:X2(R$):X1X2R$"Search for minimum of ";ER$:E "2 = Search for maximum of ";ER$:r "3 = Search for minimum of |";ER$;"|": "4 = Search for maximum of |";ER$;"|": 1:12:"Which? ";:8000:O4((R$)):O41O44460 5500 X34,23::(4);"RUN MENU"0,3000,5000,400,2000,4000,350,370,600J ,(2);(16);:D1(X2X1)I2:1640l ^CO10CO200:CO$"(YES)":70 cCO200CO10:CO$"(NO)":70 r1:24:(5);"Number points per graph (max = 150)? ";:8000:I2(R$):I25I2150370 w70  "1 = 7 = Replace ";ER$;" with ";ES$:H x" 8 = Function continuous ";CO$:s }" 9 = Plot ";I2;" points per graph": "10 = Exit this program" 1:24:"Option = ";:8000:(R$)1(R$)10145 I120:DX2X1 O(R$):O2D0O1% O1000,30               z G50G1G3(R$)(R$)G0R$R$G$:G$;:G1G11:8040cz RT$"":G1G3G50RT$(R$,G1G3G5)rz RT$RT$G$z (R$)G1G30RT$RT$(R$,(R$)G1G3)z& G1G11:G51G1G12:G1G3G1G3z+ R$RT$:8300{l G3:G4:R$;" ";:G1:G4:(R$)G0RG$(127)G$(10)G$"":G51:8200DyG$(8)G1G3ĖG11:8040jyG$(21)G1G3(R$)ĖG11:8040y(G$)96G$((G$)32)yGC1GC0:yG$(13)R$""GC0:G08:y(G$)328060yGC0((G$)43(G$)57G$"/"G$",")8060916368,0:G08:GC0G0130NxTG31(252):G41(37): H & V INITIAL POShxYG01);:G3:G4:R$;xhG11(252):G21(37): H & V CURRENT POSx|G50:G$xG$(32)8500xG$(27)Č54915:GC0:G08:100xG$(11)R$"":GC0:G08:%yXJ0wA(3)R(N31)A(2):N$"E"A(3)R(N31)OwN$"A"A(3)R(N31)A(2)dwYYA(2):N3N31rwA(2)A(3)wN3NTII4520ww1:14:"Number of points per graph? (max = 100) ";:8000:I2((R$)):I25I21004800w4000w@R$""xJisting graph? (y,n)";:GC1:8000:O31:G$"Y"O32:(2);(16);TvwO32PG0O31fv|O32000,2650v1:13:"How many terms? ";:8000:NT((R$)):NT1NT204300vEQ$(NT)" term":NT1EQ$EQ$"s"v4210wN3II:Y0:A(1)AF(J):A(2)A(1):4100,4300,4800&u:"Enter y = f(x)"Wu1:4:"y = ";:GC1:8000:EQ$R$:R$""4110~u"4200 DEF FNE (X) = "EQ$":REM"uh **************************************************************************************************@vr1:15:"Graph on ex"ĺ(2);(16);:R$:(1);(16);:3300?t B8:1:8:(6):3110Vt:"Graph results"pt1:3:"1: y = f(x)"t1:5:"2: Current power series"t1:7:"3: Points per graph = ";I2t1:10:"Which? ";:8000:O2((R$)):O21O234030uO2NN131105s B:1:N1;:8:Z1;:25:Z2;:40:Z3;Js BB2:B213110Ts 3280s 54915:::"Unable to continue.";:G$:70s 1:23:" for new option";s 1:22:"any key to continue list";s 16368,0:R$s R$(13)70%t R$" D16:S0DE(((S))(10)):D15DE:D16D16Arb D10D10}rl D27:A(3)0DE(((A(3)))(10)):D25DE:D27D27rv D20D20r D1(10D1):D2(10D2)r Z1(A(2)D2.5)D2:Z2((A(3)A(2)D2.5)D2):Z3(SD1.5)D1r A(2)A(3) s ";:25:"|a(n+1)/a(n)|";:40:"S(n)";`q 1:7:"--------------------------------------------";yq 54915:216,0:3260q NII:B8:S0:A(1)AF(X):A(2)A(1)q& A(3)R(N1)A(2):N$"E"A(3)R(N1)q0 N$"A"A(3)R(N1)A(2)q: SSA(2):NN12rX;:N$"M"ĺ"*a(n-1)";/p N$"A"ĺ" + a(n-1)";\p 1:3:"x = ";:8000:X(R$):R$""3035p 1:5:(6);:"Begin table with the term n = ";:8000:N1(R$):R$""3035p N1IIN1IIp N15003040p 1:5:(6);%q T2$;:6:2:"n";:8:"a(n) )): SCALE ROUTINE2o^ A3(A110A2)Aoh A30A31Por A33A32do| A36A37A35yo A38A39A310o A3A310(A2)o o (1)(16);:: FUNCTION TABLE ROUTINEp 1:1:"a(";II;") = ";AF$;", a(n) = ";AN$W$;"F(X) = ";EP$;T3$ ZT2$< _" 1 = New graph of "ER$:i d" 2 = Plot ";ER$;" on existing graph": i" 3 = Table of values": k" 4 = Solve ";ER$;" = Y for X": n" 5 = Search for min or max for ";ER$: s" 6 = Enter function":! u"e! PLOTTER '54915:P4(1)@2:0:973:(12):3d#I235:CO200:CO$"(YES)":PK155(T1$(20)"3":T3$(20)"1":T2$(20)"2":T3$T2$-20002W$T3$7(EP$)30W$T2$<(EP$)46W$T1$F(1)(16)T3$;:KT3$; P            KT3$;$ PW$;"F(X) = ";EP$;T3$/ ZT2$:N _" 1 = New graph of "ER$:{ d" 2 = Plot ";ER$;" on existing graph": i" 3 = Table of values": p" 4 = Find lim of "ER$: s" 5 = Enter function": x" 6 = Function continuous ";CO$:& } LIMIT02:0:973:(12):3:P4(1)T#I235:CO200:CO$"(YES)":PK155(T1$(20)"3":T3$(20)"1":T2$(20)"2":T3$T2$-20002W$T3$4G1ĺ:(4);"BLOAD PIC,S5"7(EP$)30W$T2$<(EP$)46W$T1$ F(1)(16)T3$;:""" " " " " """""""""        + R$RT$:8300Kl G3:G4:R$;" ";:G1:G4:(R$)G0R$"":G3:G4:8020U 80404!16368,0:(2);(16);:G$:(1);(16);:80606,")8060%~(G$)96G$((G$)32)7~GC1GC0:r~ G50G1G3(R$)(R$)G0R$R$G$:G$;:G1G11:8040~ RT$"":G1G3G50RT$(R$,G1G3G5)~ RT$RT$G$~ (R$)G1G30RT$RT$(R$,(R$)G1G3)~& G1G11:G51G1G12:G1G3G1G3Č54915:GC0:G08:605}G$(11)R$"":GC0:G08:^}G$(127)G$(10)G$"":G51:8200}}G$(8)G1G3ĖG11:8040}G$(21)G1G3(R$)ĖG11:8040}G$(13)R$""GC0:G08:}(G$)328060~GC0((G$)43(G$)57G$"/"G$"54915:1:15:"Unable to compute. ";:70605|@R$""U|J16368,0:G08:GC0G0130|TG31(252):G41(37): H & V INITIAL POS|YG01);:G3:G4:R$;|hG11(252):G21(37): H & V CURRENT POS||G50:G$|G$(32)8500}G$(27)U5).5(U4))100000;" , ";(100000U5(U4U4U5U5).5(U5))100000;" ) ";W{4R0R1k{>AA1:A57120{1:23:"Press to continue search.";{1:24:"Press for main menu.";{GC1:8000{G$"C"Ė1:12:(6):7110{7320+|L1(R0)U1B1(R0))(U2A2(R0)U1B2(R0))Wz 1:2A10:(100000R1.5(R1))100000;zO4Ė20:(100000A(R1)(A(R1)).5)100000;z O5Ė20:(100000B(R1)(B(R1)).5)100000;M{*O6U4A1(R1):U5B1(R1):20:"( ";(100000U4(U4U4U5ʺ(5);"Estimate for t = ";:8000:R0(R$):R$""7040Ny1:9:"t";:20:X$;|y1:10:"------------------------------";y7500yA1yO37130,7135,7140yR1R0(A(R0)X0)A1(R0):7180yR1R0(B(R0)X0)B1(R0):7180)zR1R0(U2A1(R$):R$""7040Tx20:6:"b = ";:8000:U2(R$):U3(U1U1U2U2):R$""7048x1:4:(5);"Find t for direction (";U1;",";U2;") or ";:U1U1U3:U2U2U3:"(";(10000U1.5)10000;",";(10000U2.5)10000;")";xU1U1U3:U2U2U35y1:6:O5X$"y""w^O6X$"direction" for new option";s 1:23:" to continue list";s 1:24:" to toggle graph";s4 GC1:8000t\ G$"C"B5:1)(16);:: SOLVE INTEGRAL EQUATIONQlT2$:5:3:EP$;" dx = ";:H1(252)1gl9500:3:1:"t";l1:10:"Enter lower limit and value of integral. ";l3:5:8000:XI(R$):R$""5020lH1:3:8000:AR(R$):R$""5020>m1:10:(5);"En10:B:SU;%kAA1:BB2:B174150/k4540@k3288:4510Kk216,0ok1:22:" for new option";k1:23:" to continue list";k1:24:" to toggle graph";kGC1:8000kG$"C"B11:1:11:(6):4140k4560&l(Enter limits of integration"Aj3:5:8000:XI(R$):R$""4040fj3:1:8000:XL(R$):R$""4040wj1:7:(6);j9:1:"n";:10:"Gauss 10-point";j1:10:"----------------------";jA1:XX0:B11j,4530j61:B:A; khAAA:6000:sc> for new option";8i 1:23:" to continue list";_i 1:24:" to toggle graph";oi GC1:8000iG$"C"B9:1:9:(6):3140i.3560i(1)(16);:: INTEGRAL APPROXIMATIONiT2$:5:3:EP$;" dx";i9500j1:10:"S11000000.5)10000005h S2R3(S2A(R1)A(R2))2Uh S2(S21000000.5)1000000dhH S3R3S36hR S3(S31000000.5)1000000h 5:S1;:17:S2;:29:S3;h 41:S4;h AA2:BB2:B213150h 3540h 3288:3510h 216,0i 1:22:"1:18:(5);"Integral = ";W;:rH216,0trR1:24:"Press for menu. ";:GC1:8000:50r R4(YLYI):V0r J21Ar Y1(YIYL(YIYL)D(J2))2r *******************r XIX1(1):XLX2(1):4000:VVS4G(J2)s Y1(Y0 Z=X1"qJ2000$qR5(ZLZI):W0/q4600;qJ11AZqZ1(ZIZL(ZIZL)D(J1))2nq**************qYIY1(1):YLY2(1):3000:WWVG(J1)q Z1(ZIZL(ZIZL)D(J1))2q*******************q YIY1(1):YLY2(1):3000:WWVG(J1)r*Z=Y1":"3060 Z=Y1"3p"4040 Y=X1":"4070 Y=X1"=p2000]p"2040 Y=Z1":"2070 Y=Z1"}p"3030 X=Y1":"3060 X=Y1"p"4040 Z=X1":"4070 Z=X1"p"2000p,"2040 X=Z1":"2070 X=Z1"p6"3030 Y=Y1":"3060 Y=Y1"q@"4040 Z=X1":"407o"2040 Y=Z1":"2070 Y=Z1"?o"3030 Z=Y1":"3060 Z=Y1"_o"4040 X=X1":"4070 X=X1"io2000o"2040 Z=Z1":"2070 Z=Z1"o"3030 X=Y1":"3060 X=Y1"o"4040 Y=X1":"4070 Y=X1"o2000o"2040 X=Z1":"2070 X=Z1"p"3030 $,I,2)"Y'"EQ$(EQ$,I1)"X"(EQ$,(EQ$)I1):54915:1240Im:1400vm1:3:"x' = f(x,y,t) and y' = g(x,y,t)"m(T0:PG0m21:7:"x' = ";:GC1:R$EQ$:G68000,8010:EQ$R$:R$""1330 n<1:9:"y' = ";:GC1:R$ER$:G68000,8010:ER$R$:X$"x"G68000,8010:EQ$"0":ER$R$:X$"y'":ET$"y' = "ER$:R$""1130Ilt1400fl1:3:"y'' = f(y,y',t)"slT0:PG0l1:7:"y'' = ";:GC1:R$EQ$:G68000,8010:EQ$R$:ER$"X":X$"y'":ET$"y'' = "EQ$:R$""1230lEQ$" "EQ$" "=mI1(EQ$):(EQ(R$)):O21O231040okG61:ER$EQ$""Ė1:13:"Edit existing equation? (y,n) ";:GC1:8000:G$"Y"G62k:"Enter differential equation";:O23ĺ"s";kO21110,1210,1310kV1:3:"y' = f(y,t)"k`T0:PG0?lj1:7:"y' = ";:GC1:R$ER$:j131j:D$;"RUN MENU,S6"(j950Lj INPUT EQUATION EQ$mj:"Differential Equations";j1:3:"1: y' = f(y,t)";j1:5:"2: y'' = f(y,y',t)";j1:7:"3: x' = f(x,y,t), y' = g(x,y,t)";k1:10:"Which? ";:8000:O2(:O5Y3Y(Y(I1))+i4O6X3X(X(I1))RiHY30Y3190X30X3280XX0:860miMXX0ēX3,Y3:XX1:860iRXX1ēX3,Y3i\Ii1:24:(5);iW$;iET$;:PG1i1:1:(5);"Graph of ";GS$;iT3$;i24:55:16368,0:R$iRG1h216,0:hA1(Y2Y1)4:3900:N1(Y1A3):N2(Y2A3)1Dh770OhAN11vhAA1:YA%,Y(A3A)YA%4,Y(A3A)hA0770hY(AA3)8.9:YA%43:AA3;hAN2760hT3$;h 216,0hXX0h I1TP1i*Y3Y(X(I1)):X3X(T(I1))g}Y10Y20XA%1601gY10Y20XA%10EgYA%,10YA%,180Yg10,XA%270,XA%cg700gA1D6:3900:N1(X1A3):N2(X2A3)1gAN11gAA1:X(A3A),XA%X(A3A),XA%4gA0700gX(AA3)4.5:XA%83:AA3;gAN2690 :Y2(R$):Y1Y2R$""440$fT1$.fY6Y2Gf:(2)(16):O11790Mf?gfDD1(X2X1)I2:DX2X1flX(X)(260X10X2270X1)D:Y(Y)(170Y10Y1180Y2)(Y1Y2)fqT1$;fvXA%Y(0):YA%X(0)fyX10X20YA%10g{X10X20YA%250(R$):R$""360erX5X1e|ee25:17:"Maximum ";A1$;" = ";:8000:X2(R$):X1X2R$""360e1:20:"Input ";A2$;"-axis limits"e1:22:"Minimum ";A2$;" = ";:8000:Y1(R$):R$""390eY5Y1f25:22:"Maximum ";A2$;" = ";:8000:EP$;" dx";e 9500@e 1:10:"Enter limits of integration"ee 3:5:8000:R1(R$):R$""3040e 3:1:8000:R2(R$):R$""3040e 1:7:(6);e 7:1:"n";:5:"Midpoint";:17:"Trapezoid";:29:"Simpson";:41:"Gauss 3-point";8f& 1:8:"*********************d131MdA2((A1)(10)): SCALE ROUTINE`dA3(A110A2)odA30A31~dA33A32dA36A37A35dA38A39A310dA3A310(A2)d d (1)(16);:: INTEGRAL APPROXIMATION e T2$:5:3C1:8000:G$"Y"G62+c1:10:"Y = ";acGC1:R$EP$:G68000,8010:GC0:EQ$R$:R$""1000mcEP$EQ$~cEQ$"Y="EQ$c"1500 DEFFNA(X) = "EP$":REM"d **************************************************************************************:D$;"RUN MENU,S6"b9509b INPUT EQUATION EQ$EbD$(4)Kbub1:1:"Enter y as a function of x":b"* = Multiplication":b"/ = Division":b"^ = Exponentiation";cG61:EP$""Ė1:10:"Edit existing function? (y,n) ";:Gion":7a"2 = Midpoint, Trapezoid, Simpson, Gauss":Sa"3 = Gauss 10-point":xa"4 = Solve integral equation":a"5 = Exit this program"a1:20:"Option = ";:8000:(R$)1(R$)5220aO(R$)a O970,3000,4000,5000,950b34,23: ` NUM INT "` 3:P4(1)+`n9736`pPK155d`sT1$(20)"3":T3$(20)"2":T2$(20)"2"m`x970x`W$T3$`(EQ$)20W$T2$`(EQ$)36W$T1$`D$(4)`(1)(16)T3$;:`W$;`EQ$;`:`T3$;a"1 = Enter funct          51G1G12:G1G3G1G3)(+ R$RT$:8300d(l G3:G4:R$;" ";:G1:G4:(R$)G0R$"":G3:G4:8020n( 8040(4!16368,0:(2);(16);:G$:(1);(16);:80608060)43(G$)57G$"/"G$",")8060>'(G$)96G$((G$)32)P'GC1GC0:' G50G1G3(R$)(R$)G0R$R$G$:G$;:G1G11:8040' RT$"":G1G3G50RT$(R$,G1G3G5)' RT$RT$G$' (R$)G1G30RT$RT$(R$,(R$)G1G3)(& G1G11:G(32)8500.&G$(27)Č54915:GC0:G08:60N&G$(11)R$"":GC0:G08:w&G$(127)G$(10)G$"":G51:8200&G$(8)G1G3ĖG11:8040&G$(21)G1G3(R$)ĖG11:8040&G$(13)R$""GC0:G08:&(G$)328060!'GC0((G$> for menu. ";:7030D%54915:1:15:"Unable to compute. ";:7610N%@R$""n%J16368,0:G08:GC0G0130%TG31(252):G41(37): H & V INITIAL POS%YG01);:G3:G4:R$;%hG11(252):G21(37): H & V CURRENT POS%|G50:G$ &G$2)8B(T.0001)8B(T.0001)B(T.0002))k$`M$"Undefined":X$"x"FY0M$((10000FXFY.5)10000)$jX$"t"XXFX(T)RFY(T):XX0M$((10000(FX(T)RFY(T))XX.5)10000)$~1:14:"Slope = ";M$;$54915%1:24:"Press to continue search.";:30:" for new initial point.";x1:24:" to toggle graph. ";:30:" for menu."; GC:1:W$;ET$;T3$d1T2$;7d61:4:"Variable ranges";Zd;1:6:"t: ";F1;" < t < ";F2;d@1:8:X$;": ";F3;" < ";X$;" < ";F4;dJ1:10:"y: ";F5;" < y < ";F6;d^1:15:"Input ";A1$;"-axis limits";eh1:17:"Minimum ";A1$;" = ";:8000:X14A2$"y":O6A1$X$RcGS$"(t,"X$")":O4GS$"(t,y)":O6GS$"("X$",y)"c1:24:"Plot on existing graph? (y,n) ";:GC1:8000:G$"Y"G$"N"250cO10:G$"Y"RG0O11c O1000,5000,3000,290,290,290,950c":O11RG0570d,1ph (t,y)":)b"6 = Graph (";X$;",y)":Fb"7 = Exit this program"zb1:22:"Option = ";:8000:(R$)1(R$)7220bI120:DX2X1bO((R$))b(O3O6)T0Ė1:24:"Generate solutions first";:220bO4O6265cA1$"t":A2$X$:O000aW$T3$$a(ET$)20W$T2$:a(ET$)36W$T1$Oa(1)(16)T3$;:\aET$;T3$da:a"1 = Enter equations":a"2 = Generate solutions for system":a"3 = Table of values for system":a"4 = Graph (t,";X$;")": b"5 = Gra ` DE-` 3:R(X)(X10000.5)10000?` D$(13)(4)U`PG0:T0:P4(1)o`X15:X25:Y15:Y25`T(100),X(100),Y(100)`n2:0:973:(12)`pI260:CO200:CO$"(YES)":PK155`sT1$(20)"3":T3$(20)"1":T2$(20)"2":T3$T2$ax1               $"":G3:G4:8020{ 8040N{4!16368,0:(2);(16);:G$:(1);(16);:8060-8060-:8060$:8300Bsl G3:G4:R$;" ";:G1:G4:(R$)G0R$"":G3:G4:8020Ls 8040(12e`973:T1$;`X(X)(260X10X2270X1)D:Y(Y)(170Y10Y1180Y2)(Y1Y2)`4000`: GRAPH ROUTINE`(2);(16)``1:1:W$;EQ$;T1$;a(R$,G1G3G5)# RT$RT$G$K# (R$)G1G30RT$RT$(R$,(R$)G1G3)r#& G1G11:G51G1G12:G1G3G1G3#+ R$RT$:8300#l G3:G4:R$;" ";:G1:G4:(R$)G0R$"":G3:G4:8020# 8040#4!16368,0:(2);(16);:G$:(1);(16);:80601G3(R$)ĖG11:80407"G$(13)R$""GC0:G08:J"(G$)328060{"GC0((G$)43(G$)57G$"/"G$",")8060"(G$)96G$((G$)32)"GC1GC0:" G50G1G3(R$)(R$)G0R$R$G$:G$;:G1G11:8040# RT$"":G1G3G50RT$G01);:G3:G4:R$;E!hG11(252):G21(37): H & V CURRENT POSR!|G50:G$e!G$(32)8500!G$(27)Č54915:GC0:G08:50!G$(11)R$"":GC0:G08:!G$(127)G$(10)G$"":G51:8200!G$(8)G1G3ĖG11:8040"G$(21)GXA2((A1)(10)): SCALE ROUTINE> bA3(A110A2)M lA30A31\ vA33A32p A36A37A35 A38A39A310 A3A310(A2)  @R$"" J16368,0:G08:GC0G0130 TG31(252):G41(37): H & V INITIAL POS!Y(A$,I,1)"."6925I'A$A$"."E A$A$"000":AA$(A$,I6)g(Z).01AA$(AA$,(AA$)1)|Z0AA$"-"AA$Z$AA$!Z11E9Z$((Z1),5)" E"(((Z1)(10))):Z0Z$"-"Z$&Z11E4Z11E9Z$((Z1),9):Z0Z$"-"Z$++ TE0.0001:RF0:XT:YR:J3E2(1):TE0.0001:XT:J3J3E2(1):J35000J3TE0:RF0.0001:XT:YR:J2E1(1):RF0.0001:YR:J2J2E1(1):J25000J2TE0:RF0.0001:XT:YR:J4E2(1):RF0.0001:YR:J4J4E2(1):J45000J4@(TE0:RF0:XT:YR:JJ1"t"Ė31:"x";:45:"y";e[1:9:"------------------------------";:X$"t"ĺ"--------------------";rA11:N11:A:E0;:15:F0;:X$"t"Ė29:F0(E0);:43:F0(E0);TE0.0001:RF0:XT:YR:J1E1(1):TE0.0001:XT:J1J1E1(1):J15000J1J915:6600K81:14:(6);"Initial ";X$;" = ";:8000:E0(R$):R$""6200=14:30:"Initial ";Y$;" = ";:8000:F0(R$):R$""6200B:"Find point of intersection between:"L1:3:"0 = ";E1$;Q1:5:"0 = ";E2$;V1:8:X$;:17:Y$;:X$Ў"6110 DEFFNE2(Z) = "E2$":REM"********************************************************************************************************************************************************************************************************* 54e for point of intersection between two curves. ";:GC1Zu1:4:"Enter first equation:"z1:6:"0 = ";:R$E1$:GC1:8010:E1$R$1:9:"Enter second equation:"1:11:"0 = ";:R$E2$:GC1:8010:E2$R$"6100 DEFFNE1(Z) = "E1$":REM"#5080O11:R0Y3:5035+R10R00ı:R005160T((R1R0)R0).005ı^5180x(((R1R0)R1).005ı<R0R1:50201:24:(5);"Unable to continue, press for menu. ";6G$:(1);(16);@54915:607p:T2$;"SolvEC0:XC0:5400IC0KICIC1:IC8IC0:XCXC1:O15050,5070ZXC45400lO15040,5060DNC(R0.0001)C(R0.0001):DN0R1R0C(R0)(5000DN):5080O12:R0X3DNB(R0.0001)B(R0.0001):DN0R1R0B(R0)(5000DN):"4160 DEFFNC(Y) = "EQ$":REM",*****************************************************************************************************@*****************************************************************************************************J60)| RT$RT$G$=| (R$)G1G30RT$RT$(R$,(R$)G1G3)d|& G1G11:G51G1G12:G1G3G1G3u|+ R$RT$:8300|l G3:G4:R$;" ";:G1:G4:(R$)G0R$"":G3:G4:8020| 8040|4!16368,0:(2);(16);:G$:(1);(16);:80601:8040){G$(13)R$""GC0:G08:<{(G$)328060m{GC0((G$)43(G$)57G$"/"G$",")8060{(G$)96G$((G$)32){GC1GC0:{ G50G1G3(R$)(R$)G0R$R$G$:G$;:G1G11:8040| RT$"":G1G3G50RT$(R$,G1G3G5G4:R$;7zhG11(252):G21(37): H & V CURRENT POSDz|G50:G$WzG$(32)8500zzG$(27)Č54915:GC0:G08:40zG$(11)R$"":GC0:G08:zG$(127)G$(10)G$"":G51:8200zG$(8)G1G3ĖG11:8040{G$(21)G1G3(R$)ĖG124:"Press for main menu.";7yGC1:8000:GC0VyG$"C"Ė1:12:(6):7110`y7320yL54915:1:15:"Unable to compute. ";:7060y@R$""yJ16368,0:G08:GC0G0130yTG31(252):G41(37): H & V INITIAL POSzYG01);:G3:;:7220AA1:A57130x1:23:"Press to continue search.";"y1:71804wR1B1(R0)X0A1(R0):RAA2(R0):RBB2(R0)RwR1R1(RBX0RA):R1R0R1w 1:2A10:(100000R1.5(R1))100000;wO37190,7200,7210,7212w16:(100000R(R1)(R(R1)).5)100000;:7220x 16:(100000A(R1)(A(R1)).5)1000000(R$):R$""7040,v1:9:"t";:18:X$;Zv1:10:"------------------------------";sv54915:216,0:7500{vA1vO37150,7160,7165,7170vR1R0(R(R0)X0)R1(R0):7180vR1R0(A(R0)X0)A1(R0):7180wR1R0(B(R0)X0)B1(R0):,0:1:20:(5);:5080!u50301uXO4X$"r"Au\O5X$"x"Qu^O6X$"y"eudO7X$"slope"uul:T2$;RQ$;uv1:4:(5);:1:6:(5);u1:4:(5);"Find t when ";X$;" = ";:8000:X0(R$):R$""7040v1:6:"Estimate for t = ";:8000:RV)R(V)(V):U2R1(V)(V)R(V)(V)OtU3(U1U1U2U2):U1U1U3:U2U2U3tU10Ė5:15:(5);"Slope = ";(1000U2U1(U2U1).5)1000;tU10Ė5:15:(5);"Slope undefined";t5030t1:20:"An error has occurred.";:G$u54915:216(6):3160s 3360s5080$s;s1:1:(6);:RQ$;ps5:5:"T = ";:8000:9:5:(5);R$;:R$""5030s5:9:(5);"r = ";R((R$));" ";s5:11:(5);"x = ";A((R$));" ";s5:13:(5);"y = ";B((R$));" ";'tV(R$):U1R1(V)(0:(1);(16);21:22:" for new option";Y(1:23:" to toggle graph";x21:24:" to continue";<GC1:8000FXY1G$"C"ĺ(2);(16);(1);PG$"C"61906430Z1(Z):Z1.01Z1Z11A$(Z1):I1(A$)8),Y(Y8)X(X9),Y(Y8)X(X9),Y(Y9)X(X8),Y(Y9)X(X8),Y(Y8):(1)G1(XX1XX2)XY1ĺ(2);:X(X8),Y(Y8)X(X9),Y(Y8)X(X9),Y(Y9)X(X8),Y(Y9):(1)AA1:BB2:B176220642054915:216,0:(1);:6400 6380216,;~XX2X8X0(XX0)1E5=XX1X9X8:X8X0(XX0)1E5Y8A(X):Y9Y8:IM(X9X8)15:I015:Y7A(XIIM):Y7Y8Y8Y7Y7Y9Y9Y7Z(Y9Y8)2:6900L1ZA1L1.16420L1Z40:B:Z$GG1XX0XY1ĺ(2);:X(X-";$A1:XX0:B5.B5-81:B:(6);8B6400]LXX0XX1XX0IN.5(A1):X8XVZIN.5(A1):6900:1:B:Z$;`XX0XX1ZA(X):E1Z:6900:13:B:Z$;jXX0XX2XX0IN.5(A1):X9XtXX0XX2ZA(X):E2Z:6900:27:B:Z$XY1:(2);(16);(1);&G$""6090@G$"Y"G$"N"6110o1:1:(6);"Lim ";EQ$;" x --> ";XX$;yT2$;3:1:"h";:13:"f(x-h)";:27:"f(x+h)";:40:"[f(max)-f(min)]/2";1:4:"--------------------------------------------------(16);:80608,0:(2);(16);:G$:(1);(16);:80600(ured. Press for menu. ";:549153x2#9000@x<#G$:200ux<#G$:200uRT$G$3w (R$)G1G30RT$RT$(R$,(R$)G1G3)Zw& G1G11:G51G1G12:G1G3G1G3kw+ R$RT$:8300wl G3:G4:R$;" ";:G1:G4:(R$)G0R$"":G3:G4:8020w 8040w4!16368,0:(2);(16);:G$:(1);(16);:8060(x(#1:24:"An error has occG3G1G3~+ R$RT$:8300U~l G3:G4:R$;" ";:G1:G4:(R$)G0R$"":G3:G4:8020_~ 8040~4!16368,0:(2);(16);:G$:(1);(16);:8060 50RT$(R$,G1G3G5)%} RT$RT$G$R} (R$)G1G30RT$RT$(R$,(R$)G1G3)y}& G1G11:G51G1G12:G1G3G1G3}+ R$RT$:8300}l G3:G4:R$;" ";:G1:G4:(R$)G0R$"":G3:G4:8020} 8040~4!16368,0:(2);(16);:G$:(1);(16);:806(21)G1G3(R$)ĖG11:8040:|(G$)96G$((G$)32)L|GC1GC0:m|G$(13)R$""GC0:G08:|(G$)328060|GC0((G$)43(G$)57G$"/"G$",")8060| G50G1G3(R$)(R$)G0R$R$G$:G$;:G1G11:8040} RT$"":G1G3GS{YG01);:G3:G4:R$;K{hG11(252):G21(37): H & V CURRENT POSX{|G50:G$k{G$(32)8500{G$(27)Č54915:GC0:G08:160{G$(11)R$"":GC0:G08:{G$(127)G$(10)G$"":G51:8200{G$(8)G1G3ĖG11:8040|G$,J): zz ,zPI13:J13:R(I,J)0VzZK13:R(I,J)R(I,J)RZ(I,K)T(K,J):\zdbznpzRO1:160z|I13:J13:12J11:10I:R(I,J);::zz@R$""zJ16368,0:G08:GC0G0130{TG31(252):G41(37): H & V INITIAL PO)45)byRY(1,1)(RY(1)45):RY(1,3)(RY(1)45):RY(3,1)(RY(1)45):RY(3,3)(RY(1)45)yRZ(1,1)(RZ(1)45):RZ(1,2)(RZ(1)45):RZ(2,1)(RZ(1)45):RZ(2,2)(RZ(1)45)yI13:J13:T(I,J)0zK13:T(I,J)T(I,J)RY(I,K)RX(Klating rotation matrix.";RxI13:J13:RX(I,J)0:RY(I,J)0:RZ(I,J)0:R(I,J)0xIJRX(I,J)1:RY(I,J)1:RZ(I,J)1:R(I,J)1x:xRX0RY0RZ0RO0:160yRX(2,2)(RX(1)45):RX(2,3)(RX(1)45):RX(3,2)(RX(1)45):RX(3,3)(RX(1e:"wRX0:RY0:RZ0:RO0aw1:5:"x axis. Number of degrees = ";:8000:RX(R$):R$""5010w1:7:"y axis. Number of degrees = ";:8000:RY(R$):R$""5010w1:9:"z axis. Number of degrees = ";:8000:RZ(R$):R$""5020x1:12:"Calcu000)r 44:B:Z$;9r AA1:TT0AIN:BB2:B213180Cr 3320Tr 54915:3260_r 216,0r 1:22:" for new option";r 1:23:" to continue list";r4 1:24:" to toggle graph";rH GC1:8000:GC0 sp G$"C"B5:1:5:" ";-------------------";&qD A0:TT0:B51qX 3300Cql 1:B:D(T);Yq 8:B:D(R(T));pq 20:B:D(A(T));q 32:B:D(B(T));q U1R1(T)(T)R(T)(T):U2R1(T)(T)R(T)(T):U10Z$"Undefined"r U10Z$((1000U2U1(U2U1).5)1$T3$;>p 1:5:"Enter increment ";:8000:IN(R$):IN05000p 1:7:"Enter starting t value ";:8000:T0(R$):R$""3040p 1:3:(6);p T2$;:3:2:"t";:9:"r";:21:"x";:33:"y";:45:"Slope";q0 1:4:"----------------------------------`а8`NwL7 H *&+)'h}"H c0 c"  L" *&!0+i+'i'`%J) +hj*` :+2 VV LLޅUHTHL ʊ c%LL$O"%C%L" 7 )ߠقΰɐU8Iiii+`8"%%H hi#L"%H$3  8***,uIL -*+i+Ȅh!1 $0p,u0*I*!0 +i+ & & &mx)my $20t I-t I-t$0PPT&'JH&'h&&'&&'&FJ 쩀L  &J*, YYL 9Y*߬ +i+LG m%%#F emy @($0pJ (!` 8 ۩Fŭ к,w wNw)pT  r HH`@, `,T@,U`,,L 8nT`8n`u" w Nu`I`8n`0jjj`  $(8$$hh`  $0,p FjFFFj : .II -- Fj xyz8i!$PzMz0`*+i+`z`1I (,ɛ nU ! ,U0ɕ  Hɍ hwL f NO,+i+ U `*Y*`Lű S(*)  + II U 8++`$2 $pi}e*e*`p Pp ` $8 LLf LE L 8697,R,Wxy " (!#i18 ,PL` ~Lv,T ~hhL 󦴊HH hh`8HH$(L ( vv  ,Ɂvv,c0 ې I         RT$(R$,G1G3G5)!s RT$RT$G$Ns (R$)G1G30RT$RT$(R$,(R$)G1G3)us& G1G11:G51G1G12:G1G3G1G3s+ R$RT$:8300sl G3:G4:R$;" ";:G1:G4:(R$)G0R$"":G3:G4:8020s 8040s4!16368,0:(2);(16);:G$:(1);(16);:8060r(G$)96G$((G$)32).rGC1GC0:ir G50G1G3(R$)(R$)G0R$R$G$:G$;:G1G11:8040r RT$"":G1G3G50RT$(R$,G1G3G5)r RT$RT$G$r (R$)G1G30RT$RT$(R$,(R$)G1G3)r& G1G11:G51G1G12:G1G3G1G3s+ R$RT q|G50:G$,qG$(11)R$"":GC0:G08:UqG$(127)G$(10)G$"":G51:8200tqG$(8)G1G3ĖG11:8040qG$(21)G1G3(R$)ĖG11:8040qG$(13)R$""GC0:G08:q(G$)328060qGC0((G$)43(G$)57G$"/"G$",")8060):O1O34570%pO4000,1000,4585Fp34,23::(4);"RUN MENU,S6"LpVp@R$""pJ16368,0:G02:GC0G08:GC0G0100pTG31(252):G41(37): H & V INITIAL POSpYG01);:G3:G4:R$;phG11(252):G21(37): H & V CURRENT POS*****************!oI120:I2402o(1)(16): for new option";Nvb 1:23:" to continue list";uvl 1:24:" to toggle graph";vv GC1:8000v G$"C"B5:1:5:" ";(6):3080v 3170v34,23::D$;"RUN MENU"vwT3$::"Rotate the surface about th)u T2$;:3:2:"x";:20:"y";:40:"z"`u 1:4:"----------------------------------------";vu A0:B5:XX0:YY0u 3140u 1:B:X;u 18:B:Y;u& 38:B:A(X);u0 AA1:XX0AIX:YY0AIY:BB2:B213090u: 3150uD 54915:3120vN starting x value = ";:8000:X0(R$):R$""3020nt 1:5:"Enter increment x = ";:8000:IX(R$):R$""3020t 1:7:"Enter starting y value = ";:8000:Y0(R$):R$""3030t 1:9:"Enter increment y = ";:8000:IY(R$):R$""3032u 1:3:(6);n? (y,n) ";:GC1:8000:G$"Y"G62jn1:10:"y = ";:R$EP$:GC1:G68000,8010:GC0:EQ$R$:R$""4080vnEP$EQ$nEQ$"Y="EQ$nh"4500 DEFFNA(X) = "EP$":REM"o******************************************************************************nction not defined at ";Q1$m3205Am INPUT EQUATION EQ$MmD$(4)Sm}m1:1:"Enter y as a function of x":m"* = Multiplication":m"/ = Division":m"^ = Exponentiation":::$nG61:EQ$""Ė1:10:"Edit existing functio62=l T2$;:1:23:(6);:"Norm = "PM" Riemann Sum = "RS;Hl 216,0l 1:24:"1 = Options 2 = More sums Which ?";l 8000:O(R$):O1O23220l O4500,3240l (1)::(4);"BLOAD PIC,S5"l (2);l 3000m3288:1:10:"FuP3P1:P2P3"k R4R3(R1(2)R2)1k Q1QR4P1Dk RSRSQA(Q1)hk PRINT P1 Q1 P2 TO PAGE 1wk QPMPMQk RY(A(Q1)):R0R1903100k X1%X(P1):X2%X(P2):Y%Y(A(Q1)):X1%,XA%X1%,Y%X2%,Y%X2%,XA%k P3P203200l& P1P2:3055+j R10:R21:P(P3P0)(((P3P0)P)1)j 1:23:(6);:"Evaluate function on the eft or ight ?";:GC1:8000:O$G$:O$"L"O$"R"3048j R31:O$"L"R30j 3800j RS0:PM0:P1P0j R5R1(2)R2j QPR5:P2QP1 k P3P1PQ$):P0X1R$""3020Hi 23:19:8000:P3(R$):P0P3P3X2R$""3020ni 37:23:8000:P(R$):R$""3030}i P03040i 1:23:(6);:"1 = Random partition 2 = Equal partition Which? ";:8000:O(R$):O1O23042j O1R11:R20:R31:30((A1)(10)): SCALE ROUTINE9hA3(A110A2)HhA30A31WhA33A32khA36A37A35hA38A39A310hA3A310(A2)h h (2)(16);h 1:23:(6);i 1:23:"a = ";:15:"b = ";:30:"Norm = ";:23:5:8000:P0(R660g1:24:(5);'g54915:216,00gW$;@g1:1:EQ$;OgT1$;:PG1g1:24:T2$;:"1 = New option 2 = Riemann sums Which? ";:8000:O(R$):O1O21740gO4500,1800g(1)g (4);"BSAVE PIC,A16384,L8192,S5"g3000&hA2Ы1680f@IX1:XX0fJXIAfTY3Y(A(I)):X3X(I):XX0Y4Y3wf^ IF ABS (Y3 - Y4) > 60 THEN XX = 0: GOTO 1660 fh IF PEEK ( - 16384) = PK THEN 1690fmXX0ēX3,Y3:XX1:1660frX3,Y3f|IID1:IX21610f1690g54915:XX0:1X(AA3)4.5:XA%83:AA3;,eAN214507e216,0heA1(Y2Y1)4:2000:N1(Y1A3):N2(Y2A3)1se1560~eAN11eAA1:YA%,Y(A3A)YA%4,Y(A3A)eA01560eY(AA3)8.9:YA%43:AA3;eAN21530e"T1$;e,216,0f6)(Y1Y2)dPT3$;+dZXA%Y(0):YA%X(0)CddX10X20YA%10\dnX10X20YA%250pdxYA%,10YA%,180d10,XA%270,XA%d1480dA1D6:2000:N1(X1A3):N2(X2A3)1dAN11dAA1:X(A3A),XA%X(A3A),XA%4dA01480e01250cY5Y1Oc1:19:"Maximum (Y>0) = ";:8000:Y2(R$):R$""1250_cY201270ecoc Y6Y2ucc(2)(16);:c(D1(X2X1)I2:D2(Y2Y1)150c2DX2X1c<D201240 dFX(X)(260X10X2270X1)D:Y(Y)(170Y10Y1180Y2b~1180bYY21180 bY2Y8bJJDI1:JX21120Bb1210Sb3288:1180^b216,0{b1:9:"Minimum y = ";Y1b1:11:"Maximum y = ";Y2b1:15:"Input y-axis limits"b1:17:"Minimum (Y<0) = ";:8000:Y1(R$):R$""1060cY11:3:"Input x-axis limits";Ta1:5:"Minimum x = ";:8000:X1(R$):R$""1030^aX5X1daa$1:7:"Maximum x = ";:8000:X2(R$):X1X2R$""1030a.X6X2a8Y10:Y20aBDX2X1aL1200aVJX1a`YA(J)ajYY11160atY1YS` R SUMS(`xI120:I240:P4(1)V`T1$(20)"2":T2$(20)"2":T3$(20)"3"e`973:T1$;`X(X)(260X10X2270X1)D:Y(Y)(170Y10Y1180Y2)(Y1Y2)`4000`: GRAPH ROUTINE`(2);(16)``1:1:W$;EQ$;T1$;a          ************us **************************************************************************************************~s160s (1)(16);:: FUNCTION TABLE ROUTINEs T2$;s 1:1:"Table of values for: ";:ZQ$;0t 1:3:"Enter (5);"z = ";:R$ZP$:GC1:G68000,8010:ZQ$R$:R$""2130Er\ZP$ZQ$XrfZQ$"Z = "ZQ$~rp"2190 DEFFNA(X) = "ZP$":REM*"rz"2200 DEFFNB(Y) = "ZP$":REM*" s**************************************************************************************T FUNCTION F(X,Y) qD$(4),q:T3$;Lq1:1:"Enter z = f(x,y)":hq"* = Multiplication":~q"/ = Division":q "^ = Exponentiation":::qG61:ZP$""GC1:1:10:"Edit existing function? (y,n) ";:8000:G$"Y"G629rR1:10:5:216,0pwO21O22:14902pxO22O21:1670";:16368,0:R$p200plXX0:54915:1900pv1590q INPU3,Y3o6O21600,1620Do@TTD2:XX1(R):YY1(T):TY1D221520}oJRR(X2X1)(CR1):TY2:XX0:XX1(R):YY1(T):1510oTRRD1:XX1(R):YY1(T):RX1D121520o^TT(Y2Y1)(CR1):RX2:XX0:XX1(R):YY1(T):1510oh1:24:(5);pr5491J,2)YR(J,3)Z:0nRO0X(1)X:X(2)Y:X(3)Z`nY3Y(X(3)X(1)(2)):X3X(X(2)X(1)(2))nPE(16384):PE228PE196XX0:16368,0nPE211PE243Ĺ16368,0:O21610,1630nPE155Ĺ16368,0:1650n"XX0ēX3,Y3:XX1:1590o,XX1ēXX2:TY2:XX1(R):YY1(T):D1(X2X1)I1:D2(Y2Y1)I1mO2$"P"D1R2I1:D2(T2T1)I1:X10:X2R2:Y1T1:Y2T2:RX2:TY2:XX1(R):YY1(T)m54915:216,0:1900mII1:ICR1640mO21ZB(Y)mO22ZA(X)nRO1āJ13:X(J)R(J,1)XR(:Z3R(3,2)Y2HlI010:X(I10(Y3X3(2))),Y(I10(Z3X3(2))):Zl54915:1472lX3R(1,3)Z2:Y3R(2,3)Z2:Z3R(3,3)Z2lI010:X(I10(Y3X3(2))),Y(I10(Z3X3(2))):l54914lX1X5:X2X6:Y1Y5:Y2Y65mI0:XX0:O2$"C"R)MkX(X)(260X10X8270X7)(X8X7):Y(Y)(170Y10Y7180Y8)(Y7Y8)_kO1$"N"1490kX3R(1,1)X2:Y3R(2,1)X2:Z3R(3,1)X2k1453kI010:X(I10(Y3X3(2))),Y(I10(Z3X3(2))):k54915:1462 lX3R(1,2)Y2:Y3R(2,2)Y2"Y"O1$"N"1290jO21jj21:21:"How many cross sections? (max = 15) ";:8000:CR(R$):R$""1290j7CR2CR151330j<jF(2)(16);:O21490jPjnX7X2(2)Y1:X8X1(2)Y2:Y7X2(2)Z1:Y8X1(2)Z2kxX9X2(2):Y9X2(2Input z - axis limits"Ni1:17:"Minimum z = ";:8000:Z1(R$):R$""1070i17:25:"Maximum z = ";:8000:Z2(R$):Z10Z20R$""1270iZ5Z1:Z6Z2:ZD(Z2Z1)10i 1:19:"Plot xy - axis? (y,n) ";:GC1:8000:O1$G$:G$(8)1275jO1$(X)h~XX1YY1Z1Z:1200,hZZ11180;hZ1Z:1200JhZZ21200ShZ2ZnhXXD1:XX2D121140hYYD2:YY2D22XX1:YYD2:1140h1240h54915:1200h216,0h1:13:"Minimum z = ";Z1;:25:"Maximum z = "Z2;i1:15:"(X1)g>Y2R1R1Y2-g@(Y1)R1R1(Y1)egB1:11:"Minimum t = ";:8000:T1(R$):R$""1070gD11:25:"Maximum t = ";:8000:T2(R$):R$""T1T21090gFO21300gLZ10:Z20gVD1(X2X1)5:D2(Y2Y1)5g`1230gjXX1:YY1htZAR$):X10X20R$""1040Qf$1:9:"Minimum y = ";:8000:Y1(R$):R$""1045f.9:25:"Maximum y = ";:8000:Y2(R$):R$""1060f3Y10Y201060f8X5X1:X6X2:Y5Y1:Y6Y2f:R1X1:R2X2:T1Y1:T2Y2:O2$"C"1094g<R10:R2X2:(X1)X2R1eO2$"C"ĸX1(R)R:Y1(T)TJeO2$"P"ĸX1(R)R(T):Y1(T)R(T)ieO2R1R2T1T2Z1Z2O1weO21082e1:5:(5);"Input xy - axis limits";e1:7:"Minimum x = ";:8000:X1(R$):R$""1040f7:25:"Maximum x = ";:8000:X2($):R$""520Dd1:10:(5);"z = f(x,y) = ";A(X);" ";:G$:520dX1:20:"An error has occurred. ";:G$:1:20:(5);:520dd1:1:W$;ZQ$dT2$;d1:3:"Plot artesion or

olar net? ";:GC1:8000:O2$G$:G$"C"G$"P"1022od406oA2((A1)(10)): SCALE ROUTINEIoA3(A110A2)XoA30A31goA33A32{oA36A37A35oA38A39A310oA3A310(A2)o o (1)(16);:: FUNCTION TABLE ROUTINEp 1:1:"Table for: ";:W$RQ001)R(T.0002))^nR2(T)25003(R(T.02)16R(T.01)30R(T)16R(T.01)R(T.02))nA1(T)R1(T)(T)R(T)(T)n(B1(T)R1(T)(T)R(T)(T)n<A2(T)(R2(T)R(T))(T)2R1(T)(T)oPB2(T)(R2(T)R(T))(T)2R1(T)(T)010:GC0:RQ$R$:R$""1140'mRP$RQ$8mRQ$"R="RQ$[m"1240 DEFFNR(T)="RP$":REM"m*******************************************************************************************************nR1(T)25003(R(T.0002)8R(T.0001)8R(T.0(4) l3l$1:1:"enter r as a function of t":Ol8"* = multiplication":elL"/ = division":l`"^ = exponentiation";leG61:RP$""Ė1:11:"Edit existing function? (y,n) ";:GC1:8000:G$"Y"G62mtR$RP$:1:11:"r = ";:GC1:G68000,8900kz54915:XX0:870*k1:24:(5); ";:16368,0:R$k40k34,23::D$;"RUN MENU"k950k INPUT EQUATIONS RQ$ RQ$lD$216,0j 890j*IT1:XX0'j4TIQj>Y3Y(B(I)):X3X(A(I)):XX0Y4Y3jR IF ABS (Y3 - Y4) > CO THEN 870 CHANGE TO DISTANCEjW(16384)PK900jYXX0ēX3,Y3:XX1:870j\X3,Y3jfIID1:IT2820jk(D1I)D1IT2:820kpiA0700.iX(AA3)4.5:XA%83:AA3;dJ|dT30:5:"Maximum t = ";:8000:T2(R$):T1T2R$""310d^T6T2dcO2570dhI0drDT2T1d|480dJT1dXA(J):YB(J):II1dI1X1X:X2X:Y1Y:Y2YdXX1440cB(T)R(T)(T)IcO290,290,3000,7000,7000,7000,7000,1000,165,950c1:24:(6);"How many points (max = 120) ? ";:8000:I2(R$):I25I2120165c60c":O2X1X2Y1Y2O1c,1:1:W$;RQ$;T2$;c11:3:"Input limits for t";.d61:y":*bs" 7 = Solve for t given slope":Gbx" 8 = Enter function":wb}" 9 = Number of points per graph is ";I2:b"10 = Exit this program"b1:24:"Option = ";:8000:(R$)1(R$)10135bI120:DT2T1bO(R$)bA(T)R(T)(T)(1)(16)T3$;:aAW$;3aF"Polar equation: "RQ$9aKCaPT3$;[aU" 1 = New graph":aZ" 2 = Plot on existing graph":a_" 3 = Table of values":ad" 4 = Solve for t given r":ai" 5 = Solve for t given x":bn" 6 = Solve for t given ` POLAR%` 3:54915:P4(1)D`D(X)(X10000.5)10000h`I235:CO200:CO$"(YES)":PK155`T1$(20)"3":T3$(20)"2":T2$(20)"2":T3$T2$`"973:T3$;`#1020`(W$T3$`*54915`-(RQ$)20W$T2$`2(RQ$)36W$T1$a<rdinate may be expressed in terms of the others";ok1:9:"For example: x = x(y,z), y = y(t,r), z = z(t,r)";kG61:XP$""YP$""ZP$""Ė1:14:"Edit existing equations? (y,n) ";:GC1:8000:G$"Y"G62l1:14:R$XP$:"x = ";:GC1:G68000,8" ";j16368,0:R$#j160Lj INPUT EQUATIONS XQ$ YQ$^j54915:216,0jj:T3$;j1:3:"Enter x,y and z as functions of t for a curve":j1:5:"Enter x,y and z as functions of t and r for a surface":1k1:7:"One coo54915i|W$;2i1:1:(5);XQ$" "YQ$" "ZQ$xiNC1Ė1:24:T1;" < t < ";T2;" ";R1;" < r < ";R2;" ";iNC1O2Ė1:24:T1;" < t < ";T2;:NR0ĺ" ";"r = ";R1;" ";jNC1O3Ė1:24:R1;" < r < ";R2;" ";"t = ";T1;600,16101h@TTD1:(D1)T(D1)T2(1.01)1540dhARRD2:TT1:XX0:(D2)R(D2)R2(1.01)1540nhB1640hJRRD1:(D1)R(D1)R2(1.01)1540hLTTD2:RR1:XX0:(D2)T(D2)T2(1.01)1540hT1640h^54915:XX0:1595hh1:24:(5);ir1630g(2);(16);0gTT1:RR1:XX0:I11LgXA(1):YB(1):ZC(1)hgXA(1):YB(1):ZC(1)gY3Y(ZXSQ):X3X(YXSQ)g"(16384)1551640g'XX7XX8YY7YY8ZZ7ZZ8X0:1595g,XX0ēX3,Y3:XX1:1595g6X3,Y3h;O11)G1G3(R$)ĖG11:80406r(G$)96G$((G$)32)HrGC1GC0:irG$(13)R$""GC0:G08:|r(G$)328060rGC0((G$)43(G$)57G$"/"G$",")8060r G50G1G3(R$)(R$)G0R$R$G$:G$;:G1G11:8040s RT$"":G1G3G50SqY8);:G3:G4:R$;HqhG11(252):G21(37): H & V CURRENT POSUq|G50:G$hqG$(32)8500qG$(27)Č54915:GC0:G08:50qG$(11)R$"":GC0:G08:qG$(127)G$(10)G$"":G51:8200qG$(8)G1G3ĖG11:8040rG$(21bZ299999(Z2.00001Z20)Z$(Z1):LplZ$(" "S$((Z2)),5)jpvZ3Z2(Z2):(Z3)1E8ıpZ3$(Z2(Z2)1)pZ3$(Z3$,(Z3$)1):Z$Z$Z3$:p@R$""pJ16368,0:G08:GC0G0130qTG31(252):G41(37): H & V INITIAL PO4915:216,0:1:18:(5);T2$;"Unable to evaluate. Please check the function":"and the limits of integration. ";:G$:T3$:50oI17,I20I16,I21I15,I22I14,I23I14,I222I13,I223I12,I224I11,I224ooXZ2(Z1):S$" ":Z10S$"-"'pH hL` ,T,RL r r g zR e  g clvPPPP@#"ÿ??@ >>> <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>0,>>>"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "   z#0  נ ŠԠĠ"ȠˠР Š Ԡ !Ԡ"ԠɮҠŠ ҠӠ ؠŠ  Ԡ!Šՠ ͠ԠԠˠŠ ϠҠҠ#ŠĠɮɮ(16384)155Č54915:504n13:18:(5);CO:COCO1@nJ31A_nX1(XIXL(XIXL)D(J3))2yn********************nS4S4Z(1)G(J3)nX1(XIXL(XIXL)D(J3))2n********************nS4S4Z(1)G(J3)nnS4S4R32n}o5VVS4G(J2)+m Y1(YIYL(YIYL)D(J2))2Dm *******************om XIX1(1):XLX2(1):4000:VVS4G(J2)um m VVR42m 1:18:(5);"Integral = ";V;m0 216,0m: 1:24:"Press for menu. ";:GC1:8000:50nS40:R3(XLXI):"3060 Y=Y1"+l"4040 X=X1":"4070 X=X1"5l 3000Ul"3030 X=Y1":"3060 X=Y1"ul"4040 Y=X1":"4070 Y=X1"l(3000l R4(YLYI):V0l 4600l J21Al Y1(YIYL(YIYL)D(J2))2l ******************* m XIX1(1):XLX2(1):4000:**************************************************************************k ************************************************************************************************************k1:18:"Calculating"kO11270,1300 l"3030 Y=Y1"::GC0:X1$R$:H2(252)4056:R$""1170}j115640:10:R$X2$:GC1:G68000,8010:GC0:X2$R$:H3(252)4056:H3H2H2H3jR$""1180j"1230 DEFFNX1(Z)= "X1$":REM"j"1240 DEFFNX2(Z)= "X2$":REM"Jk **********************************0:I2117:5000:I178:I2117:5000HitEP$EQ$:(EQ$)10EP$"f(x,y)"|i~16:12:EP$;" d";X$;" d";Y$;" = ";:H1(252)3i25640:14:8000:YI(R$):R$""1160i35640:10:8000:YL(R$):R$""1160(j105640:14:R$X1$:GC1:G68000,8010::A8:CO16:1100ihLG61:X1$X2$""Ė1:13:"Edit existing limits? (y,n) ";:GC1:8000:G$"Y"G62hQT2$:1:1:(6);"Enter limits for f(x,y) = ";EQ$:hV"Outside limits are constants.":h`"Inside limits are functions of ";Y$;".":$ijI15:"2 = medium accurate";:1:7:"3 = most accurate";kg$1:10:"Which? ";:8000:A((R$)):A1A31060g.A1āI13:D(I)D6(I):G(I)G6(I)::A3:CO6:1100g8A2āI15:D(I)D9(I):G(I)G9(I)::A5:CO10:1100hBA3āI18:D(I)D1(I):G(I)G1(I)******************************************************************************************************nf50yf973:fO11020,1030fX$"x":Y$"y":1040fX$"y":Y$"x":1040f1:1:"Select accuracy";5g1:3:"1 = least accurate";:1:xponentiation":::ieEG61:EQ$""Ė1:12:"Edit existing function? (y,n) ";:GC1:8000:G$"Y"G62eJ1:12:(5);"z = ";eTGC1:R$EQ$:G68000,8010:GC0:EQ$R$:R$""330e^EP$EQ$ehEQ$EQ$er"380 DEFFNZ(Z) = "EP$":REM"ff|******(R$)1(R$)4210dO(R$)8dO280,1000,1000,240Td34,23::D$;"RUN MENU"]d240{d INPUT EQUATION EQ$dD$(4)d973:d"1:1:"Enter z as a function of x and y":d,"* = Multiplication":d6"/ = Division":e@"^ = ED$(4)cZ(1)(16)T3$;:%cdW$;;cn"f(x,y) = ";EQ$;Fcx:T3$jc"1 = Enter function f(x,y)":c"2 = Evaluate integral, dA = dx dy":c"3 = Evaluate integral, dA = dy dx":c"4 = Exit this program":d1:22:"Option = ";:8000:289713:D1(6).8656312024:G1(6).0951585117:D1(7).9445750231:G1(7).0622535239:D1(8).9894009350:G1(8).0271524594b973:P4(1)bT1$(20)"3":T3$(20)"2":T2$(20)"2"b#T3$b(260b2W$T3$b<(EQ$)20W$T2$bF(EQ$)36W$T1$cP.2692667193:G9(3).2190863625:G9(4).1494513492:G9(5).0666713443:P4(1)aD1(1).0950125098:G1(1).1894506105:D1(2).2816035508:G1(2).182603415:D1(3).4580167777:G1(3).1691565194:D1(4).6178762444:G1(4).1495959888rbD1(5).7554044084:G1(5).1246` DOUBLEt` D9(1).1488743390:D9(2).4333953941:D9(3).6794095683:D9(4).8650633667:D9(5).9739065285:V0:3` D6(1).2386191861:D6(2).6612093865:D6(3).9324695142:G6(1).4679139346:G6(2).3607615730:G6(3).1713244924KaG9(1).2955242247:G9(2)       3T2T4fe1135CfjNR0Ė1:10:L2$;" = ";:8000:O3T1(R$)UflO2R1(R$)hfoO11140,1150ftD1(T2T1)I2:NC1D20:1500fyD2(R2R1)(NC1):1500f~D1(R2R1)I2:NC1D20:1500fD2(T2T1)(NC1)f54915:216,0:16368,0g60e4NC1NC151075&e6NC11130Le81:11:"Input limits for ";L2$;eB1:13:"Initial ";L2$;" = ";:8000:T3(R$):R$""1060eLO2R1T3eQO3T1T3eV30:13:"Final ";L2$;" = ";:8000:T4(R$):T4T3R$""1090e`O2R2T4fbOimits for ";L1$;Nd1:6:"Initial ";L1$;" = ";:8000:T1(R$):R$""1030]dO3R1T1d$30:6:"Final ";L1$;" = ";:8000:T2(R$):T1T2R$""1030d.O3R2T2e3NC1:NR0Ė1:8:"Number of curves? (max = 15) ";:8000:NC((R$)):R$""1050) ";:8000:I2((R$)):I21I21503502cr160Nc34,23::D$;"RUN MENU"Tcgc(1);(16);:cL1$"t":L2$"r":O3L1$"r":L2$"t"cX1X2Y1Y2Z1Z27000c1:1:W$;XQ$;" ";YQ$;" ";ZQ$;T2$cR10:R20:T10:T20d1:4:"Input lons":1b"" 7 = Plot ";I2;" points per graph":Ob," 8 = Exit this program"b61:24:"Option = ";:8000:(R$)1(R$)8310bJO(R$):NR0O3O2bTO7000,1000,1000,5000,3000,2000,350,500)c^1:24:(6);"How many points per graph? (max = 1$)42W$T2$!a(1)(16)T3$;:*aW$;AaXQ$" "YQ$" "ZQ$La:T2$sa" 1 = Plot xyz coordinate axis":a" 2 = Plot t curves":a" 3 = Plot r curves":a " 4 = Evaluate (x,y,z)":a" 5 = Table of values":b" 6 = Enter equati ` PLOT 3D/`d3:P4(1):D$(13)(4)F`x2:0:973:SQ(2)y`I210:CO200:PK155:D(X)(X10000.5)10000`T1$(20)"3":T3$(20)"1":T2$(20)"2":T3$T2$`2000`W$T3$`(XQ$)(YQ$)(ZQ$)25W$T2$ a(XQ$)(YQ$)(ZQ       8040 f0 (R$)1R$"":82805fD R$(R$,(R$)1)XfX G3:G4:R$" ";:(252):8040f4!16368,0:(2);(16);:G$:(1);(16);:806011(252):G21(37): H & V CURRENT POS1e|G$De(G$)328500`eG$(8)G$(127)8240peG$(13)ıe(G$)45(G$)57G$"/"8060e(G$)96G$((G$)32)eG1:G2e R$R$G$:G$;:(R$)G0R$"":G3:G4:G01):G3:G4:8040fyour choice "; db8000:R(R$)1dlRAR1600O2O31000qyHO1160yLXX0:1:3:(5);"Minimum t = ";:8000:T1(R$):R$""7500yV3:25:"Maximum t = ";:8000:T2(R$):T1T2R$""75007z`R10:R21:270Y1)(Y2Y1):Y(Y)(170Y10Z1180Z2)(Z1Z2)x*I010:X(IX510SQ),Y(IX510SQ)::X(9X510SQ)5:Y(9X510SQ)8:X5;x4I010:X(IY510),Y(0)::X(9Y510)5:Y(0)8:Y5; y9I010:X(0),Y(IZ510)::X(0)5:Y(9Z5ximum z = ";:8000:Z2(R$):Z10Z20Z1Z2R$""7070\wZ9(Z2Z1)100:Z7Z1Z9:Z8Z2Z9rwZ5Z2:Z20Z5Z1w(2)(16);:wX2SQY1Y1X2SQwX2SQZ1Z1X2SQwX1SQY2Y2X1SQw X1SQZ2Z2X1SQ4x X(X)(260X10Y21:17:"Minimum y = ";:8000:Y1(R$):R$""7020|v17:30:"Maximum y = ";:8000:Y2(R$):Y10Y20Y1Y2R$""7040vY9(Y2Y1)100:Y7Y1Y9:Y8Y2Y9vY5Y2:Y20Y5Y1v1:19:"Minimum z = ";:8000:Z1(R$):R$""70507w19:30:"Ma1:8000:G$"Y"7500@u]1:13:T2$;"Input xyz - axis limits";xub1:15:"Minimum x = ";:8000:X1(R$):R$""7010ul15:30:"Maximum x = ";:8000:X2(R$):X10X20X1X2R$""7010uqX9(X2X1)100:X7X1X9:X8X2X9uvX5X2:X20X5X14v5);"y = ";Y;" ";1t5:18:(5);"z = ";Z;" ";;t5030dt1:20:"An error has occured.";:G$t 54915:216,0:1:20:(5);:5120t5030tX(1);(16);::XQ$;" ";YQ$;" ";ZQ$;uZ1:3:"Scan for minimum and maximum values? (y,n) ";:GCЦ5:5:(5);"t = ";:8000:T(R$):R$""160fsNR0Ė5:5:(5);"r = ";:8000:R(R$):R$""5030s5:9:(5);"t = ";T;:NR0Ė5:11:(5);"r = ";R;sXA(1):YB(1):ZC(1):XA(1):YB(1):ZC(1)s5:14:(5);"x = ";X;" ";t5:16:(3120rN 216,04rX 1:22:" for new option";Xrb 1:23:" to continue list";rl 1:24:" to toggle graph";rv GC1:8000r G$"C"B5:1:5:" ";(6):3080r 3170r5120rr1:1:(6);T2$;XQ$;" ";YQ$;" ";ZQ$;.s";q A0:TT0:B5:RR0#q 31405q 1:B:D(T);Nq NR0Ė11:B:D(R);q XA(1):YB(1):ZC(1):XA(1):YB(1):ZC(1)q 20:B:D(X);q& 32:B:D(Y);q+ 44:B:D(Z);q0 AA1:TT0AIT:RR0AIR:BB2:B213090q: 3150rD 54915:= ";:8000:IR(R$):IR03037.p R$""3035vp NR0Ė1:11:"Enter starting r value ";:8000:R0(R$):R$""3037p 1:3:(6);p T2$;:3:2:"t";:12:"r";:21:"x";:33:"y";:45:"z";q 1:4:"----------------------------------------------160=o (1)(16);:: FUNCTION TABLE ROUTINEio 1:1:T2$;XQ$;" ";YQ$;" ";ZQ$;T3$;o 1:5:"t increment = ";:8000:IT(R$):IT03030o 1:7:"Enter starting t value ";:8000:T0(R$):R$""3030p NR0Ė1:9:"r increment *********n *****************************************************************************************************************n *****************************************************************************************************************o` "X="XQ$:YQ$"Y="YQ$:ZQ$"Z="ZQ$Hmp"2190 DEFFNA(W) = "XP$":REM"mmz"2200 DEFFNB(W) = "YP$":REM"m"2210 DEFFNC(W) = "ZP$":REM" n********************************************************************************************************010:XQ$R$:R$""2070Wl41:16:R$YP$:"y = ";:GC1:G68000,8010:YQ$R$:R$""2070lR1:18:R$ZP$:"z = ";:GC1:G68000,8010:ZQ$R$:R$""2100l\XP$XQ$:YP$YQ$:ZP$ZQ$l]X$XP$YP$ZP$l^NR0:I1(X$):(X$,I,1)"R"NRNR1l_#mfXQ$@A8m @0 /@ q@8@8e@@AiAPʘ8e@@AiA@ q@8@֠Ș8e@@AiA@ q@8@` & Xq@8@`G1:G4:(R$)G0R$"":G3:G4:8020.) 8040`)4!16368,0:(2);(16);:G$:(1);(16);:8060"/"G$",")8060K( G50G1G3(R$)(R$)G0R$R$G$:G$;:G1G11:8040u( RT$"":G1G3G50RT$(R$,G1G3G5)( RT$RT$G$( (R$)G1G30RT$RT$(R$,(R$)G1G3)(& G1G11:G51G1G12:G1G3G1G3(+ R$RT$:8300$)l G3:G4:R$;" ";:"":GC0:G08:7'G$(127)G$(10)G$"":G51:8200V'G$(8)G1G3ĖG11:8040|'G$(21)G1G3(R$)ĖG11:8040'(G$)96G$((G$)32)'GC1GC0:'G$(13)R$""GC0:G08:'(G$)328060(GC0((G$)43(G$)57G$&&@R$"".&J16368,0:G08:GC0G0130a&TG31(252):G41(37): H & V INITIAL POS{&YG01);:G3:G4:R$;&hG11(252):G21(37): H & V CURRENT POS&|G50:G$&G$(32)8500&G$(27)Č54915:GC0:G08:50'G$(11)R$Ж1:24:" to toggle graph";2%GC1:8000X%G$"C"B5:1:5:" ";(6):5640b%5730%XA2((A1)(10)): SCALE ROUTINE%bA3(A110A2)%lA30A31%vA33A32%A36A37A35%A38A39A310%A3A310(A2))F(F2)F1F2:F2F4:5690A$+F4F2F(F4)F(F2)F1F4:5690f$0F4F2F(F4)F(F2)F3F4:5690$:AA1:BB.4:B195645$?5720$D54915:5700$N5690$X216,0$b1:22:" for new option";$l1:23:" to continue list";"%v0:"Y";>#1:4:"----------------------------------------";S#F2.618034R3F1d#A1:XX0:B4o#5200# ((A5)A5)05660#1:B:A;#8:B:F2;:30:C(F2);#F4F1F2F3#!F4F2F(F4)F(F2)F3F2:F2F4:5690$&F4F2F(F4r maximum of |";ER$;"| on";:35:"[A,B]";:5590b"1:3:(5);"a = ";:8000:R1(R$):R$""5590"20:"b = ";:8000:R2(R$):R2R1R$""5590"1:35:"[";R1;",";R2;"]";"1:3:(6);:T2$;"F1R1:F3R2:R3R2R1#3:2:"n";:8:"X";:3n";:35:"[A,B]";:5590q!F(X)A(X):C(X)A(X)::"Search for maximum of ";ER$;" on";:35:"[A,B]";:5590!F(X)(A(X)):C(X)F(X)::"Search for minimum of |";ER$;"| on";:35:"[A,B]";:5590/"F(X)(A(X)):C(X)F(X)::"Search foesc> for new option";9 n1:23:" to continue list";` x1:24:" to toggle graph";p GC1:8000 G$"C"B7:1:7:(6):5100 5230 |T2$;:O45510,5520,5530,5540!F(X)A(X):C(X)A(X)::"Search for minimum of ";ER$;" o55# R0(R1R2)2:Z1R0:B:8:R0H(A(R1)XX)(A(R0)XX)0R2R0m(A(R2)XX)(A(R0)XX)0R1R0{#R5N(R4)(Z1R4R5:30:B:Z1;2R4Z1<AA1:BB2:B195110F5210P54915:216,0:5200U5180Z216,0 d1:22:"<2R$""5020+1:40:"[";R1;",";R2;"]";<R4(R1R2)2M1:3:(6);}5:2:"n";:8:"Bisection";:30:"Newton";1:6:"----------------------------------------";A1:XX0:B752001:B:A;(A(R1)XX)(A(R2)XX)051rch for solution to ";ER$;" = Y";P1:3:"Y = ";:8000:XX(R$):R$""50041:1:T2$;(6);"Search for solution to ";ER$;" = ";XX;" on ";:40:"[a,b]";1:5:(6);"a = ";:8000:R1(R$):R$""5004 20:5:"b = ";:8000:R2(R$):R1RB(X2H)16B(XH)30B(X)16B(XH)B(X2H))(12HH)}N(X)H6(B(X2H)16B(XH)30B(X)16B(XH)B(X2H)XX12HH)(B(X2H)2B(XH)2B(XH)B(X2H))50(1)(16);:: ROOT APPROXIMATION"1:1:T2$;"Sea$ES$:ES$"F'(X)":A(X)B(X):50dH.01:A(X)(B(X2H)8B(XH)8B(XH)B(X2H))(12H)N(X)H(B(X2H)8B(XH)8B(XH)B(X2H)XX12H)(B(X2H)16B(XH)30B(X)16B(XH)B(X2H))ER$"F'(X)":50<|H.1:A(X)( occured.";:G$6\ 54915:216,0:1:20:(5);:3400@p 3030lES$"F'(X)"ER$ES$:ES$"F''(X)":4010ES$"F''(X)"ER$ES$:ES$"F(X)":4220ES$"F(X)"H.001:N(X)12H(B(X)XX)(B(X2H)8B(XH)8B(XH)B(X2H)):B$"F(X)""ER52780"n XX0ēX3,Y3:XX1:2730.n X3,Y38n Y4Y3Nn JJD1:JX22680Xn 2780qn 54915:216,0:2760n XX0:2740n 1:24:(5);n 54915:216,0n W$;n "Y = "EQ$;n T3$;n 55:16368,0:R$n PG1:100oT A2((A1)(10A3;m< AN22590mF T3$;'mP 216,0QmZ 2760: PLOT ON START HERErm_ D1(X2X1)I2:D2(Y2Y1)150md JX1:XX0mx O21Y3Y(E(J)):X3X(J):XX0m} O22İ4510:Y3Y(Y):X3X(J)m XX0Y4Y3m (Y3Y4)100XX0n (16384)15(A3A),XA%X(A3A),XA%4'l A02540Jl X(AA3)4.5:XA%83:AA3;Yl AN22510dl 216,0l A1(Y2Y1)4:2900:N1(Y1A3):N2(Y2A3)1l 2620l AN11l AA1:YA%,Y(A3A)YA%4,Y(A3A)l( A02620m2 Y(AA3)8.9:YA%43:A1Y2)k` T1$;'kj XA%Y(0):YA%X(0)?kt X10X20YA%10Xk~ X10X20YA%250qk Y10Y20XA%160k Y10Y20XA%10k YA%,10YA%,180k 10,XA%270,XA%k 2540k A1D6:2900:N1(X1A3):N2(X2A3)1k AN11l AA1:Xput y-axis limits"Jj1:17:"Minimum y = ";:8000:Y1(R$):R$""2070TjY5Y1j1:19:"Maximum y = ";:8000:Y2(R$):Y1Y2R$""2280j Y6Y2j$ (2)(16);j. jB DX2X1kV X(X)(260X10X2270X1)D:Y(Y)(170Y10Y1180Y2)(Y1iWO22İ4510:II1+i\I1Y1Y:Y2Y:ifYY12180CipY1YMiz2200\iYY22200eiY2Y}iJJDI1:JX22130i2240i54915:216,0:2220i2200i216,0i1:9:"Minimum Y = ";Y1i1:11:"Maximum Y = ";Y2j1:15:"In1:"Y = ";EQ$;T3$;4h1:3:"Input x-axis limits";jh1:5:"Minimum x = ";:8000:X1(R$):R$""2040thX5X1zh h1:7:"Maximum x = ";:8000:X2(R$):X1X2R$""2040h X6X2h*I0h4DX2X1h>2220hHJX1iRO21YE(J):II*****************************************************************************g **************************************************************************************************g70g: NEW GRAPH START HERE, I2=POINTS PER GRAPHh1:$""1130ZfN$"M"Ė1:18:(6);"a(n)/a(n-1) = ";:GC1:G68000,8010:AN$R$:R$""1130fN$"A"Ė1:18:(6);"a(n) - a(n-1) = ";:GC1:G68000,8010:AN$R$:R$""1130f216,0f:f"1210 DEFFNR(N) = "AN$":REM"Mg*********************1:18:"Enter nth term: xplicit";18:19:"ultiplicative recursive";:18:20:"dditive recursive";et18:21:"Which? ";:GC1:8000:N$G$eyR$AN$:N$"E"N$"A"N$"M"1140 f~N$"E"Ė1:18:(6);"a(n) = ";:GC1:G68000,8010:AN$R$:R0:G$"Y"G62'd854915:216,0:1080dB1:16:(5);"Initial index = ";:8000:II((R$)):1:16:"Initial index = ";II;:R$""1090dL25:16:"a(";II;") = ";:GC1:R$AF$:G68000,8010:AF$R$:R$""1090dV"1200 DEF FNAF(X) = "AF$":REM"lejor the first term.":Hc"For a(n), enter an expression in n and x or"vc:"a recursive relation in n and x "::c"* = Multiplication":c$"/ = Division":c."^ = Exponentiation"d3G61:1:16:"Edit existing sequence? (y,n) ";:GC1:800": b"4 = Exit this program",bXX(0)`b1:19:"Option = ";:8000:(R$)1(R$)4200lbO(R$)bO1000,3000,4000,800b 34,23::(4);"RUN MENU"b INPUT EQUATIONS RQ$ RQ$bT3$;:c1:1:"Enter an expression fuences and series";anW$;5as54915:216,0:1000EaxA(1)AF(X)a1:3:"a(";II") = ";AF$;", a(n) = ";AN$;:N$"M"ĺ"*a(n-1)";aN$"A"ĺ" + a(n-1)";a1:6:"1 = New sequence":a"2 = Evaluate sum of series":b"3 = Graph resultsS` SEQUENCE2` 3:P4(1):I240:I120A`2:0:973o`(T1$(20)"3":T3$(20)"2":T2$(20)"2"`2AN$"x/n":N$"E":II0:AF(X)1`<R(N)XN:X1:AF$"1"`FW$T3$`P(AN$)20W$T2$`Z(AN$)50W$T1$ad(1)(16)T3$;::"Seq          $)):B1B4330! TB1A0330< ^B1000,5000,4000,3000S 54915:216,0:50Y  1:5:"Insert data disk in drive (1,2)?"; 1:7:"Which? ";:R$:D2((R$)):D21D22540 !1:5:(6);"Insert data disk in drive ";D2;" and press . ";:G$:400054915:216,0:502534,23/1:24:(5);"Number of graph tnsert Computer Lab for Calculus and press . ";:G$:3000V D$;"RUN MENU,D1"o54915:216,0:4010z34,23D$;"VERIFY GRAPH,D";D242001:24:"Insert blank disk in drive ";D2;" and press . ";:G$SA$""D$;"I#(2);:1:2:N1$;" ";N2$;(1)M D$;"BSAVE ";R$;",A$4000,L$2000,D";D2WAA1a46000j2001:24:"Please insert data disk. ";:G$:2000 54915:216,0:3100 34,23 D$;"VERIFY GRAPH,D1" D$;"RUN MENU,D1"@ 1:24:"IRIFY PIC,D";D2e:1:20:"Save current graph? (y,n) ";:CA1:8000:CA0:SA$(R$,1,1):SA$"N"200xSA$"Y"200554915:34,0:1:22:"Title of graph to be saved? ";:CA1:8000:CA0:R$"PIC"2010I1A:R$A$(I)2010A$(A1)R$ to be retrieved? ";:8000:B((R$)):B1AB1010[ D$;"BLOAD ";A$(B);",A$";L1;",D";D2e 34,0w L12000200 8000:200 1:24:"Insert data disk and press . ";:G$:1000 54915:216,0:2200 34,23:A16200D$;"VEn>. ";:G$& &D$;"VERIFY GRAPH,D";D2/ 05057 X50P 54915:216,0:1200 1:24:"Compare with first graph (y,n)? ";:CA1:8000:CO$(R$,1,1):CA0:CO$"Y"CO$"N"1002 L14000:CO$"Y"L12000 34,233 1:24:(5);"Number of graphC    100 dQdV$d`3000:Z1Z:3100@djI1N:X(I)X(I)TD(I)dtY(I)MI(I)Y(I)MA(I)İ1800:1:22:"Limits are exceeded. Press . ";:G$:200d~d3000dD2.0000001Ė1:24:"Gradient near zero. ";:G$:200dZZ11300 eI1;:10:2I5:"< x";I;" <";Ic1:2I5:8000:MI(I)(R$):R$""1040c25:2I5:8000:MA(I)(R$):MA(I)MI(I)R$""1030c$c.T1:L11c8:"Enter starting point";cBI1NdL1:2I5:"x";I;" = ";:8000:X(I)(R$):Y(I)X(I):R$""100:(R$)1(R$)9310#bJO(R$)VbTO1000,1000,7000,4000,5000,2000,2200,6000,350mb^:(4);"RUN MENU"sbhbCO0:EX1:O2EX1b:"Search path must be the gradient";b1:3:"Enter boundaries for search";bI1Nc1:2I5:(5) derivative": to continue.";Bd16368,0:G$::(4);"RUN MENU"Gwith care by the"`n"authors. Every effort has been made to produce accurate"`x"and effective material. No warranty of any kind with"a"regard to the software programs is eit this";c"program only. To legally use Diversi-DOS with"zc"other programs, you may send $30 directly to: DSR, Inc."c"5848 Crampton Court, Rockford, IL 61111. You will"c"receive a Diversi-DOS utility disk with documentation."d1:24:"Ped by Beagle Bros.,Inc."Nb,:"DOS 3.3 (C) 1980-81 APPLE COMPUTER INC. and "b6"Diversi-DOS (TM) (C) DSR, INC. for faster loading."b:"This disk contains a high-speed operating system called"c"Diversi-DOS (TM), which is licensed for use withher expressed"Ga"or implied by the authors. Under no circumstances"}a"shall the authors be liable for any damages in"a"connection with the performance of the software."a:"Hi Res Type from Flex Type, (C) 1982 Mark Simonsen,"b"publishD ` ACKN ` 973::(20);2X`d"This software has been prepared with care by the"`n"authors. Every effort has been made to produce accurate"`x"and effective material. No warranty of any kind with"a"regard to the software programs is eitC                                                                         2150 DEFFNB(T) = "YP$":REM"n\**********************************************************************************************nf **********************************************************************************************/opA1(T)25003(A(T;:GC1:R$XP$:G68000,8010:GC0:XQ$R$:R$""2070Gm 1:14:"y = ";}m*GC1:R$YP$:G68000,8010:GC0:YQ$R$:R$""2070m4XP$XQ$:YP$YQ$:CO$"("XQ$","YQ$")":CP$CO$m>XQ$"X = "XQ$:YQ$"Y = "YQ$mH"2140 DEFFNA(T) = "XP$":REM"nR":T2$;8l1:1:"Enter x and y as functions of t":Tl"* = Multiplication":jl"/ = Division":l "^ = Exponentiation":::lG61:XQ$""YQ$""Ė1:10:"Edit existing equations? (y,n) ";:GC1:8000:G$"Y"GC1:G623m1:12:"x = "11210k1300&k 54915:XX0:12708k1:24:(5);Jk54915:216,0Sk(W$;sk21:1:(5);1:1:W1$;CP$;k<1:24:T1;" < t < ";T2;kFT2$;kP30:" ";:16368,0:R$kZ100k INPUT EQUATIONS XQ$ YQ$kD$(4) l;jAN21130jT2$;%j216,00j1290>jIT1:XX0FjTIpjY3Y(B(I)):X3X(A(I)):XX0Y4Y3j IF ABS (Y3 - Y4) > CO THEN 870 CHANGE TO DISTANCEj(16384)PK1300jXX0ēX3,Y3:XX1:1270jX3,Y3kIID1:IT2D3A),XA%X(A3A),XA%4%i$A01080Hi.X(AA3)4.5:XA%83:AA3;Wi8AN21050biB216,0iLA1(Y2Y1)4:2600:N1(Y1A3):N2(Y2A3)1iV1160i`AN11ijAA1:YA%,Y(A3A)YA%4,Y(A3A)itA01160j~Y(AA3)8.9:YA%43:AA321170hXA%Y(0):YA%X(0)7hX10X20YA%10PhX10X20YA%250ihY10Y20XA%160hY10Y20XA%10hYA%,10YA%,180h10,XA%270,XA%h1080hA1(X2X1)6:2600:N1(X1A3):N2(X2A3)1hAN11iAA1:X(Aaximum y = ";:8000:Y2(R$):R$""8407gWY1Y2840Gg\Y5Y1:Y6Y2Mgffgp(2)(16);:O2900lgzgD1(T2T1)I2:D2(Y2Y1)150gDT2T1gD20810gX(X)(260X10X2270X1)(X2X1):Y(Y)(170Y10Y1180Y2)(Y1Y2)hT1$;:OInput x-axis and y-axis limits";Wf41:17:"Minimum x = ";:8000:X1(R$):R$""570f617:30:"Maximum x = ";:GC1:8000:GC0:X2(R$):R$""820f9X1X2820f>X5X1:X6X2fH1:19:"Minimum y = ";:8000:Y1(R$):R$""822'gR19:30:"M0eXX2710eX2X&eYY17304eY1Y:750BeYY2750KeY2YceJJDI1:JT2640le780|e54915:750e 216,0e1:9:"Minimum x = ";X1;:30:"Maximum x = "X2;e 1:11:"Minimum y = ";Y1;:30:"Maximum y = "Y2; f*1:15:" ";:8000:T1(R$):R$""540(d&T5T1.d0ld:30:5:"Maximum t = ";:8000:T2(R$):T1T2R$""540vdDT6T2dNO2880dXI0dbDT2T1dl770dvJT1dXA(J):YB(J):II1dI1X1X:X2X:Y1Y:Y2YdXX1690dX1Xe71,500,3000,7000,7000,7000,2000,260,2700c1:24:(6);"How many points per graph? (max = 150) ";:8000:I2((R$)):I25I2150260c100ccO2X2X1O1c1:1:W1$:1:1:CP$;T2$;c1:3:"Input limits for t";d1:5:"Minimum t =given y":?b"6 = Determine t for given tangent direction":\b"7 = Enter equations":b"8 = Plot ";I2;" points per graph":b"9 = Exit this program"b1:24:"Option = ";:8000:(R$)1(R$)9220bI120:DT2T1bO(R$)&cO500W1$T1$ad(1)(16);T2$;:'axW$;9aXQ$" "YQ$Aa:KaT2$;la"1 = New graph of (x,y)":a"2 = Plot (x,y) on existing graph":a"3 = Table of values for (x,y)":a"4 = Determine t for given x": b"5 = Determine t for ` PLOT 2` 3:P4(1)5`2:0:973:(12)Y`I235:CO200:CO$"(YES)":PK155`(T1$(20)"3":T3$(20)"1":T2$(20)"2"`22000`<W$T3$`F(XQ$)(YQ$)35W$T2$`P(XQ$)(YQ$)54W$T1$aZW1$T3$:(CP$)39W1$T2$:(CP$)55          ************************************************************************************nnP1:18:"Calculating"nZO11380,1420,1460,1500,1540,1580nd"2040 Z=Z1":"2070 Z=Z1"nn"3030 Y=Y1":"3060 Y=Y1"nx"4040 X=X1":"4070 X=X1"n2000qm2 **********************************************************************************************************m< **********************************************************************************************************TnF **********************"1320 DEFFNY1(W)= "Y1$":REM"El "1330 DEFFNY2(W)= "Y2$":REM"jl"1340 DEFFNX1(W)= "X1$":REM"l"1350 DEFFNX2(W)= "X2$":REM"m( **********************************************************************************************************56:R$""1220ck115640:10:GC1:R$Y2$:G68000,8010:GC0:Y2$R$:H3(252)4056:H3H2H2H3skR$""1230k225640:14:GC1:R$X1$:G68000,8010:GC0:X1$R$:R$""1240k235640:10:GC1:R$X2$:G68000,8010:GC0:X2$R$:R$""1260 l&jEP$EQ$:(EQ$)10EP$"f(x,y,z)"bj32:12:EP$;" d";X$;" d";Y$;" d";Z$;" = ";:H1(252)3j25640:14:8000:ZI(R$):R$""1210j35640:10:8000:ZL(R$):R$""1210k105640:14:GC1:R$Y1$:G68000,8010:GC0:Y1$R$:H2(252)40T2$:1:1:(6);"Enter limits for f(x,y,z) = ";EQ$:[i~"Outside limits are constants.":i"Middle limits are functions of ";Z$;".":i"Inside limits are functions of ";Y$;" and ";Z$;".":jI10:I2117:5000:I178:I2117:5000:I1720:50002:D(I)D4(I):G(I)G4(I)::A2:CO16:1140bh`A2āI13:D(I)D6(I):G(I)G6(I)::A3:CO36:1140hjA3āI15:D(I)D9(I):G(I)G9(I)::A5:CO100:1140htG61:X1$X2$Y1$Y2$""Ė1:13:"Edit existing limits? (y,n) ";:GC1:8000:G$"Y"G624iy1080$g$X$"z":Y$"x":Z$"y":1080Cg.X$"z":Y$"y":Z$"x":1080ag81:1:"Select accuracy";gB1:3:"1 = least accurate";:1:5:"2 = medium accurate";:1:7:"3 = most accurate";gL1:10:"Which? ";:8000:A((R$)):A1A31100*hVA1āI1*******************************************************************************Wf50bf973:fO11020,1030,1040,1050,1060,1070fX$"x":Y$"y":Z$"z":1080fX$"x":Y$"z":Z$"y":1080fX$"y":Y$"x":Z$"z":1080gX$"y":Y$"z":Z$"x":on"XeJG61:EP$""Ė1:12:"Edit existing function? (y,n) ";:GC1:8000:G$"Y"G62eT1:12:(5);"w = ";:GC1:R$EP$:G68000,8010:GC0:EQ$R$:R$""340e^EP$EQ$ehEQ$EQ$er"380 DEFFNW(W) = "EP$":REM"Of|***************************O280,1000,1000,1000,1000,1000,1000,240Fd34,32::D$;"RUN MENU"Od240md INPUT EQUATION EQ$ydD$(4)d973:d"1:1:"Enter w as a function of x, y and z":d,"* = Multiplication":d6"/ = Division":e@"^ = Exponentiatial, dV = dy dx dz":Bc"5 = Evaluate integral, dV = dy dz dx":pc"6 = Evaluate integral, dV = dz dx dy":c"7 = Evaluate integral, dV = dz dy dx":c"8 = Exit this program":c1:22:"Option = ";:8000:(R$)1(R$)8210cO(R$)*d2$bF(EQ$)36W$T1$$bPD$(4)9bZ(1)(16)T3$;:BbdW$;Ybn"f(x,y,z) = "EQ$;dbx:T3$b"1 = Enter function f(x,y,z)":b"2 = Evaluate integral, dV = dx dy dz":b"3 = Evaluate integral, dV = dx dz dy":c"4 = Evaluate integr).4679139346:G6(2).3607615730:G6(3).1713244924aG9(1).2955242247:G9(2).2692667193:G9(3).2190863625:G9(4).1494513492:G9(5).0666713443:P4(1)a973aT1$(20)"3":T3$(20)"2":T2$(20)"2"a#T3$a(260a2W$T3$b<(EQ$)20W$T` TRIPLEu` D9(1).1488743390:D9(2).4333953941:D9(3).6794095683:D9(4).8650633667:D9(5).9739065285:V0:3` D4(1).3399810436:D4(2).8611363116:G4(1).6521451549:G4(2).34785484511a D6(1).2386191861:D6(2).6612093865:D6(3).9324695142:G6(1          "2070"i>"3010 Z = "Z$":REM"4i:"z = ";Z$;ki1:3:"Enter search path with respect to xn or ";i1:5:"Enter xn as a function of t";iG61:G$(1)""Ė1:8:"Edit present path? (y,n) ";:GC1:8000:G$"Y"G62iI1N:I$(I)Gj1ivision":*h "^ = Exponentiation":::}hG61:Z$""Ė1:10:"Edit present function? (y,n) ";:GC1:8000:G$"Y"G62h1:10:"Number of variables = ";:8000:N((R$)):N2N52070i41:14:(5);"z = ";:GC1:R$Z$:G68000,8010:Z$R$:R$"EX(10000Z1.5)10000;:25:"Increment = ";[g!EE((T)(10))3:(T10EE.5)10EEag&g INPUT EQUATIONS XQ$ YQ$gD$(4)g:T2$;g1:1:"Enter z as a function of x1, x2, ... xn":g"* = Multiplication": h"/ = DfG$"C"1130f"1540~f1:CO53:"Point = ( ";:I1N1:(10000X(I).5)10000;" , ";::(10000X(N).5)10000;" )"f1:CO54:"Direction = ( ";:I1N1:(10000D(I).5)10000;" , ";::(10000D(N).5)10000;" )";-g1:CO56:"z = ";N:Y(I)X(I):eT2T:L1T&e1120=eCO0ė:"z = ";Z$]eI1N:X(I)(Y(I)X(I))2:re#3000:Z1Z:3100e(L1L14:TL1e1800eCOCO1:CO4CO0:1540e1130e1:24:"Press to continue search, for menu. ";:GC1:8000(4);"WRITE NAMECODE"i#NF$(i#NL$1i#CD$Ji#D$;"CLOSE NAMECODE"Xi#GC0:100:0YYNAMECODE"`xD$;"OPEN NAMECODE"`}D$;"READ NAMECODE"`N1$`N2$`D$;"CLOSE NAMECODE"`A$(30),B$(30)`(1);(16);`A16:B0%a hM#CD$((100000(2)))5hP#G$"Y"G$"y"9010Mh#D$;"OPEN NAMECODE"hh#(4);"WRITE NAMECODE"qh#NF$zh#NL$h#CD$h#D$;"CLOSE NAMECODE"h#GC0:100:0Yon plotter/processor"` PLOT 2,"Parametric equation plotter"*a Pname ";:8000:NL$R$IgF#1:7:"Is ";NF$;" ";NL$;" correct (y,n)? ";:G$cgM#CD$((100000(2)))}gP#G$"Y"G$"y"9010g#D$;"OPEN NAMECODE"g#(4);"WRITE NAMECODE"g#NF$g#NL$g#CD$g#D$;"CLOSE NAMECODE"g#GC0:100:0Y P80fD R$(R$,(R$)1):fX G3:G4:R$" ";:(252):8040lf4!16368,0:(2);(16);:G$:(1);(16);:8060f(#GC1::"Your first and last name will be recorded on disk"f2#1:3:(6);"Enter your first name ";:8000:NF$R$g<#1:5:"Enter your last 15:10"eG$(8)G$(127)82402eG$(13)ıEe(G$)328060ueGC0ĭ(G$)43(G$)57G$"/"G$","8060e(G$)96G$((G$)32)eG1:G2e R$R$G$:G$;:(R$)G0R$"":G3:G4:G01):G3:G4:8040e 8040f0 (R$)1R$"":82,0d:(4);"RUN";A$(R) dtd@16368,0:R$"":G08:GC1G020: GEN INPUT: G0 LEN OF INPUT dTG31(252):G41(37): H & V INITIAL POSdhG11(252):G21(37): H & V CURRENT POSd|G$d(G$)328500eG$(27)Č549A$(J),B$(J)c9c:"COMPUTER LAB FOR CALCULUS":DcJ1AMc&J3pc+JB$(JB):JB10JB$" "JB$c0JB$;" = ";B$(J)cDJcNcX1:24:"Enter number of your choice ";cb8000:R(R$)clRAR1600cv34,23d104,96:96256egration".b TRIPLE, "Triple integration"Tb SEQUENCE,"Sequences & series"b SURFACE,"Surface plotter, z = f(x,y)"b DE ,"Differential equations"b STEEP,"Multivariate functions"b GRAPH,"Save and retrieve graphs"bJ1AcPLOT 3D,"Parametric equations, 3 dimensions"Ra POLAR,"Polar equation plotter"a IMPLICIT,"Implicit relation plotter" aLIMIT,"Limit of f(x)"a R SUMS,"Riemann sums"a NUM INT,"Numerical integration" b DOUBLE, "Double int ` MENU` .`F973:(12)(20)"2":3@`PD$(13)(4)R`d54915:9000l`nD$;"UNLOCK NAMECODE"`A$(30),B$(30)`(1);(16);`A15:B0` PLOTTER,"Function plotter/processor"` PLOT 2,"Parametric equation plotter",a      1:23:"How many points per section? (Max = 100) ";:8000:I1((R$)):I12I1100350ac|200yc54915:216,0:600c:W$;ZQ$;:1:22:"Press for menu. ";c1:5:(5);"x = ";:8000:X(R$):R$""520 d1:7:(5);"y = ";:8000:Y(R6 = Rotation: x-axis(";RX;") y-axis(";RY;") z-axis(";RZ;")":ib""7 = Plot ";I1;" points per section":b,"8 = Exit this program"b61:23:O0:(5);"Option = ";:8000:(R$)1(R$)8310bJO(R$)bTO1000,1000,3000,500,2000,5000,350,4300Xc^)20W$T2$!a(ZQ$)36W$T1$6a(1)(16)T3$;:OaW$;"f(x,y) = ";ZQ$;[a:::ra"1 = New graph":a"2 = Plot on existing graph":a"3 = Table of values":a"4 = Evaluate function":a"5 = Enter function of x and y":=b"` SURFACE`d3:P(1)J`sR(3,3),T(3,3),RX(3,3),RY(3,3),RZ(3,3)Y`x2:0:973`I22:CO200:CO$"(YES)":PK155:I110`T1$(20)"3":T3$(20)"1":T2$(20)"2":T3$T2$`O5:RO0:R(1,1)1:R(2,2)1:R(3,3)1`2000`W$T3$ a(ZQ$           y+ R$RT$:8300Kyl G3:G4:R$;" ";:G1:G4:(R$)G0R$"":G3:G4:8020Uy 8040y4!16368,0:(2);(16);:G$:(1);(16);:8060280607xGC0((G$)43(G$)57G$"/"G$",")8060rx G50G1G3(R$)(R$)G0R$R$G$:G$;:G1G11:8040x RT$"":G1G3G50RT$(R$,G1G3G5)x RT$RT$G$x (R$)G1G30RT$RT$(R$,(R$)G1G3)x& G1G11:G51G1G12:G1G3G1G3I524 u0%240%1G1G12:G1G3G1G3't+ R$RT$:8300btl G3:G4:R$;" ";:G1:G4:(R$)G0R$"":G3:G4:8020lt 8040t4!16368,0:(2);(16);:G$:(1);(16);:8060t%I40:I57u&%I47,I50I46,I51I45,I52I44,I53I44,I522I43,I523I42,I524I41,43(G$)57G$"/"G$",")8060 for new option";nn1:23:" to continue list";nx1:24:" to toggle graph";nGC1:8000oG$"C"B11:1:11:(ter initial approximation for t. ";:8000:XL(R$):R$""5030Pm1:10:(6);|m9:1:"n";:10:"Approximation for t";m1:10:"-----------------------------";mA1:XX0:B11m5200m1:B:A;mAA3:6000n(Z1XL(SUAR)A(XL):14Íҍv(G$)96G$((G$)32)-vGC1GC0:NvG$(13)R$""GC0:G08:av(G$)328060vGC0((G$)43(G$)57G$"/"G$",")8060v G50G1G3(R$)(R$)G0R$R$G$:G$;:G1G11:8040v RT$"":G1G3G50RT$(R$,G1G3G5)w RT$G11(252):G21(37): H & V CURRENT POS9u|G50:G$LuG$(32)8500puG$(27)Č54915:GC0:G08:200uG$(11)R$"":GC0:G08:uG$(127)G$(10)G$"":G51:8200uG$(8)G1G3ĖG11:8040uG$(21)G1G3(R$)ĖG11:8040Z;.t1:20:"directional derivative = ";DR;ft1:23:" to repeat, for menu ";|t 8000:R$""7150t*200t@R$""tJ16368,0:G08:GC0G0130tTG31(252):G41(37): H & V INITIAL POStYG01);:G3:G4:R$;,uhsX(I)(R$)::3000:3100?sI1N:20:2I6:G(I);10);:zsI1N:40:2I6:8000:D(I)(R$):R$""Č54915:7100ssD0:I1N:DDD(I)D(I)::D(D):D07150sI1N:D(I)D(I)D::DR0:I1N:DRDRG(I)D(I):t 1:18:(6);"z = ";);:7r1:20:"Press for menu. ";:G$:200ErXCO0:EX1prb:"Search path must be the gradient";rg1:3:"z = ";Z$;rl6:6:"Point";:20:"Gradient";:40:"Direction";rI1Nr1:2I6:"x";I;": ";:8000:R$""Č54915:7100CqTT0:3100:1:9:"P0 = ( ";G(1);:I2N:" , ";G(I);::" )";yq1:12:"Starting t = ";:8000:T(R$):TT05020qTT05030qT1TT0:3100qCO0:4035qp:"z = ";Z$;qu1:4:"Search path";qzI1Nr1:2I5:"x";I;" = ";G$(ICO1:CO6CO0:4140 p"4040jp,1:24:"Press to continue search, for menu. ";:GC1:8000{p6G$"C"4035pJ4140p:1:5:"Find limit of z as P --> P0 along present path.";q1:7:"For P0, t = ";:8000:T0(R$):EX1:R$""5010:"z = ";Z$;"o3100:3000:Z1Zo1:CO34:"Point = ( ";:I1N1:(10000X(I).5)10000;" , ";::(10000X(N).5)10000;" )"o1:CO35:"z = ";EX(10000Z1.5)10000;:25:"t = ";T;oO5T1T14:TT0T1oO4TTL1o3100pCO0D116nZD20:I1N:D(I)G(I)D1:D2D2D(I)D(I):?BC ,W ԧ SL~ HIu,u_  L[L~ͻnXL{Hix>? GFhJ >F F>  (G$)328060A}GC0((G$)43(G$)57G$"/"G$",")8060|} G50G1G3(R$)(R$)G0R$R$G$:G$;:G1G11:8040} RT$"":G1G3G50RT$(R$,G1G3G5)} RT$RT$G$} (R$)G1G30RT$RT$(R$,(R$)G1G3) ~& G1G11:G51G1G12:G1G$(27)Č54915:GC0:G08:131?|G$(11)R$"":GC0:G08:h|G$(127)G$(10)G$"":G51:8200|G$(8)G1G3ĖG11:8040|G$(21)G1G3(R$)ĖG11:8040|(G$)96G$((G$)32)|GC1GC0:|G$(13)R$""GC0:G08:}z1:20:"Only "A" points were computed ";:G$:131>{@R$""^{J16368,0:G08:GC0G0130{TG31(252):G41(37): H & V INITIAL POS{YG01);:G3:G4:R$;{hG11(252):G21(37): H & V CURRENT POS{|G50:G${G$(32)8500|zTNF2F2TN zXNF3F3XN1zXNF4F4XNBzYNF5F5YNSzYNF6F6YNzzAA1:TPA:TNT(A):XNX(A):YNY(A)z 45:17:(5);A;zAPO5200z5690z&54915:TNTNH:ECEC1:EC56000z05200z:216,0zDT1:131zpA2T14{L1:K2HA(TNH2):L2HB(TNH2)[ynXXNK22:YYNL22:K3HA(TNH2):L3HB(TNH2)yxXXNK3:YYNL3:K4HA(TNH):L4HB(TNH)y}O21XNB(TNH)yT(A1)TNH:X(A1)XN(K12(K2K3)K4)6:Y(A1)YN(L12(L2L3)L4)6y|TNF1F1TNse wait while "PO" points are computed ",T3$;9x5670LxH(F2T(0))POxA0:TNT(0):XNX(0):YNY(0):F1TN:F2TN:F3XN:F4XN:F5YN:F6YNxO21X(0)B(TN):XNX(0):F3XN:F4XNxEC0xPXXN:YYN:K1HA(TN):L1HB(TN)#yZXXN.5K1:YYN.5alue ";:8000:Y(0)(R$):R$""ĴO25015,5020,5020tw1:11:"Enter terminal t value ";:8000:F2(R$):R$""5030wF2T(0)5060w1:13:(6);"How many points (max = 100) ";:8000:PO(R$):R$""5060wPO2PO1005080.xT2$;:1:17:"PleaA310(A2)v;v(1)(16);:: GENERATE SOLUTIONRv1:1:W$;ET$;T2$;v1:5:"Enter initial t value ";:8000:T(0)(R$):R$""5015vO21Ė1:7:"Enter initial ";X$;" value ";:8000:X(0)(R$):R$""50152w1:9:"Enter initial y vX)TR)A(T(XX));SuO23R1$"y"Ė1:24:(6);"t = ";T(XX)(Y(XX)TR)B(T(XX));ou54915:216,0:G$:3520u<A2((A1)(10)): SCALE ROUTINEuFA3(A110A2)uPA30A31uZA33A32udA36A37A35unA38A39A310 vxA3;R1$;" = ";:8000:TR(R$):R$""3705pt1:24:"Use nth point to estimate: n = ";:8000:XX(R$):R$""3705tXX0XXTP3730tXX(XX):YY(XX)tO23Ė1:24:(6);"t = ";T(XX)(Y(XX)TR)X(XX);uO23R1$"x"Ė1:24:(6);"t = ";T(XX)(X(X st3770svR1$"y"`syO23Ė1:22:(6);"Estimate t for y = ";:8000:TR(R$):R$""3705s~O23Ė1:22:(6);"Estimate t for x or y? ";:GC1:8000:R1$(((R$,1,1))32):R$""3705sR1$"y"R1$"x"3710&tO23Ė1:22:"Estimate t for "))r ATP13520/r BB2:B21AA1:3080mr 1:22:" for new option";:30:" to estimate t";r T1:23:1:" to toggle graph";:ATP1Ė30:" to continue list";r GC1:8000r G$"E"3700r G$"C"ATP13060s3540q 1:5:(6);)q TT(A):XX(A):YY(A)q O23Ė1:B:A;:6:R(T(A));:16:XX(A):YY(A):R(Y(A));:26:R(X(A));:O22Ė36:R(A(T(A)))r O23Ė1:B:A;:6:R(T(A));:16:R(X(A));:XX(A):YY(A):26:R(Y(A));:36:R(A(T(A)));:46:R(B(T(A)Ģ3:1:"n";:6:"t(n)";:16:"y(n)";:26:"y'(n)";:O22Ė36:"y''(n)";p O23Ģ3:1:"n";:6:"t(n)";:16:"x(n)";:26:"y(n)";:36:"x'(n)";:46:"y'(n)";p 1:4:"------------------------------";:O21ĺ"-----------";:O23ĺ"---------";p B5****************************************************************************Uo@131o (1)(16);:: FUNCTION TABLE ROUTINEo 1:1:W$;ET$;T2$;o 1:5:"Start with point N = ";:8000:A(R$):A0ATP3020o 1:3:(6);Hp O23:R$""1330/nFET$"x' = "EQ$", y' = "ER$Tnx"1500 DEFFNA(T) = "EQ$":REM"yn"1510 DEFFNB(T) = "ER$":REM"n***************************************************************************************************Lo ***********************1:8000:G$"Y"G62\1:10:R$EQ$:"0 = ";:GC1:G68000,8010:EQ$R$:GC0:R$""4090oE2$E1$:E1$R$X$"x"4134"4140 DEFFNB(T) = "EQ$":REM"""4160 DEFFNC(R) = "EQ$":REM"$4140&"4140 DEFFNB(X) = "EQ$":REM""($"y"X$"P"X$"t":Y$"r"0D$(4):GC16a1:1:"Enter 0 = F(";X$;",";Y$;")":}"* = Multiplication":"/ = Division":"^ = Exponentiation":::T10:PG0G61:EQ$""Ė1:10:"Edit existing equation? (y,n) ";:GC(10)): SCALE ROUTINE1Y A3(A110A2)@^ A30A31Oc A33A32ch A36A37A35xm A38A39A310r A3A310(A2)w :"Enter artesian or

olar equation? ";:GC1:8000:X$G$:X$"P"X$"C"4000X$"C"X$"x":YY5190X50X52801955:Y60Y6190X60X62801955a (Y5Y6)(X5X6)100Y6Y5:X6X5r X5,Y5X6,Y6/X3X4:Y3Y4:194041:24:(5);HW$;\" 0 = "EQ$;:PG1pT3$;46:" ";:16368,0:R$60T A2((A1)R0R:XT:YR:5000:54915PO12Y4Y3H2:RY4:TX3:R0T:XT:YR:5000:54915O11Y4R1:X4T:H2(H2):XT:Y4Y3H2(H2)O12X4R1:Y4R:H1(H1):YR:X4X3H1(H1)Y6Y(Y4):X6X(X4):X$"t"Y6Y(Y4(X4)):X6X(Y4(X4))Y50sc> to stop graph, to reverse direction.";:216,0zY5Y(Y3):X5X(X3):X$"t"Y5Y(Y3(X3)):X5X(Y3(X3))PK(16384)PK1552100PK210PK242196016368,0:O11H1H1O12H2H2O11X4X3H1:TX4:RY3:X(AA3)4.5:XA%83:AA3;+AN216606216,0gA1(Y2Y1)4:2900:N1(Y1A3):N2(Y2A3)1r1880}AN11AA1:YA%,Y(A3A)YA%4,Y(A3A)0A01880DY(AA3)8.9:YA%43:AA3;XAN21820/lT2$;:1:24:"Press 0";:1:12:"h = ";:8000:IN(R$):R$""6060IN06090XY0:G061401:14:"Show limit on graph? (y,n) ";:GC1:8000:G$"N"XY0G$"Y"1)(16);W$;:: LIM OF F(X);z5:4:"Lim ";ER$;P5:6:"x --> ";|5:10:"Enter 'a' for two-sided limit"5:12:"Enter 'a-' for limit from left"5:14:"Enter 'a+' for limit from right"11:6:8000:X0(R$):XX$R$:R$""X0AIN:BB2:B213140#Z 3166<\ 54915:216,0:3164F] 3160q^ 216,0:1:22:" for new option";b 1:23:" to continue list";l 1:24:" to toggle graph";v GC1:8000 G$"C"AA1:XX0AIN:3132 3170"p(e ";:8000:X0(R$):R$""30200 1:2:(6);J& 3:6:"X";:27:"Y";0 1:4:"----------------------------------------";: A0:XX0:B5< B5= 1:B:(6);? B1320:18:B1:"!";:A 3164D 1:B:X;N 20:B:A(X);X AA1:X"Table of values for ";ER$;J 1:7:"Enter increment ";:8000:IN(R$)Z IN03040p :ER$;" = ";EP$;{ 3400 1:10:"X = ";:8000:5:10:(5);R$;:R$""3030 1:12:(6);ER$;" = ";A((R$));:3030 1:9:"Enter starting x valuER$"F(X)"/>"2120 DEFFNB(X) = "EP$":REM"H*************************************************************************************************************RA(X)B(X)fG0:50 (1)(16);:: FUNCTION TABLE ROUTINE 1:1:ion of X":'"* = Multiplication":="/ = Division":] "^ = Exponentiation":::G61:EP$""Ė1:11:"Edit existing function? (y,n) ";:GC1:8000:G$"Y"G62 1:11:"y = ";:GC1:R$EP$:G68000,8010:EQ$R$:EP$EQ$:R$""2080 4X0:17101:24:(5);-54915:216,06W$;F"Y = "EQ$;PT3$;t30:" ";:16368,0:R$ (1);(16) :(4);"BSAVE PIC,A16384,L8192,S5"G1:50 INPUT EQUATION EQ$ 1:1:"Enter Y as a funct580 TT3$;^216,0#h17301rIX1:XX09|XI_Y3Y(A(I)):X3X(I):XX0Y4Y3u(Y3Y4)COXX0(16384)PK1750XX0ēX3,Y3:XX1:1705X3,Y3Y4Y3IID1:IX2D11660175054915:216,0:1730 X3A),XA%4A01530;X(AA3)4.5:XA%83:AA3;JAN21500U216,0A1(Y2Y1)4:7000:N1(Y1A3):N2(Y2A3)11610"AN11,AA1:YA%,Y(A3A)YA%4,Y(A3A)6A01610@Y(AA3)8.9:YA%43:AA3;JAN21xXA%Y(0):YA%X(0)0X10X20YA%10IX10X20YA%250bY10Y20XA%160zY10Y20XA%10YA%,10YA%,18010,XA%270,XA%1530A1D6:7000:N1(X1A3):N2(X2A3)1AN11 AA1:X(A3A),XA%X(A Y5Y1H 1:19:"Maximum y = ";:8000:Y2(R$):Y1Y2R$""1270NXY6Y2^(n2(2)(16);t<FD1(X2X1)I2:D2(Y2Y1)150PDX2X1ZD201260dX(X)(260X10X2270X1)D:Y(Y)(170Y10Y1180Y2)(Y1Y2)nT1$;90 YY21190 Y2Y2 JJDI1:JX21120< 1230U 54915:216,0:1210_ 1190j 216,0 1:9:"Minimum Y = ";Y1 1:11:"Maximum Y = ";Y2 1:15:"Input y-axis limits" 1:17:"Minimum y = ";:8000:Y1(R$):R$""1060its";; 1:5:"Minimum x = ";:8000:X1(R$):R$""1030E X5X1K  $1:7:"Maximum x = ";:8000:X2(R$):X1X2R$""1030 .X6X2 8I0 BDX2X1 L1210 VJX1 `YA(J):II1 jI1Y1Y:Y2Y tYY11170 ~Y1Y 11O200:CO$"(YES)":706 cCO200CO10:CO$"(NO)":70 r1:24:"How many points per graph? (max = 150) ";:8000:I2((R$)):I25I2150370 ~70 X34,23::(4);"RUN MENU,S6" b  1:1:W$;"Y = ";EQ$;T3$; 1:3:"Input x-axis lim" 7 = Plot ";I2;" points per graph":D " 8 = Exit this program"x 1:24:"Option = ";:8000:(R$)1(R$)8145 I120:DX2X1 O(R$):O2D0O1 O1000,300,3000,6000,2000,350,370,600 ,(2);(16);:D1(X2X1)I2:1640 ^CO10C