' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`(F$):(F$,J,1)" "A$A$(F$,J,1)4dJ:F$A$:On768:E(222):E255Ānx(218)70(218)80ġ:G0E16Ģ23:868:23:"THAT IS A BAD EQUATION, PLEASE REDO":1540:::440F1950E53E133160L(37):L END OF M:(A$,I,1)"X"(A$,I1,1)"P"Z$Z$"T":1330F(Z$Z$(A$,I,1)]2I:L2366:20:160<M(A$)9:Z$"X=("(A$,3,M9)")*COS(T)":L2289:20FZ$"Y=("(A$,3,M9)")*SIN(T)":L2366:20:160PA$"R=SQR("(A$,5,(A$)4)")":%ZA$"":J1MUM RADIUS?";D:CD:D012408AC1.75:BD1.75:420S17:"MEAN Y VALUE?";LiCA1.75:DB1.75R(DC)2:C((LR)100)100:D((LR)100)100:420 A$(A$,2)"-"(A$,3):90:S21340M3:Z$"X=T":L2289:202M(A$):Z$"Y=":I36.3:FL01230*(A$,1,1)"Y"FL1420_3:"LOWER LIMIT (IN DEGREES)?";LL:LLLL57.29585:"UPPER LIMIT (IN DEGREES)?";UL:ULUL57.2958FL1FA14207:"DO YOU WANT THE AXES COMPUTED?";A$:(A$,1,1)"N"3409:"WHAT IS THE MAXION SAME SCREEN?";A$:(A$,1,1)"N"300/tFL18~310M::1:S21180ZS1340"LOWER LIMIT OF PARAMETER?";LL::"UPPER LIMIT OF PARAMETER?";ULFL1420340"DO YOU WANT THE DEFAULT THETA (0-360)?";A$:(A$,1,1)"Y"LL0:UL YOU WANT TO:":3:" 1) CONSTRUCT ANOTHER GRAPH?"::" 2) RETURN TO MENU?":~W10:"WHICH ?";A$:A$"1"A$"2"1111X(A$)1120,210`FA0::3:"REUSE THE SAME EQUATION?";A$:(A$,1,1)"Y"FA1:FL0:62450:1170&j5:"ANOTHER EQUATION   43030 :R$"1"Ľ:10.*(1023)123ĀA4D$"RUN HELLO"X5 TURN PRINTER ONd943095:D$"OPEN PRINTER":D$"READ PRINTER">PTYPE:PTYPE143085CSP,WI:SP10Ĺ802,82:818,82H775:769,WI:43100MNUMRLOOP1NUM:CMD$OW TO MAKE":"CORRECTIONS; ENTER 0 TO DO A DIFFERENT":"ROW OPERATION.":a END OF PROGRAM sD$"PR#0":: 10:"DO YOU WANT TO:" :" 1) RUN AGAIN WITH A NEW MATRIX?"::" 2) RETURN TO MENU?"16:868:"WHICH ?";R$:R$"1"R$"2")::NUM0İ44000}1:ZV13}ZX1024(ZV)128G(}ZV7ZXZX984\2}ZV15ZXZX984i<}ZC039F}ZC$((ZXZC)128)P}ZC$;:ZCZ}(13);(4);"PR#0"d}I19:1:958:"PRESS SPACE BAR AFTER ENTERING EACH":"NUMBER. USE THE BACK ARRELE1:30300 v19:1:958:"PLEASE ENTER A ROW NUMBER FROM 1 TO "M".":20200:19:958:16:LELE(IN$(CI)):P1$(P1$,1,HP(A,CI)LE1)(P$,HP(A,CI)):IN$(CI)"":30030\vCI:16:(P1$,HP1);:868:1fv} DUMP ONE LINE TO PRINTER }ZV(371:HPHP(A,CI):IN$(CI)(IN$(CI),1,(IN$(CI))1):P1$(P1$,1,HPLE1)(P$,HP)Yu30030iuNEXT-BLANKvIN$(CI)""30050 v(IN$(CI))0ġ:465vP1$(P1$,1,HP1)(P1$,HP1)v16:1:P1$;:868:1 vV1(IN$(CI)):V11V1MIC(A,CI)0LuCH830100#vuCH32CH1330200@{uCH45CH57CH4730050uIN$(CI)IN$(CI)CH$:LELE1:P1$(P1$,1,HP1)CH$(P1$,HP):30030uBACKUPu(IN$(CI))0LELE1:IN$(CI)(IN$(CI),1,(IN$(CI))1):P1$(P1$,1,HP2)(P1$,HP):30030NuCICICI5)17.675Q)0uFILL-IN-BLANKS INPUT45u35000O:uP1$P$:AA1:16368,0X?uLE0jDuCI0NI(A)1yIuIN$(CI)""NuHPHP(A,CI)LEXu16:1:P1$;:868::16:HP:"?";::1buNEXT-CHARgu16384,128:CH(16384)128:16368,0:CH$(CH) l):CH$"."Z2Z21:150406:Z11ĭCH$"-"15040P:CH$"0"CH$"9"NU0a::Z21NU0g:vNSPACE BARN16368,0:24:1:868:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";N16384,128:16368,0:1:868:10:xP EQUATION EVALLIC RULE"T20200:270%U LOOP1NUM:CMD$(LOOP):LOOP:44000:43100t'::"PLEASE KEEP THE NUMBERS LESS":"THAN 10 CHARACTERS LONG.":'::"PLEASE ENTER A NUMBER."::NU1:IN$""NU0::Z20:Z11(IN$):CH$(IN$,Z1,1) RECTANGLES - CHOICES OF FUNCTION"E19:"EVALUATION POINTS ARE:"s6:"A) LEFT ENDPOINTS";:27:"D) MINIMA"6:"B) RIGHT ENDPOINTS";:27:"E) MAXIMA"6:"C) MIDPOINTS";:27:"F) RANDOM":3:"2) TRAPEZOIDAL RULE" :3:"3) PARABOL"1:"INTEGRATION VALUES FOR ANY CONTINUOUS"_:"FUNCTION OF ONE VARIABLE ON A FINITE"r:"INTERVAL."20200::5"YOU MAY SELECT AS MANY OF THE FOLLOWING":"METHODS OF NUMERICAL INTEGRATION AS YOU":"WISH."#::3:"1NTER 1, 2, OR 3 ?";A$:A$"1"A$"2"A$"3"1415H:(A$)343000Z(A$)21424lNUM0İ44000u370:CD$(8),OP(8):21332D$(13)(4):I18:CD$(I):I:270 INSTRUCTIONS:5:"INTEGRATION WILL COMPUTE NUMERICA1395pK(((ZB$)1)2)ĺ*s:20200=xD$"PR#0"::9V}"WOULD YOU LIKE TO":" 1. TRY DIFFERENT ENDPOINTS OR A":" DIFFERENT NUMBER OF SUBINTERVALS":" 2. TRY A DIFFERENT EQUATION":" 3. RETURN TO MENU"319:958:"EXADX:N2N11/I1N2:XX2DX:20665:YDYI(TX:XXDX:20665:XT\2RR4YD2Y:<XA:20665:RRY:XB:20665:RRYPXBDX:20665:R(R4Y)DX3Z PRINTOUT OF RESULTS\CV:36,CH:958dCV:36,CH:958fRn(ZB$)5ĺ:"USE THE 'PR' OPTION IN THE HELLO PROGRAM":810T\:D$"CLOSE PRINTER":216,0:24xુLOOP1NUM:CMD$(LOOP):LOOP:DINTER ON943095<:D$"OPEN PRINTER":D$"READ PRINTER"W>PTYPE:PTYPE143085yCSP,WI:SP10Ĺ802,82:818,82H775:769,WI:43100MNUMRLOOP1NUM:CMD$(LOOP):LOOP:44000:431000W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":G T Ѝ TTMD$(LOOP):LOOP:44000:43100W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":810\:D$;"CLOSE PRINTER":216,0:390ુLOOP1NUM:CMD$(LOOP):LOOP: T ` uS `- TT) 0:uZ(ZZ$)11:(ZZ$,Z,1)" "ZZ$(ZZ$,1,Z1)(ZZ$,Z1)DDu:[5 TURN PRINTER ONg943095:D$"OPEN PRINTER":D$"READ PRINTER">PTYPE:PTYPE143085CSP,WI:SP10Ĺ802,82:818,82H775:769,WI:43100MNUMRLOOP1NUM:CT POKING, 8 HAS THE MAXIMUM BYTES TO POKE.DPZO(9): ERROR FLAGQPZO0ı]P20654}PX1:Y1:TT100,50:216,0:P216,0:ZP(222):ZO128(ZP69ZP53ZP133ZP191)255(ZP191):768:PZIZ1Z169:ZI,58::8,69:0uZZ$""ı<2,169,34,72,96 $PTT92,42:20670NPH(X)(X256):L(X)X256(X256)P6,L(Z1):7,H(Z1): LOW AND HIGH BYTES OF THE STARTING LOCATION TO POKE LINE*P21332: PARSE STRING AND POKE INTO LINE 20665. 6, 7 SHOULD HAVE THE LOCATION TO STAR16368,0:1:868:L(37):L*? END OF PROGRAMQD$(13)(4)eD$;"RUN HELLO"u SPACE BAR16368,0:24:1:868:7"PRESS ";::"SPACE BAR";::" TO CONTINUE";16384,128:16368,0:1:868:AAPROGRAMD$(13)(4)-D$;"RUN HELLO"= SPACE BAR[16368,0:24:1:868:7"PRESS ";::"SPACE BAR";::" TO CONTINUE";16384,128:16368,0:1:868:@LLA:ULB:1020AULB:1020";::" TO CONTINUE";16384,128:/`:"INTEGRAL YOU CAN USE THE CARTESIAN OR"aj:"POLAR COORDINATE SYSTEMS. IF YOU CHOOSE"t"TO COMPUTE A TRIPLE INTEGRAL YOU CAN USE"~"THE CARTESIAN, CYLINDRICAL, OR SPHERICAL""COORDINATE SYSTEMS."1530"YOU WILL NOW BE ASKGRALS PERFORMS DOUBLE OR"F.:"TRIPLE ITERATED INTEGRATION. AFTER"v8:"CHOOSING TO COMPUTE EITHER A DOUBLE OR"B:"TRIPLE INTEGRAL, YOU MUST THEN SELECT"L:"THE COORDINATE SYSTEM YOU WANT TO USE."V:"IF YOU CHOOSE TO COMPUTE A DOUBLE"DTHETA DRHO"<RVP:958:"ENTER A NUMBER FROM 1 TO ";MAX;RT"? ";A$:NT(A$)qVNT1NTMAXNT(NT)850(37)3:958:"ENTER SIZE OF SUBINTERVALS? ";A$:D(A$):958:D0990450 INSTRUCTIONS SUBROUTINE$:"MULTI-INTE"5) DZ DR DTHETA"BH:"3) DTHETA DR DZ";:22:"6) DZ DTHETA DR"KI850gJ SPHERICAL COORDINATESL"1) DRHO DTHETA DPHI";:22:"4) DTHETA DPHI DRHO"N"2) DRHO DPHI DTHETA";:22:"5) DPHI DRHO DTHETA" P"3) DTHETA DRHO DPHI";:22:"6) DPHI ESIAN COORDINATES8:"1) DX DY DZ";:22:"4) DY DZ DX"a<:"2) DX DZ DY";:22:"5) DZ DX DY">:"3) DY DX DZ";:22:"6) DZ DY DX"@850B CYLINDRICAL COORDINATESD"1) DR DTHETA DZ";:22:"4) DTHETA DZ DR"F:"2) DR DZ DTHETA";:22:&VP8:MAX2:TY28162( CARTESIAN COORDINATESS*"1) DX DY";:22:"2) DY DX"\,850t. POLAR COORDINATES0"1) DR DTHETA";:22:"2) DTHETA DR"28504 ORDER OF INTEGRATION FOR TRIPLE INTEGRAL6VP12:MAX6:TY826,836,8448 CARTO255ĺ"SORRY, THAT FUNCTION IS TOO LONG.":790r"SORRY, THAT FUNCTION ISN'T FORMED":"CORRECTLY. TRY AGAIN."KK11500:KK::3 "PLEASE CHOOSE THE ORDER OF INTEGRATION":"IN2822$ ORDER OF INTEGRATION FOR DOUBLE INTEGRALHE HELLO PROGRAM":20210=&\:D$"CLOSE PRINTER":216,0:272a&ુLOOP1NUM:CMD$(LOOP):LOOP:SD$"OPEN PRINTER":D$"READ PRINTER"=%>PTYPE:PTYPE143085_%CSP,WI:SP10Ĺ802,82:818,82w%H775:769,WI:43100%MNUM%RLOOP1NUM:CMD$(LOOP):LOOP:44000:43100&W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN T13)20712$PZA$;!$QZO(ZB$)9$QZC(ZV1.75)17.675?$QM$0uZZ$""ı$:uZ(ZZ$)11:(ZZ$,Z,1)" "ZZ$(ZZ$,1,Z1)(ZZ$,Z1)$Du:$D$(13)(4): END OF PROGRAM $:$4D$;"RUN HELLO"$5 TURN PRINTER ON$943095"%:C$" "ZC$;:ZVZV1+#PK((ZB$,1)):OP(K)0G#PZOZO1:ZB$(ZB$,1,ZO)o#PVVK1:2:" ":VT:ZO2HT:20714#PZA$"1"ZA$"8"20733#PK(ZA$):OP(K)20712#POP(K)1:ZA$",";:ZB$ZB$ZA$:ZO(ZB$):VVK1:2:"-":VT:ZO2HT:20714 $PZA$(ZHR"PZWZW1:(16384)128ZA$((16384)128):16368,0:" "ZC$;:ZH1:20718w"PZZZVZZZC256:" "ZC$:20760"PZW7ZVZV.5:20711"PZVZV1:ZHĞ"P" "ZC$;::20710"P:"PZA$(8)20727"PZO1ZVZV1.15:20711#PZC$" "ZC$Z25X2:::::::::::::::::::::::::::::::::::::::::::::::::::::::::c!PZIZ1Z169:ZI,58::8,69:|!P LINE INPUT ROUTINE!PVT(37)1:HT(36)1!PZB$"":ZC$(8):ZO0:ZV0:ZH1!PZZZT17.675:ZZ0ZZ0!P"";!P16368,0:20714"PZW0:ZHE MAXIMUM BYTES TO POKE. 2 PZO(9): ERROR FLAG? PZO0ıK P20654c PX1:20665:216,0: P216,0:ZP(222):ZO128(ZP69ZP53ZP133ZP191)255(ZP191):768: P DO NOT CHANGE NEXT TWO LINES PZ1(121)256(122)35:A!PY3X P20660:20670=PH(X)(X256):L(X)X256(X256)P6,L(Z1):7,H(Z1): LOW AND HIGH BYTES OF THE STARTING LOCATION TO POKE LINE P21332: PARSE STRING AND POKE INTO LINE 20665. 6, 7 SHOULD HAVE THE LOCATION TO START POKING, 8 HAS THUATION ROUTINE&}P TODD BAILEY, MECC;P (C) MECC, 1980BP P ROUTINE EXPECTS BINARY 'TAPA' TO BE AT 21332 ($5354)PZZ$ = F(X)PPZX$:ZX$"*SRESET*"20622PZI09:ZX:768ZI,ZX::*SRESET*,166,223,154,169,216,72,169,34,72,96DO YOU WANT THE ERRORS OF ESTIMATE?";:868:" ";A$:958QB(A$,1,1)"Y"1100iD(A$,1,1)"N"1330sF1080LF1:TP3İ1990V:34,13[`1282b5);"X";6);"VALUE OF";3);"ERROR OF"d5);"VALUE";2);"FN AT X";4);"ESTIMATE" ";C(I);" X^";I1:10304" +";C(I);" X^";I1GI:1970:1080"POWER FUNCTION IS"::" Y = "A" * X ^ "B:1970:1080$"EXP FUNCTION IS"::" Y = "A"EXP("B"*X)":1970. PRINT ERRORS OF ESTIMATE AND STANDARD ERROR OF ESTIMATE98:" COEFFICIENT MATRIX C IS FROM LAST COLUMN OF MATRIX AWI1D1:C(I)A(I,D11)::rTP3A(C(1)):BC(2) PRINT RESULTS:TP11050TP21060"THE POLYNOMIAL IS":"Y = ";C(D1);" X^";D11ID1111C(I)0ĺ" A(I,J)A(I,J)B(K,I)B(K,J):::LH AUGMENT MATRIX A WITH (B-TRANS) * Y_RI1D1:K1N\A(I,D11)A(I,D11)B(K,I)Y(K)::p ROW REDUCE MATRIX A1500:P0940:"MATRIX NOT INVERTIBLE - ABNORMAL"::"TERMINATION":1970:14808D$"CLOSE PRINTER":216,0:702A)ુLOOP1NUM:CMD$(LOOP):LOOP:7ER"(>PTYPE:PTYPE143085@(CSP,WI:SP10Ĺ802,82:818,82X(H775:769,WI:43100a(MNUM(RLOOP1NUM:CMD$(LOOP):LOOP:44000:43100(W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":1530)\:(222):ZO128(ZP69ZP53ZP133ZP191)255(ZP191):768:c'PZIZ1Z169:ZI,58::8,69:q'0uZZ$""ı':uZ(ZZ$)11:(ZZ$,Z,1)" "ZZ$(ZZ$,1,Z1)(ZZ$,Z1)'Du:'5 TURN PRINTER ON'943095(:D$"OPEN PRINTER":D$"READ PRINT STARTING LOCATION TO POKE LINE&P21332: PARSE STRING AND POKE INTO LINE 20665. 6, 7 SHOULD HAVE THE LOCATION TO START POKING, 8 HAS THE MAXIMUM BYTES TO POKE. &PZO(9): ERROR FLAG&PZO0ı&P20654&PT11,21,31:216,0:A'P216,0:ZP32 ($5354)%P ZZ$=F(X)%P?%PZX$:ZX$"*SRESET*"20622%PZI09:ZX:768ZI,ZX:: *SRESET*,166,223,154,169,216,72,169,34,72,96%PT10,20,30:20670%PH(X)(X256):L(X)X256(X256)&P6,L(Z1):7,H(Z1): LOW AND HIGH BYTES OF THEENTER 1, 2, OR 3? ";A$8$6A$"1"A$"2"A$"3"1580T$@A$"3"ĺD$;"RUN HELLO"d$EA$"2"701v$JNUM0İ44000$T792$xP EQUATION EVALUATION ROUTINE$}P TODD BAILEY, MECC$P (C) MECC, 1980 %P ROUTINE EXPECTS BINARY 'TAPA' TO BE AT 213#D$"PR#0"::10:"DO YOU WANT TO"w#:" 1) RUN THIS PROGRAM AGAIN USING A":" DIFFERENT SIZE INTERVAL"#:" 2) RUN THIS PROGRAM AGAIN USING A":" NEW INTEGRAND AND NEW LIMITS"#":" 3) RETURN TO MENU"$,20:958:":24:1:868:7B""PRESS ";::"SPACE BAR";::" TO CONTINUE";i"16384,128:16368,0:1:868::" ERROR IN COMPUTATION":10:"UNABLE TO EVALUATE THE FUNCTION"::ZZ$;" IN THE GIVEN INTERVAL.""1530:216,0:1550" END OF PROGRAM$G A"(!U:"DOUBLE OR TRIPLE INTEGRAL."[!Z::"FINALLY, YOU WILL BE ASKED TO ENTER THE"!d:"SUBINTERVAL SIZE. THE SUMMATION USED TO"!n"APPROXIMATE THE INTEGRAL WILL USE THE"!x:"MIDPOINTS OF THE SUBINTERVALS."! SPACE BAR"16368,0 THE INTEGRAL HAS BEEN DEFINED,"F (:"YOU MUST CHOOSE THE ORDER OF"x 2:"INTEGRATION. THE PROGRAM WILL PRINT OUT" <"WHICH ORDERS OF INTEGRATION YOU MAY" F:"CHOOSE FROM DEPENDING ON THE COORDINATE"!P:"SYSTEM USED AND IF YOU ARE COMPUTIN"COORDINATE SYSTEM VARIABLE NAMES"R"----------------- --------------"s"CARTESIAN";:23:"X, Y, Z":"POLAR";:23:"R, THETA":"CYLINDRICAL";:23:"R, THETA, Z" :"SPHERICAL";:23:"RHO, THETA, PHI"1530 "NOW THATED TO ENTER THE"B:"LIMITS OF INTEGRATION AND THE INTEGRAND."q"THE LIMITS OF INTEGRATION AND INTEGRAND":"CAN BE EITHER CONSTANTS OR FUNCTIONS.":"IF YOU USE FUNCTIONS YOU MUST USE THE":"VARIABLE NAMES INDICATED BELOW."&:(D)M2TM:M1LM,H279M1RM,H:YHFI0:Y10:Y2159:Y30Y1Y3ZY3159Y2Y3zM1LMIKU279M1RM1270M1LMIKU,Y1M1LMIKU,Y2 CHECK FOR MIDPOINT PLOTK0U70I0ēM1LMIKUMP,Y12M1LMIKUMP,Y22IICK FOR MIDPOINT PLOTPxK0U70I0ēX12,M2TMIKUMPX22,M2TMIKUMP`zII1:1140nC01190M1LM,159M2BM279M1RM,159M2BMY159M2BM:1230D01220M1LM,M2TM279M1RM,M2TMYM2TM:TM9:BM0:1230$HUM1RMLM,0279M1RMLM,159M2BMDLX279M1RMLM:LM0:RM9:1120pVVU(A)M1LM:V,M2TMV,159M2BM:XV`I0:X10:X2279:X30X1X3jX3279X2X3rMPKU2tM2TMIKU159M2BM1160vX1,M2TMIKUX2,M2TMIKUw CHE:1000 IBI1:A$"":IIBIEFA$A$C$(I)::DD(A$):B(LL)NDDSX(0):q PLOT AXES SUBROUTINE LM9:BM9:RM0:TM0K1:U5K10U100K.1A01080$M1LM,0M1LM,159M2BM.XM1LM:11208B01110!B279972(&\:D$"CLOSE PRINTER":216,0:100L&ુLOOP1NUM:CMD$(LOOP):LOOP:"READ PRINTER")%>PTYPE:PTYPE143085K%CSP,WI:SP10Ĺ802,82:818,82c%H775:769,WI:43100l%MNUM%RLOOP1NUM:CMD$(LOOP):LOOP:44000:43100&W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":1128:16368,0:::::@$ SUBROUTINE TO RESET X AND Y ARRAYSO$TP22020x$I1N:X(I)(X(I)):Y(I)(Y(I))::$I1N:Y(I)(Y(I))::$I:$` TIME DELAY$ KK12000:KK:$5 TURN PRINTER ON$943095%:D$"OPEN PRINTER":D$LIST"4#:"THE ERRORS OF ESTIMATE, DETERMINE THE"f#:"STANDARD ERROR OF ESTIMATE, AND PLOT THE"#"CURVE OVER A SCATTERGRAM OF THE DATA."# SPACE BAR#16368,0:24:1:868:7#"PRESS ";::"SPACE BAR";::" TO CONTINUE";$16384,CURVE IS A POLYNOMIAL,">":"THE NUMBER OF DATA POINTS TO BE"n"X:"CONSIDERED, AND THE SOURCE OF THE DATA""b:"(I.E. TO BE ENTERED DURING PROGRAM""v:"EXECUTION OR TO BE READ FROM A DATA"::"FILE)."#16:"AT YOUR REQUEST, THE PROGRAM WILL L DISK FILE."W!::"THE CURVE CAN BE"::" 1) A POLYNOMIAL OF DEGREE LESS THAN 10."{!" 2) A POWER FUNCTION Y=A*X^B"!:" 3) AN EXPONENTIAL FUNCTION Y=A*EXP(B*X)"!1970!&"YOU MUST ENTER THE TYPE OF CURVE USED,""0:"THE DEGREE IF THE 1.E6A(I,J)0  5 I1D1:IKA(I,K)0? ::f  SUBROUTINE TO PRINT INSTRUCTIONS 4:"LEAST SQUARES WILL DETERMINE A LEAST" :"SQUARES CURVE FIT TO ANY SET OF DATA" !:"ENTERED FROM EITHER THE KEYBOARD OR A"::"SEQUENTIAI,K)):P0ı RK1580PJ1D11:TA(K,J):A(K,J)A(R,J):A(R,J)T:c,JD11K11@A(K,J)A(K,J)A(K,K):(A(K,J))1.E6A(K,J)0JTI1D1:IK1680^IK1680hJK1D11rA(I,J)A(I,J)A(I,K)A(K,J) |(A(I,J)):" 1) RUN THE PROGRAM AGAIN"E:" 2) RETURN TO MENU"h16:958:"ENTER 1 OR 2? ";A$A$"1"A$"2"1486A$"1"Ľ:5D$"RUN HELLO" SUBROUTINE TO ROW REDUCE MATRIXK1D1:P0:IKD1P(A(I,K))RI:P(A(** 1970`::CV7:"DO YOU WANT THE SCATTERGRAM"::"WITH THE FUNCTION? ";A$:A$(A$,1)zA$"N"A$"Y"1420D$"PR#0":A$"N"1480F0TP3İ1990XX(0)D$;"BLOAD CHAIN,A520":520"SCAT"34,0::10:"DO YOU WANT TO"%(I)Z)2I34,9:19705F0Ĺ216,0:1370@(216,0L2:CV2aFF0TP3İ1990wPF0ĥ1300:1140Z:"STANDARD ERROR"::"OF ESTIMATE IS ";nF1:PPN:P:x PLOT FUNCTION OVER SCATTERGRAM OF DATA *** CHAIN TO SCAT *-f5);"-----";2);"-------";4);"--------"<tP0:I1NS~TP1160,1170,1180hZAX(I)B:1190ZA(BX(I)):1190Z0:J1D1:ZZB(I,J)C(J):F01210I;")";:6:X(I);:13:Z;:24:(Y(I)Z)I10(I10)İ1970PP(YD$;"OPEN ";B$(NN):D$;"READ ";B$(NN)?"K15:J010:I010S"A(I,J,K):::m"D$;"CLOSE ";B$(NN):" SUBROUTINE ARRAY TO DISK"23:15:"WRITING TO DISK":23"D$;"OPEN ";B$(NN):D$;"WRITE ";B$(NN)"K15:J010:I010 #A(I,1740:NCN:-! SUBROUTINE MOVE W3 TO A V!I1R3:J1C3:A(I,J,M)W3(I,J)::t!A(1,0,M)R3:A(0,1,M)C3:! SUBROUTINE MOVE A TO W3!C3A(0,1,M):R3A(1,0,M)!I1R3:J1C3:W3(I,J)A(I,J,M):::! SUBROUTINE DISK TO ARRAY$"ROUTINE STORAGE LOCATIONB J"ENTER STORAGE LOCATION NUMBER? ";A$d TM(A$):M0M51M(M)1640 ^:"ERROR - PLEASE ENTER A NUMBER BETWEEN 0 AND 51.":2950:1610 hN(M5.95):MM5(N1):NCNı rNC0NNN:1740:NCN: !|NNNC:1790:NNN: TERMINATION PROCEDURE06NC0NNNC:17907D$"PR#0":::10:"DO YOU WANT TO"::" 1) RUN THIS PROGRAM AGAIN?"::" 2) RETURN TO MENU"816:868:"WHICH ?";R$:R$"1"R$"2"15929(R$)1Ľ:15;D$;"RUN HELLO"@: E SUB- EIGENVALUES ***!R3C3350+ 1900e:"ENTER LAMBDA (0 TO QUIT)? ";A$:L(A$):L01330I1R3:W3(I,I)W1(I,I)LL:::2802I1R3:W3(I,I)W3(I,I)L::2010FK1R3D0P22:12:"DETERMINANT = ";D:LLL:1840:2900:130011,K)W1(1,K)W2(1,K):,W2(1,I)0:J1C3[K1I1:W3(I,J)W3(I,J)W1(1,K)W3(K,J):W2(1,I)W2(1,I)W3(I,J)W3(I,J)::I1R3:J1C3:W3(I,J)W3(I,J)(W2(1,I))::23:7:"ORTHONORMAL BASIS COMPLETED":2950:280 *** OPTION 15 2010:1840:K1R3D0C~22:12:"DETERMINANT = ";D:2900:280o *** OPTION 14 - ORTHONORMAL BASIS ***}W2(1,1)0I1C3:W2(1,1)W2(1,1)W3(1,I)W3(1,I):I2R3:K1I1:W1(1,K)0J1C3:W1(1,K)W1(1,K)W3(I,J)W3(K,J):W1(RM OF THE AUGMENTED PART":"IS STORED IN LOCATION NUMBER "(A$)L:"AND THE REDUCED FORM OF THE ORIGINAL":"MATRIX IS THE CURRENT MATRIX."V22:9:"ROW REDUCTION COMPLETED":2900:280` *** OPTION 13 - DETERMINANT ***jR3C3350t1900:W3(I,K)W1(R(I),K):W3(I,K10)W2(R(I),K)::=C401110:"ENTER A STORAGE NUMBER FOR THE AUGMENTEDPART OF YOUR MATRIX?";:" ";A$:1620$1900.I1R3:J1C4:W3(I,J)W3(I,JC3)::8CTC3:C3C4:1680:C3CT:1840?B:"THE REDUCED FO2010?:"DO YOU WANT THE MATRIX":"IN ECHELON FORM? ";A$W(A$,1,1)"N"1040o(A$,1,1)"Y"1000:"I DO NOT UNDERSTAND. ENTER YES OR NO.":2950:962I1R3:J110W1(I,J)W3(I,J):W2(I,J)W3(I,J10)::I1R3:K110.EQUATIONS? ";A$1D1:(A$,1,1)"Y"C40:960y:"ENTER NUMBER OF SYSTEMS? ";A$:C4(A$):C411C40C4(C4)940:"NUMBER OF SYSTEMS MUST BE < 10":2950:900:"ENTER CONSTANTS ONE ROW AT A TIME"IB1:IER3:JBC31:JEC3C4:23200:2950:280 RI1R3:J1C3:\W3(I,J)W3(R(I),C3J)jf::23:12:"INVERSE COMPLETED":2950:280p *** OPTION 12 - ROW REDUCE ***z SET UP AUGMENTED MATRIX IF REQUIRED :"DO YOU WANT TO AUGMENT THE MATRIX FOR":"SOLVING SYSTEMS OF " 3X + 5/3"h:18:"X = 5/4":j:18:"Y = -2/3X - 5"Js SPACE BARhx16368,0:24:1:868:7z"PRESS ";::"SPACE BAR";::" TO CONTINUE";|16384,128:16368,0:1:868: END OF PROGRAM:D$(13)(4)D$;"RUN HELLO"ANOTHER LINE OR CHANGE THE X AND Y"S2:"INTERVALS AND SEE THE LINES REPLOTTED."b<1400::5P"THE EQUATIONS OF THE LINES MUST BE "Z:"IN THE FORM X=B OR Y=MX+B"d:"WHERE M AND B ARE INTEGERS OR FRACTIONS." f::7:"EXAMPLES: Y =1:1250.M1LMIKU279M1RMII1:12504X INSTRUCTIONS SUBROUTINE  :5:"LINE GRAPH WILL PLOT UP TO 10 LINES ON A""GRAPH. YOU SELECT X AND Y INTERVALS."::"AFTER ANY LINE HAS BEEN PLOTTED, YOU CAN"#("PLOT E. PROGRAMS OF THE TYPE"::10)"MAXIMIZE: F = CX"o:10)"SUBJECT TO: AX <= B"::12)"X >= 0 AND B > 0":12)"(IN MATRIX FORM)":15004:"YOU MUST ENTER:"::" 1) THE NUMBER OF VARIABLES IN THE"." OBJECTIVE FUNCTION F"::" 2)980$L3K1NL3:1080'.NK1M811NK(C$))(C$,N)(C$,K);:`L7)"0.000";:sV INSTRUCTIONS`:4:"LINEAR PROGRAMS WILL SOLVE SMALL MAXIMUM"t"TYPE LINEAR PROGRAMS THAT ARE WRITTEN IN"~"STANDARD FORM."412:" I.:C(I,PC)0*:TT1:CV1:35,22:670T SUBROUTINE TO PRINT ARRAY ELEMENTS`C$(X)nX01100K1(C$):(C$,K,1)"E"ĂL1K1:(C$,L,1)"."ĂK(C$)(X)100000ĺ12(C$))C$;:K(C$)KL4XX.0001(X):$"CLOSE PRINTER":216,0:60?/ુLOOP1NUM:CMD$(LOOP):LOOP:,R".>PTYPE:PTYPE143085?.CSP,WI:SP10Ĺ802,82:818,82W.H775:769,WI:43100`.MNUM.RLOOP1NUM:CMD$(LOOP):LOOP:44000:43100.W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":2910/\:DATION ON" - :"THIS PROGRAM."0-T SPACE BARN-^ 16368,0:24:1:868:7-h "PRESS ";::"SPACE BAR";::" TO CONTINUE";-r 16384,128:16368,0:::- KK11000:KK::-5 TURN PRINTER ON-943095.:D$"OPEN PRINTER":D$"READ PRINTEEDS SPACE ON YOUR DISK TO"I, :"STORE 10 ARRAYS (S1-S10). IF THEY DO"y, :"NOT EXIST ON YOUR DISK FROM A PREVIOUS", :"RUN, THE PROGRAM WILL CREATE THEM.", 2900:5, "CONSULT THE ACCOMPANYING WRITTEN" - :"DOCUMENTATION FOR MORE INFORM"0+x :"MATRIX. WHEN THE PROGRAM REQUESTS AN"a+ :"OPTION, ENTER 'LIST' IF YOU WANT A LIST"+ :"OF THE OPTIONS, 'END' IF YOU WANT TO END"+ "THE PROGRAM, OR A NUMBER 1-15 TO PERFORM"+ "A MATRIX OPERATION."+ 2900:5, "THE PROGRAM NEB$):B$" "::(A$(K))13ĺ+* :F0:I:K*( INSTRUCTIONS SUBROUTINET*2 :5h*< 17)"MATRIX":*F "CAN BE USED TO SAVE AND OPERATE ON UP TO"*P "50 MATRICES OF SIZE 10X10 OR SMALLER."*d 2900:5+n "THERE ARE 15 OPTIONS FOR OPERATING ON A)"."A$(K)"E"24204)B A$(K)","(A$(K))132430T)L (A$(K))27B$" "::2330j)V (A$(K))82430~)` KK1:K02340)j ::"PLEASE REENTER ENTIRE LINE.":KK12000:KK:CV1:958:2330)t KK1:2340)~ L1K1:B$B$A$(L):* W3(I,J)()0 ((II1:IR32230A(I1R3:IKW3(R(I),C(K))0K(::j( MATRIX INPUT SUBROUTINE( :F0:B$"":IIBIE( "ROW ";I;" ?";:CV(37):JJBJE:K1($ A$(K):A$(K);(. (A$(K))47(A$(K))582420)8 A$(K)"-"A$(K)"+"A$(K)W3(R(K),C(J))W3(R(K),C(K))I'(W3(R(K),C(J)))1.E6W3(R(K),C(J))0X'JK2170t' REDUCE ALL OTHER ROWS|'I1'IK2280'JK1C3C4'W3(R(I),C(J))W3(R(I),C(J))W3(R(I),C(K))W3(R(K),C(J))((W3(R(I),C(J)))1.E6W3(R(I),C(J),C(J)))P1I:P2J:P(W3(R(I),C(J)))4&*:P02120<&4:i&> RECORD ANY ROW OR COLUMN INTERCHANGES&HTR(K):R(K)R(P1):R(P1)T&RTC(K):C(K)C(P2):C(P2)T&\DDW3(R(K),C(K)):KP1DD&fKP2DD&pJC3C41&zJJ1'W3(R(K),C(J) ROW REDUCTION SUBROUTINEL% SET UP ROW AND COLUMN INTERCHANGE MATRICES e%D1:I1R3:R(I)I:}%J1C3C4:C(J)J:% MAIN LOOP TO ROW REDUCE%ER3:C3R3EC3%K1E:P0%  LOCATE PIVOT ELEMENT%JKC3:IKC3$& P(W3(R(I))W3(I,J)$v::C1C3:R1R3:>$ MOVE W3 TO W2 SUBROUTINEb$I1R3:J1C3:W2(I,J)W3(I,J)x$::C2C3:R2R3:$ MULTIPLICATION SUBROUTINE$I1R1:J1C2:W3(I,J)0$K1R2:W3(I,J)W3(I,J)W1(I,K)W2(K,J)$:::R3R1:C3C2:%J,K):::&#D$;"CLOSE ";B$(NN)::<#& MOVE W1 TO W3`#0I1R1:J1C1:W3(I,J)W1(I,J)v#:::R3R1:C3C1:#D MOVE W2 TO W3#NI1R2:J1C2:W3(I,J)W2(I,J)#X::R3R2:C3C2:#b MOVE W3 TO W1 SUBROUTINE $lI1R3:J1C3:W1(I,J((ZXZC)128)P}ZC$;:ZC4Z}(13);(4);"PR#0":d}Q5 TURN PRINTER ON]943095:D$"OPEN PRINTER":D$"READ PRINTER">PTYPE:PTYPE143085CSP,WI:SP10Ĺ802,82:818,82H775:769,WI:43100MNUMRLOOP1NUM:CMD$(LOOP):"18:868:"ENTER 1 OR 2? ";A$<A$"1"A$"2"1518NA$"1"Ľ:40bD$;"RUN HELLO"} DUMP ONE LINE TO PRINTER  }ZV(37)::NUM0İ44000}1:ZV1}ZX1024(ZV)128(}ZV7ZXZX9842}ZV15ZXZX984<}ZC039F}ZC$16368,0:24:1:868:7I"PRESS ";::"SPACE BAR";::" TO CONTINUE";c16384,128:16368,0y::NUM0İ44000:D$"PR#0":35,24::10"DO YOU WANT TO:":" 1) START THE PROGRAM OVER":" 2) RETURN TO THE MENU"TIVES OF THE COEFFICIENTS IN THE"::"BOTTOM ROW. THE VALUE OF F IS FOUND IN"x:"THE BOTTOM ROW LAST COLUMN. THE PROGRAM""WILL THEN DETERMINE AND PRINT THE FINAL":"TABLEAU USING THE SIMPLEX METHOD." SPACE BARD$;"PR#0"NSTANT."B2:"THE X >= 0 CONSTRAINTS ARE NOT ENTERED.":1500:4F"THE PROGRAM WILL NEXT PRINT THE FIRST"::"TABLEAU IN SECTIONS DEPENDENT ON THE"Z:"WIDTH OF YOUR PRINTER OR SCREEN. THE"::"OBJECTIVE FUNCTION IS LISTED WITH THE"Nn:"NEGA OF VARIABLES IN THE"6" OBJECTIVE FUNCTION F"q:" 2) THE COEFFICIENTS FOR THE X":" VARIABLES":" 3) THE NUMBER OF CONSTRAINTS IN AX<=B":" 4) FOR EACH CONSTRAINT, THE X":" COEFFICIENTS (INCLUDING ZEROS) AND":" CO THAT ARE"-~:"WRITTEN IN STANDARD FORM."s::" I.E. PROGRAMS OF THE TYPE"::10)"MAXIMIZE: F = CX":10)"SUBJECT TO: AX <= B"::12)"X >= 0 AND B > 0":12)"(IN MATRIX FORM)":15004:"YOU MUST ENTER:"::" 1) THE NUMBER00ĺ12(C$))C$;:<K(C$)KL4XX.0001(X):980V$L3K1NL3:1080`.NK1811NK(C$))(C$,N)(C$,K);:L7)"0.000";:V INSTRUCTIONS`:4:"LINEAR PROGRAMS 2 WILL SOLVE SMALL" t:"MAXIMUM TYPE LINEAR PROGRAMSOOP1NUM:CMD$(LOOP):LOOP:ESP,WI:SP10Ĺ802,82:818,824 H775:769,WI:43100= MNUMm RLOOP1NUM:CMD$(LOOP):LOOP:44000:43100 W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":1502 \:D$"CLOSE PRINTER":216,0:290!ુL:ZV1}ZX1024(ZV)128/(}ZV7ZXZX984D2}ZV15ZXZX984Q<}ZC039iF}ZC$((ZXZC)128)wP}ZC$;:ZCZ}(13);(4);"PR#0"d}5 TURN PRINTER ON943095:D$"OPEN PRINTER":D$"READ PRINTER">PTYPE:PTYPE143085 C YOU WANT TO:"6:" 1) START THE PROGRAM OVER"Z:" 2) RETURN TO THE MENU"}18:868:"ENTER 1 OR 2? ";A$A$"1"A$"2"1518A$"1"Ľ:40D$;"RUN HELLO"} DUMP ONE LINE TO PRINTER }ZV(37)::NUM0İ44000}1 TABLEAUS AND THE"7:"TERMINATION OF THE PROGRAM."G SPACE BARVD$;"PR#0"t16368,0:24:1:868:7"PRESS ";::"SPACE BAR";::" TO CONTINUE";16368,0:16384,128:NUM0İ44000:D$"PR#0":35,24::10"DOS FOUND IN"::"THE BOTTOM ROW LAST COLUMN."91500:4"AFTER ANY TABLEAU IS PRINTED, A NEW"::"TABLEAU CAN BE OBTAINED. BUT YOU, THE":"USER, MUST SELECT THE PIVOT COLUMN AND"::"THE PIVOT ROW. HENCE YOU CONTROL THE":"SELECTION OFVF"THE PROGRAM WILL NEXT PRINT THE FIRST"::"TABLEAU IN SECTIONS DEPENDENT ON THE"Z:"WIDTH OF YOUR PRINTER OR SCREEN. THE"::"OBJECTIVE FUNCTION IS LISTED WITH THE",n:"NEGATIVES OF THE COEFFICIENTS IN THE"::"BOTTOM ROW. THE VALUE OF F I THE COEFFICIENTS FOR THE X":" VARIABLES"_:" 3) THE NUMBER OF CONSTRAINTS IN AX<=B":" 4) FOR EACH CONSTRAINT, THE X":" COEFFICIENTS (INCLUDING ZEROS) AND":" CONSTANT."2:"THE X >= 0 CONSTRAINTS ARE NOT ENTERED.":1500:4:ZHĞP" "ZC$;::207101PZA$(21)20712FPZA$(8)20725bPZO1ZVZV1.15:20711zPZC$" "ZC$;:ZVZV1PZOZO1:ZB$(ZB$,1,ZO):20714PZA$;:ZA$(13)20750PZB$ZB$ZA$:ZO(ZB$):ZVZV.75:20714QZO(ZB$) QZC(ZV1.7C$(8):ZO0:ZV0:ZH12PZZZT17.675:ZZ0ZZ0=P"? ";RP16368,0:20714bPZW0:ZHZHPZWZW1:(16384)128ZA$((16384)128):16368,0:" "ZC$;:ZH1:20718PZZZVZZZC256:ZC$;(13);:20760PZW7ZVZV.5:20711PZVZV1 WHICH"::"OPERATIONS TO PERFORM IN ORDER TO"::"REDUCE THE MATRIX."S$20200:bNSPACE BARN24:1:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE.";N16384,128:16368,0:1:868:10::P LINE INPUT ROUTINEPZB$"":Z0I(IN$(0)):J(IN$(1))SK1N:TA(I,K):A(I,K)A(J,K):A(J,K)T::50:465\:4"THIS PROGRAM WILL PERFORM ROW"::"OPERATIONS TO HELP YOU REDUCE"::"A MATRIX."F::"YOU WILL HAVE TO INPUT THE ROWS OF"::"THE MATRIX AND THEN DECIDEIN$(1))-IK1N:A(I,K)XA(I,K)::50:465;XDIVISION]lP$"DIVIDE ROW "U$" BY "U$oq30000:32000vI(IN$(0)):X(IN$(1))K1N:A(I,K)A(I,K)X::50:465INTERCHANGEP$"INTERCHANGE ROW "U$" WITH ROW "U$30000:3200ADD4P$"ADD "U$" TIMES ROW "U$" TO ROW "U$F30000:32000nX(IN$(0)):J(IN$(1)):I(IN$(2))K1N:A(I,K)A(I,K)XA(J,K)::50:465&MULTIPLY:P$"MULTIPLY ROW "U$" BY A FACTOR OF "U$?30000:32000DI(IN$(0)):X(LE OF 1 ROW TO ANOTHER";:" 2) MULTIPLY A ROW BY A CONSTANT":" 3) DIVIDE A ROW BY A CONSTANT":" 4) INTERCHANGE 2 ROWS":" 5) END"868:"(ENTER 1 - 5)?";A$:A(A$):A(A)A1A5(A)A$46516:958A500,550,600,650,43000DVA$"0"ġ:440?DVA(I,J)A(I,J)(A$):A$"":DV0:XA(I,J)(A$):A$"":24:(7)"ENTER "N" INTEGERS SEPARATED BY COMMAS.";:868:1:27550 SELECTION OF ROW OPERATION16:958"DO YOU WANT TO":" 1) ADD A MULTIP$(ZB$,C,1):A1$"+"A1$"9"440='A1$"/"İ430:DV1:320Z,A1$","A$A$A1$:320w6430:CV0:JJ1:JN440@C:430:JNī440JI:460((A$))A$ġ:440((A$))1000Ģ24:(7)"THE NUMBERS MUST BE LESS THEN 999.";:1::275HAN "ZN" COLUMNS.":184% :A(M,N) "TYPE IN A NUMBER FOR EACH OF THE "N:"COLUMNS IN EACH ROW, SEPARATING THE":"NUMBERS WITH COMMAS." D$;"PR#0" I1M I23:80):I23:1 "ROW "I;:20700:958 A$"":DV0!"J1:C1ZO:A1ONS:"P 9:868:"HOW MANY ROWS? ";M$:M(M$):958:(M)M$M1M(M)182 MZMĢ21:"SORRY, YOU CAN'T HAVE MORE THEN "ZM" ROWS.":182 11:868:7:"COLUMNS? ";N$:N(N$):958:(N)N$N1N(N)184 NZNĢ21:"YOU CAN'T HAVE MORE T:: y:D$;"PR#0":Q 10:958:"DO YOU WANT INSTRUCTIONS? ";A$:A$(A$,1)j A$"N"A$"Y"140| A$"Y"İ1010 :10:NUM0:"DO YOU WANT TO USE THE PRINTER? ";A$:(A$,1)"Y"43065 INPUT OF MATRIX :6:"ENTER THE MATRIX DIMENSI(95) R(X)X/ L(X)(((R(X)),WW))< (::140N 2PRINT MATRIXj <35,15::35,24:ZM1M| FNUM0İ44000 RL1N51 TCH20(L12)4:CH1CH1 ZI1M:CH:I") "; dJ1N:LL(A(I,J)) n4L)((R(A(I,J))),WW)ZS) x:MAX COLUMNS. ZS1:SPACES BETWEEN COLUMNSP NI(3),IC(3,2),IN$(2),HP(3,2)] 3,2,2,2  0,1,1,1,0,-1,1,0,-1,1,1,-1 5,17,26,14,31,0,12,17,0,17,28,0 :I03:NI(I): I03:J02:IC(I,J):: I03:J02:HP(I,J):: U$ ROWRED,LAST UPDATE: 12/17/81 RPB2mAUTHOR: BEVERLY DURKEE, AUGSBURG COLLEGEs(C) MECC, 1980 R$(13):T$(8):E$(24):C$(20):D$(13)(4) WW4:MAX WIDTH PRINTOUT PER ELEMENTZM7:MAX ROWS ZN7LOOP:44000:43100zW:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":1502\:D$"CLOSE PRINTER":216,0:290ુLOOP1NUM:CMD$(LOOP):LOOP:EE   MNUM7RLOOP1NUM:CMD$(LOOP):LOOP:44000:43100W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":590\:D$"CLOSE PRINTER":216,0:240ુLOOP1NUM:CMD$(LOOP):LOOP:BA$"2"232!NUM0İ44000+"560:3006%22016J*(1023)123Ā^4D$;"RUN HELLO"u5 TURN PRINTER ON943095:D$"OPEN PRINTER":D$"READ PRINTER">PTYPE:PTYPE143085CSP,WI:SP10Ĺ802,82:818,82H775:769,WI:43100D$"PR#0"::* 10:"DO YOU WANT TO"\ :" 1) TRY ANOTHER INITIAL APPROXIMATION"" 2) TRY ANOTHER EQUATION":" 3) RETURN TO MENU"18:958:"ENTER 1, 2 OR 3? ";A$A$"1"A$"2"A$"3"43026:A$"3"43045  (121)256(122)35:cPD2X2:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::PZIZ1Z169:ZI,58::8,69:0uZ1$""ı:uZI(Z1$)11:(Z1$,ZI,1)" "Z1$(Z1$,1,ZI1)(Z1$,ZI1):ZIZIDuZI: END OF PROGRAM 1:TT20665,20668:216,0:kP216,0:ZP(222):ZO128(ZP69ZP53ZP133ZP191)255(ZP191):768:P DO NOT CHANGE NEXT TWO LINESPZ1(121)256(122)35:PFX22X1:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::PZ1(Z1): LOW AND HIGH BYTES OF THE STARTING LOCATION TO POKE LINEP21332: PARSE STRING AND POKE INTO LINE 20665. 6, 7 SHOULD HAVE THE LOCATION TO START POKING, 8 HAS THE MAXIMUM BYTES TO POKE. PZO(9): ERROR FLAGPZO0ıP20654PXECTS BINARY 'TAPA' TO BE AT 21332 ($5354)aP "ZZ$" IS EQUATION, "ZF=1" - DON'T ERASE EQUATIONP:ZI09:ZX:768ZI,ZX:: 166,223,154,169,216,72,169,34,72,96 PTT20660,20667:20670PH(X)(X256):L(X)X256(X256)@P6,L(Z1):7,HS? ";A$:N(A$):958:255:(N)A$5700D:yN24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";X16384,128:16368,0::xP EQUATION EVALUATION ROUTINE}P TODD BAILEY, MECCP (C) MECC, 1980P )P ROUTINE EXP LONG."::"TRY AGAIN.":540,ZO128Ģ16:958:18:(7)"SORRY, YOUR DERIVATIVE WAS NOT FORMED PROPERLY."::"TRY AGAIN.":5400958:20:"INITIAL ROOT APPROXIMATION? ";A$:X(A$):958:(X)A$560(:20:958:225:"MAXIMUM NUMBER OF ITERATIONIN.":520]12:"ENTER THE DERIVATIVE OF F IN THE FORM"::" D = ...DERIVATIVE FUNCTION"16:868:" D = ";F2$:F2$""540Z1$"D="F2$:30000:F2$Z1$&ZZ$F2$:TT2:20600(ZO255Ģ16:958:18:(7)"SORRY, BUT THE DERIVATIVE WAS TOO = ";F1$:F1$""5204 Z1$"F="F1$:30000:F1$Z1$L ZZ$F1$:TT1:20600 ZO255Ģ9:958:18:(7)"SORRY, BUT THE FUNCTION WAS TOO LONG."::"TRY AGAIN.":520 ZO128Ģ9:958:18:(7)"SORRY, YOU FUNCTION WAS NOT FORMED PROPERLY."::"TRY AGASKED TO ENTER AN INITIAL"C :"APPROXIMATION TO THE ROOT OF THE"s :"FUNCTION AS WELL AS THE MAXIMUM NUMBER" :"OF ITERATIONS TO BE PERFORMED." 590: 5:"ENTER THE FUNCTION IN THE FORM"::" F = ...FUNCTION OF X"9:868:" FFTER "NN" ITERATION(S).":* 590:43000\ :5:"NEWTON 2 USES NEWTON'S METHOD TO FIND" :"APPROXIMATE ROOTS TO ANY DIFFERENTIABLE" :"FUNCTION. YOU WILL BE ASKED TO ENTER A" :"FUNCTION AND ITS DERIVATIVE. YOU WILL" :"ALSO BE A14:"NO FURTHER APPROXIMATIONS ARE POSSIBLE.":420K (F)1E6İ418:420 D0İ418:14:"THE DERIVATIVE IS ZERO. NO FURTHER"::"APPROXIMATIONS ARE POSSIBLE.":420 X1X:F1F:XXFD:NN:NNNN1:418:420 9:11A(X):X;31A(F));F:12:"A----------"29)"-----". JA(X)(((X))2)A rNN0N:F1E10R |216,0:390p ~20665:20668:216,0:400 216,0:768::21:958 NN0F1E10Ģ9:11A(X):X:12:(7)"FUNCTION VALUE TOO LARGE.":420 F1E10NNNN1:XX1:FF12 418:STRUCTIONS? ";A$:A$(A$,1)4 A$"Y"A$"N"200E A$"Y"İ500 :10:NUM0:"DO YOU WANT TO USE THE PRINTER? ";A$:(A$,1)"Y"43065 :510 ,1:" "F1$:3:" "F2$:5:9:"ROOT"27)"FUNCTION":5:"APPROXIMATION"29)"VALUE" 65:"---  NEWT2+LAST UPDATE: 12/16/81 RPB1l(AUTHOR: BEVERLY DURKEE, AUGSBURG COLLEGE2 (C) MECC, 1980<F USES TAPA,A$5354,L$109d21332:D$(13)(4)nD$"BLOAD TAPA,A$5354":::255 10:"DO YOU WANT INȱ` T ` uS `ȍ T T) 0G T Ѝ T " T T  ڍ T&1 T TЫ T T8` T T T`LwS T T8`LS[T\Tij[T\Tkl8`iiLTȱTS  TZ T ` uS `ȍ T T) 0G T Ѝ T " T T  ڍ T&1 T TЫ T T8` T T T`LwS T T8`LS[T\Tij[T\Tkl8`iiLTȱ   TYPE143085/CSP,WI:SP10Ĺ802,82:818,82GH775:769,WI:43100PMNUMRLOOP1NUM:CMD$(LOOP):LOOP:44000:43100W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":590 \:D$"CLOSE PRINTER": 2 OR 3? ";A$0A$"1"A$"2"A$"3"43026D:A$"3"43045T A$"2"232f!NUM0İ44000t"560:300%22016*(1023)123Ā4D$;"RUN HELLO"5 TURN PRINTER ON943095:D$"OPEN PRINTER":D$"READ PRINTER" >PTYPE:P"Z1$(Z1$,1,ZI1)(Z1$,ZI1):ZIZI/DuZI:G END OF PROGRAM YD$"PR#0"::s 10:"DO YOU WANT TO" :" 1) TRY ANOTHER INITIAL APPROXIMATION"" 2) TRY ANOTHER EQUATION":" 3) RETURN TO MENU" 18:958:"ENTER 1,2X1:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::`PZ1(121)256(122)35:PD2X2:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::PZIZ1Z169:ZI,58::8,69:0uZ1$""ı%:uZI(Z1$)11:(Z1$,ZI,1)" UM BYTES TO POKE.*PZO(9): ERROR FLAG7PZO0ıCP20654dPX1:TT20665,20668:216,0:P216,0:ZP(222):ZO128(ZP69ZP53ZP133ZP191)255(ZP191):768:P DO NOT CHANGE NEXT TWO LINESPZ1(121)256(122)35:BPFX220667:206706PH(X)(X256):L(X)X256(X256)P6,L(Z1):7,H(Z1): LOW AND HIGH BYTES OF THE STARTING LOCATION TO POKE LINEP21332: PARSE STRING AND POKE INTO LINE 20665. 6, 7 SHOULD HAVE THE LOCATION TO START POKING, 8 HAS THE MAXIMTINE}P TODD BAILEY, MECC1P (C) MECC, 19808P sP ROUTINE EXPECTS BINARY 'TAPA' TO BE AT 21332 ($5354)P "ZZ$" IS EQUATION, "ZF=1" - DON'T ERASE EQUATIONP:ZI09:ZX:768ZI,ZX:: 166,223,154,169,216,72,169,34,72,96 PTT20660,ORMED PROPERLY."::"TRY AGAIN.":540r0958:20:"INITIAL ROOT APPROXIMATION? ";A$:X(A$):958:(X)A$560z::N24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";X16384,128:16368,0::xP EQUATION EVALUATION ROU)16:868:" D = ";F2$:F2$""540IZ1$"D="F2$:30000:F2$Z1$a&ZZ$F2$:TT2:20600(ZO255Ģ16:958:18:(7)"SORRY, BUT THE DERIVATIVE WAS TOO LONG."::"TRY AGAIN.":540%,ZO128Ģ16:958:18:(7)"SORRY, YOUR DERIVATIVE WAS NOT F958:18:(7)"SORRY, BUT THE FUNCTION WAS TOO LONG."::"TRY AGAIN.":520ZO128Ģ9:958:18:(7)"SORRY, YOUR FUNCTION WAS NOT FORMED PROPERLY."::"TRY AGAIN.":52012:"ENTER THE DERIVATIVE OF F IN THE FORM"::" D = ...DERIVATIVE FUNCTION"* :"APPROXIMATION TO THE ROOT OF THE"= :"FUNCTION."H 590: 5:"ENTER THE FUNCTION IN THE FORM"::" F = ...FUNCTION OF X" 9:868:" F = ";F1$:F1$""520 Z1$"F="F1$:30000:F1$Z1$ ZZ$F1$:TT1:20600I ZO255Ģ9:ɔ 膢 ȱ " <67 L  8ij v vo> JA(X)(((X))2)O |216,0:390t ~20665:20668:216,0:35,18:400 216,0:768::21:958 "NO FURTHER APPROXIMATIONS ARE POSSIBLE.":590:43000 CV::11A(X):X;:31A(F):F:CVCV2:1 NSTRUCTIONS? ";A$:A$(A$,1)5 A$"Y"A$"N"200F A$"Y"İ500 :10:NUM0:"DO YOU WANT TO USE THE PRINTER? ";A$:(A$,1)"Y"43065 :510 ,1:" "F1$:3:" "F2$:5:9:"ROOT"27)"FUNCTION":5:"APPROXIMATION"29)"VALUE" 65:"--0  NEWT1+LAST UPDATE: 12/17/81 RPB1l(AUTHOR: BEVERLY DURKEE, AUGSBURG COLLEGE2 (C) MECC, 1980< USES TAPA,A$5354,L$109 F:d21332:D$(13)(4)nD$"BLOAD TAPA,A$5354":::255 10:"DO YOU WANT I73,2,3,240,9,237,1,3,233,247,144,4,105,31,133,36,104,96,108,3,3,0,0,0,255,255,255,0X110,133,42,173,232,3,233,0,133,43,169,99,145,42,200,169,3,145,42,104,168,96,72,72,173,2,3,197,36,104,176,3,72,169 _ 160,44,98,3,240,3,238,2,3,8,32,169,3,40,104,72,144,228,73,13,10,208,13,141,2,3,169,138,32,169,3,169,88,32,168,252,169,0,133Sd 36,15,255,24,176,56,152,72,172,0,3,8,169,5,141,3,3,169,192,24,109,0,3,141,4,3,169,255,153,120,7,169,17,153,248U 7,152,10,10,10,10,168,169,3,153,142,192,169,17,153,142,192,169,155,141,1,3,169,54,133,42,160,0,140,2,3,132,43,40,144,14,173 sZ 231,3,233, TO DIVERT OUTPUT TO PR: CALL 775Zxò TO CHANGE TO 10 CPS:POKE 802,82 : POKE 818,82ò TO CHANGE MARGIN:POKE 769,N:(AFTER CALL 775)2Z$:Z$"PRINTER"60210:"THE AXES AND AN OPTION (U,D,L,R,S, OR E)":"IS SELECTED, ONLY THE LAST EQUATION "PAND (ZOOM AWAY)"::32,0:$6360S7"YOU MAY ALSO PLOT ANOTHER GRAPH REUSING"8:"THE SAME EQUATION OR USING A NEW"::"EQUATION."9::"A NEW EQUATION CAN BE PLOTTED OVER"::"THE CURRENT GRAPH USING THE SAME AXES."::"THE NEW EQUATION "CHOOSE ONE OF 6 OPTIONS CONCERNING THE"::"SCREEN WINDOW:"j 32,3::"U - PLOT REGION ABOVE IT": "D - PLOT REGION BELOW IT": "L - PLOT REGION LEFT OF IT": "R - PLOT REGION RIGHT OF IT": ""S - SHRINK (ZOOM IN)":,"E - EXAMETER VARIABLE"::5)"IN BOTH EXPRESSIONS,"y :" 'X' MUST BE THE DEPENDENT VARIABLE"::5)"IN THE FIRST EQUATION," :" AND 'Y' THE DEPENDENT VARIABLE IN"::5)"THE SECOND EQUATION." 360 3:" ONCE A RELATION IS PLOTTED, YOU MAY":@IABLE USED IN THE EXPRESSION"::" AND 'R' THE DEPENDENT VARIABLE."L 360~ "PARAMETRIC EQUATIONS MUST BE OF THE FORM": 13)"X = EXPRESSION":" AND":13)"Y = EXPRESSION": 5)"(BOTH EQUATIONS ARE REQUIRED)"::- " 'T' MUST BE THE PARIABLE"::5)"USED IN THE EXPRESSION"::" AND 'Y' THE DEPENDENT VARIABLE."T n360 x5:"POLAR EQUATIONS MUST BE OF THE FORM":: 13)"R = EXPRESSION":" -OR-":11)"R^2 = EXPRESSION"::C " 'T' (THETA) MUST BE THE INDEPENDENT"::5)"VAR CARTESIAN COORDINATE FORM,"Y <:" POLAR COORDINATE FORM, OR"::" PARAMETRIC FORM."b F360 P5:"CARTESIAN EQUATIONS MUST BE OF THE FORM": Z13)"Y = EXPRESSION":" -OR-":11)"Y^2 = EXPRESSION"::K d" 'X' MUST BE THE INDEPENDENT VAR COPYRIGHT 1979 MECCE NAME: POLYGRAPH VERSION 10/22/79c AUTHOR: DARRELL RICKE MODIFICATIONS BY BEVERLY DURKEE LANGUAGE: APPLESOFT (FP) ::(5:17:"GRAPH":: 2"IS DESIGNED TO PLOT RELATIONS GIVEN IN"::"      z#  ٠ӱ ٠ӳ٠Ӵ٠ӵ٠Ӷ ٠ӷ٠Ӹ٠ӹ Ԡ Ԡ Π Ҡ٠ӱ٠Ӳ Ԡ#Ҡ ȠĠ.Ҡ)ű ŲϠȠΠԠԱ"Բ#Ԡ P A342620Z A132760+d A82720>n A32AA64:Kx (A);:X C$C$A$b 2610t (C$)02600 A$;" ";A$; (C$)22600 C$(C$,(C$)1):2610 :16368,0: :14:"PRINTER OPTION" ::"A PRINTER CAN BE ACTIV F = C*X SUBJECT"8"TO A*X <= B, X >= 0, AND B > 0."X"LINEAR PROGRAM 2",LPCODE2~"LINEAR PROGRAM 2 SOLVES LINEAR""PROGRAMS OF THE TYPE: F = C*X SUBJECT""TO A*X <= B, X >= 0, AND B > 0."( C$""2 16368,0< A$F A(A$)OPERATIONS""s "ON A MATRIX."-t " "Az MATRIX,LINEARo"MATRIX PERFORMS OPERATIONS ON MATRICES""OF SIZE 10 BY 10 OR SMALLER." " ""LINEAR PROGRAM 1",LPCODE1"LINEAR PROGRAM 1 SOLVES LINEAR""PROGRAMS OF THE TYPE: SET OF"3> "DATA PAIRS BY A POWER, EXPONENTIAL,"SH "OR POLYNOMIAL FUNCTION."nR"LINE GRAPH",LINGRAPH\ "LINE GRAPH WILL PLOT UP TO 10 LINES"f "ON A SINGLE SCREEN."p " "q "ROW REDUCTION",ROWRED r "ROW REDUCTION PERFORMS ROW   216,0:240/ુLOOP1NUM:CMD$(LOOP):LOOP:Vn A32AA64:x (A);:, C$C$A$6 2610H (C$)02600X A$;" ";A$;j (C$)22600 C$(C$,(C$)1):2610 :16368,0: :14:"PRINTER OPTION" ::"A PRINTER CAN BE ACTIVATED DURING A" :"PROGRAM TO PROVIDE BO AND B > 0.","LINEAR PROGRAM 2",LPCODE2R"LINEAR PROGRAM 2 SOLVES LINEAR""PROGRAMS OF THE TYPE: F = C*X SUBJECT""TO A*X <= B, X >= 0, AND B > 0."( C$""2 16368,0< A$F A(A$)P A342620Z A132760d A82720"z MATRIX,LINEARC"MATRIX PERFORMS OPERATIONS ON MATRICES"g"OF SIZE 10 BY 10 OR SMALLER."q " ""LINEAR PROGRAM 1",LPCODE1"LINEAR PROGRAM 1 SOLVES LINEAR""PROGRAMS OF THE TYPE: F = C*X SUBJECT" "TO A*X <= B, X >= 0,     (LOOP):LOOP:44000:43100W:10:"PRINTER CAN NOT BE ACTIVATED. YOU MUST":"USE THE 'PR' OPTION IN THE HELLO PROGRAM":20210\:D$"CLOSE PRINTER":216,0:180ુLOOP1NUM:CMD$(LOOP):LOOP::BBR:16000$RDC:A$"D"DDR:CCR:1600N.A$"U"DDR:CCR:1600f8P(BA)2:Q(DC)2BA$"S"R(DC)2:DRQ2:CRQ2:R(BA)2:BRP2:ARP2:1600LA$"E"R(DC)2:DRQ2:CRQ2:R(BA)2:BR2P:AR2P:1600RV:1:"DOD(D.9999):ZF1CD 590(Q1:R1R10ıVR1RR10:QQ10:990mRR10:QQ10:990{S3FA1:46016368,0:24:"PRESS U,D,L,R,S,E, OR 'SPACE BAR'";:A$::E$""RBA:A$"R"AAR:BBR:1600 A$"L"AARRU158U158)\W,U1V,U1:W,UV,U_fJ:J0DQ:U159(CJ)(DC)159:U0U159910npCJ0910zU158U158W,U1V,U1:W,UV,UJ:C9999:D9999:TLL:F1TT1:80:YCCYYDDYTUL930F0:C(C):C1000)1000;" TO ";(D1000)1000;" SCALE = ";QV KA:X0:JABP:KKP:J0XKP|J:Z5(AX)(BA)279:Z50Z50 Z5279Z5279*WZ55:VZ55:W0W04V279V279>J0CQ:U159(CJ)(DC)159:U0U159870HCJ08705:VZ65:W0W0#V159V159SJ0AP:U(AJ)(BA)279:U0U279730dU278U278~U1,WU1,V:U,WU,VJ:J0BP:U(AJ)(BA)279:U0U279760U278U278U1,WU1,V:U,WU,VJ023:868:23:"VER: ";(9:Z51,0Z51,159l3:160DvR(BA)2:980:PQ:R(DC)2:98022:868:22:"HOR: ";(A1000)1000;" TO ";(B1000)1000;" SCALE = ";PKC:Y0:JCDQ:KKQ:J0YKQJ:Z6159((CY)(DC)159):Z60Z60Z6159Z6159WZ6FA1570R0"INPUT YOUR EQUATION FOR Y? ";F2$:TT$F$:F$F2$:1370:F2$F$:F$TT$:21:M2:958:F2$:M(F2$):Z$F2$:L2366:20DE$"N"920N16304,0:2:630:TLLH:G0X(C)(D)ē0,Z6279,Z6:0,Z61279,Z61b(A)(B)ēZ5,0Z5,159)")*COS(T)":L2289:20MZ$"Y=("(A$,3,M9)")*SIN(T)":L2366:20:580iM3:Z$"X=T":L2289:20M(A$):Z$"Y=":I3M:(A$,I,1)"X"(A$,I1,1)"P"Z$Z$"T":540Z$Z$(A$,I,1)I:L2366:20:580&M(F$):Z$F$:L2289:20 (UMBER OF PLOT POINTS (> 49)?";N:N504209H(ULLL)NGFA146023:"INPUT YOUR EQUATION ";:S3Ą"FOR X? ";F$:1370:460F$:137090::21:F$:S3550A$F$:(A$,2,1)"^"ZF1:1360S1510M(A$)9:Z$"X=("(A$,3,MAB340 hS1ULBZ r13:"DO YOU WANT THE LIMITS COMPUTED?";A$:(A$,1,1)"Y"400 |15:"EQUAL SPACING?";A$:(A$,1,1)"Y"1260 E$"N":420 17:958:"MINIMUM VERTICAL Y VALUE?";C 19:"MAXIMUM VERTICAL?";D:CDCD400)21:"N0 +310 ,FL0::62450s 6:3:"INPUT GRAPH TYPE:":" 1 - CARTESIAN":" 2 - POLAR":" 3 - PARAMETRIC" @S:S1S3S(S)310 JS11170 OFL1420 T9:"MINIMUM HORIZONTAL X VALUE?";A:S1LLA ^11:"MAXIMUM HORIZONTAL?";B:0< "DO YOU WANT INSTRUCTIONS? ";A$::(A$,1,1)"Y"289e (4)"PR#0":(4);"BLOAD CHAIN,A520"v 520"GRINST" !8192:I768777:Y:I,Y:I: 104,168,104,166,223,154,72,152,72,96:90 "O$"+-*/^>=<":L$"SGNINTABSSQRRNDLOGEXPCOSSINTANATN":139:80 U(XA)(BA)279= TULZF1TLL:G0:ZF0:1290L TUL1030g TULİ90:22016:1500 U0U279G0:160 V159(CY)(DC)159:V0V159G0:160 CY0G0:160 G0ēU,V:G1:160 U,V 160 ::33,40::1::::::::::::::::::::::::::::::::::::::::::::::::::::::::: PYT:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ZI22892359:I,58: dI23662436:I,58:: x NAME: POLYGRAPH VERSION 10/22/79 TUL190 TTH:70* 280: SEE LINES 110-160 FOR REMARKS^I1M:J010:(Z$,I,3)(L$,3J1,3)ĂJ:40L,(210J(J2)5):II2:LL1:I(J07:(Z$,I,1)(O$,J1,1)ĂJ:602L,(200J(J4)2):LL1:I<L,((Z$,I,1)):LL1:I:: FXT:::::::::::     ION EVALUATION ROUTINE/}P TODD BAILEY, MECCEP (C) MECC, 1980MP P ROUTINE EXPECTS BINARY 'TAPA' TO BE AT 21332 ($5354)P ZZ$ = F(X)PPZX$:ZX$"*SRESET*"20622PZI09:ZX:768ZI,ZX:: *SRESET*,166,223,154,169,216,7T FUNCTION"+:" 3) RETURN TO MENU"S$20:958:"ENTER 1, 2, OR 3? ";AA$x.AA$"1"AA$"2"AA$"3"10608AA$"2"28BAA$"3"ĺD$;"RUN HELLO"LNUM0İ44000V:"ENTER FUNCTION OF X AND Y.":3:" F = ";Z1$:398xP EQUATRESS ";::"SPACE BAR";::" TO CONTINUE";H16384,128:16368,0::nD$"PR#0"::10:"DO YOU WANT TO":" 1) USE THE SAME FUNCTION WITH A"" DIFFERENT PATH":" 2) RUN THE PROGRAM AGAIN USING A" " DIFFERENTER THE PATH"9>:"FUNCTION AND THE POINT YOU WISH TO"iH:"CONSIDER IN THE DOMAIN. THE PATH MUST"R:"BE OF THE FORM"\::10:"Y = ...FUNCTION OF X"f:6:"OR X = ...FUNCTION OF Y" SPACE BAR16368,0:24:1:868:7*"P0BG160690-TB:40:ER0AG160hER0:22:"THE POINT "A","B" IS NOT ON THE PATH.":360r1000 INSTRUCTIONS :3:"FUNCTION LIMITS WILL SEARCH FOR A LIMIT"*:"OF ANY FUNCTION OF X AND Y." 4::"YOU WILL BE ASKED TO ENOACH (";A;",";B;") FROM THE":" RIGHT (OR ABOVE)":" 2) APPROACH (";A;",";B;") FROM THE":" LEFT (OR BELOW)"20:958:"ENTER 1 OR 2? ";AA$AA$"1"AA$"2"645S1:AA$"2"S1VA:FL1VB:680 TA:40:ERN IS TOO LONG.":530W"SORRY, THAT FUNCTION ISN'T FORMED":"CORRECTLY. TRY AGAIN."oKK11500:KK:41010:958:"ENTER POINT (A,B)? ";P1$,P2$:A(P1$):B(P2$)(A)P1$(B)P2$64012:958:"DO YOU WANT TO"8:" 1) APPR$,3)  CONVERT Y AND X TO T0ZZ$ZZ$" "ELOOP3(ZZ$)1(ZZ$,LOOP,1)"Y"((ZZ$,LOOP,1)"X"(ZZ$,LOOP1,1)"P")ZZ$(ZZ$,1,LOOP1)"T"(ZZ$,LOOP1)LOOP30000:TT2:20600ZO064011:ZO255ĺ"SORRY, THAT FUNCTIO":A$"":B$"":BB$""`5:"ENTER THE PATH FUNCTION AS":"Y = ...FN OF X OR X = ...FN OF Y."8:958:" ";Z2$:Z2$""410ZZ$Z2$:30000(ZZ$,2)"Y="(ZZ$,2)"X="410(ZZ$,2)"Y="FL0(ZZ$,2)"X="FL1ZZ$"G="(ZZ Y.", 3:958:" F = ";Z1$:Z1$""392P ZZ$"F="Z1$:30000:TT1:20600^ ZO0398 6:ZO255ĺ"SORRY, THAT FUNCTION IS TOO LONG.":397 "SORRY, THAT FUNCTION ISN'T FORMED":"CORRECTLY. TRY AGAIN." KK11500:KK:392SW0:G$"0000000270 170(  CONCLUSIONSf :10:"A LIMIT CANNOT BE FOUND ON THIS PATH.":970:1000 T:10:"THE LIMIT OF YOUR FUNCTION ";Z1$::"ALONG THE PATH ";Z2$;" IS ";F h970:1000 | DATA AND PATH INPUT :"ENTER FUNCTION OF X ANDUPDATE: 12/17/81 RPB/ LOOP TO FIND LIMITQ K10:23:17::"COMPUTING":_ H911 TVHSK:40:ER1ER0:220 YG:XT:FL1XG:YT 90:SW0SW1:220 (FFO)1E06340 FOF::240 216,0:768:: KK10:K100UTINE Z230 [1006 \Z1(121)256(122)35: dFXY:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::216,0: x LIMFCTN 7/1/80 FP AUTHOR: BEVERLY DURKEE AUGSBURG COLLEGE  LAST YOU WANT TO USE THE PRINTER? ";A$:(A$,1)"Y"43065= 390U  PATH SUBROUTINE^ (70f )50 *Z1(121)256(122)35: 2G1:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::216,0: F216,0:ER1: P FUNCTION SUBRO2D$(13)(4):21332:D$;"BLOAD TAPA,A$5354"wZ109:ZX:768Z1,ZX:: 166,223,154,169,216,72,169,34,72,96  R$(13)::33,4010:"DO YOU WANT INSTRUCTIONS? ";A$:A$(A$,1)A$"Y"A$"N"20A$"Y"İ8004 :10:"DO           :NUM0İ44000(ZV2:9} DUMP ONE LINE TO PRINTERV }ZV(37)::NUM0İ44000c}1:ZV1x}ZX1024(ZV)128(}ZV7ZXZX9842}ZV15ZXZX984<}ZC039F}ZC$((ZXZC)128)P}ZC$;:ZCZ}(13);(4);"PR#0"d}5 TURN PR.":810:10000'((ZC$,1)"-"10400j(HCOUNT2:958:"- ";(ZC$,(ZC$)1);" ";(TERM$,(TERM$)1);v(HTHT1(HCOUNTHCOUNTHT(TERM$)(DEG110450(HCOUNT:" + ";(HCOUNTHCOUNT3(HCOUNT30İ32000:HCOUNT9(DEG(32000THT1<(A$;" ";A$;TERM$;1F(958:HCOUNTHTSP(((ZC$,(ZC$),1))46REAL0gZ((ZC$)110090d(ZC$(ZC$,(ZC$)1)n(10100x( COEFFICIENT COMPLETE(" ";(XC(DEG)(ZC$)(XC(M1)0ĺ:10:"COEFFICIENT OF FIRST TERM CAN NOT BE 0100'A13A3210360''A810280A'A45A47A5710100['A45(ZC$)010100r'A46REAL110100'A46REAL1'HCOUNTHT'HTHT1'A$;TERM$;(HCOUNTHT (ZC$ZC$A$(10100( BACKARROW(((ZC$)1100902(HOUNT9$'DEGM1111.'TERM$"?X^"(DEG1):8'HT0FB'HCOUNTRL'TERM$;^V'HCOUNTt`' CHARACTER INPUTj'ZC$"":REAL0t'16368,0~'A$'A(A$)' CHECK FOR VALID INPUT'(A13A32)(ZC$)010100'(A13A32)ZC$"-"100İ44000H10:' END OF PROGRAM;D$;"RUN HELLO"S ERROR CALCULATION$:10:"AN OVERFLOW HAS OCCURRED WHILE TRYING TO":"SOLVE YOUR POLYNOMIAL.".810:682' COEFFICIENT INPUT ROUTINE'D$;"PR#0"'3:958:"P(X) = ";'HC:"OF DEGREE 32 OR LESS USING NEWTON-"Q:"RAPHSON ITERATIVE TECHNIQUES."^800::n  SPACE BAR}%D$;"PR#0"*16368,0:24:1:868:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";416384,128:16368,0:1:868>22:40::NUMϺ"WOULD YOU LIKE TO"9:" 1) RUN THIS PROGRAM AGAIN"V:" 2) RETURN TO MENU"15:958:"ENTER 1 OR 2? ";A$:A$"1"A$"2"686:(A$)22,10003:"POLYROOT WILL LOCATE ALL REAL AND":"COMPLEX ROOTS FOR ANY REAL POLYNOMIAL"*OOTS OF THE POLYNOMIAL:":<"REAL PART"8)"COMPLEX PART"J34,(37)WP1MNl(37)20İ800:RR(P)," "RI(P)P:N0680:"NO FURTHER ROOTS CAN BE ":"FOUND BY THIS ROUTINE."800D$"PR#0":216,0:34,0::932(M)A$470> :"ENTER COEFFICIENTS (INCLUDING ZEROS)"^ 10000: INPUT COEFFICIENTSk 0CV(37) :23:15:868:"COMPUTING" D1060 F50 X37,CV:958 lNMĺ:"NO FURTHER ROOTS CAN BE ":"FOUND BY THIS ROUTINE.":680v:" RL2N:CO(L1)CO(L1)ALCO(L)SSCO(L1):C RI(N2)Y:RR(N2)X[ (Y)1E8RI(N2)0s (X)1E8RR(N2)0 N2N21 SS0450 YY:SS0:420 N080  :"ENTER DEGREE OF POLYNOMIAL (32 MAX)"; "? ";A$:M(A$):M(M)MTEXC(KJL1):XC(KJL1)CO(L):CO(L)TE:G ,ITN:NNX:NXIT:IZ0110P @350] JIZ090k TXXP:YYPt ^IZ0 h((Y)(1E4(X)))0390 rALXX:SSXXYY:NN2:400 |X0:NXNX1:NYNY1 Y0:SS0:ALX:NN1 CO(2)CO(2)ALCO(1)- XT:UUTEX2:VVTEY2E UXUXIXTTE:UYUYIYTTE:XTX2:YTY2:b SSUXUXUYUY:SS0330 DX(VUYUUX)SS:XXDX DY(UUYVUX)SS:YYDY ((DY)(DX))1E5290 ICIC1:IC500130 IZ0290 IN590 ) "L1NY:1)"Y"43065 470: 2IZ0:NM:NXN:NYN1:N21:KJN1Y FL1KJ:CO(KJL1)XC(L):b PIN0~ ZX.1000101:Y.0500101 nIZ1:XPX:YPY xIC0 UX0:UY0:V0:YT0:XT1:UCO(N1):U0380 I1N:LNI1:TECO(L):X2XXTYYT Y2XYTYy POLYRT 6/1/80 FP> AUTHOR: BEVERLY DURKEE` AUGSBURG COLLEGELAST UPDATE: 12/17/81 RPBXC(34),CO(34),RR(33),RI(33):D$(13)(4)::33,40:690 :10:NUM0:"DO YOU WANT TO USE THE PRINTER? ";A$:(A$,               A342620Z A132760(d A82720;n A32AA64:Hx (A);:U C$C$A$_ 2610q (C$)02600 A$;" ";A$; (C$)22600 C$(C$,(C$)1):2610 :16368,0: :14:"PRINTER OPTION"  ::"A PRINTER CAN BE ACTIVATESOLVES LINEAR PROGRAMS USING THE"J"SIMPLEX METHOD. THE USER SELECTS"m"PIVOT ROW AND PIVOT COLUMN.""LINEAR PROGRAM 2",LPCODE2"SOLVES LINEAR PROGRAMS USING THE" "SIMPLEX METHOD.",""( C$""2 16368,0< A$F A(A$) PUP TO 10 LINES ON A SINGLE","SCREEN.",""Eq "ROW REDUCTION",ROWREDwr"PERFORMS ROW OPERATIONS ON A MATRIX.","",""z MATRIX,LINEAR"PERFORMS OPERATIONS ON MATRICES OF""SIZE 10 BY 10 OR SMALLER.","""LINEAR PROGRAM 1",LPCODE1!"INT/""CALCULATES A NUMERICAL APPROXIMATION"Y#"TO A DOUBLE OR TRIPLE INTEGRAL.",""u*"LEAST SQUARES",LSTSQR4"APPROXIMATES A SET OF DATA PAIRS BY A">"POWER, EXPONENTIAL, OR POLYNOMIAL","FUNCTION."R"LINE GRAPH",LINGRAPH(\ "PLOTS "USES NEWTON'S METHOD OF FINDING"N"SUCCESSIVE APPROXIMATIONS TO A ROOT"s"OF A DIFFERENTIABLE FUNCTION." "INTEGRATION",NUMINT"CALCULATES VARIOUS NUMERICAL" "APPROXIMATIONS OF A DEFINITE","INTEGRAL."! "MULTI-INTEGRALS",MULTCALCULATES REAL AND COMPLEX ROOTS OF"X"ANY REAL POLYNOMIAL OF DEGREE 32 OR","LESS."o "NEWTON 1",NEWT1"USES NEWTON'S METHOD TO CALCULATE A""SINGLE APPROXIMATION TO A ROOT OF A""DIFFERENTIABLE FUNCTION." "NEWTON 2",NEWT2#,GRAPH0"PLOTS CURVES IN CARTESIAN OR POLAR"V"COORDINATES USING EQUATIONS IN"z"STANDARD OR PARAMETRIC FORM." "FUNCTION LIMITS",LIMFCTN"INVESTIGATES THE LIMIT OF A FUNCTION""OF TWO VARIABLES.","" POLYROOT,POLYRT% "CS DESCRIPTIONS(*:34,1:F/14:"DESCRIPTIONS":34,4L2l4T1N1:(37)18İ20500:}6N$(T,0)" -"9C24:N$(T,C)""N$(T,C)" "835>" "N$(T,C):CC:T:20500H::200"MATHEMATICS VOLUME 4",13 GRAPH ANOTHER"::"DISKETTE";:868:VX$:VX$(VX$,1)p lVX$"Y"ė:10:9:"INSERT THE NEW DISKETTE.":20500::720 vVX$"N"610 ::255  A(999)(1000)256 B(A)(A1)256 CS(B1)16:SLOT # CS1CS7CS6(4)"PR#"(37)* "";ZN$:(ZN$)(((ZN$)))520E (ZN$)0ZN$"0"540Z ZN$"PR"ZN0: 958:ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500 ZM:868:CV1(CV23):ZN(ZN$): &CV1:36,CH:868: X:0 b10:1:"DO YOU WANT TO RUN ";:868 16303,0 "4907 ,ZN0İ3000::200@ QZNS Q0QN2470 958:20:1:"PLEASE ENTER A NUMBER FROM 1 TO "N1".":17:280 QN800 QN1600 ::10:"GETTING "N$(Q,0)"..." D$;"RUN ";N$(Q,1) CH(36):CV T10ĺ" "; T" "N$(T,0)R  IF DOUBLE SPACING WANTED, CHANGE TO 'PRINT'f TN1Ģ(37)2s N7270 T((N3)2)ĢVV T:(1023)123280 J1(16384)128:J10JJ1:J300275 16368,0:1023,123 18:2:"WHICH NUMBER? 2D$"NOMON CIO" dZM24: n:T$,N:NN1:N$(N1,4) xT1N1:C04:N$(T,C):::N$(N,0)"DESCRIPTIONS":N$(N1,0)"END " 1:20(T$)2:T$ VV4(N17) 2:11:"AVAILABLE PROGRAMS":VV T1N1 N7Ė10:250 2TN3Ė20rOʆi ?"ʊBC WRP`ZHELLOmVERSION D-1.0LAST UPDATE: 12/18/81 RPB(C) MECC 1980 : 22016:16384D$(13)(4):::255:(1023)123100 :2054:16368,0                     "XB:20665:R(RY).5DX:13805 SIMPSON RULERN1(NI2):N12NI1300}CV:13:"- NOT POSSIBLE. SEE BELOW."CV(37)121:"NOTE: SIMPSON'S RULE CAN ONLY BE USED":" WITH AN EVEN NUMBER OF SUBINTERVALS."CV 1390XDX:20665:XT:YF0F0Y1RRF0DX::1380E RANDOM POINTSQXLADXtI1NI:XLXLDX:XXL(RN)DX20665:RRYDX::1380 TRAPEZOIDAL RULEXA:N1NI1N101240I1N1:XXDX:20665:RR2Y:XA:20665:RRY868::"COMPUTING":+.XADX:DX.11140W8I1NI:XXDX:REXDX:20665:F0Y:XIXqBXIXI.01:XIRE1120LTX:XXI:20665:XT:YF0F0YV1090`TX:XRE:20665:XT:YF0F0YjRRF0DX::1380tI1NI:XXDX:20665:F0Y~TX:XIXXIXI.01:XIRE1010@TX:XXI:20665:XT:YF0FOYI980lTX:XRE:20665:XT:YF0F0YRRF0DX::1380I1NI:XXDX:20665:F0YTX:XXDX:20665:XT:YF0F0YRRF0DX::1380$ MAXIMUM POINTS&23:15:POINTSXA.5DX?I1NI:XXDX:20665:RRYDX::1380U RIGHT ENDPOINTS]XAI1NI:XXDX:20665:RRYDX::1380 MINIMUM POINTS23:15:868::"COMPUTING":XADX:DX.11030I1NI:XXDX:REXDX:20665:F0Y:X37) MR0O852@RI860,920,890,950,1060,1170,1210,1260T34,0::3:"UNABLE TO EVALUATE THE FUNCTION"::Z1$;" ON THE INTERVAL ("LE$;",";RE$;")."V9:1405\ LEFT ENDPOINTSfXADXpI1NI:XXDX:20665:RRYDX::1380z MID18:OP(K)0:423:"YOUR CHOICE? ";:958:20700BZO0530o DETERMINATION OF NUMERICAL INTEGRATIONx:84:"METHOD";:25:"RESULT"4:"------";:25:"------":>K1(ZB$):I((ZB$,K,1))H2)CD$(I):24JCH(36):CV(:Z140:"-";:::34,6!:8l"WHICH METHODS WOULD YOU LIKE TO USE":"TO APPROXIMATE THE INTEGRAL?"zVV11:VVZ18:" "Z". "CD$(Z):20:"ENTER THE NUMBERS OF YOUR CHOICE. YOU":"MAY CHOOSE AS MANY OPTIONS AS YOU LIKE.":  KNI9999(NI)NI$Ģ18:"PLEASE ENTER AN INTEGER FROM 1 TO 9999.":430_DX(BA)NI:3:9583:A$"ON THE INTERVAL ("LE$", "RE$")":21((A$)2):A$A$"WITH "(NI)" SUBINTERVALS OF LENGTH "(DX):A$(A$,40):4:21((A$)2):A$50:390! (RE$)10İ10100:3907 A(LE$):B(RE$) B(A)Ģ18:"THE LEFT ENDPOINT MUST BE LESS":"THAN THE RIGHT ENDPOINT.":20200:7:958:385 13:"HOW MANY SUBINTERVALS"::868:"WOULD YOU LIKE? ";NI$:958:NI(NI$)FNI(NI)NI1AT IS THE INTERVAL OF INTEGRATION?" 7:868:" LEFT ENDPOINT: X = ?";LE$:7:25:LE$;:958::IN$LE$:15000:NU0İ10200:385 (LE$)10İ10100:385 9:868:" RIGHT ENDPOINT: X = ?";RE$:9:25:RE$;:958::IN$RE$:15000:NU0İ1020ZZ$"Y = "ZZ$) 6Z1$ZZ$:30000:206007 @ZO0370q J18:ZO255ĺ"SORRY, THAT FUNCTION IS TOO LONG.":350 T"SORRY, THAT FUNCTION ISN'T FORMED":"CORRECTLY. TRY AGAIN." ^20200:18:958:300 r:1 t21((Z1$)2):Z1$ v5# |"WHONS? ";B$:B$(B$,1)% B$"Y"14406 B$"N"230 :10:NUM0:"DO YOU WANT TO USE THE PRINTER? ";B$:(B$,1)"Y"43065 :5 "ENTER THE FUNCTION OF X WHOSE INTEGRAL"::"IS TO BE APPROXIMATED." ,10:868:" Y = ";ZZ$:ZZ$""300 1,"RIGHT ENDPOINTS","MIDPOINTS","MINIMA","MAXIMA","RANDOM"X "TRAPEZOIDAL","PARABOLIC"o :I18:CD$(I): 4:15:"INTEGRATION" 8:"THIS PROGRAM APPROXIMATES INTEGRALS"::"OF FUNCTIONS OF ONE VARIABLE." 14:958:"DO YOU WANT INSTRUCTIb NUMINT,LAST UPDATE: 12/17/81 RPB2OAUTHOR: BEVERLY DURKEEm AUGSBURG COLLEGEsASSOCIATED FILE: TAPA,A$5354 21332:D$(13)(4)D$"BLOAD TAPA,A$5354"(:::255CD$(8),OP(8)9 "LEFT ENDPOINTS"          958:" F6 = ";Z6$:Z6$""771?F6(Z6$):(F6)Z6$771:5:"ENTER INTEGRAND AS A CONSTANT OR A":"FUNCTION OF ";VAR$(IN,TY)10:958:" F = ";Z$:Z$""776 ZZ$"F="Z$ 30000:T3:20600ZO0İ786:776792/22:Z600ZO0İ786:750&IN1774h:5:"ENTER LOWER LIMIT OF OUTER INTEGRAL":"AS A CONSTANT."10:958:" F5 = ";Z5$:Z5$""767F5(Z5$):(F5)Z5$76715:958:"ENTER UPPER LIMIT OF OUTER INTEGRAL":"AS A CONSTANT."!20:";Z3$:Z3$""750b15:"ENTER UPPER LIMIT OF ";:IN1ĺ"OUTER INTEGRAL AS":"A CONSTANT.":756"NEXT INTEGRAL":"AS A CONSTANT OR A FUNCTION OF":VAR$(IN,TY)20:958:" F4 = ";Z4$:Z4$""756ZZ$"F3="Z3$":F4="Z4$30000:T2:202$""738&ZZ$"F1="Z1$":F2="Z2$<30000:T1:20600QZO0İ786:734:5:"ENTER LOWER LIMIT OF ";:IN1ĺ"OUTER INTEGRAL AS":"A CONSTANT.":750"NEXT INTEGRAL":"AS A CONSTANT OR A FUNCTION OF":VAR$(IN,TY)10:958:" F3 = R LOWER LIMIT OF INNERMOST INTEGRAL":"AS A CONSTANT OR A FUNCTION OF":VAR$(IN,TY)}10:958:" F1 = ";Z1$:Z1$""73415:"ENTER UPPER LIMIT OF INNERMOST INTEGRAL":"AS A CONSTANT OR A FUNCTION OF":VAR$(IN,TY) 20:958:" F2 = ";Z2$:Z16:958:"ENTER 1 OR 2? ";TY$=TY$"1"TY$"2"716F730o:" 2) CYLINDRICAL COORDINATES":" 3) SPHERICAL COORDINATES"18:958:"ENTER 1, 2, OR 3? ";TY$TY$"1"TY$"2"TY$"3"726TY(TY$)S:5:"ENTEOU USING A DOUBLE OR A TRIPLE"::"INTEGRAL (ENTER D OR T)";:IN$f(IN$,1)"D"(IN$,1)"T"702IN1:(IN$,1)"T"IN210:958:"DO YOU WANT TO USE":" 1) CARTESIAN COORDINATES"IN2722:" 2) POLAR COORDINATES""868/18:"NUMERICAL INTEGRATION VALUE = ";SF216,0:1530:155010:958:"DO YOU WANT INSTRUCTIONS? ";A$:A$(A$,1)A$"Y"A$"N"680A$"Y"İ1060:10:"DO YOU WANT TO USE THE PRINTER? ";A$:(A$,1)"Y"43065A:5:"ARE Y6:C31220:21"V2F3.5DAV2V2D:V2F4V2F4:C21N220:11]V1F1.5D|&V1V1D:V1F2V1F2:C110220:31:DDDD:IN2DDDDDDSSFDDNC10550XC10:C20520bC2OlIN1640vC3049023:TAV1:RHOV2:PHIV3:2 THETAV1:PHIV2:RHOV3:O PHIV1:RHOV2:THETAV3:l PHIV1:THETAV2:RHOV3: 23:16::"COMPUTING"::1536 C10:C20:C30:S0:V10:V20:V30:DDDD:IN2DDDD IN1500 V3F5.5DV3V3D:V3F6V3F 6ZV1:XV2:YV3:( @ZV1:YV2:XV3:A JZV1:RV2:THETAV3:Z TZV1:THETAV2:RV3:s ^RV1:THETAV2:ZV3: hRV1:ZV2:THETAV3: rTHETAV1:ZV2:RV3: |THETAV1:RV2:ZV3: RHOV1:THETAV2:PHIV3: RHOV1:PHIV2:THETAV3: THEĴNT270,280,290,300,310,320B TY2ĴNT350,360,380,370,330,340b NT390,400,410,420,430,440r XV1:YV2: XV2:YV1: RV1:THETAV2: THETAV1:RV2: XV1:YV2:ZV3: XV1:ZV2:YV3: "YV1:XV2:ZV3: ,YV1:ZV2:XV3:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::[ Z1(121)256(122)35: :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: VARIABLES SUBROUTINE IN2226 TY1ĴNT230,240 NT250,260 TY1AR$(2,1)"X, Y, AND Z.":VAR$(2,2)"R, THETA, AND Z.":VAR$(2,3)"RHO, THETA, AND PHI."i ::33,40:680 Z1(121)256(122)35: :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Z1(121)256(122)35:= ::::::::::B!# MULTINT 6/1/80 FP G AUTHOR: BEVERLY DURKEE m AUGSBURG COLLEGE LAST UPDATE: 12/18/81 RPB21332:D$(13)(4):D$;"BLOAD TAPA,A$5354"VAR$(2,3)U VAR$(1,1)"X AND Y.":VAR$(1,2)"R AND THETA.":V          (B-TRANS) * B * C = (B-TRANS) * YFD1D1:A(D1,D11),C(D1),B(N,D1)\ SET UP MATRIX B~I1N:B(I,1)1:B(I,2)X(I):D1810 I1N:J3D1B(I,J)B(I,J1)X(I)::  SET UP MATRIX A = (B-TRANS) * B*I1D1:J1D1:K1N"41bI1N:Y(I)0650Jv:"DATA CONTAINS NEGATIVE OR ZERO Y VALUES"Z1970:1480mY(I)(Y(I)):{TP2730I1N:X(I)0710:"DATA CONTAINS NEGATIVE OR ZERO X VALUES"1970:1480X(I)(X(I)):! SET UP MATRICES IN @(A$,1)"N"590=A:"ENTER FILE NAME? ";F$:(F$)0577GB577ZCD$;"OPEN ";F$nDD$;"WRITE ";F$EI1N:X(I):Y(I):IFD$;"CLOSE ";F$:216,0I OBTAIN LOGS FOR POWER AND EXP FUNCTIONS N23:15:"COMPUTING"PTP3730XD03813:958:"INDEX OF PAIR TO BE CHANGED? ";A$T9I(A$):I1INI(I)568:15:958:"ENTER NEW DATA":"(X"I",Y"I") ";:B$,C$:X(I)(B$):Y(I)(C$):550> SAVE DATA?:"DO YOU WANT TO SAVE THE CURRENT DATA":"ON THE DISKETTE? ";A$V:868:"NUMBER OF DATA POINTS: ";N:550;2A$"D"568m313:958:"INDEX OF PAIR TO BE DELETED? ";A$4DD(A$):DD1DDNDD(DD)5635DDN5676IDDN1:X(I)X(I1):Y(I)Y(I1):I7NN1:CV:868:"NUMBER OF DATA POINTS: ";N:55R A,D,C, OR Q TO QUIT)? ";A$P(A$(A$,1):A$"A"A$"D"A$"C"A$"Q"550`*A$"Q"532q,A$"A"562.13:958:STN1:"ENTER NUMBER OF DATA POINTS (<=";200N;")";:"? ";A$0(A$)1(A$)200N(A$)((A$))558*1N(A$)N:412:C434,11:I1N+I10(I10)İ1970U"(X";I;",Y";I;") = ";X(I);:25:Y(I)hI:34,9:1970 :"DO YOU WANT TO CHANGE ANY DATA? ";A$"(A$,1,1)"Y"(A$,1,1)"N"544$(A$,1,1)"N"575&:"ADD, DELETE, OR CHANGE DATA":"(ENTE6530<Y5NI1:CV:"NUMBER OF DATA POINTS: ";N:480b:"ERROR IN FILE ";A$:2500:360:"DATA FILE "A$:"IS NOT ON THIS DISKETTE":2500:360:"DO YOU WANT TO SEE THE LIST OF THE":"DATA PAIRS (X,Y)";:A$:958(A$,1,1)"Y"54)(C$):::34,9:- DATA FROM DISK FILEK:"ENTER FILE NAME? ";A$\(A$)0432f490D$;"UNLOCK ";A$:D$;"OPEN ";A$:D$;"READ ";A$I1200:B$:C$:X(I)(B$):Y(I)(C$):216,0:D$;"CLOSE";A$:532Y(222):216,0YAL4 :"ENTER NUMBER OF DATA POINTS (<=200)? ";A$W N(A$):N1N200N(N)402} CV:"NUMBER OF DATA POINTS: ";N ST1 412:532 :34,10:"ENTER POINTS (X,Y) ONE PAIR PER LINE"ISTN:"(X";I;",Y";I;") ";:B$,C$:X(I)(B$):Y(ITP3ĺ"POLYNOMIAL OF DEGREE ";D6 *34,9:CV(37)2b h:"DO YOU WANT TO READ YOUR DATA FROM" j:" 1) THE KEYBOARD" l:" 2) A DATA FILE" n16:958:"ENTER 1 OR 2? ";A$ |A$"1"A$"2"366 ~A$"2"432  DATA FROM TERMINUNCTION TYPE: "; $TP1ĺ"POWER"::"CAUTION: ZERO OR NEGATIVE X OR Y":10)"VALUES CANNOT BE USED WITH":10)"POWER FUNCTION" &TP2ĺ"EXPONENTIAL"::"CAUTION: ZERO OR NEGATIVE Y VALUES":10)"CANNOT BE USED WITH":10)"EXPONENTIAL FUNCTION"! (TIAL FUNCTION"5 18:958:"ENTER 1, 2, OR 3? ";A$V A$"1"A$"2"A$"3"150g A$"1"TP3x A$"2"TP1 A$"3"TP2 TP1TP2290 20:958:"ENTER DEGREE OF POLYNOMIAL ( <10 )? ";A$ D(A$):D1D9D(D)220 ":"F F:A$"Y"İ1750Z P:10:"DO YOU WANT TO USE THE PRINTER? ";A$:(A$,1)"Y"43065:} d INPUT OF CURVE TYPE AND DATA i n10:"DO YOU WANT TO USE A" x:" 1) POLYNOMIAL FUNCTION" :" 2) POWER FUNCTION" :" 3) EXPONENMX(200),Y(200)2 LSTSQR 3/10/80 FPR AUTHOR: BEVERLY DURKEEt AUGSBURG COLLEGE#LAST UPDATE: 12/17/81 RPB(D$(13)(4)2:33,40<:10:"DO YOU NEED INSTRUCTIONS? ";A$:A$(A$,1) >A$"Y"A$"N"60          IBI1:A$"":IIBIE>pC$(I)"X"DD(A$):M(LL)NDD:910rA$A$C$(I)::M(LL)0:DD(A$):B(LL)NDD:1000A$"":IBI2:C$(I1)"-"A$"-":940C$(I1)(13)B(LL)0:1000IIBIE:C$(I)"/"N(A$):970A$A$C$(I)::B(LL)(A$)IIBIE:C$(I)"/"N(A$):770DA$A$C$(I):I:B(LL)(A$):1000^IBI1:A$"":IIBIEA$A$C$(I):I:DD(A$):B(LL)NDD:1000>IIBIE:C$(I)"/"N(A$):870HC$(I)"X"M(LL)(A$):910\A$A$C$(I)::M(LL)0:B(LL)(A$):1000f:" X";:HTI6220C$(1)"X"TERM2680TERM2:SPSL:MPMI:MI0:SL0:"X+";:C$(I)"X":C$(I1)"+":TPI1:II2:622(C$(I))24ĺ"/":610II1:630:958:IEI1:IB4A$"":C$(3)"-"A$"-"C$(1)"Y"T(LL)1:8308CC57)622C$(I);:II1<C$(1)"X"TERM1ĺ" X";KHTI:622XI4620tC$(I);" ";C$(I);:II1(C$(I))47SL0C$(1)"X"TERM1Č868:HTI:" X";:HTI C$(1)"X"TERM2ITPTERM1:TP0:MIMP:SLSP:II1:HTI:868sCC13CC32654 tCC8646XvCC47SL0((C$(I1))47(C$(I1))58)SL1:640lxCC45MI1622zCC45C$(I1)"+"C$(I1)"-":(8);C$(I1);:MI1{CC45622|CC43C$(I1)"-"C$(I1)"+":(8);C$(I1);:MI0:622 ~CC45(CC44:"ENTER THE EQUATION OF YOUR LINE"::5AfC$(1);C$(2);C$(3);WhC$(1)"Y"ĺ" X";lI4:SL0:MI0:TERM1:TP0:HT4:HTIn16368,0:C$(I):CC(C$(I))p(CC13CC32)I4620q(CC13CC32)ITP1622r(CC13CC32)C$(I1)"/"622DC):UM1UM1;DM1(270U(BA))2:M2(150U(DC))2:jX INPUT OF LINEAR EQUATION SUBROUTINE b11:958:"IS EQUATION IN THE FORM OF X= OR Y=":"(ENTER X OR Y)? ";C$(1):C$(1)(C$(1),1):C$(1)"X"C$(1)"Y"610)dC$(2)"=":C$(3)"+":1 MUST BE LESS THAN X2":3:868:500o"ENTER Y-INTERVAL (Y1,Y2).":868:" Y1 = ";A$:C(A$):A$""Ģ7:540&868:" Y2 = ";A$:A$""Ģ9:958:550+D(A$)::CD5700:"Y1 MUST BE LESS THAN Y2":7:868:540:958:U270(BA):M1150(1P2Q21460&TF1Q1TI:Q2M2TM9P1,P2Q1,Q2:b INPUT OF INTERVALS SUBROUTINE k:3"ENTER X-INTERVAL (X1,X2).":" X1 = ";A$:A(A$):A$""490868:" X2 = ";A$:A$""Ģ5:958:510B(A$)::958:AB540$:"X1U(XA)M1LM:TF10 LF1P1M1LM:P2LI:430R RF1P1279M1RM:P2RI:440t BF1P1BI:P2159M2BM:450 23:"THE LINE WILL NOT APPEAR ON YOUR GRAPH": RF1Q1279M1RM:Q2RI:P1Q12P2Q22460 BF1Q1BI:Q2159M2BM:P1Q1T(L)0TIU(B(L)A)M1LM:TI,M2TMTI,159M2BM:f 6YM(L)AB(L):CYYDLIU(DY)M2TM:LF1 JYM(L)BB(L):CYYDRIU(DY)M2TM:RF1 TM(L)0390 hX(CB(L))M(L):AXXBBIU(XA)M1LM:BF1 |X(DB(L))M(L):AXXBTIS CAN BE PLOTTED"::"AT ONE TIME.":1400:140Y LLLL1::610:16304,0:LLL:280:92p :490::1020:90  LINEAR PLOT SUBROUTINE F0:LF0:RF0:BF0:TF0  ALGORITHM DIDN'T WORK SO ADDED FOLLOWING LINE M(L)M(L).00000013 " LINE"3 :" 2. CHANGE THE X AND/OR Y INTERVAL"X :" 3. START THE PROGRAM OVER"u :" 4. RETURN TO MENU" 15:"ENTER 1, 2, 3 OR 4 ?";A$ A$"1"A$"2"A$"3"A$"4"160 (A$)210,240,70,1410. LL10ė:"NO MORE THAN 10 LINE BA$"Y"İ1290% FLL1:490:610> P:16304,0:3:1020G UTM0Z ZL1LL:280:u \21:L1IE:C$(L);:L ^" SCALE = ";K d22:"X: (";A;",";B;") Y: (";C;",";D;")" x1400 ::5 "DO YOU WANT TO" :" 1. PLOT ANOTHER  LINGRAPH 7/1/80 FPG LAST MOD: 81/07/07 BY RICK CRISTf AUTHOR: BEVERLY DURKEE AUGSBURG COLLEGE#16384:22016(C$(20)<:33,40>:10:"DO YOU WANT INSTRUCTIONS? ";A$:A$(A$,1) @A$"Y"A$"N"62       wpO_wpO_X_lfW_{_>flfW_{_>f52,169,0,133d 36,173,2,3,240,9,237,1,3,233,247,144,4,105,31,133,36,104,96,108,3,3,0,0,0,255,255,255,0,197,36,104,176,3,72,169 _ 160,44,98,3,240,3,238,2,3,8,32,169,3,40,104,72,144,228,73,13,10,208,13,141,2,3,169,138,32,169,3,169,88,32,168,252,169,0,133d 36,173,2,3,240,9,237,1,3,233,247,144,4,105,31,133,36,104,96,108,3,3,0,0,0,255,255,255,0,7,169,17,153,248U 7,152,10,10,10,10,168,169,3,153,142,192,169,17,153,142,192,169,155,141,1,3,169,54,133,42,160,0,140,2,3,132,43,40,144,14,173 Z 231,3,233,110,133,42,173,232,3,233,0,133,43,169,99,145,42,200,169,3,145,42,104,168,96,72,72,173,2,32052002P16368,0:1:868:21::ZV1:ZH1:6P×S2Z$:Z$"PRINTER"60210t D$;"OPEN PRINTER":D$;"WRITE PRINTER"H PTYPE R PTYPE1ĺSP8:"DO YOU WANT TO USE 10 OR 30 CPS? ";SP$:SP(SP$)L SP10SP303220i 10:14:"PRINTER WIDTH" 12:"HOW WIDE IS YOUR PRINTER" 13:958:"ENTER NUMBER OF CHARACTERS? ";WI$:WI(WI$) WI1WI1323260 3390, 5:"ENTER THE COM10:"DO YOU HAVE A"8D :" 1) COMMUNICATIONS CARD"WN :" 2) PARALLEL CARD"sX :" 3) OTHER TYPE"b 18:958:"ENTER 1, 2, OR 3? ";A$l A$"1"A$"2"A$"3"3170v PTYPE1::A$"1"3300 5:14:"PRINTER SPEED"4 7:95:"AT BOTH THE SCREEN AND THE PRINTER.)"Z ::"NOTE: THE ACTIVATED PRINTER MAY SLOW" " DOWN THE PRINTING ON THE SCREEN." 23:958:"DO YOU WANT TO USE THE PRINTER OPTION? ";A$:A$(A$,1)& A$"N"A$"Y"31000 A$"N"ı: :D DURING A"; :"PROGRAM TO PROVIDE BOTH SCREEN DISPLAY"k :"AND A PRINTED COPY. THIS PROCEDURE IS" :"EFFECTIVE ONLY IF YOUR PRINTER USES A" :"PARALLEL CARD OR A COMMUNICATIONS CARD." :"(A SERIAL CARD WILL NOT ALLOW PRINTING")               0:- 23:13:"POWER COMPLETED":2950:280U *** OPTION 11 - INVERT MATRIX ***k 1900:R3C3350*J1C3:I1R3:W3(I,JC3)0::4I1R3:W3(I,IC3)1:>C4C3:2010:K1R3850 H23:"MATRIX NEARLY SINGULAR OR NOT INVERTIBLE":187840:2950:280L1930:1960:23:8:"MULTIPLICATION COMPLETED":2950:280l *** OPTION 10 - POWER ***|R3C3350"ENTER EXPONENT? ";A$:E(A$):E1770:"ERROR - EXPONENT MUST BE GREATER THAN 1":2950:7501900:P2E:1930:1961:"PRODUCT NOT DEFINED":1870:2950:280g1900:1960:23:8:"MULTIPLICATION COMPLETED":2950:280 *** OPTION 9 - RIGHT MULTIPLY ***"ENTER STORAGE NUMBER OF RIGHT MATRIX? ";A$:16201900:1710:C1R3Ģ23:11:"PRODUCT NOT DEFINED":1LY ***'l"ENTER SCALAR? ";A$:S(A$)QvI1R3:J1C3:W3(I,J)SW3(I,J)::23:8:"SCALAR MULTIPLE COMPLETED":2950:280 *** OPTION 8 - LEFT MULTIPLY ***"ENTER STORAGE NUMBER OF LEFT MATRIX? ";A$:1620)1930:1710:C3R2Ģ23:1ORAGE NUMBER OF SECOND MATRIX? ";A$:1620J:1930:1710:R2R3C2C3590zD23:13:"SUM NOT DEFINED":1870:2950:280N1900:I1R3:J1C3:W3(I,J)W1(I,J)W2(I,J)::X23:11:"ADDITION COMPLETED":2950:280b *** OPTION 7 - SCALAR MULTIPB$));B$;1)J:::I(2900:280R *** OPTION 5 - TRANSPOSE MATRIX ***I1R3:J1I:TW3(I,J):W3(I,J)W3(J,I):W3(J,I)T::TR3:R3C3:C3T:23:10:"TRANSPOSE COMPLETED":2950:280& *** OPTION 6 - ADD MATRICES ***)0"ENTER STTION 3 - OBTAIN STORED MATRIX ***11610:1710b23:5:"MATRIX LOADED FROM LOCATION ";(A$)q2950:280 *** OPTION 4 - PRINT MATRIX ***I1R3:J1C3:(W3(I,J))1E6W3(I,J)0B$(W3(I,J)):(B$)11ĺW3(I,J)1):500 11(R EACH OF THE ";C3:"COLUMNS IN EACH ROW, SEPARATING THE":"NUMBERS WITH COMMAS."xIB1:IER3:JB1:JEC3:2320::280 *** OPTION 2 - STORE MATRIX ***1610:168023:" CURRENT MATRIX STORED AT LOCATION ";(A$)2950:280! *** OPNPUT MATRIX *** :r:"ENTER THE MATRIX DIMENSIONS:":ns" HOW MANY ROWS ?";A$:" COLUMNS ?";B$|R3(A$):C3(B$):R30R311R3(R3)C30C311C3(C3)400:"ERROR ON SIZE - PLEASE REENTER":2950:370Q:"TYPE IN A NUMBER FO,1)"E"ė:15900 @N(A$):N0N16N(N)340 J:"ERROR ON OPTION - PLEASE REENTER":K11500:K:(37):868:1:868:290 T:N370,430,450,470,530,560,620,660,700,740,800,900,1130,1170,1280 ^"MATRIX NOT SQUARE":280h *** OPTION 1 - IER"! " 11) INVERT MATRIX"< " 12) ROW REDUCE"X " 13) DETERMINANT"z " 14) ORTHONORMAL BASIS" " 15) EIGENVALUES" X(0) CV(37) "2:868:"WHICH OPTION: LIST, 1-15, END? ";A$ ,(A$,1)"L"200 6(A$" 2) STORE MATRIX"5 " 3) LOAD MATRIX"R " 4) PRINT MATRIX"s " 5) TRANSPOSE MATRIX" " 6) ADD MATRICES" " 7) SCALAR MULTIPLY" " 8) LEFT MULTIPLY" " 9) RIGHT MULTIPLY" " 10) POW$(9)"ARRAY S9":B$(10)"ARRAY S10"0 nK1:150U s::12:11:"READING FROM DISK"m xD$;"UNLOCK ";B$(K) K10Ĺ216,0::280 KK1:120 216,0 K15:A(1,0,K)1:A(0,1,K)1: NN110:1790::280 5:" 1) INPUT MATRIX" "Y"55 :A$"Y"İ2610\ ;:10:"DO YOU WANT TO USE THE PRINTER? ";A$:(A$,1)"Y"43065b < >B$(1)"ARRAY S1":B$(2)"ARRAY S2" FB$(3)"ARRAY S3":B$(4)"ARRAY S4" PB$(5)"ARRAY S5":B$(6)"ARRAY S6" ZB$(7)"ARRAY S7":B$(8)"ARRAY S8"" dB@' LINEAR 3/1/80 FP< AUTHOR: BEVERLY DURKEE]( AUGSBURG COLLEGE|-LAST UPDATE: 12/17/81 RPB2A(10,10,5),W3(10,20),A$(25):D$(13)(4)7::33,40810:"DO YOU WANT INSTRUCTIONS ?";A$:A$(A$,1) 9A$"N"A$                ET NEW TABLEAU FOR PC = PIVOT COLUMN, PR = PIVOT ROWJfJ1N3:JPC900pC(PR,J)C(PR,J)C(PR,PC):(C(PR,J))1E06C(PR,J)0:C(PR,PC)1I1NC1:IPR960J1N3:JPC950C(I,J)C(I,J)C(PR,J)C(I,PC):(C(I,J))1E6C(I,J)0 ST BE < ";N3:1:812c>3:868:"ENTER PIVOT ROW NUMBER? ";C$:PR(C$):PR0PRNCPR(PR)840@:"PIVOT ROW MUST BE POSITIVE AND <= "NC:830HC(PR,PC)0870R:868:"PIVOT ENTRY IS ZERO, TRY AGAIN":KK11500:KK:8104\ ROUTINE TO GINUE";:16384,128:16368,0%675/1500K  CHECK FOR NEW TABLEAU*35,24::"DO YOU WANT A NEW TABLEAU? ";A$:(A$,1)"N"1510+,"ENTER PIVOT COLUMN NUMBER? ";C$4PC(C$)::PC(PC)PC0PCN3Č958:8309:"COLUMN NUMBER MUNSEN3:EEN312IBEE:9((I)))I3):::YI1NC:JBE:XC(I,J):980:::wI112(EB1):"-";::IBE:XC(NC1,I):980: :CV(37):SNSĺ:795SS1:NS1Ĺ16368,0:24:868:7:"PRESS ";::"SPACE BAR";::" TO CONTW133PW(PW)660N::"WIDTH MUST BE > 11 AND <= 132.":K12000:K:620b PRINT TABLEAUT1:SC(PW12):NS(N3SC.95)NS1Ĺ35,22:CV1S1::"TABLEAU NUMBER "TNS1ĢCV1:"SECTION "SB(S1)SC1:EB1SC:EEE:S SET SLACK VARIABLE COLUMNSC0J1NC:C(I,JNV)0::C(I,INV)1:ZD SET FUNCTION ROWxNI1NV:C(NC1,I)F(I):XI1N4:C(NC1,INV)0:b GET PRINTER WIDTHl::"ENTER PRINTER OR SCREEN WIDTH":v" ? ";C$:PW(C$):868:PW11P 0 AND <= 19."&(37)3:868:410;N4NC1:N3N4NVi:"CONSTRAINT COEFFICIENTS AND CONSTANT"qL1ENV:FLAG1:70K1E1:C(L,K)(A$(K)):LL1:LNC490 SET CONSTANTS IN LAST COLUMNI1NC:C(I,N3)C(I,NV1)&INTEGER > 0 AND <= 19."/^(37)3:868:340Xr:"OBJECTIVE FUNCTION COEFFICIENTS"|ENV:FLAG0:70:K1E:F(K)(A$(K))::"NUMBER OF CONSTRAINTS":" ? ";C$:NC(C$):868::NC0NC(NC)NC20440:"PLEASE ENTER AN INTEGER >B$"Y"İ1120[:10:NUM0:"DO YOU WANT TO USE THE PRINTER? ";B$:(B$,1)"Y"43065a"{6 INPUT OF LP PROBLEM@:"NUMBER OF OBJECTIVE FUNCTION VARIABLES":T" ? ";C$:NV(C$):868::NV0NV(NV)NV20370V:"PLEASE ENTER AN T33 HCOUNT30İ32000:HCOUNT5:FLAG1HCOUNT3< DEGr FLAG1Ė(36)4:"<= "A$(E1);:32000:1500:172 32000:NUM0İ44000 ZV2: MAIN PROGRAM : 10:"DO YOU WANT INSTRUCTIONS? ";B$:B$(B$,1) B$"N"B$"Y"240(C$,(C$)1) 1002 COEFFICIENT COMPLETE< " ";K A$(DEG)C$a (C$,1)"-"161 HCOUNT2:958:"- ";(C$,(C$)1);" ";(TERM$,(TERM$)1); HTHT1 HCOUNTHCOUNTHT(TERM$) DEGE168 HCOUNT:" + "; HCOUNTHCOUNvA46REAL1100# xA46REAL12 zHCOUNTHT> |HTHT1M ~A$;TERM$;\ HCOUNTHTi C$C$A$r 100 BACKARROW (C$)198 HTHT1 A$;" ";A$;TERM$; 958:HCOUNTHT ((C$,(C$),1))46REAL0 (C$)198 C$RM$; ^HCOUNT& ` CHARACTER INPUT7 bC$"":REAL0E d16368,0M fA$Y hA(A$)u j CHECK FOR VALID INPUT l(A13A32)(C$)0100 m(A13A32)C$"-"100 nA13A32152 pA8134 rA45A47A57100 tA45(C$)0100 1 J3:958:"ENTER CONSTANT FOR CONSTRAINT ";L;J KA$:A$(E1)((A$))~ L3:958:FLAG1ĺ"ENTER CONSTRAINT FUNCTION": MD$;"PR#0" NFLAG0ĺ"F = "; RHCOUNT6:FLAG1HCOUNT3 TDEG1E VTERM$"?X"(DEG) XHT0 ZHCOUNT \TE! LPCODE1 7/10/80 FP @ AUTHOR: BEVERLY DURKEEa AUGSBURG COLLEGE#LAST UPDATE: 12/17/81 RPB(E$(24):R$(13):T$(8):D$(13)(4)2A$(20),C(10,20),F(20)<240F COEFFICIENT INPUT ROUTINEHFLAG076          3:JPC950FC(I,J)C(I,J)C(PR,J)C(I,PC):(C(I,J))1E6C(I,J)0V:C(I,PC)0g:TT1:810 SUBROUTINE TO PRINT ARRAY ELEMENTSC$(X):X01100K1(C$):(C$,K,1)"E"ĂL1K1:(C$,L,1)"."ĂK(C$)(X)1000LITY REGION - HENCE NO SOLUTION.":KK12000:KK:1510}\ ROUTINE TO GET NEW TABLEAU FOR PC = PIVOT COLUMN, PR = PIVOT ROWfJ1N3:JPC900zC(PR,J)C(PR,J)C(PR,PC):(C(PR,J))1E06C(PR,J)0:C(PR,PC)1I1NC1:IPR960 J1N00:15101500:CV13  CHECK FOR NEW TABLEAUc*P0:I1N31:C(NC1,I)PPC(NC1,I):PCIx4:P0FL1:670>P1000000:I1NC:C(I,N3)0C(I,PC)0840@C(I,N3)C(I,PC)PPC(I,N3)C(I,PC):PRIH6RP1000000ĺ"UNBOUNDED FEASIBI((I)))I3):::8I1NC:JBE:XC(I,J):980:::VI112(EB1):"-";::tIBE:XC(NC1,I):980: :CV(37):SNSSS1:16368,0:24:868:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:680:FL1İ155=::"WIDTH MUST BE > 11 AND <= 132.":K12000:K:620Q PRINT TABLEAUa35,22:CV1T1:SC(PW12):NS(N3SC.95)S1::"TABLEAU NUMBER "TCV1::"SECTION "SB(S1)SC1:EB1SC:EEE:SNSEN3:EEN31IBEE:9LE COLUMNS20J1NC:C(I,JNV)0::C(I,INV)1:ID SET FUNCTION ROWgNI1NV:C(NC1,I)F(I):XI1N4:C(NC1,INV)0:b GET PRINTER WIDTHl::"ENTER PRINTER OR SCREEN WIDTH":v" ? ";C$:PW(C$):868:PW11PW(PW)PW13365(37)3:868:410,N4NC1:N3N4NVZ:"CONSTRAINT COEFFICIENTS AND CONSTANT"bL1tENV:FG1:70K1E1:C(L,K)(A$(K)):LL1:LNC490 SET CONSTANTS IN LAST COLUMNI1NC:C(I,N3)C(I,NV1) & SET SLACK VARIABND <= 19.""^(37)3:868:340Kr:"OBJECTIVE FUNCTION COEFFICIENTS"tENV:FG0:70:K1E:F(K)(A$(K))::"NUMBER OF CONSTRAINTS":" ? ";C$:NC(C$):868::NC0NC(NC)NC20440:"PLEASE ENTER AN INTEGER > 0 AND <= 19."1120N:10:NUM0:"DO YOU WANT TO USE THE PRINTER? ";B$:(B$,1)"Y"43065T"n6 INPUT OF LP PROBLEM@:"NUMBER OF OBJECTIVE FUNCTION VARIABLES":T" ? ";C$:NV(C$):868::NV0NV(NV)NV20370 V:"PLEASE ENTER AN INTEGER > 0 AHCOUNT30İ32000:HCOUNT5:FG1HCOUNT31 DEGe FG1Ė(36)4:"<= "A$(E1);:32000:1500:172~ 32000:NUM0İ44000 ZV2: MAIN PROGRAM : 10:"DO YOU WANT INSTRUCTIONS ?";B$:B$(B$,1) B$"N"B$"Y"240B$"Y"İ$)1) 100) COEFFICIENT COMPLETE3 " ";B A$(DEG)C$X (C$,1)"-"161 HCOUNT2:958:"- ";(C$,(C$)1);" ";(TERM$,(TERM$)1); HTHT1 HCOUNTHCOUNTHT(TERM$) DEGE168 HCOUNT:" + "; HCOUNTHCOUNT3( EAL1100 xA46REAL1) zHCOUNTHT5 |HTHT1D ~A$;TERM$;S HCOUNTHT` C$C$A$i 100y BACKARROW (C$)198 HTHT1 A$;" ";A$;TERM$; 958:HCOUNTHT ((C$,(C$),1))46REAL0 (C$)198 C$(C$,(CHCOUNT ` CHARACTER INPUT. bC$"":REAL0< d16368,0D fA$P hA(A$)l j CHECK FOR VALID INPUT l(A13A32)(C$)0100 m(A13A32)C$"-"100 nA13A32152 pA8134 rA45A47A57100 tA45(C$)0100 vA46R3:958:"ENTER CONSTANT FOR CONSTRAINT ";L;G KA$:A$(E1)((A$))y L3:958:FG1ĺ"ENTER CONSTRAINT FUNCTION": MD$;"PR#0" NFG0ĺ"F = "; RHCOUNT6:FG1HCOUNT3 TDEG1E VTERM$"?X"(DEG) XHT0 ZHCOUNT \TERM$; ^  LPCODE2 7/10/80 FP ? AUTHOR: BEVERLY DURKEE` AUGSBURG COLLEGE#LAST UPDATE: 12/17/81 RPB(E$(24):R$(13):T$(8):D$(13)(4)2A$(20),C(10,20),F(20)<240F COEFFICIENT INPUT ROUTINEHFG076. J                 wpO_X_lfW_{_>fwooq?ow?o@?x?~>{m?_Uv^G_@X~nx1{~?G_ |~?_?|k{o;_ow[o_?>_ox? }xc?[}>_o~[mw{ow_?X_{{?ww~_>wv{?x?o~_}?@{?|c@ooo}}`|a?l?~gO~n~{z{fn{{on{wpg_X_nvW_{]_~nwoo|?ow?o@G?xx>{m?_mv^??`@?`@?W~v[k>w-w.{~?> x`\o_`O0?~}~?_qwlw`\o<~`ox?a@}xx?_}>``{mw{ow?p?8o{;?o{~_}~.wvs?x?ocO}{o_nn~{v{nn{{wn{gxs_X_nfWO{]_>nwOo?~?og?o@q?|C>{m?_}~?@~`?@_O~zog>{K/{~??~>{o7_ow[oO?_o88`}~?~~gox?O}x~?_>_o~{ p{owo?|p{{@|~?~~1wvw?~xc?oox p|ao?lxg}sO{_qq~{nqan{`xq`~ox_8onV;W[]_]nw_ox?|go?~o@|?p>{m?_}v_?ppx?X_~zoo>{k/?{~?~>{o7owoW?Oox<@}~??|_Oox?g}xG?_}>_o~{mw{ow{o?g~xA?o/wu>o{{^o_k~s}wg?|{_wxo?~_|pn6|Xg]_cnw_opg?xwo~o@_~{~?g]{m?_}v_?~~~?~PO>zog>{k/{~?|>{o7ow[n_?Wox>?|}?~?xp~@|_>?7{ox?s}|q?_}>_o~{mw{ow[o?o~xA?oOoy]_{??oogO{}qqpnpqan`{qq{wqq`}Owsownw_opq?xgO|O@_~{~?k{m?_}v_?|x~0W]v[k6wmo.{~?y>x`ow[m_?[ox?q?@}|??_oXo{}>@?Wt?~Ox?x|}?_}>_o{mw{n?_}x^_y_@_8{~??~wp`}x_xs~xXc{o~_ow[k_?]oxG?G|}x?NW?_o~s<}{ow[o?X_s;ww|_>?gv|_x?o~?~}?_}xA?ooo}];?oogy{s~nnun{~n{{nn{w?~oxp67\_{]qcfwgog?wox?o@?~?x>{m?_9v^_`_@_~{~?p_0G~~?]{o}_ow[g_?^ox?>pp}xO?U;?_o~+]{{ow[?X_{{@ww~_>?wvyx?o`}?_yxA?ooo}={{^o^k|sg~np{p{~`{{aq{wxO8oJV[_{]n]v