@B@d GENERAL MATHEMATICS UTILITY PROGRAM #1 - AS OF 12/17/1989x@i FROM THE C-128 LOGIC FACTORY OF S. JAY TANNER~@n:@s&: ((238)79)1 %@x 6((238)79),1: 4,1@} 0,0,(238),24,1@ 20((238)79),0,(238),24&A " "WA "  ENERAL ATHEMATICS TILITIES # 1 "A " "A "  ADE IN THE "A " ""B 0,5,(238),24,1: 620((238)79),5,(238),24+BW15@B 5((238)79)lBW0$(01)" OLVE A FINITE INTEGRAL "BW0$(02)" ORMAL ROBABILITY "BW0$(03)"OLVE/LOT LINEAR EQUATIONS"BW0$(04)" OLVE ROOTS OF (X)=0 "CW0$(05)" ROGRAM "DC " 1.A Y .. ANNER"kC ""C "";: I1 W1: "";W0$(I);"": I:W02C ""C ""D "ݟSE EYS TO ELECT"?D " "lD "ݟRESS  TO XECUTE"D ""D:D ""D W0$: W0$" " W0$"" W0$"" W0$"^" 265D 295E  1,10000,1: W0$"" W0$"^" 310LE 1,10000,1: W0$"" W0$" " 285: 255RE:E W0 W1 W01: "";W0$(W1):"": 285E" "";W0$(W01): "";W0$(W0):W0W01: 255E' W0$(13) 345: 255E,:E6 W00 W01: 255F; W02 340F@ W0 W1 W0W116FE W02 1 255_FJ "";W0$(W01): "";W0$(W02)FOW0W01: W0(W11) W0W1: 255: 255FT "";W0$(1): W01 W12:::W0W1: 285FYW0W01: W0 1000,3000,7000,11030,10000G^ EM$"" 115: :EM$"": 200%Gc 1,15000,30ZGhEM$ "PTION #" (W0) " NOT DEFINED YET..."sGm "";EM$: 2::yGr:G " IMPSON'S RULE FOR SOLVING DEFINITE INTEGRALSG:G: 15:U1$"1/X":W1$"1":W2$"2":W34:W01: (11)!H&:SW(238):SF(SW79): SF1 %UH$U0$""nH. 0,0,SW,24,1: 4,1H8 1,"2.71828183"HB 3,"3.14159265"HV 6SF,1H`:Hj ---------------------------------------------------------------------It X(X)1XSIy ---------------------------------------------------------------------dI{ FLAG1 oI~ 2640I (238)39 &I 0,0,SW,24,1: SF18,0,SW,24I ""J " NUMERICAL INTEGRATION SOLUTIONS "AJ ""vJ " V1.A BY S.J. TANNER "J ""J 0,5, SW,24: UF0 : 2030: 1160J 1630:W00: 1,30000,5K U0$;: SF1 U0$: 8KW9$"":" FUNCTION: OK ";W9$>K:rK (W9$,"EXIT") 0 FLAG1:U1$"1/X": 1350K W9$"OK" 1380K  W9$"HELP" 2030:W01: 1070K W9$"CONV" U01: 1390: 1550: 2230:W01: 1070K2U1$W9$: 1350:LF 0,0,SW,24,1: "1140 DEF FNX(X)=";U1$: "GOTO 1140":W01fLP%: 842,19: 843,13: 844,13: 208,3:lLZ:Ld 1390: 1550: 1070Ln U01 " CONVERGENCE TABLE MODE:"Lx" LOWER LIMIT ";W1$L"";W9$2M W9$"HELP" 1290: W1$W9$:W1(W1$):U2$W1$: 1800:W1U58M:YM" UPPER LIMIT ";W2$wM"";W9$M W9$"HELP" 1290: W2$W9$:W2(W2$):U2$W2$: 1800:W2U5M:M U01 U00::M" # INTERVALS ";W3N"";W9$FN W9$"HELP" 1290: W3$W9$:W3(W3$):U2$W3$kN " WORKING": 1, 30000,15qNN W3 4 W34N W32 (W32) W3(W31): 1560N"W50:W8(W2W1)W3N, W61 W31:W5W5(2(W6 1)2) X(W1W6W8):&O6W7X(W1)W5X(W2):W4W8W73:INW4,O@RO^ (11);: W00 " ";W2: zOhU1(U1$)6: U1 20 U11: U10Or W00 "";237SF);W3;"INTERVALS": O|" O " O " ";U1$;O " DX";P W00 SF1 " = ";W4: P" P " 8P W00 " ";W1: UP SF0 W00 1770P U11 SF0 W00 21);"= ";W4PP U10 (U1$)6) " = ";W4;""PP 1830P:P&U2(U2$, "*"): U20 1890Q0U2(U2$, "/"): U20 19204Q:U2(U2$, "+"): U21 1950VQDU2(U2$, "-"): U21 1980qQNU5(U2$):U3U5:U40:wQX:QbU3(U2$):U4((U2$, U21, 80))QlU5U3U4:Qv:QU3(U2$):U4((U2$, U21, 80))QU5U3U4:Q:RU3(U2$):U4((U2$, U21, 80))RU5U3U4:%R:JRU3(U2$):U4((U2$, U21, 80))YRU5U3U4:_R:R 0,5, (238),24,1: 18((238)79),5, SW,24R " OMMANDS AVAILABLE:"R " - OLVE THE INTEGRAL" S  " REATE CONVERGENCE TABLE"2S* " IST THIS HELP MENU"ZS4 " XIT & RESET PROGRAM"S> " NTER COMMANDS AT  PROMPT ONLY"SH "";U0$SR " -KEY DEFINITIONS:"S\ " 1 E VALUE 3 I VALUE"Tf " 2.71828183 3.14159265"(Tp "";U0$ZTz " ӏ ANY KEY TO CONTINUE":UF1`T:lT K$:rT:TW00: 1630:W01T U0$;: SF1 U0$: T SF18,14,SW,24T " INTERVALS TO START 4 ";U6U" INCREMENT 2 ";U8HU " CONVERGENCE ANALYSIS TABLE"pU "";9);"INT";15);"INTEGRAL SUM"UU9W3: U70 7:W3U6U7U8U 1550: W4OV U79U OVW4: 9);"";W3; 15);"";W4;: U79 "_";V :: 1,30000,15:W3U9: K$:VP ERR30 'VZ 1,20000,40EVd " ";(ERR);" ERROR"aVn " FUNCTION = ";U1$kVx K$vV 1350V  15:: 1V 4600: 49191V &:SW(238):SF(SW79): 0,0,SW,24,1: SF1 %W 5SF: 6SF,1: 4,9:" "JW " TAND Y ... NITIALIZING": 2WW %: 4,2nW XX%(81), YY%(81)W ARRAY(1024):DP0W X(X)((XX)2)2.50662828W :W 5SF:GT$" ":GT1: SF1 GT$"":GT0W MX3.691219933X M0 : S1 : SAMP03X M$"0" : S$"1" : SMP$"0"WX A$"-1":B$"+1" : X$"+1":BN10fX PN52:PR5yX 6SF,1: 4,7X XC160X YB110X XS40:YS230X 3510X! SF0 &X& :X+ 4525X0 X(XM)SX5 EF0Y: X MX EF1: " IS  ":bY? (X 0) (X MX) EF1: " IS  ":YD SUMX:NN0:SIGN1:FACT1:PWR21:KXX:XPWRXYI YN NNNN1:WNNNN1:FACTNNFACT:PWR22PWR2:XPWRKXPWR:SIGN SIGNZS TERMSIGN XPWR FACT PWR2 WZX SUMSUM TERM4Z] (TERM) 1 E10OZb P0.5 SUM2.50662828YZg Q1P_Zl uZq 1,1: 0,2: 4,7Zv &: 1,1Z{ W30 3355Z  1:, 2,1 317,1 317,198Z , 317,198 2,198 2,1Z , 0,0[ 1, 1,1, "ORMAL ISTRIBUTION ROBABILITIES 2.E"-[ , 0,16 320,16G[ , 2,YB1 317, YB1V[ LYYB:LX2z[ W30 , 1,5,"(X) = ARK"[ W30 , 27,5,"(X) = IGHT"[ II1 NP[ , LX,LY XX%(II), YY%(II)[ LXXX%(II):LYYY%(II)[ II\ X 4 4:W02*\ X PLOTXCXSX1: X0 W05F\ X PLOT 0 X PLOT0l\ , X PLOT, YB1 X PLOT, YBW01t\ X\ W30:\ YX(X):X PLOTXCXSX1:Y PLOTYBYSY\ X PLOT 0 X PLOT0\ X PLOT 320 X PLOT320] Y PLOT 199 Y PLOT199#] Y PLOT 0 Y PLOT0F] , X PLOT,YB X PLOT,Y PLOTL] U] RF1t] XB: 3120:P2P: EF1 ] XA: 3120:P1P: EF1 ] P(P2P1) :Q1P] ] W0P: 3550:PX$W0$: (PX$,1)"." PX$" "PX$^ W01P: 3550:QX$W0$: (QX$,1)"." QX$" "QX$8^% , 1,19, "(X) ="PX$r^* RF1 , 1,3,"X1= "((AM)S): , 1,3,"X= "(X)^/ RF1 , 24,3,"X2= "((BM)S)^4 , 21,19, "() ="QX$^9 SAMP$((PSAMP))^> SAMP 0 , 1,23, "AMP = "SMP$#_C SAMP 0 , 21,23, "STM ="SAMP$?_H , 1,21, "EAN = "M$[_M , 21,21, "EV = "S$a_R _W "";14);""_\ 14);" / "_a " EAN ";M$:X$M$_f "";M$:M(M$)`k " TD DEV ";S$<`p "";S$:S(S$)k`u A$(MS): (MS) 0 A$(A$, (A$)1)`z B$(MS): (MS) 0 B$(B$, (B$)1)` " AMP SIZE ";SMP$` "";SMP$:SAMP(SMP$)` 4525'a RF1 " 1 = ";(AM)STa RF1 " 2 = ";(BM)S|a RF0 " = ";Xa " EAN = ";M$a " TD DEV = ";S$a SAMP 0 " AMP SIZE = ";SMP$b SAMP 0 " ST IN SAMP ="; (PSAMP)#b 7b LYYB:LX2:NP0Pb X 4 4 0.10fb NPNP1 : YX(X)b X PLOTXCXSX: X PLOT 0 X PLOT0b Y PLOTYBYSYb XX%(NP)X PLOT : YY%(NP)Y PLOTb X : AI1b b W0$(W0) c IP(W0$,"E-"): IP0 (c W0((W0$,2))1 : W1$"."Nc II1 W0 : W1$W1$ "0" : IIsc W0$(W0$,2, (W0$)):W0$W1$W0$c IP(W0$,".",2)1c :cW0$(W0$,IP)(W0$,IP2,(W0$,"E")1)cW0$(W0$,11)c c SF1 % d 5SF: 6SF,1: 4,1: 0,0,SW,24,1 d 20SF,0,SW,24Ld " "~d$ ""d) "ERSION 2.E BY . . ANNER"d. " "e3 20SF,4,SW,24: (27);"M";7e8 ""ne= " ӟ ET/IEW: EAN, EV, AMP SIZE "eB ""eG " < OMPUTE () FOR LL < "fL "  "GfQ " > OMPUTE () FOR LL > "|fV "  "f[ " ҟ OMPUTE () FOR ANGE TO "f` ""ge " ğ  NTRY / DITING / LOT ODE "Pgj ""go " П ERMUTATIONS & OMBINATIONS ODE "gt " "gy " Ÿ INOMIAL OEFFICIENTS ABLE "%h~ ""\h " ֟ IEW ROBABILITY RAPH "h " "h " ǟ RAPHICS OGGLE:";: GT$;"": 39);""h ""3i "ݖ ؟ THE ROGRAM "ei ""ki{i 1,30000,5i " ROBABILITY DENSITY"i " FOR ALL AREA < "i " "j" ";X$@j"";X$:X(X$):TX(XM)Smj 1,30000,15: " COMPUTING"xj 3120j EF1 3815j " () =";Pj " () =";Qj 3470j GT1 3825 k 1,30000,10: K$: K$ (13) 3815k 4525Tk 1,30000,5: " WITCH TO 40-COLUMN SCREENk 3185:XTX: 3295: 1, X PLOT1 ,YBk 1, 1,15, "ROBABILITY < " X$k 1, 1,16, " k 1,30000,10: K$k  4525k 1,30000,5"l " ROBABILITY DENSITY"Il " FOR ALL AREA > "ml " "l#" ";X$l(" ";X$:X(X$):TX(XM)Sl- 1,30000,15: " COMPUTING"l2 3120m7 EF1 3925m<PQ : Q1P4mA " () =";PQmF " () =";Q\mK 3470nmP GT1 3935mU 1,30000,10: K$: K$ (13) 3925mZ 4525m_ 1,30000,5: " WITCH TO 40-COLUMN SCREEN nd 3185:XTX: 3295: 1, X PLOT2 ,YB3ni 1, 1,15, "ROBABILITY > " X$Snn 1, 1,16, " jns 1,30000,10: K$unx 4525n} 1,30000,5 : SF1 %n " ROBABILITY DENSITY OVER"n " THE RANGE FROM TO " o" ";A$-o"";A$:A(A$)Jo" ";B$mo"";B$:B(B$)o 1,30000,15: " COMPUTING"o 3330o EF1 4040o " () =";Po " () =";Qo 3470p GT1 SF0 4050)p GT1 4050Up 1,30000,10: K$: K$ (13) 4040`p 4525p 1, 30000,30: " WITCH TO 40-COLUMN SCREENp 3185:X(AM)S: 3295:X(BM)S: 3295pX FILLXC XS((((AB)2)M)S): Y FILLYBq 1, X FILL, Y FILL>q, 1,15,"ROBABILITY OVER THE RANGE"aq, 1,17,"FROM "A$" TO "B$q 1,30000,10: K$: K$ (13) 4080q SF1 %q 4525q SF1 " WITCH TO 40-COLUMN DISPLAY"qW(4): 4,7q & : 1r 1,30000,5: K$#r SF1 %4r 4,W: 5SFKr SUB1 SUB0 :fr" SF1 4525: 4530r'GT(1GT):GT$" ": GT0 GT$""r, ""; 22);"";GT$;" "r1 4530r6PC1: 6SF,1: 4,1r; 0,0,SW,24,1s@ 20SF,0,SW,24sE (27) "M"OsJ " "sO "  & "sT "  "sY "  OF OBJECTS TAKEN AT A TIME "s^ 20SF,6,SW,24'tc " "\th "  "tm " ӏ  "tr "  "uw "  O OMPUTE ERMUTATIONS  "5u| "  "lu "  O OMPUTE OMBINATIONS  "u "  "u " O TO AIN ENU  "v "  "Bv " "ev 1,30000,5: K$: (27) "L";v K$"X" K$"" 4525v K$"P" K$"" 4285: 4150v K$"C" K$"" 4360: 4150v 4250v:v:w 4,9: 20SF,6,SW,24&w " "Jw "  "iw " ";PNw" ";PNw " ";PRw" ";PRw 4345: EF1 w 0,14,(238),24xTXT$" # ERMUTATIONS ="(OUT)Xx " "; ((238)(TXT$))2);TXT$: 20SF,16,(238),24: 5640:qx EF1 : K$:x 4435: EF1 xOUT1: PR0 x WPNPR1 PN:OUTOUTW::x 4,9: 20SF,6,SW,24y  " "$y "  "Cy " ";PN`y" ";PN~y! " ";PRy&" ";PRy+ 4420: EF1 y0 0,14,(238),24y5TXT$" # OMBINATIONS ="(OUT)2z: " "; ((238)(TXT$))2);TXT$: 20SF,16,(238),24: 5640:Kz? EF1 : K$:azD 4435: EF1 wzIOUT1: PNPR zN W 1 PNPR:OUTOUT(PNW 1)W ::zSPN((PN)):PR((PR))zXEF0: PR PN z]EF1: 1,15000,30{b 13);"": 1,15000,30!{g K$:R{lPC0: 4,1: 0,0,SW,24,1: 20SF,1,SW,24,1~{q " "{v "  "{{ " ";BN|" RDER () ";BN: "";(27) "P";(27) "Q",|BN((BN)):TNPN:TRPRU| " (";(BN);", )"v| I0 BN:PNBN:PRI: 4425| (I 1) 0 CC$"": CC$""| 8) CC$;: I; 13); OUT|:PNTN:PRTR| 5640: 4525|:| 3600 } 1,15000,10:RF0: K$} (27);"L";9} K$"S" K$"" 3415V} K$"<" K$"," 3750s} K$">" K$"." 3855} K$"R" K$"" 3965} K$"V" K$"" 4095} K$"G" K$"" 4135} K$"P" K$"" 4150~ K$"B" K$"" 44603~ K$"D" K$"" : 5580: 5135: 4525[~ K$"X" K$"" : 5725: 4525a~:l~ 4530~EF1: 1,15000,30: (27) "L";: SF0 &~ ERR30 5SF: 6SF,1: "PROGRAM HALTED IN LINE #";EL:::# 13);" ";(ERR);" ": ERR15 " ERROR IN LINE";ELD (ERR15) (PC1) 4415e  (ERR15) (PC0) 4465kNF0:IN(IN$):IP(IN$, ",")1:W0$(IN$,IP,3)IN$"":W1$"0":W2$"9"  SW39 2599,0: 52684,96,10% K$* K$(13) 4740"/ K$(20) (IN$)0 4645U4 K$(20) K$;:IN$(IN$, (IN$)1): 4645o9 (IN$) IN 4730> W0$"ASC" W1$" ":W2$"_": 4720C W0$"INT" W1$"0":W2$"9": 4720πHW0$"NUM"M (IN$, ".")0 W10R K$"." (IN$, ".") 0 W11: 4735=W K$"." (IN$, ".") 0 4730^\ K$"-" (IN$) 0 4735a K$"-" (IN$) 0 4730f K$"+" (IN$) 0 4735k K$"+" (IN$) 0 4730p K$ W1$ K$ W2$ 4735u W0$"ASC" K$ "" K$ "" 4735-z 1,30000,10: 4645KIN$IN$ K$: K$;: 4645n SW79 52684,32,10: 4750 2599,1:W01024(236)40(235): W0,(W0) 127ĂIN(IN$): IN0 NF1:ん IN0 IN$ "." NF0: IN0 (IN$)43 (IN$)45 NF1:; IN0 (IN$)46 (IN$)48 NF1:Ae 0,0,SW,24,1: 20SF,0,SW,24 " ATA ILE TO ISK"σ " ": 20SF,3,SW,24: N0 "  O DATA DEFINED": 1,15000,30: 5640:5 4835:: IN$"YES" }IN$"16,ASC":" ILE NAME ? ";: 4630:W$IN$: W$""  (W$) 45 W$ "-" W$:W$(W$,16): (W$,"*") 0 " FILE NAME ERROR": 1,8000,60: 2:+: " Ǐ ":(W$):WF$(W$, (W$)1)?: #1,(W$),Wi J1 N:W$(ARRAY(J)): 1, W$::oIN$"3,ASC": " RE YOU SURE YES/NO ? ";: 4630:Յ 0,0,SW,24,1: 20SF,0,SW,24 " ATA ILE ROM ISK"? " ": 20SF,3,SW,24] 4835:: IN$"YES" IN$"16,ASC":" ILE NAME ? ";: 4630:W$IN$: W$"" ҆ (W$) 45 W$ "-" W$:W$(W$,16): (W$,"*") 0 " FILE NAME ERROR": 1,8000,60: 2:; : " Ǐ "|: #1,(W$): DS0 " ";DS$: 1,8000,60: 3:DP0::DPDP1: 1, ARRAY(DP): (ST 64) 0Շ:NDP:WF$(W$, (W$)1):CF0ۇ$EF0:EM$"": 4930: EF1 () (DADB) (IN$,1)"-" DA1:DBN:O. DB N DBN:EF1:EM$"INDEX":u3 (DADB) (IN$,1)"-" DBN:8 DA DB = DA DB W0DA:DADB:DBW0:ˈBW0(IN$): W0 0 4940߈GDA1:DB(W0):LDA1:DBIN:W1(IN$, "-") 1Q IN$"" DBIN: " INIMUM DATA VALUE : ";MINg " AXIMUM DATA VALUE : ";MAXr 5640x  1,"LOAD"(13) 2,"SAVE"(13) 3,"DIRECTORY"(13)؍ 4,"COMPUTE"(13)# 5,"FIND"(13)( 6,"AUTO"(13)- 7,"LIST "+2 8,"EXIT"(13)O7 0,0,SW,24,1: 20SF,0,SW,24< "  / / "ĎA "": 20SF,3,SW,24ώF 5390KEF0:EM$"": AF0 5205P 5550: EF1 AF0: 5195: 5215?UIN$"": 1: 5,2: 1,0: 1,IN$:: 1SZ IN$"" 5195o_ (IN$,1) ";" 5195d IN$"EXIT" W30:i IN$"G" IN$"" 5685: 5195ˏn IN$"HELP" 5135s IN$"AUTO" AF1: "NTER X TO EXIT AUTO MODE": 5195*x IN$"DELETE" 5315N} IN$"COMPUTE" 5010: 5135t IN$"DIRECTORY" 5535: 5195 IN$"DIR" 5535: 5195 IN$"FIND" 5755: EF0 5195Ґ EF2 5135 IN$"LOAD" 4840: 5135 IN$"SAVE" 4775: 51355 IN$"PLOT" 6050: 5135S (IN$,"X") 0 5195} (IN$,"DELETE") 0 5475: 5195 (IN$,"DEL") 0 EM$"":IP(IN$,"DEL")3: 5480: 5195摴 (IN$,"LIST") 0 5350: 5195IP(IN$,";")1  IP1 EM$"SYNTAX":EF1: 5340RIN((IN$)): IN0 EM$"INDEX":EF1: 5340 INN 1 NN1:CF0:ARRAY(N)((IN$,IP,160)): 5195 INN 1 EM$"INDEX": 5345OV((IN$,IP,160)): OVARRAY(IN) 5195ARRAY(IN)OV:CF0: 5195 EF0 5195CAF0: 1,8000,60: "";EM$;" ERROR":: 5195f N0 : IP(IN$,"LIST")4 IN$"LIST" IN$"LIST 1-": 5350IN$(IN$,IP,160): (IN$) 0 ГINN: 4900: EF1 : JDA DB:J$(J):J$(J$, (J$)1)L K$: K$(27) K$(13) JN1: 1,8000,60: "LISTING HALTED": 5385k ""; J$; "; "; ARRAY(J)s : "";: N0 WF$"" N0 WF$"":: 5405ߔ WF$"" " : '";WF$;"'" ""Q" "ݟ : HELP, LOAD, SAVE, COMPUTE "' " LIST, EXIT, AUTO, DELETE "ŕ, " DIRECTORY , FIND, PLOT, G "1 " "66 ""o; "ݟ : INDEX ; DATA VAL "@ ""E "ݟ -: 1 LOAD 2 SAVE "J " 3 DIRECTORY 4 COMPUTE "YO " 5 FIND 6 AUTO "T " 7 LIST 8 EXIT "̗Y ""^ 1,30000,10: 5580cEM$"":IP(IN$,"DELETE")6N 4,W: 5SFDSJX:~] " ROGRAM ... RE YOU SURE (Y/N) ?b 1,30000,3: K$: K$ "Y" K$ "N" 5730Ĝg K$"N" l""; 12);"ROGRAM ENDED...":q:v:9{ 6045: EM$"" 1,8000,30: " ";EM$: 2:tEF0: " ELECT SEARCH MODE": 1,30000,10 " "͝ "  ATTERN MATCH = $" " < UMERIC VALUES < "! " "M " = UMERIC VALUES = "z " > UMERIC VALUES > " " "О "  ETWEEN LIMITS A & B" " "1 1,10000,5: K$: K$(27) K$(13) EF2:G K$"=" 5850f K$"P" K$"" 5885 K$"<" K$"," 5920 K$">" K$"." 5960ß K$"B" K$"" 6000Ο 5810ԟ: 6045: EM$"" 1,8000,30: " ";EM$:= " EARCH FOR SPECIFIC VALUE"}IN$"":" SEARCH VALUE ";IN$: IN$"" : ""͠FF0:IN(IN$): J1 N: ARRAY(J)IN FFFF1: " ";J; "; ";IN K$: K$(27) JN1: "SEARCH HALTED"b: FF0 1,8000,30: " VALUE NOT FOUND": " FOUND =";FF;"": 1,30000,10h 6045: EM$"" 1,8000,30: " ";EM$:ӡ " EARCH FOR SPECIFIC PATTERN"IN$"":" SEARCH PATTERN ";IN$: IN$"" : ""v FF0:IN(IN$): J1 N: ((ARRAY(J)),IN$) 0 FFFF1: " ";J; "; ";ARRAY(J) K$: K$(27) JN1: "SEARCH HALTED" : FF0 1,8000,30: " PATTERN NOT FOUND": " FOUND =";FF;"": 1,30000,10O  6045: EM$"" 1,8000,30: " ";EM$:|% " EARCH FOR VALUE(S) < "* " "/IN$"":" SEARCH FOR <= ";IN$: IN$"" : ""=4FF0:IN(IN$): J1 N: ARRAY(J) IN FFFF1: " ";J; "; ";ARRAY(J)l9 K$: K$(27) JN1: "SEARCH HALTED"Ԥ>: FF0 1,8000,30: " VALUE(S) NOT FOUND": " FOUND =";FF;"": 1,30000,10ڤCH 6045: EM$"" 1,8000,30: " ";EM$:DM " EARCH FOR VALUE(S) > "kR " "WIN$"":" SEARCH FOR => ";IN$: IN$"" : ""\FF0:IN(IN$): J1 N: ARRAY(J) IN FFFF1: " ";J; "; ";ARRAY(J)Aa K$: K$(27) JN1: " SEARCH HALTED"f: FF0 1,8000,30: " VALUE(S) NOT FOUND": " FOUND =";FF;"": 1,30000,10kp 6045: EM$"" 1,8000,30: " ";EM$:u " EARCH FOR VALUE(S) BETWEEN LIMITS"ZzIN$"":" SEARCH LIMITS ";IN$: IN$"" : ""W1(IN$):IP(IN$,"AND"): IP0 1,8000,30: "";: 6010W2((IN$,IP3,160))!FF0:IN(IN$): J1 N: ARRAY(J) W1 ARRAY(J) W2 FFFF1: " ";J; "; ";ARRAY(J)P K$: K$(27) JN1: "SEARCH HALTED": FF0 1,8000,30: " VALUE(S) NOT FOUND": " FOUND =";FF;"": 1,30000,10EM$"": N 0 : EM$"NO DATA DEFINED":2 6045: EM$"" 1,8000,30: " ";EM$: 2:u CF0 1,8000,30: "MUST DO COMPUTATIONS FIRST": 2:ǩ&:IN$"": 5SF: " LOT RANGE (A - B) ";IN$: IN$"" EF2:  SF1 1,30000,5: " WITCH TO 40-COLUMN SCREEN=INN: 4900: EF1 5SF: "ERROR STOP":MW31: 3185z, 1,3, "ATA":, 1,4, "ISTRIBUTION:", 1,15, "ATA PLOT INDEX RANGE: " IN$ JDA DB K$: K$(13) K$(27) JN1: 6105X(ARRAY(J)M)S: 3295qWZ0: DADB WZ1:, 1,17, "INGLE DATA POINT, NO MEAN OR STANDARD":, 1,18, "DEVIATION.": 6140W0: JDA DB:WARRAY(J)W::MRW(DBDA1)W0: JDA DB:WWARRAY(J)MR:WWWWWW::SR(W(DBDA))#, 1,17, "OP EAN: " (M):, 1,18, "LOT EAN: "(MR)d, 1,20, "OP EV: " (S):, 1,21, "LOT EV: "(SR), 1,23, "# OINTS: " (DBDA1) 1,30000,15: K$: 5SF,1: 4,1: 6SF,1:X LINE GEOMETRY 128/40 COLUMNS - REV 12/10/89]:b&:: 9315Rg (238)79 "WITCH TO 40-COLUMN DISPLAY": 3: (27);"X"dl"": 1: 0qXC160:YC100:S1:S$"NORMAL"v 0,2: 1,1{ 5,1: 4,06YMAX199:XMAX319ЭA(521(0))תּB((0)0.5)(521(0))C((0)0.5)(521(0))! 9525:E0$EQ$3AD1:AD$""S 9525:LINE$(1)EQ$:N1:K1^ 7685d:j:&: ((238)79)1 % 6((238)79),1: 4,1 0,0,(238),24,1 20((238)79),0,(238),24: ""; " "I "  INEAR EOMETRY UNCTIONS "z "  " "  ADE IN HE "ܯ " " 0,5,(238),24,1: 620((238)79),5,(238),24W192 5((238)79)^W0$(01)" NTER/ELETE/EVIEW QN # "W0$(02)" LOT A ELECTED INE "W0$(03)" OMPUTE NTERSECTION "W0$(04)" ULTIPLY INE BY ONSTANT "W0$(05)" IVIDE INE BY ONSTANT ":W0$(06)" IEW URRENT RAPH CREEN "m W0$(07)" URRENT CALE : " S$ "  "W0$(08)" PECIAL TILITIES "űW0$(09)" ROGRAM " " 2.E Y . AY ANNER"  ""D% "";: I1 W1: "";W0$(I);"": I:W02k* ""/ ""4 "ݟSE EYS TO ELECT"9 " "> "ݟRESS  TO XECUTE" VG1 VG0:W07: 7260: 7090N 1,4000,30EM$ "PTION #" (W0) " NOT DEFINED YET..." "";EM$: 1::e 1j, 0,100 319,100׶o, 314,97 319,100t, 314,103 319,100y X0 320 16~, X,101 X,99:., 1,11,"":A, 35,1,(1S)WTX288:TY5:TZ16p 1,TX,TY TXTZ,TY 1,TX,TY2 TX,TY2 1,TXTZ,TY2 TXTZ,TY2: 1շ, 160,0 160,200귵, 156,4 160,0, 164,4 160,0 Y 12.8 200 12.86, 159,Y2 161,Y2:H, 18,23,""NT:\ 1q X0 320 16, X,YMAX1 X,YMAX, X,0 X,1: Y 12.8 200 12.8ϸ, 0,Y2 1,Y2, 318,Y2 319,Y2:: 4,06: 1,1: 7640: 7525: 7595# :,EF0DETA1B2B1A2: DET0 EF1:EM$" HE LINES ARE PARALLEL OR OVERLAP AND"(141)" NEVER INTERSECT":X (C1B2B1C2)DET̹Y (A1C2C1A2)DETҹ#ع(:- A0 XI 1E30:YI CB:M0:ANG0:62 B0 XI CA:YI 1E30:M1E30:ANG90180:X7XI CA : YI CB : M AB^<dA:jF:yK 1: 4,06PXP(1)XC16X1S:YP(1)YC12.8Y1SɺUXP(2)XC16X2S:YP(2)YC12.8Y2SZ W01 2: 7775:: 7805 _L(W0)0:R(W0)0:T(W0)0:B(W0)0&dL(W0)( XP(W0) 0 )CiR(W0)( XP(W0) XMAX )]nT(W0)( YP(W0) 0 )zsB(W0)( YP(W0) YMAX )x} 7775Ȼ L(1)L(2) R(1)R(2) T(1)T(2) B(1)B(2) 0 1W01: L(W0)R(W0)T(W0)B(W0)0 W02: L(W0)R(W0)T(W0)B(W0)0 , XP(1),YP(1) XP(2),YP(2): L(W0)1 YP(W0)YP(1)(YP(2)YP(1))(XP(1))(XP(2)XP(1)):XP(W0)0: 7805ܼ R(W0)1 YP(W0)YP(1)(YP(2)YP(1))(XMAXXP(1))(XP(2)XP(1)):XP(W0)XMAX: 7805. T(W0)1 XP(W0)XP(1)(XP(2)XP(1))(YP(1))(YP(2)YP(1)):YP(W0)0: 7805 B(W0)1 XP(W0)XP(1)(XP(2)XP(1))(YMAXYP(1))(YP(2)YP(1)):YP(W0)YMAX: 7805: 9525 9360 7865ǽE0$LINE$(K): K$: A0 X1 XMAX : Y1 CB : X2XMAX:Y2 CB: 7895> B0 X1 CA : Y1 YMAX: X2 CA:Y2 YMAX: 7895QX1 CA:Y1 0gX2 0 :Y2 CBX2 X11000(ANG):Y2 1000(ANG)X1 X11000(ANG):Y1 1000(ANG)¾ 7755; 7560Ӿ:پ: 4,7: 0,2 ""L " / / "~ "" " " "  ALL EQUATIONS"ֿ  " " "  TD. " " "G "  AS TWO "\ " "" "  CURRENT "' " ", "  A LINE"1 ""6 " "-; " "Y@ "  FOR "cE K$J K$"D" K$"" 8220: 7915O K$"R" K$"" 8060: K$: 7915T K$"E" K$"" 8105: 7915Y K$"P" K$"" 9075: 7915'^ K$"G" K$"" 8050: 8005Cc K$(13) : 8005Ih:RmVG1|rTC(4): 4,06: 1: K$: 4,TC: 0:w:| 0: 4,3 ""† " "$Ë ""2Ð J1 NaÕ " EQUATION # ";J;" ": " ";LINE$(J)Ú ""ß J:ä:é 0: 4,3î 8060: N5 8135ó 9360: 9525: EM$ "" ø IN$"" ĽNN1:LINE$(N)EQ$O N5 "" N5 8060: " 5 ": K$: 8105::TC(4): 8060: 4,11 " #"; N1 J1: N;: 8175 J1 N1: J;",";:' " OR";J;" ???"D K$: K$(13) 0:eK(K$): K1 KN 8180E0$LINE$(K):E1$EQ$:FI0: AD1 7685 IN$LINE$(K): 9375: 9525: 7865:, 1,1,""S$" SCALE" ,1,2,"Q. #"(K): K$ 0: : : 8060: 4,82! " #";N& N1 J1: N;: 8240j+ J1 N1: J;",";:0 " OR";J;" ???"5 K$: K$(13) 0:: K(K$): K1 KN 8245? N1 8220D N2 FI0I N2 K2 FI0:E0$LINE$(1)*N N2 K1 FI0:E0$LINE$(2)CS KN NN1: 8220_X LINE$(K)"": JK1 N] LINE$(J1)LINE$(J): J:NN1b 8220g :l "": 0,2: N2 8370q ""v 8060: 4,3'{ " ? #";: N2 aȀ N2 ""ȅ N2 " - ": K$:Ȋ E1$"":E2$"":E10:E20ȏ K$:K(K$): K$(13) Ȕ (K1) (KN) 8335<ə E1$"" E1$LINE$(K):E1K: "";(27);"K";K;"AND";: 8335Xɞ E1$LINE$(K) 8335ɣ E2$LINE$(K):E2K: "";(27);"K";Kɨ ""ɭ 8375ɲ FI1:E1$LINE$(1):E2$LINE$(2):E11:E22%ʷ 7685:FI1:IN$E1$: 9375:A1A:B1B:C1C:M1M: 7865Sʼ IN$E2$: 9375:A2A:B2B:C2C:M2M: 7865 , 1,1,""S$" SCALE":, 1,2,"INTERSECTION":,1,3,"OF Q."(E1)" &"(E2): 1,30000,5 K$: 8405 "";: 8950: :+ MM1M1M2: MM0 ANG3.141592652:EM$"LINES ARE PERPENDICULAR": 8415A ANG((M1M2)MM)L 7695z A10 ANG(M2): A20 ANG(M1) B10 ANG2(M1): B20 ANG2(M1) A1B2 0 ANG2 A2B1 0 ANG2 0 ""N! " # ";E1;"&";E2! "" ! " IVEN EQUATIONS:"! " ";E1$! " AND"! " ";E2$ ! ""%! EF1 EM$:<*! " NTERSECTION OCCURS AT COORDINATES:"Z/! " X = ";X;"AND Y = ";Y4! ""9! " HEY INTERSECT AT AN ANGLE OF:">! " ";180ANG3.14159265;"DEG = ";ANG;"RAD"C!H!:M! 0: "":: 0,2: 4,11R! S0 S1 S1:S$"NORMAL"eW! ""\! " / "a! ""f! 0,4,39,24k! 8);"URRENT SCALE:  ";S$;" "1p! ""yu! " ACH DIVISION ON THE AXES ="; 1S;: "UNIT";: S1 "S": z! ""! " "τ! " " Љ! " ";Ў! "  TO PROJECTION SCALE"OГ! "  "И! "  TO RETURN TO "Н! 1,30000,1Т! K$Ч! K$(13) Ь! K$(32) 8610б!SS10ж! S10 S0.1:S$"MACRO ":: 8550ѻ! S1 S$"NORMAL":: 8550=! S10 S$"MICRO ":: 8550H! 8610N!:e! 0: 0,0,39,24,1u! 0,2: 4,2! ""! " "!! " "! "  ENERAL NOTES"(! " "S! "  GRAPH DISPLAY "b! " "" "  - TOGGLE:";AD$" " " " "   TO MAIN MENU "" ""O" " URRENT WORKING EQUATION";: FI1 "S": j" FI0 N1 E1$E0$" ""; E1$: FI1 "";E2$$":)" K$." K$"E" K$"" 7915: 86553" K$"" 7685: 0: 87458" K$(13) K$(141) %=" K$"A" K$"" AD(1AD)YB" K$"A" K$"" AD$"": AD0 AD$""vG" K$"A" K$"" 8655L" K$"H" K$"" 9585Q" 8745V":[" "": 8060: 0,2: 4,1`" " #";e" N1 J1: N;: 8815j" J1 N1: J;",";:-o" " OR";J;" ??"Jt" K$: K$(13) 0:ky"K(K$): K1 KN 8820~"E0$LINE$(K): 4,14Ճ"IN$E0$: 9375Ո" AD1 8190: 0Ս" "" ֒" " #";K=֗" ""L֜" " ";E0$~֡" ""֦" " :"֫" A 0 IX$(CA): IX$" - ORIZONTAL LINE" װ" B 0 IY$(CB): IY$" - ERTICAL LINE"7׵" B 0 IZ$(AB): IZ$""׺" (IZ$)201 II$"90 DEG = 1.57079633 RAD": II$((AB)180)׿" " -INTERCEPT = "; IX$" " -INTERCEPT = "; IY$" " LOPE = "; IZ$" " NCLINATION = "; II$; " DEG"" B10 B20 8940F"M AB:ANG(M):DEG180ANG3.14159265W" DEG;" DEG"r" 13);"= ";ANG;" RAD"x"" "";: 8950:":" 5,(4)" " "# " "# " :  TO IEW ", # " "R# "  FOR "\# K$o# K$(13) # K$"G" K$"" 8050: 8980## 8980(#:-# 4,52# " #";N1;" "7# ""4<#X1$"":Y1$"":X2$"":Y2$""YA#IN$"":" (X1,Y1) ";X1$,Y1$sF# X1$"" Y1$"" K#X1(X1$):Y1(Y1$)P#" (X2,Y2) ";X2$,Y2$U# X2$"" Y2$"" Z#X2(X2$):Y2(Y2$)_#AY1Y2 : BX2X1 : CX1Y2X2Y1:EPF1d# 9525i#IN$EQ$:%n#:3s# 0: 4,3>x# 8060Q}# N5 9105iۂ# 9005: IN$"" ۇ#NN1:LINE$(N)IN$ی# N5 ""ۑ# N5 8060: " 5 ": K$:ܖ# 9075 ܛ#:ܠ#:&ܥ# "": 0,2:DF0Xܪ# ""oܯ# 9265: 0,2: 4,6ܴ# ""ܹ# " ULTIPLY EQUATION BY CONSTANT"ݾ# ""# 0,3,39,24,1@# " URRENT EQUATION #";K:E0$LINE$(K)O# " ";E0$# ""#MK$"":" ALUE TO ULTIPLY BY ";MK$:MK(MK$): MK0 #AAMK:BBMK:CCMK: 9525#E0$EQ$:LINE$(K)EQ$# DF0 9140: 9210#:4# "": 0,2:DF1K# 9265: 0,2: 4,6}# ""# " IVIDE EQUATION BY CONSTANT"$ "" $ 0,3,39,24,1$ " CURRENT EQUATION #";K:E0$LINE$(K)*$ " ";E0$\$ ""$MK$"":" ALUE TO IVIDE BY ";MK$:MK(MK$): MK0 "$MK 1MK: 9180'$:,$:1$TC(4): 8060: 4,56$ " ";OP$; " #";;$ N1 J1: N;: 9285*@$ J1 N1: J;",";:@E$ " OR";J;" ???"]J$ K$: K$(13) 0:~O$K(K$): K1 KN 9290T$E0$LINE$(K):IN$E0$: 9375Y$^$:c$ ERR30 0,1: 0: "PROGRAM ENDED": 1,4000,30:h$ 0m$ " ";(ERR);" ";"ERROR IN";EL;""#r$::-w$ K$5|$ ;$:A$:G$:Q$ 4,6p$ "NTER EQUATION #";N1:$IN$"": 1: 1,0: "";: 1,IN$: 1:$ IN$"" EM$"CANCELED":$:$W$"": W1 (IN$):WW$(IN$,W,1)$ WW$ " " W$W$ WW$$:IN$W$;$ (IN$,"X") (IN$,"Y") 9675A$:S$EM$"":W$IN$$ (W$,"X")0 EM$"MISSING X": 9430$ (W$,"Y")0 EM$"MISSING Y": 9430$ 9440$ 1,4000,15: EM$: 1:$:$ (W$,2)"-X" A 1: A(W$)$ (W$,1)"X" A1;$W$(W$, (W$,"X")1, 255)A$:f$ (W$,2)"-Y" B 1: B(W$)$ (W$,2)"+Y" B1$W$(W$, (W$,"Y")1, 255)%:%C(W$):IP(W$,"=")1: IP1 %CC((W$,IP,255))% A0 ANG0:% B0 ANG90180:)%M AB : ANG(M)/!%5&%:K+% "A,B,C ";A,B,CQ0%:5% A1 EQ$"X": 9535: A 1 EQ$"-X": 9535:%EQ$(A) "X"?% B0 EQ$EQ$ "-": EQ$EQ$ "+"D%:I% B1 B 1 EQ$EQ$ "Y": 9555N%EQ$EQ$ ((B),((B))1) "Y"-S% C0 9575WX% C0 EQ$EQ$ "-": EQ$EQ$ "+"]]%:|b%EQ$EQ$((C), ((C))1)g%EQ$EQ$ " = 0"l%q% "";11);"ENERAL OTES"v% 9);""{% " XAMPLES OF ACCEPTABLE LINE EQUATIONS:"=% " X+Y X+Y=0 X+Y=9 X-Y+4=0"l% " 7X-3Y 4X-Y+7=0 X+2Y=6 5X-4Y+7=8"% ""% "NDPOINT DATA WILL BE CONVERTED INTO THE"% "NORMAL STANDARD EQUATION OF THE LINE AND"+% "THEN STORED IN THE EQUATIONS ARRAY."\% ""% "RESSING WITHOUT TYPING ANY INPUT"% "VALUE WILL CANCEL AND RETURN TO THE MENU"% ""% 9);" ANY KEY FOR MENU"%%%%:+%:=%EM$"":W$IN$l% (W$,"X")0 EM$"MISSING X": 9695% (W$,"Y")0 EM$"MISSING Y": 9695% 9705% 1,4000,15: EM$: 2:%:% (W$,2)"-Y" B 1: B(W$)% (W$,1)"Y" B1%%W$(W$, (W$,"Y")1, 255)+%:P% (W$,2)"-X" A 1: A(W$)i& (W$,2)"+X" A1&W$(W$, (W$,"X")1, 255) &:&C(W$):IP(W$,"=")1: IP1 &CC((W$,IP,255))&M AB : ANG(M) &%&:*&:,/& 0,0,(238),24,1: 22((238)79),1,(238),24a4& " ROGRAM ... RE YOU SURE (Y/N) ?9& 1,30000,5: K$: K$ "Y" K$ "N" 9785>& K$"N" C& " PROGRAM ENDED ...":' " ROGRAM ... RE YOU SURE (Y/N) ?5' 1,30000,3: K$: K$ "Y" K$ "N" 10010F$' K$"N" h.'""; "ROGRAM ENDED...":n8':* DYNAMIC ROOTS OF FX=0 FINDER - VERSION 1.A+ CREATED BY S. JAY TANNER 12/17/89 +:+: "";(11):PI3.141592654# + 6((238)79),1: 4,1: 5,4L*+&:SW(238):SF(SW79): SF1 %i4+FX$"COS(X) + LOG(X) - 2~>+RNG$"0.1 TO 10"H+:R+LINE$""\+ SF1 LINE$LINE$LINE$f+ 125,255: 126,9: CANCEL ALL PENDING PSEUDO-STACK OPERATIONS)p+ 125707z+: 12360+ -----------------------------------------------------------------. X(X)(X) (X) 1. -----------------------------------------------------------------.:. (238)39 & . 127007/ "";FX$;" = 0": LINE$: "";20);RNG$d/FLAG0:"EARCH INTERVAL ";IN$::q&/RNG$IN$0/A(RNG$):IP(RNG$,"TO")2 : B((RNG$,IP,160)):/JA:I(BA)100D/P1X(J)N/:P1X(J):P2X(JI): (P1) (P2) FLAG1:&X/ "";: (27);"@";: J; 16); JI;b/JJI: J Btl/ "";: (27);"@";: J; " "; JI; " SCAN DONE";v/ 1,30000,10: (27)"@": 1/ FLAG0 1,4000,30: "O ROOT WITHIN RANGE"(27);"@"/ FLAG0 12470/ 1,30000,10/ "OOT FOUND BETWEEN ";F/ SF1 (27);"@";: (27);"@"l/: J;" AND ";JI:: (27);"@"r/:/AJ:BJI:N0::NN1: K$:DFX(B)X(A): DF0 /ROOTBX(B)((BA)DF):AB:BROOT/ ""; (27);"@"; "ROOT = ";ROOT: PREVB 0/ K$" " K$(13) N32 FLAG2:B/PREVB:: 2u0 1,30000,10: " = ";ROOT;"";(27);"@" 0 FLAG2 "F(X) = ";: "#.##########"; X(ROOT) 0 LINE$*0 1247040:H0 12700R0 "";FX$;" = 0": "";"\0 1: 1,0: 1,IN$: 1: IN$"" : .f0FX$IN$\p0IP(FX$,"="): IP 0 FX$(FX$, IP1)z0: (FX$,1)" " FX$(FX$, (FX$)1)0 (FX$,1)" "0%: "12000 DEF FNX(X)=";FX$: "GOTO 12000"0 842,19: 843,13: 844,13: 208,3:0:0 LINE$: 13SF);A0 "ӏ: TO CONTINUE";d0 2823SF); "OR TO "x0 LINE$: LINE$0 K$0 K$(13) 111100 K$"X" 0 1,4000,15: 125101:1 "": 1,4000,30$1 ERR30 "PROGRAM HALTED IN LINE";EL;"":;.1 "";LINE$: "";(ERR);" ERROR"\81 ERR14 LINE$: " ";JhB1 LINE$L1 "URRENT UNCTION:": "";FX$V1 12470`1 K$j1 K$(13) 11110t1 K$"X" ~1 1,4000,15: 126401:1 "";LINE$: LINE$: 20SF);F1 "  OF (X)=0 INDER 1.A"h1 LINE$: LINES$: 1,30000,101 "URRENTLY DEFINED FUNCTION"1: " W$="MATH UTILITY #1":SC(W$):D(W$):D(W$):?:DI(W$)