L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  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- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`GTH  M3-SCALAR MAGNITUDE0  N1-# OF ROWSF  N2-# OF COLUMNSY  R2-REAL PART_ z PZ(M1),A(M1,M1),C1(M1) UW(M1,1),B(M1,M1),I1(M1,3) ZD4(M12,M12) \D5(M12,M1,2),V(M12,2) Z SIMULTANEOUS SOLUTION6 OF COMPLEX EQNS BYN GAUSS-JORDAN ELIMd A1-PHASOR ANGLE} C1-SOLUTION VECTOR D4-REAL ARRAY D5-IMAGINARY ARRAY E1-ERROR FLAG I2-WORK MATRIX I6-IMAGINARY PART  M1-MAXIMUM LEN (2)R(2))' B(V(1)R(1)V(2)R(2))2a BB((V(1)R(1))2(R(1)1)(V(2)R(2))2(R(2)1))2o B(B.5)u  "T-VALUE = "(A) "DEGREES OF FREEDOM = "B   THELLO" R) I  T2340( T3380> ""VALUE OF MEAN";E ,Ma 6A(M(1)M)(R(1)V(1))n @BR(1)1w J420 TA(M(1)M(2))(1R(1)1R(2)) ^BR(1)R(2)2 hAA(((R(1)1)V(1)(R(2)1)V(2))B) r420 |A(M(1)M(2))(V(1)R(1)Vd nI1(T1)1 xV(I)0+ D(I)0@ "SAMPLE ";I;":"] " NUMBER OF ELEMENTS";g R(I)u J1R(I) " ELEMENT "J; P(J,I) V(I)V(I)P(J,I) D(I)D(I)P(J,I)2 J M(I)V(I)R(I) V(I)(D(I)V(I)2R(I))(R(I)1"A*B=";Y1Z2Z1Y2;",";Z1X2X1Z2;",";X1Y2Y1X2: x[ "MORE DATA? (1=YES, 0=NO)";b Xn X120 "RUNHELLO"1" "OPERATIONS ON TWO VECTORS"(L"VECTOR A: X,Y,Z COORDINATES";Z(X1,Y1,Z1~2"VECTOR B: X,Y,Z COORDINATES";<X2,Y2,Z2FP"A+B=";X1X2;",";Y1Y2;",";Z1Z2Z"A-B=";X1X2;",";Y1Y2;",";Z1Z2d"A.B=";X1X2Z1Z2Y1Y24 n   M(2)0310< J(X(1)X(2)Y(1)Y(2)Z(1)Z(2))M(1)M(2)J J0300S J90\ "310r ,J((1J2)J)S 6"ANGLE BETWEEN VECTORS: ";J @ J"MORE DATA? (1=YES, 0=NO)"; TZ ^Z140 h"RUNHELLO"220 x"VECTOR ";I;":"/ "MAGNITUDE: "M(I)> S57.29578N JX(I)M(I)q "ANGLE WITH X-AXIS: ";A(J)S JY(I)M(I) "ANGLE WITH Y-AXIS: ";A(J)S JZ(I)M(I) "ANGLE WITH Z-AXIS: ";A(J)S I J0 M(1)0310  :+A(X)(X(XX1))1.5708J "ANALYSIS OF TWO VECTORS"cX(2),Y(2),Z(2),M(2)i#("VECTOR 1: X,Y,Z";2X(1),Y(1),Z(1)<"VECTOR 2: X,Y,Z";FX(2),Y(2),Z(2)PZI12dM(I)(X(I)2Y(I)2Z(I)2) nM(I)0   Z0 50' "RUNHELLO" W) "TRIG POLYNOMIAL"[ - ENTER NUMBER OF PAIRS OF TERMS AND COEFFICIENTS HERE("(ENTER ANGLE=99999 TO END PROGRAM)"2"ANGLE";<RFR99999180PNZI1NdA,BnZZA(IR)B(IR)xI"F(";R;")=";Z  REES" I  60 3 "NO SOLUTION"9 A &60R 0"RUNHELLO" A220$ "ENTER SIDE, SIDE, SIDE";8 S(1),S(2),S(3)d A(1)(S(2)2S(3)2S(1)2)2S(2)S(3)v A(1)B(A(1)) 220  I13 A(I)0520 "SIDE ";I;" = ";(S(I)1000.5)1000 "OPPOSITE ANGLE = ";(A(I)C1000.5)1000;" DEG A(3),A(2),X(3)" A(3)A(3)C2 A(2)A(2)CG A(1)PA(2)A(3)P "160p ,"ENTER SIDE, SIDE, ANGLE"; 6S(1),S(2),A(1) ;A(1)A(1)C @TS(2)(A(1)) JS(1)T520 TS(3)S(3)Y ^S(1)T380 hY(S(1)2T2) rS(3)S(3)Y | 440( "ENTER SIDE, ANGLE, SIDE";< S(3),A(1),S(2)L A(1)A(1)Cz S(1)(S(3)2S(2)22S(3)S(2)(A(1))) A(2)(A(1))S(1)S(2) - ARCSIN FUNCTION A(2)A(A(2)) A(3)PA(1)A(2) 440 "ENTER ANGLE, ANGLE, SIDE"; TYPE BY NUMBER"; FX% PX65602 ZX5390? dX4300L nX3260Y xX2190z "ENTER ANGLE, SIDE, ANGLE"; A(1),S(3),A(2) A(1)A(1)C A(2)A(2)C A(3)PA(1)A(2) S(1)S(3)(A(1))(A(3)) S(2)S(3)(A(2))(A(3))TA(X)(X(XX1))4B(X)A(X)1.5708>936Y "PARTS OF A TRIANGLE"_nA(3),S(3)~(P3.1415927-C.01745329272"PROBLEM TYPES:":"1. ASA":"2. SAS":"3. AAS":"4. SSA":"5. SSS":"6. END PROGRAM": <"ENTER PROBLEM       0,0,0 32767" ACH$(Y)ī5+ 255S*************";P d:"A","B","C"::"****************************************"t n"THE ANGLES ARE"::A1,B1,C1: x"THE SIDES ARE"::R(A),R(B),R(C): "AND THE AREA IS ";R(A2) 40  24,51,10  30,60,15  45,45,20 10999# : FIND THE THIRD ANGLE7 <C1180(A1B1)f D 70 AND 80 COMPUTE THE OTHER TWO SIDES} FBAT(B1)T(A1) PCBT(C1)T(B1) X COMPUTE AREA ZA2.5ABT(C1) b NOW PRINT THE RESULTS c"***************************-1707 WE COMPUTE THE COVERSION FACTORJ K3.14159180r DEFINE TRIG FUNCTION FOR DEGRESST(G)(GK) DEFINE A ROUNDING FUNCTIONR(X)(X100.5)100& A1 AND B1 ARE ANGLES AND A IS A SIDE(A1,B1,A 2A   I((A)C(B))2)D( "INTEGRAL = ";I. 6 50G "RUNHELLO"EI& "INTEGRATION: TRAPEZOIDAL RULE",;C(X)X3]("(ENTER 0,0 TO END PROGRAM)"2"INTEGRATION LIMITS (LOWER, UPPER)";<A,BFAB190P"NUMBER OF INTERVALS";ZNdI0nD(BA)NxJABDIIC(J)J I(  "T DISTRIBUTION TEST""/P(10,2)H(V(2),R(2),M(2),D(2)^2"TEST 1: MEAN=X"<"TEST 2: MEAN=MEAN,STANDARD DEVIATION=STANDARD DEVIATION"F"TEST 3: MEAN=MEAN,STANDARD DEVIATION<>STANDARD DEVIATION"P"WHICH HYPOTHESIS";ZT      T NHELLO" ) K29R4 L((1K)Z(13)1J)(KZ(23)J)q X.5(1L(.196854L(.115194L(.000344L.019527))))4 X(X10000.5)10000 290 LL(1.08L4R3 240 "T1310 ,X1X 6"RIGHT TAIL VALUE = "X @ J40 T  "T DISTRIBUTION"J"(TO END PROGRAM ENTER A T-VALUE OF 0)"Z("T-VALUE";a2Tn<T0340F"DEGREES OF FREEDOM";PDZX1dY1nTT2xT1170SYRDZT200SDRYZ1TJ29S    IJ 380 TYA(I,J)) ^ K1 R1D hA(I,K)A(I,K)YA(J,K)L r KT | I\  Jb p  I1 R "X";I;"=";(A(I,R1)10005)1000  I  I J J1 R* IJ RA A(I,J) 0 230I Ic "NO UNIQUE SOLUTION"m 440} K1 R1 XA(J,K) A(J,K)A(I,K) A(I,K)X  K Y1A(J,J) " K1 R1 ,A(J,K) YA(J,K) 6 K @ I1 R J% "SIMULTANEOUS EQUATIONS"+9 A(9,10)U("NUMBER OF EQUATIONS";]2 Rz<" COEFFICIENT MATRIX:"F J1 RP"EQUATION";JZ I1 R1d IR1 130n " COEFFICIENT";I;x 140" CONSTANT"; A(J,I)    (AIX1) I2(I2)280& CCY/ 2909 DDY@ "Ii ,"INTEGRAL IS ";X13(Y14C2DY2)z 6"RUNHELLO" J _VR(BA)X1! dVR(VR)80. nS1150P x"FIRST. LAST VALUE OF F(X)";[ Y1,Y2d 170q Y1C(A)~ Y2C(B) C0 D0 I1(BA)X1.5 S1240 "VALUE OF F(X) AT INTERVAL ";I;" (X=";AIX1;")"; Y 250 YC|$ "INTEGRATION: SIMPSON'S RULE"*`"SELECTION: 1=KNOWN FORMULA, 0=UNKNOWN FORMULA";g(S2 - DEFINE YOUR FUNCTION HERE IN THE FORM "FNC(X)='YOUR FUNCTION'"<"LOWER, UPPER LIMIT OF INTEGRAION";FA,BP"INCREMENT OF X";ZX1 A1200 &"RUNHELLO" 2OR","DERIV." X,F0,F1 B "ANOTHER VALUE (1=YES,0=NO)";I AV A1170| "ANOTHER FUNCTION (1=YES,0=NO)"; A A130 550 "100 ITERATIONS COMPLETED:" " X = ";X;" F(X) = ";F0 " CONTINUE (1=YES,0=NO)"; A "; X Q0 S1" F10+ F005 QQ1B I1N1S F0F0A(I)Sd F1F1B(I)Sn SSXu "I ,F10360 6SXF0F1 @XS380 JXS TQ100490 ^210 h"DERIVATIVE = 0 AT X = ";X r180 | " ROOT"," ERR* "REAL ROOTS OF POLYNOMIALS: NEWTON"0AA(11),B(11)M(I111X2A(I)0c<B(I)0jFIP"DEGREE OF EQUATION";ZNdI1N1n"COEFFICIENT A(";I1;")";xA(I)II110B(I)A(I1)II "GUESS   N HELLO" OF SIGN FOUND" 60 BX, D(2A1)A: "D(2A1)BN ,Y(D(1)D(3))2^ 6Y1(R(Y))l @Y10400z JD(2Y1)Y T(D(1)D(3))(D(1)(D(3)))5E6400 ^300 hA10390 rYB1 |400 YA1 "ROOT = ";Y  60 "RUE EQUAL!--" n60 xAB150N "--LOWER LIMIT MUST BE ENTERED FIRST!--"V 60f A1(R(A))v B1(C(B)) A1B10360 A1B10280 I11000 XA(2)(BA) X1(R(X)) X10400 A1X10270 I "NO CHANGE 3 "ROOTS OF POLYNOMIALS: HALF-INTERVAL SEARCH"9l - ENTER FUNCTION (DEFFNR(X)="FUNCTION") HEREv(D(3)2"(TO END SEARCH ENTER 0,0)"<"INTERVAL (LOWER,UPPER LIMIT)";FA,BPAB120ZA0430 d"--INTERVAL LIMITS CAN'T B     HIT RETURN TO CONTINUE";:X$:10000-;X0XM4@IJ:" *** DESIRED ACCURACY NOT ATTAINED ***"::"HIT RETURN TO CONTINUE";:X$:10000':10:"DO YOU WANT TO GO AGAIN ";:X$:(X$,1)"Y"1000'(X$,1)"N"10000$':NNTINUE";:X$::"ITERATION";20);"X-LEFT";32);"X-RIGHT"::I%1]XMXLFL(XRXL)(FRFL)oXXM:20:FMYFLFM0FRFM:XRXM"FLFM0FLFM:XLXM,5);I;16);XL;29);XR#6(XMX0)ACCĺ:" *** DESIRED ACCURACY ATTAINED ***"::":100009"WHAT IS THE MAXIMUM # OF ITERATIONS ";:MAX"HOW MANY DECIMAL PLACES IN YOUR ANSWER ";:N:N1N9ĺ:" *** BETWEEN 1 & 9 PLEASE !! ***"::4080I%18ACC.1NX0XLI1MAX@I%I%1:I%19Ģ24:"HIT RETURN TO CO"WHAT IS THE RIGHT HAND ENDPOINT ";:XRXLXR0ĺ:"*** ENDPOINTS IN THE WRONG ORDER !! ***"::"HIT RETURN TO CONTINUE";:X$:10000XXL:20:FLY:XXR:20:FRYFLFR0ĺ:" *** NO ROOT IN INTERVAL ***"::"HIT RETURN TO CONTINUE";:X$SITION METHOD, YOU":"MUST GIVE ME THE ENDPOINTS OF AN":"INTERVAL CONTAINING A ROOT, THE MAXIMUM":"# OF TIMES THE ALGORYTHYM IS ITERATED &""THE NUMBER OF DECIMAL PLACES YOU WANT":"IN THE ANSWER.":::"WHAT IS THE LEFT HAND ENDPOINT ";:XL*ES HALVED";18);"X-LEFT";28);"X-RIGHT"::I%1M XM(XRXL)2:XXM:20:FMYm! FLFM0XRXM:FRFM:3120" FLFM0XLXM:FLFM0 5);J;16);XL;28);XR: J::"*** DONE ***"::"HIT RETURN TO CONTINUE ";:X$:10000:" FOR THE FALSE POFRFL0ĺ:"THERE'S NOT AN ODD NUMBER OF ROOTS IN":"THE INTERVAL YOU GAVE ME.":"":"HIT RETURN TO CONTINUE ";:X$:10000 J1:I150:JJ2:BJSIG3090 I I50 I%18. J1I:I%I%1:I%19Ģ24:"HIT RETURN TO CONTINUE";:X$::"TIMXR:i "HOW MANY DECIMAL PLACES IN ANSWER ";:N:N1N9ĺ:"*** BETWEEN 1 AND 9 PLEASE ***"::3060v SIG.1N BXRXL:B0ĺ:"YOU GAVE ME THE ENDPOINTS WRONG !!":"HIT RETURN TO CONTINUE ";:X$:10000 XXL:20:FLY:XXR:20:FRY} ST GIVE":"ME THE ENDPOINTS OF AN INTERVAL THAT" "CONTAIN A ROOT. YOU ALSO MUST GIVE ME":"THE NUMBER OF DECIMAL PLACES YOU'D" "LIKE IN THE ANSWER." : "WHAT IS THE LEFT HAND ENDPOINT ";:XL: "WHAT IS THE RIGHT HAND ENDPOINT ";:;XN;23);FX" \(XNX0)ACC2200/ fX0XN:I p:" *** FAILED TO CONVERGE ***"::"HIT RETURN TO CONTINUE";:X$:10000 :" *** DESIRED ACCURACY ATTAINED ***"::"HIT RETURN TO CONTINUE ";:X$:100000 :" FOR INTERVAL HALVING, YOU MU ACC(.1)10 SIG10N.51 XX0:20:FXY; I%18H I1MAXT I%I%1 I%19Ģ24:"HIT RETURN TO CONTINUE";:X$::"ITERATION";16);"X";30);"F(X)"::I%1 *XX0.001:20:FDY 4XNX0FX(FDFX).001 >XXN:20:FXY R5);I;11)> "NUMBER OF DECIMAL PLACES YOU WANT IN ":"THE ANWER."::f "GIVE ME AN INITIAL GUESS ";:X0: "GIVE ME A MAXIMUM # OF ITERATIONS ";:MAX: "GIVE ME THE # OF DECIMAL PLACES ";:N:N1N9ĺ:" *** BETWEEN 1 AND 9 PLEASE ! ***"::2050G" =' B" 3. FALSE POSITION"K L::"WHICH ";:X:X1X31060a VX2000,3000,4000 :" NEWTON-RAPHSON REQUIRES THAT YOU":"GIVE ME AN INITIAL GUESS AT THE " "ROOT, A MAXIMUM NUMBER OF TIMES TO":"ITERATE THE ALGORYTHYM, AND THE "=F(X) "d :"WHERE F IS AN APPROPRIATE FUNCTION":"OF X. AFTER ENTERING YOUR FUNCTION," "TYPE:"::" RUN ":: " $:4:"SELECT METHOD TO BE USED:": ) ." 1. NEWTON-RAPHSON" 3 8" 2. INTERVAL HALVIN  1000Y(X)3X N:4:5);"***** ROOT FINDING DEMO *****"8:"CURRENT FUNCTION:"::20:::"DO YOU WANT A DIFFERENT FUNCTION ";:X$(X$,1)"N"1060(X$,1)"Y"1000 :"TYPE YOUR FUNCTION AS IN THIS EX:"::"20 Y          :5003200+& FRED L. MORING:& 2321 LEES& WACO, TEXAS 76711n' JULY 24, 1979ALOPE = "::500G 3200(H "RISE = "1M 200:N BBATR I((H2)(BB2)):BIme "BASE= ":BI::500p HSSI:BH:"SLOPE="::500u 3200 "SLOPE =" 200 HA IHSS::BI:"BASE =":500 BB((H2)(I2)):BBB "RISE=":IHm "AT SAME BEVEL":"IF YOU KNOW BASE HIT (1)":"IF YOU KNOW RISE HIT (2)":"IF YOU KNOW SLOPE HIT (3) t M M13300 M23400 M33500 TTBBI:"BASE=" 200 IA BBTTI:BBB "RISE="::500 HSSI:BH "SSIXTEENTHS)":"IF NONE HIT (0)":*! 2002& IAH0 BB((H2)(I2))Q2 BBBb5 "RISE = ":k: 500}? "BEVEL = ":A TTBBIB SSHID JTT12N K(J)X L((JK)16).5] M(L)b "INCHES = ";Kl "SIXTEENTHS = ";M::v CC"::500 2200 ' "SLOPE ="0 2008 SAZ BBSSS::"BASE= ":BBB:500{ RTTBB::BR:"RISE= ":500 2200  "ENTER SLOPE(FEET, INCHES, SIXTEENTHS)":"IF NONE ENTER (0)": 200 HA! "ENTER BASE(FEET, INCHES, M12300M22400%M325004"BASE = "= 200F BBAV RTTBB:BRl "RISE = "::500|# SSSBB:BS$ "SLOPE ="::500_ 2200` "RISE = "e 200f RA} BBRTT:BBB:"BASE= "::500 SBBCC BS "SLOPE= YTTRBBZSSSBB$[CCBBS0\JTT12;fK(J)OpL((JK)16).5ZuM(L)mz"INCHES = ";K"SIXTEENTHS = ";M::"AT SAME BEVEL":"IF YOU KNOW BASE HIT (1)":"IF YOU KNOW RISE HIT (2)":"IF YOU KNOW SLOPE HIT (3) M 12001200X"ENTER SLOPE(FEET, INCHES, SIXTEENTHS)":"IF NONE ENTER (0)":a200iSA4"ENTER RISE(FEET, INCHES, SIXTEENTHS)":"IF NONE HIT (0)":9200>RAHBB((S2)(R2)):BBBM"BASE= ":R500W"BEVEL :":BBSSD:BBB" <"SLOPE ="::500, w1200; x"RISE = "D }200L ~EAm DETT:BD:"BASE = "::500 BBSSD:BBB:"SLOPE="::500 1200 "SLOPE =" 200 BBA DBBSS::BD:"BASE=":500 ETTD::BE:"RISE =":500 "SIXTEENTHS = ";M::~ "AT SAME BEVEL":"IF YOU KNOW BASE HIT (1)":"IF YOU KNOW RISE HIT (2)":"IF YOU KNOW SLOPE HIT (3) M M11300 M21400 M31500 TTED:"BASE = " 200 DA 1ETTD:BE 2"RISE = "::500 ; RISE(FEET, INCHES, SIXTEENTHS)":"IF NONE ENTER (0)":@ Q200H VEAc `BB((D2)(E2)):BBBt e"SLOPE :":} j500 o"BEVEL : ": qTTED rSSBBD sCCED tJTT12 ~K(J) L((JK)16).5 M(L) "INCHES = ";K 2) AA(C192) # U(B)2 V(BU)12= W(V)Q X((VW)16).5\ Y(X)m "FEET = ";U &"INCHES = ";W 0"SIXTEENTHS = ";Y :: "ENTER BASE (FEET, INCHES, SIXTEENTHS)":"IF NONE ENTER (0)": 200 DA7 L"ENTER@ <"TO FIND BASE WHEN SLOPE AND RISE":"ARE KNOWN HIT (2)": F"TO FIND RISE WHEN SLOPE AND BASE":"ARE KNOWN HIT (3)":: PA ZA11000 dA22000 nA33000 "FEET = ";A "INCHES = ";B "SIXTEENTHS = ";C  AA(B1o  FRED L. MORING4 2321 LEE STREET N WACO, TEXAS 76711b :::::::t"PROGRAM:":"RIGHT TRIANGLE SOLUTIONS"("************************"::::::: 2"TO FIND SLOPE WHEN BASE AND RISE":"ARE KNOWN HIT (1)":     ...8 r PROGRAM CLASSIFIED - PUBLIC DOMAIN -> | "Ā  CONTROL C X2 ":"JOB DONE."::8 'K , BY ED HANLEYY 6 BOX 437r @ CARTHAGE, TN 37030x J T 'QUADRATIC SURFACE' ^ h THIS PROGRAM GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS BY AUTHOR: ED HANLEY" X "," Y ","F(X,Y)"/ "---","---","------"? YYSYFSYf FAB1XB2YB3X2B4Y2B5XY ROUND F TO 2 PLACES F(F100.5)100 X,Y,F II1 I21ĺ"(HIT ANY KEY.)":T$:I0 T$""Ā: 'CONTROL C' Y A$:A$"B4 n"B5";:B5 s? x GET LIMITS ON X,Y ACROSS SURFACEi "X DIRECTION (E-W): FROM,TO";:XS,XFz "STEP";:SX "Y DIRECTION (N-S): FROM, TO ";:YS,YF "STEP";:SY CALCULATE VALUES, 1 E-W ROW AT A TIME XXSXFSX I0 ? s"THIS PROGRAM WILL GIVE POINT VALUES":"AT REGULAR INTERVALS OVER A QUADRATIC":"SURFACE, DEFINED BY:"(:"F(X,Y)=A+B1X+B2Y+B3X^2+B4Y^2+B5XY"2 GET VARIABLES7:<"A";:AF"B1";:B1P"B2";:B2Z"B3";:B3 d"B4";:  x"MORE DATA (1=YES,0=NO)";# X/ X120@ "RUNHELLO" LB% "ROOTS OF QUADRATIC EQUATIONS"+F"COEFFICIENTS A,B,C";Q(A,B,Ca2SB24ACo<R((S))|FS0100P"ROOTS (REAL): ";(BR)(2A);", ";(BR)(2A)Z110d"ROOTS (COMPLEX): ";B(2A);" + OR - ";R(2A);" I"n    "-" : A BX138 L"-"; V# `"-") / H  DISPLAY COMMENTARYN  "THIS PROGRAM WILL TAKE ANY INTEGER AND CALCULATE ITS PRIME FACTORS. "  SUBHEADING ((40(ARG$))2) ARG$  X138  "-"; &  0 S0170D - PRINT FACTORS WITH EXPONENTS; I^S = I TO THE S POWERQ I;"^";SX I^ v - RESTART PROGRAM~ 40   SCREEN HEADING   BELL$(7): BELL SOUND BELL$ ((40(ARG$))2) $ .ARG$ 8 A FACTOR F(Z)? O - USE ABSOLUTE VALUE FOR CALCULATIONSJ PZ(Z) Y - LOOP TO TEST ALL INTEGERS (2 THRU Z) AS PRIME FACTORS ZI2Z dS0 n(ZI)(ZI)150 xZZI SS1 110 - FIND A PRIME FACTOR? IF YES, PRINT , ARG$"PRIME FACTORS OF INTEGERS":1000W ARG$"ADAM OSBORNE & ASSOCIATES":3000]g2000"(ENTER 0 TO END PROGRAM)"#((7): BELL-"ENTER NUMBER:";Z; - END PROGRAM<Z0200 E - THE SIGN OF THE NUMBER IS ALWAYSLLO" N" "PRIME FACTORS OF INTEGERS"(H"(ENTER 0 TO END PROGRAM)"V("NUMBER"]2Zj<Z0200tF(Z)PZ(Z)ZI2ZdS0nZI(ZI)150xZZISS1110S0170I;"^";SI40 "RUNHE"YES"İ2000, "DO YOU WANT TO CONTINUE?"4 A$C A$"Y"ī8I O V 3c X1190r YAO(XA)~ Y190Y Y1ī2090 X,Y X *E11000:E / X;XA:"INTERCEPT M = ";AD/ z"R-SQUARED = ";RS; |Y0:X0A }n ~"Y=A*(X^B), TO FIGURE Y, ENTER IN X ";X} YAO(XA) "Y = ";Y:"X = ";X:"SLOPE = ";A:"INTERSEPT = ";A0 "DO YOU WANT THE GRAPHED RESULTS?" B$ B$"Y"İ2000 B$Y)(2) P I8 dA ((EEXY(EXEYN))(SX(EX2N)))L nYAEYN:XAEXN_ pAO (YAAXA)u uZA(EEEXEYN)2 vZB(SX(EX2)N) wZC(SY(EY2)N) xRS((ZA)((ZB)(ZC))) y"SLOPE =";A:"Y-AVERAGE = ";YA:"X-AVERAGE = ";XA:"INTERCEPT = "SSXYO:N0. A0:B0:YA0:XA0:RS0:AO0:N0W ("ENTER IN NUMBER OF PAIRS OF X AND"o )"Y COORDINATES ";Nz *I1N 2"ENTER IN X,Y FOR POINT ";I 3X,Y 4Y(Y):X(X) FEXEXX:EYEYY:EEXYEEXY(XY):SXSX(X2):SYSY(Y2):SSXYSSXY(Xʼ::::::::::68);"POWER CURVE FIT"Q8);"BY T.D. MOTELES"o8);"AND NEIL D. LIPSON":8);"COPYRIGHT 10,9,78"8);"ALL RIGHTS RESERVED":X11300:X DONATED PUBLIC DOMAIN :: EX0:EY0:EEXY0:SX0:SY0:    ) 169,0,160,0,32,113,248,141,42,3,96G I784 794:J:I,J: IM5XKXY0 I1 D114YYB(I)X(I1)< IG 3010P KXVt"ERASE LAST PLOT?";: Z$ Z$"NO" 4700 0 4002\787,XX:785,YY:784 (810)13 CC1 D1784:D2785:D3787:D4810:D5127 13 YPYY1% XXX1C XXXXSCALE:YYYPYSCALE P YY39YYk XX 39 XX0 3090 YY39 YY0 3090 4800 CC1 3075 XX,YY CC0 3100 "OFF SCALE !"  D11KXX1 X2 X3  I C(1)1C(1) 660 - I2 D2BB(I1)B(I)B(2)J IXB(D22)Y`R0p I1 D22  JI D22RR1 C(R)C(R)B(I)B(J)* J4 I>S1S1B(2)HS2S2B(2)2RS3S3Y\S4S4YYfS5S5B(2)YBPS L J#VT(D21)(D22)23` I1 D21?jTT1IOtC(T)1C(T)_~ J1 D2InPD21IJPP(D21(P1)2)IRPJS0UIJ1VP K1 JVVUKSSC(RK)C(V) KC(P)SC(R) JOUGH POINTS"P1:W1*D2D219 J1 D2JC(P)(C(P))\ I1 D2J1sC(PI)C(PI)C(P){ IRPISR L1 D2JPP1 M1 D22JLC(RM1)C(RM1)C(P)C(PM1)$ M.RRM18 L2# "FINISHED WITH GRAPH";: Z$9  Z$ "YES" 750D  4000O  4500Y  620_ v "COEFFIECIENTS ="|   I1 D11 "B(";I1;")=";B(I)  I  "R SQUARE = ";R1T0   600   ND2 930 "NOT EN11 B(I)0!  J1 D1I2? R(IJ1)(D22.5(IJ))Y B(I)B(I)C(TJ)C(R)a  Jv TI(D2(3I)2)~  I R10  I2 D11 MZI(D2(3I)2) R1R1C(MZ )2  I MX(D21)(D22)2 T0C(MX) T0T0C(D21)S3N;"STD DEV=";S9* 0"CORR. COEFF.=";R9K :"ENTER 1 TO CONTINUE";: Z$a X N (D2W) 620z ]"NOT ENOUGH POINTS" b l"ENTER DEG REGRESSION"; v D1  D1D2W 650 "MAX DEG =";D2W  620  W0 900 T0  I1 D POINTS"  410!  QQ 1 N= "ENTER X,Y POINT #";QQJ  B(2),YU XB(2)`  3000k  2000t  QQ S8((S2S12N)(N1)) S9((S4S32N)(N1)) R9(S5S1S3N)(N1)S8S9 "X: MEAN=";S1N;"STD DEV=";S8 &"Y: MEAN=";"ENTER X MIN, X MAX";% X1,X2 @ "ENTER Y MIN, Y MAX";L Y1,Y2b DXX2X1:DYY2Y1 XSCALE39DX:YSCALE39DY X3DX50 14 0,3939: 0,390 "ENTER NUMBER OF POINTS";  N  ND2 460 "NOT ENOUGHO  C(253),B(22) 5000- I1 22?C(I)0:B(I)0G( IX2 I23 253c<C(I)0kF IvPB(1)1ZW0:N0:S10:S20:S30:S40:S50_"INPUT 1 TO PLOT";` K3d"MAX DEGREE=";n D2x D220 100 K31 410   :"HIT RETURN WHEN FINISHED"% ; "X=";X$:X$""ıG X(X$)O Y0] IN11p YA(I,N1)XYw I 998:15:"Y="Y 3010DL4:5000:922:::LCNTLCNTDLLCNT22ıA$:LCNT1:DA(MI,J):A(MI,J)A(K,J):A(K,J)SWAP)J9JN1K1RA(K,J)A(K,J)A(K,K)YJnI1N:IK1058~JN1K1A(I,J)A(I,J)A(I,K)A(K,J) J"I$K.:M$"?";:A$:A$A$"Y"F1:A$"N"F0:2000VALUES IN "A" FOR+ COEFF'S AND TOTALS,F GOSUB 1000, AND FINDc UNKNOWN XI IN A(I,N+1)nK1N}FIND ROW MA0IKNAI(A(I,K)):AI(MA)MAAI:MIIIDO ROW PIVOT--ROWS K&MIMIK1040 J1N1" SWAPRINT"Q$"2) DO ANOTHER POLYFIT, OR"Q$0 "RUN"DD$"CLOSE TEMP"WD$"EXEC TEMP"]uGAUSS ELIMINATION.SOLVES N EQUATIONS IN N UNKNOWNS.EQUATION I (1<=I<=N): A(I,1)X1 + A(I,2)X2 + ...A(I,N)XN = A(I,N+1)PUT M$"DO YOU WANT TO DO ANOTHER FIT":2000:F14 K D$"NOMON C,I,O":` D$"DELETE TEMP"s D$"OPEN TEMP" D$"WRITE TEMP" "LOAD GRAPH/2" "60 "C$ "90 P$="Q$"POLYFIT"Q$ "210 "F$:"520 "F$ "610 PRINT"Q$;F$;Q$%"806 PED BASIC FORM IT IS:" :F$0 ILAST0480K DL4((C$)40):5000x :"THE VALUES OF THE COEFFICIENTS ARE:" :C$ DL1:5000:M$"DO YOU WANT TO CALCULATE POINTS":2000:Fİ3000 M$"DO YOU WANT TO PLOT THE FUNCTION":2000:F500. dz#XIJ ҠӠ ԠΠ ԠΠԠ ̠Š ŠӠ ŠӠ Ǡ̠ ҠӠ àŠԠŠҠ ԠҠ ӠƠ٠Ơ ӠƠӠ ΧӠŠ ӠӠ  ҠΠԠԠ  ̠Π  ҠŠԠéŠӠɠŠӠɠ à  ̠ΠȠҠΠ ҠӠ ԠΠΠɠΠΠɠ ΠΠ  ȭӠˠ Ӡ ؠΠɠ ؠΠؠΠŠΠɠҠɠŠҠΠ  ͠ ҠΠҠǠҠΠ Π٠ՠԠȠ̠ɠȠ٠̠  ̠ΠҠϠ ̠ΠƠΠΠŠɠ àΠàΠԠΠҠ  ɠŠΠ ɠŠԠ ŠΠŠԠҠΠŠԠ"ӮЮîϠʠ "ŠΠ"ϠϠàɠ !ƠΠ!̠Π ٠6)332(I10)İ4000::4303 (36)0İ4000:430G A(I,N1)0442V FTĺ" +";s " A";:922:I1;:998 I1ĺ" X"; I2Č998:I1;:922 FT1 II1 420 DL3:5000 922:: DL4((F$)40):5000 "IN NESTC$""C$C$":"& rC$C$A$"="(A)- |I: F$F$P$@ K LCNT0 "IN EXPANDED ALGEBRAIC FORM,":"THE POLYNOMIAL IS:"  ILAST2ĭA(1,N1)A(2,N1)0ĺ ILAST0ĺ"Y=0"::460 "Y ="; FT0 I1 IILAST450 (3=":C$"":P$"" @ILAST0% BI1N> DA(I,N1)0ILASTIE FI` HILAST0F$"Y=0":400o JI1ILAST TI1F$F$"X*" ^AA(I,N1) `A0380 hI1IILASTF$F$"(":P$P$")" jA$"A"(I1) lF$F$A$ nIILASTF$F$"+" p  "D$(4):Q$(34): "# OF POINTS = ";NF N110TA(N,N1)ZedI1Nwn"POINT # "I;p14:"X=";Xr998:28:"Y=";YxPWR1J1NA(I,J)PWRPWRPWRXJA(I,N1)YI1000 6F$"Y     ST J060$ X(S)J830. "+";= KSTP1P X(K)X(S)810X SKa 840h *Kq 4840{ >"*"; HJ R"X"; \ fI p30);"Y" z"RUNHELLO" 40 X(TL1)A X(TL)C% L, &J: 0I18730C :L1K DS0X NK0P1j XX(TK)L690w bLX(TK) lL30660 vL30670 S1670 30);"*"; S1 L60860 L);"+"; K S1860 30);"*"; 8600320 6P @I036$ JTTP, TP09 ^TN370I hY(T)I420W rI18400f |30);"*";o 860y SN1 740 LTN Y(L)Y(T)460 PP1 L P1560 J1P L1PJ CX(TL1) AX(TL) CA05NCTION OF D)- X(I)(((F(D)Z1)30).5)O Y(I)(((F(D)Z1)18).5)V Ia J1Nn I1NJy AX(I) BY(I) BY(I1)260 X(I)X(I1) Y(I)Y(I1) X(I1)A Y(I1)B I J T1 "P0N1 ,Y(P1) "PLOT OF POLAR EQUATION"%6X(91),Y(90)?(N90c2"ABSOLUTE VALUE OF ENDPOINTS";j<ZpFP"INCREMENT OF X-AXIS = ";Z30Z"INCREMENT OF Y-AXIS = ";Z18dnI1NxD.06981317I - ENTER FUNCTION HERE (F AS A FU    40 "RUNHELLO" A! "POISSON DISTRIBUTION"#C"(TO END PROGRAM ENTER 0)"`("CALCULATED FREQUENCY";g2Lt<L0180F"TEST FREQUENCY";PXZA1dI1XnAAIxIA(A)A(LX(L)A) "PROBABILITY OF "X" OCCURRENCES = "A   IT ON A BENCH IF THERE IS ONLY ROOM FOR 2 AT A TIME?"A G M ^ SUBHEADINGd z ((40(ARG$))2) ARG$  X138  "-"; & 0 "-" : ATIONS OF N OB- JECTS TAKEN D AT A TIME."/ ? "EXAMPLE:"E  " 1) HOW MANY PERMUTATIONS AND COMBINA- TIONS CAN BE MADE OF THE 26 LETTERS OF THE ALPHABET, TAKING 5 AT A TIME?"; " 2) HOW MANY DIFFERENT WAYS CAN 12 PEOPLE SEN HEADING  2 BELL$(7): BELL SOUND= BELL$S ((40(ARG$))2)Y $c .ARG$i 8u BX138 L"-"; V `"-"    DISPLAY COMMENTARY ) "THIS PROGRAM COMPUTES THE NUMBER OF PERMUTATIONS AND COMBINAMORE THAN 9.9E32 PERMUTATIONS"( 2802 PPI9 Iq - COMPUTE INTERMEDIATE FACTORIAL FOR COMPUTATIONS| J2D CCJ J P;" PERMUTATIONS" PC;" COMBINATIONS"   - RESTART PROGRAM 40    SCRER SIZE OF SUBGROUP:";DQ Y SIZE OF SUBGROUP CANNOT BE LARGER THAN SIZE OF GROUP_ ZDN130z d"SUBGROUP TOO LARGE" n x40 P1 C1 IND1N - DON'T ALLOW NUMBER SIZE TO OVERFLOW MACHINE CAPACITY 9.9E32IP190 ". ARG$"PERMUTATIONS & COMBINATIONS":1000T ARG$"OSBORNE & ASSOCIATES":3000t2000: PROGRAM DESCRIPTIONz"(ENTER 0 TO END PROGRAM)"#("ENTER TOTAL NUMBER OF OBJECTS:";N; - TEST FOR END OF PROGRAM<N0280 F"ENTE7IP1904 "MORE THAN 9.9 * 10^37 PERMUTATIONS"= 280G PPIN IY J2Dc CCJj J P;" PERMUTATIONS" PC;" COMBINATIONS"  40 "RUNHELLO" & "PERMUTATIONS AND COMBINATIONS",L"(ENTER 0 TO END PROGRAM)"l("TOTAL NUMBER OF OBJECTS";s2N<N0280F"SIZE OF SUBGROUP";PDZDN130d"SUBGROUP TOO LARGE"nx40P1C1IND1N 9.9E3v Q(X)X2&<X3.93.92ZY039CxYQ(X)210L"";SY]"*";dXo32767uU BY R! ZXR11 dCCX$ nX/ xN,R,C7 }:? 14E NI$;" BASE ";BI%;" = ";NO$;" BASE ";BO% : 380 X"BASE NOT IN RANGE" b"OF 2 TO 16" 360 ' BASE CONVERSION ROUTINE t' CONVERT TO DECIMAL 'L%(NROUPS":" 4. PUSH RETURN"C :" TO STOP ENTER O,O "P ::N,R] N0150 ::"NUMBER SIZE COMBINATIONS" : NO150 C1 ( 30 TO 50 FIND NPR 2XNNR11 <CCX FX P 60 TO 80 DIVIDE F5 THIS PROGRAM PREPARED BY W MCKAY 2/8/78V " THIS PROGRAM IS TO: " :"CALCULATE NUMBERS OF COMBINATIONS"" ::"AFTER THE PROMPT (?) ENTER:":" 1. THE NUMBER OF THINGS":" 2. COMMA":" 3. THE NUMBER OF G    N = "(J)7 "STANDARD ERROR OF ESTIMATE = "((ZI))= l "INTERPOLATION: (ENTER 0 TO END PROGRAM)"{ PR(1,D2) "X = ";X X0790 J1D PPR(J1,D2)XJ J "Y = "P  690 "RUNHELLO" REE COEFFICIENT = ";R(J1,D2)% J+ 3 P0@ &J2D1d 0PPR(J,D2)(T(J)A(J)T(1)N)k :J DQT(D2)T(1)2N NZQP XIND1 bJPK l vJPQ "COEFFICIENT OF DETERMINATION (R^2) = "J "COEFFICIENT OF CORRELATIOII)R(K,I) ^R(K,I)S hI, rZ1R(J,J)9 |I1D2M R(J,I)ZR(J,I)T Ia K1D1n KJ470| ZR(K,J) I1D2 R(K,I)R(K,I)ZR(J,I) I K J  " CONSTANT = ";R(1,D2) J1D J;" DEGT(K)YX(K1)& T(K)T(K)YX(K1)- KC T(D2)T(D2)Y2J IW J1D1d K1D1x R(J,K)A(JK1) K J J1D1 KJD1 R(K,J)0320 "K ,"NO UNIQUE SOLUTION" 6790 @I1D2 JSR(J,I) TR(J, "NTH-ORDER REGRESSION"#:A(13),R(7,8),T(8)U("DEGREE OF EQUATION";\2D{<"NUMBER OF KNOWN POINTS";FNPA(1)NZI1Nd"X,Y OF POINT ";I;nX,YxJ22D1A(J)A(J)X(J1)JK1D1 R(K,D2) OX99999290 X(XM)S" X:A R((X2)2)2.5066282746V "FREQUENCY = "R^ ZXv T1(1.33267(X)) T.5(R(.4361836T(.1201676(T2)).937298(T3))) Z0260 T1T "PROBABILITY = "T  150 ""RUNHELLO" "NORMAL DISTRIBUTION""E"(0=STANDARD,1=NON-STANDARD)"d("WHICH TYPE OF VARIABLE";k2Sx<S0120F"MEAN";PMZ"STANDARD DEVIATION ";dSn130xS1"(TO END PROGRAM ENTER X=99999)""X = ";X 2)X J* "DEPENDENT VARIABLE = "P0 9 710J *"RUNHELLO"ETERMINATION (R^2) = ";IK "COEFFICIENT OF MULTIPLE CORRELATION = ";(I)x "STANDARD ERROR OF ESTIMATE ";((ZL))~  "INTERPOLATION: (ENTER 0 TO END PROGRAM)" PA(1,V2) J1V "VARIABLE ";J; X X0810 PPA(J1,VN COEFFICIENTS:"/ " CONSTANT:";A(1,VV)< I2V1\ "VARIABLE("I1"):"A(I,V2)c &Ik 0P0x :I2V1 DPPA(I,V2)(S(I)T(I)S(1)N) NI XRS(V2)S(1)2N bZRP lLNV1 vIPV  IPR "COEFFICIENT OF DLUTION" J810 TK1V2* ^BA(I,K)< hA(I,K)A(J,K)I rA(J,K)BP |K_ Z1A(I,I)l K1V2 A(I,K)ZA(I,K) K J1V1 JI490 ZA(J,I) K1V2 A(J,K)A(J,K)ZA(I,K) K J I  "EQUATIOENDENT VARIABLE"; X(V2)* K1V17 L1V2S A(K,L)A(K,L)X(K)X(L)e S(K)A(K,V2)l Ls K S(V2)S(V2)X(V2)2 I I2V1 T(I)A(1,I) I I1V1 "JIV1 ,A(J,I)0340 6J @"NO UNIQUE SOK# "MULTIPLE LINEAR REGRESSION")EX(9),S(9),T(9),A(9,19)d("NUMBER OF KNOWN POINTS";k2N<"NUMBER OF INDEPENDENT VARIABLES";FVPX(1)1ZI1Nd"POINT ";InJ1Vx" VARIABLE ";J;X(J1)J " DEP     ,(V10000.5)10000,((V)10000.5)100001 TO ^"MORE DATA(1=YES,0=NO)";V hSb rS120s |"RUNHELLO" UENCY ";I; A,B RRBA) PPB7 MMBA2> IH RRP^ V(MPR2)(PS)g 310r I1N "ITEM ";I; D PPD MMD2 I "RPN ,V(MNR2)(NS) 6 @"MEAN","VAR","ST DEV"+ J(R10000.5)10000u+ "MEAN, VARIANCE, STANDARD DEVIATION"1^"WHICH METHOD (0=POPULATION,1=SAMPLE)";e(S2"KIND OF DATA (0=GROUPED,1=UNGROUPED)";<KF"NUMBER OF OBSERVATIONS";PNZR0dM0nP0xK1230I1N "ITEM, FREQ2350 TB(J,I)B(J,I)% ^D3380> hA(J,I)B(J,I);" ";G r390[ |A(J,I)S;" ";b Ih o Ju  "MORE DATA? (1=YES,0=NO)"; D D170 "RUNHELLO" X (R,C)"; R,C K12* K2180; "MATRIX 1:"D 190U "MATRIX 2:"` J1Rn "ROW ";Jy I1C "VALUE COLUMN ";I; K2260 A(J,I) 270 B(J,I) I J "D3310 ,K 6J1R @I1C JDϻ< "MATRIX ADDITION, SUBTRACTION, SCALAR MULTIPLICATION"BUA(3,3),B(3,3)g("1-ADDITION"|2"2-SUBTRACTION"<"3-SCALAR MULTIPLICATION"F"WHICH OPERATION";PDZD3120d"VALUE OF SCALAR";nS x"DIMENSION OF MATRIB(K,J) TK ^S;" ";! hJ' r. |I? "RUNHELLO"1R1 "ROW ";J I1C15 "VALUE COLUMN";I;A A(J,I)H IO JU f "MATRIX 2:"r J1R2 "ROW ";J I1C2 "VALUE COLUMN ";I; B(J,I) I J  "I1R1 ,J1C2 6S0 @K1C1 JSSA(I,K)@ "MATRIX MULTPLICATION"#:A(10,10),B(10,10)^("DIMENSION OF MATRIX 1 (R,C)";i2R1,C1<"DIMENSION OF MATRIX 2 (R,C)";FR2,C2PC1R2110Z"CANNOT BE MULTIPLIED; OTHER DIMENSION NECESSARY"d40n"MATRIX 1:" xJ   rK1R$ |A(L,K)A(L,K)TA(J,K)? B(L,K)B(L,K)TB(J,K)F KM LT JZ e I1Rp J1R (B(I,J)1000.5)1000;" "; J  I "RUNHELLO"N I "SINGULAR MATRIX"% 5000 K1R= SA(J,K)O A(J,K)A(I,K)\ A(I,K)Si SB(J,K){ B(J,K)B(I,K) B(I,K)S K "T1A(J,J) ,K1R 6A(J,K)TA(J,K) @B(J,K)TB(J,K) JK TL1R ^LJ410 hYA(L,J)  "MATRIX INVERSION " 7A(10,10),B(10,10)S("DIMENSION OF MATRIX";Z2Rr<"MATRIX ELEMENTS:"}FJ1RP"ROW ";JZI1Rd"VALUE COLUMN ";I;nA(J,I)xIB(J,J)1JJ1RIJRA(I,J)0210   :I1RA:J1RA:" ";(A(I,J)100.5)100;:::_::"HIT RETURN TO CONTINUE ";:X$:1012:18);::"SMILE"::24:X1RA:J1RA:(J1)81);((C(I,J)),7);::::"THE INVERSE OF A":I1RA:J1RA:(J1)81);((A(I,JRA)),7);:::::"HIT RETURN TO SEE THEIR PRODUCT"I1RA:J1RA:S0:T1RA:SSA(I,RAT)C(T,J)::A(I,J)S::X$:34EBB.00001ĺ:"NON-INVERTIBLE MATRIX. HIT RETURN. ";:X$:10yTA(I,I):KI12RA:A(I,K)A(I,K)T::A(I,I)1K1RA:KI450TA(K,I):A(K,I)0:LI12RA:A(K,L)A(K,L)TA(I,L):KK11000::"MATRIX A"2I)81);((A(IX,JX)),7);::::x::"INVERSE OF A":IX1RA:JXRA12RA:(JX1RA)81);((A(IX,JX)),7);:::BB(A(I,I)):IBI:RAI428KI1RA:(A(K,I))BBBB(A(K,I)):IBK:IIBāKI2RA:TA(I,K):A(I,K)A(IB,K):A(IB,K)T:OR A !!":X11000::10"TRA{CATĢ12:"A MUST HAVE THE SAME NUMBER OF ROWS":"AND COLUMNS !":X11000::10I1RA:J1RA:C(I,J)A(I,J)::I1RA:JRA12RA:A(I,J)IJRA:: I1RA::"MATRIX A":IX1RA:JX1RA:(JX1CA:(J1)81);((A(I,J)),7);::::mt"MATRIX B":I1RB:J1CB:(J1)81);((B(I,J)),7);::::v"PRODUCT MATRIX":I1RA:J1CB:(J1)81);((C(I,J)),7);::::x"HIT RETURN TO CONTINUE";:X$:10RA0Ģ12:"INPUT A MATRIX F(JX1)81);((B(IX,JX)),7);::) D:A J:"PRODUCT MATRIX"^ TIX1I:TCB:IIXTJ1k UT0345 VJX1T:(JX1)81);((C(IX,JX)),7);: Y: ^S0:T1CA:SA(I,T)B(T,J)S::C(I,J)S h:T1D:::(r:"MATRIX A":I1RA:J1MNS IN A MUST EQUAL THE":"NUMBER OF ROWS IN B.":X11000::10V 1I1RA:J1CBh 5:"MATRIX A"u 6IX1RA 8IXIĞ :JX1CA:(JX1)81);((A(IX,JX)),7);:JX <::IX =:"MATRIX B" >IX1RB @JX1CB:" ";:JXJĞ! B:"IS LIMITED TO A 5 BY 5. ENTER TEH":"INFORMATION AS PROMPTED."s :"HOW MANY ROWS IN B ";:RB:RB1RB5210 :"HOW MANY COLUMNS IN B ";:CB:CB1CA5220 RRB:CCB SA0:SB1 150 10 ,D2000B .CARBĢ12:"NUMBER OF COLULUMNS IN A ";:CA:CA1CA5120. yRRA:CCA< zSA1:SB0E }150M 10X J1Ca :4w 10);"COLUMN ";J} I1R:5);"ROW ";I;13);:X SA1A(I,J)X SB1B(I,J)X : B " FOR DISPLAY PURPOSES, THE SIZE OF B":10);"WHICH NUMBER ";:X+ #X1X5301 %L (X100,200,300,400,500 d" FOR DISPLAY PURPOSES, THE SIZE OF A":"IS LIMITED TO A 5 BY 5. ENTER THE":"INFORMATION AS PROMPTED." n:"HOW MANY ROWS IN A ";:RA:RA1RA5110 x:"HOW MANY CO A(5,10),C(5,5),B(5,5)? ::4:12);"M A T R I C E S"b8:10);"1. ENTER A MATRIX A"10);"2. ENTER A MATRIX B"10);"3. COMPUTE THE MATRIX PRODUCT":13);"OF A AND B"10);"4. COMPUTE THE INVERSE OF A"10);"5. STOP"     * *2 ' * PAUL BRAUN *N ' * & *j ' * GEOFFREY GENZ * ' * * ' * AGES 15 & 14 *' * *' *********************:"THE CORRECT ANSWER IS ";X&1680?"?WRONG KEY ERROR"EKn' ' *********************' * *' * MATH *' * *' * BY *'6R$@R$"E"1650'JR$"M"16608TR$"H"1670B^1760Lh1580ZrW4:1680h|W9:1680wW49:1680X(W(1))1:Y(W(1))1XY;" / ";Y;" ="AAAAXİ690AAXī1680AAXİ620"SORRY, THAT IS WRONG"(1)):R(P(1))$Q;" X ";R;" ="+S;SQRİ690KSQR1480\SQRİ620"SORRY, THAT IS WRONG ":"THE CORRECT ANSWER IS ";QR::1480","WOULD YOU LIKE EASY,MEDIUM,":"OR HARD PROBLEMS(E,M,OR H)"WRONG.":"THE CORRECT ANSWER IS ";JK/P::5Z;d}n"WOULD YOU LIKE EASY, MEDIUM,":"OR HARD PROBLEMS(E,M,OR H)"xO$:O$"E"1450O$"M"1460O$"H"147017601390P5:1480P10:1480P50:1480Q(PER IS ";NO::1120&L6LONİ690FLON1120WLONİ620s "SORRY, THAT IS WRONG""THE CORRECT ANSWER IS ";ON1120("SORRY, THAT IS WRONG ":"THE CORRECT ANSWER IS ";KJ2::<%F"SORRY, THAT IS B1350LM10I10 V940@`N(100(1)):O(100(1))ZjNOĺN;" - ";O;" ="jtNOī1170~ONĺO;" - ";N;" ="ONī1250LLNOİ690LNOī1120LNOİ620"SORRY, THAT IS WRONG" "THE CORRECT ANSWM10K(I(1))%J(I(1))IKJĺK;" - ";J;" =":KJ980nKJĺJ;" - ";K;" =":KJ1050uLLKJİ690LKJ940LKJİ6201320M10I10940L$LJKİ690.LJK9408LJKİ620G G H H T"04)" R R III GGGG H H T"@ A1750:AF*L4R>H"WOULD YOU LIKE EASY, MEDIUM, OR HARD":"PROBLEMS?(E,M,OR H)RI$\I$"E"910fI$"M"920pI$"H"1120z1760840I10:930I75:940769,75:770:A1100:A:768,175:769,85:770PA1100:A:768,160:769,255wA1100:A:768,155:769,255:770}:(12):5)"RRRR III GGGG H H TTTTT"4)" R R I G H H T"4)" RRRR I G G HHHH T" 4)" R R I II1:I75ı630R"SORRY, YOUR WRONG":"THE CORRECT ANSWER IS ";CDZ:c550768,200:769,85:770:A1100:A:768,200:769,65:770A125:A:768,200:769,50:770:A1100:A:768,175:769,85:770.A1100:A:768,200:B$"E"İ510B$"M"İ520.B$"H"İ53081760A440OB10:550]B75:550lB300:550sB&C(B(1)):D(B(1))0C;" + ";D;" =":EDECDİ690NECDİ550XECDİ620b660lI1vSOUND(16336)O ADD,":"SUBTRACT, MULTIPLY, OR DIVIDE?":"(A,S,M,OR D)"A TB$Q ^B$"A"430a hB$"S"830r rB$"M"1380 |B$"D"1570 1760 330 1760 330  "WOULD YOU LIKE EASY, MEDIUM, OR":"HARD PROBLEMS? (E,M,OR H)" B$ "::"DIFFICULTY, HIT 'RESET' THEN RUN MATH"::"OR WHICH EVER PROGRAM THAT YOU LIKE.":::"HIT 'RETURN' TO CONTINUE"~ H$  "5)"HELLO, I'M THE APPLE]"(91)" COMPUTER." ,32,4 65)"WHAT IS YOUR NAME?":A$ @9 JA$" WOULD YOU LIKE T?":G$:G$"N"280 "YOU WILL PICK THE OPERATION THAT YOU"::"WOULD LIKE, THEN PICK THE LEVEL OF"::"DIFFICULTY THAT YOU WANT. YOU DON'T"::"NEED TO HIT 'RETURN' FOR ANY OF"::"THESE THINGS. TO CHANGE"v :"TO ANOTHER OPERATION OR LEVEL OF0,185,50,0,100,215,50,210,5 0,0,100,235,100 C -1,-1V I,J:J1180m I0āA1J::140 768,I:769,J:770 140 A11000:A 16)"APPLE]";(91):17)"MATH" 34,4 ::: "WOULD YOU LIKE INSTRUCTIONS]]]] "(91);(91);(91);(91)H F::::" M M A TTTTT H H"k P" MM MM A A T H H" Z" M M M A A T HHHH" d" M M AAAAA T H H" n" M M A A T H H"8 x 165,50,160,50,0,100,190, 5  :O(7):" A PPPP PPPP L EEEEE ]]]] "(91);(91);(91);(91)~" A A P P P P L E ] "(91)(" A A PPPP PPPP L EEEE ] "(91)2" AAAAA P P L E ] "(91) <" A A P P LLLL EEEEE        ENZ *" ' * & *= ' * PAUL BRAUN *X ' * *t ' * AGES 14 & 15 *' * *' ******************** K:I'"TOTAL NUMBER RIGHT, "TT".":J' e' ********************' * *' * MULTIPLICATION *' * *' * BY *' * * ' * GEOFFREY G15,2114:16,2016:16,2019:17,1815:17,1821:PW PRINTOUT CORRECT TABLE}\16368,0:::" ";:I110:" "I;:I:f:I110:I;:4pJ110z(J1J2I1I2I10J10)A(I,J)0A(I,J)1A(I,J)0TTTT1A(I,J)" ";J:21:15,1816:18,2119:T*4:16,1915:16,1918:16,1921:18,2119:15,2116:44:16,1915:15,1719:18,18:19,2117:>4:16,1915:16,1918:16,1921:15,2116:15,2119:H4:16,1915:16,1918:16,1921:15,1816:15,2119:3R4:0,450,460,470,480'A13000:A:120K4:15,2118:17,16:17,1921:4:16,1915:16,1918:16,1921:15,1819:18,2116: 4:16,1915:16,1918:16,1921:15,2119:4:15,1816:15,2119:16,1918: 4:16,1915:16,1918:16,19:A:A2327:0:0,39A:A.ZZ1:Z2ī7107490R PRINT CORRECT ANSWER~::23)"^":"THE CORRECT ANSWER IS !"D%A%B%10:D%0740D%760,770,780,790,800,810,820,830,840,850E%(A%B%)(10D%):1E%380,390,400,410,420,430,44:23,265:6,27:23,2678v9,1225:23,279:23,2712d14,1723:14,1727:23,2714:23,271719,2223:19,2227:23,2719:23,272224,2723:24,2725:23,2724:23,252729,3223:29,3225:29,3227:23,2529:25,2732A110006,1927:21,2427:23,2721MD29,335:29,318:5,829:5,831:7,32:8,33N10,1229:10,1233:29,3311:14,1729:14,1733:29,3314:31,3317:16,31X29,3319:29,3322:19,2231:24,2829:29,3326bI11000:I:130l1:23,263:4,27ANSWER$K(16384):K27128860216368,0l2:25,2710:25,2714:10,1426:11,24:12,23:13,24A(A%,B%)A(A%,B%)1A%1B%1A(A%,B%)A(A%,B%)1&A%10B%10A(A%,B%)A(A%,B%)10A%2B%2A(A%,B%)A(A%,B%)1:23,2716:12122:B4:21,2415:21,2418:21,2421:15,2121:15,2124:}4:21,2415:21,2418:21,2421:15,1821:15,2124:4:15,2121:15,2123:15,2125:23,2515:23,2521:C%:C%A%B%620 ASK FOR ANSWER THEN CHECK FOR WRONG 18,2121:<4:21,2415:21,2418:21,2421:15,2124:c4:15,1821:15,2124:21,2418:4:21,2415:21,2418:21,2421:15,1821:18,2124:4:21,2415:21,2418:21,2421:18,2124:15,2121:4:21,2415:15,1724:23,18:19,113:Ah4:10,1315:10,1318:10,1321:15,1810:15,2113:{r4:15,219:15,2111:15,2113:11,1315:11,1321:|4:22,2315:22,2321:16,2021:16,2024:4:15,2123:22,16:22,2421: 4:21,2415:21,2418:21,2421:15,1824:4:15,1810:15,2113:10,1318' 6b @4:10,1315:10,1318:10,1321:15,1810:18,2113: J4:10,1315:10,1318:10,1321:15,2110:18,2113: T4:10,1315:15,1713:12,18:19,2111:^4:10,1315:10,1318:10,1321:15,2110:15,28,19:19,16:19,20* 27,3017:27,30193 490d 4:11,1215:11,1221:16,2010:16,2013: 4:15,2112:11,16:11,1321  4:10,1315:15,1813:10,1318:18,2110:10,1321: 4:10,1315:10,1318:10,1321:15,2113 "! ,27128860 16368,05 CHECK IF USED ALREADYJ A(A%,B%)2130R Z0` NUMBERS A%1240,250,270,280,300,320,330,340,350,360,370 B%1380,390,400,410,420,430,440,450,460,470,480 4:15,16:15,20:16,17:16,19:17,18:18,17:1(ONCE FOR 1'S, 2'S, AND 10'S), IT WILL NOT SHOW UP AGAIN. TO EXIT THE PROGRAM PRESS ESCAPE."~ P24:"PRESS ESC TO BEGIN."; ZK(16384):K27128110 d90 n16368,0 x } CREATE PROBLEM A%10(1)1:B%10(1)1 (16384)S ON THE SCREEN AND HE WILL ANSWER THEM THROUGH THE KEYBOARD." <:"BE SURE TO PRESS "(91)"RETURN] AFTER EVERY ANSWER."^ F:"AFTER TWO MISSES, THE ANSWER WILL BE SHOWN ON THE SCREEN. AFTER A PROBLEM HAS BEEN SUCCESFULLY COMPLETED TWICE  INITIALIZE  A(10,10)-::255A16)"APPLE ]["[(13)"MULTIPLICATION"n- INSTRUCTIONS@ 2::"THIS IS A PROGRAM DESIGNED TO HELP YOUNGSTUDENTS TO LEARN THE MULTIPLICATION TABLES. THE COMPUTER WILL GIVE THE STUDENT PROBLEM     DECENT""---WOW---WOW---"="YOU SHOULD BE A TEACHER"Q"UNBELIEVABLE"h(# FLAGING DATAx-#"TERRIFIC"'A$"TERRIFIC"Į':N ""SUPER"'$"YOUR GETTING GOOD":."GROOVY WORK"K8"EXCELLENT"`B"YOU'RE MOVING"kL"WOW"V"YOU'RE THE BEST"`"YOU'RE REALLY TRUCKING"j"SUPERIOR"t"YOU'RE INTELLIGENT"~"YOU GOT LUCKY""GEE, THAT WAS GOOD""17:X,26:X:X2326:X,26:X>u14,27:15,27:25,27:26,27Pz14,28:26,28d TIME LOOPyT15000:T::  COMPLIMENT DATA"THAT WAS GREAT""FANTASTIC""FAR OUT""THAT'S GREATX1921:X,Y:X:Y4HY1415:X1822:X,Y:X:YJMX1129:X,16:X`RX1228:X,17:XvWX1327:X,18:X\X1525:X,19:XaY2021:X1624:X,Y:X:YfY2224:X1525:X,Y:X:YkX1418:X,25:X:X2226:X,25:XpX14UARE $%X832:X,7:X@*Y830:X83224:X,Y:X:YU/X832:X,31:Xi3 TIME LOOPz4T15000:T9:"BUT SO WE WON'T MESS UP THE SCREEN":"I WILL DO IT FOR YOU"< - - - STAR - - ->K:20,10:20,11CY1213:HT GREEN":K12:790+B$"PINK":K11:790W"YOU DIDN'T GET ENOUGH RIGHT TO GET A"p"STAR, SORRY ! ! !" TIME LOOPT15000:T: S T A R - - -"YOU CAN COLOR IN A ";B$;" STAR" :7!"# PLOTTING SQST TRY"P1PN100.P190ĭP100710EP180ĭP190720\P170ĭP180730sP160ĭP170740P150ĭP160750760 STAR COLORSB$"WHITE":K15:790B$"AQUA":K14:790B$"YELLOW":K13:790B$"LIGA$:T11000:T) CLEAR SCREEN:T125::TIX:700:1] REPRIMAND"THAT WAS NOT QUITE RIGHT, TRY IT AGAIN": END OF SET, PRINTING STAR"YOU GOT ";PN100;"% OF ";N;" PROBLEMS""RIGHT ON THE FIR" -";B:440/" -";BI" --------"`" ";Qy ANSWER CORRECTQABPP1:500:420P0PO1 FIND COMPLIMENTA$:10000 PRINT COMPLIMENT TIME LOOP SUBTRACTION!6X1N:PP1:OPP FINDING NUMBERSlA(H(1)):B(H(1)) 1ST# - 2ND# = +#AB410:"WHAT IS ";AB10ĭA99ĺ" -";B:440B100ĭA99435B10ĭA9435 ANSWER CORRECT.hQABPP1:500:320>jP0PO1Xl FIND COMPLIMENTgmA$:10000p PRINT COMPLIMENTq TIME LOOPrA$:T11000:T{ CLEAR SCREEN|T125::TX:700:1 STARTING OF 1ST# HAVE MORE-C DIGITS THAN 2ND#ED THEN GOTO 335nEB10ĭA99ĺ" +";B:340FB100ĭA99ī335GB10ĭA9335J" +";B:340O" +";BT" --------"^" ";Qg @( @aFCGE"(37"2E#,06" 1eIqa2 !25PZSRPXRRQeXp `0Q0*Qb8p`FAFD@#/- D!--6,(/"-1gt ` @XPRRPQbp`@BAFD03/-0DY--6,8.")1"p`DAEE4// 0+**1ta AY PRTPRZ!bpCDEqB +#5E6 s"$)apaRRXZ!br8ZӹPPZbwbp `CDABD16G07.(`---"" ";B2:" ";QK ANSWER CORRECTgABQPP1:500:220wP0PO1 FIND COMPLIMENT A$:10000  PRINT COMPLIMENT  TIME LOOPA$:T11000:T CLEAR SCREEN ON#X1N:PP1:OP= FINDING NUMBERSYA(H(1)):B(H(1))q 1ST# < 2ND# ?~AB210 DIVIDE BY 0B0210 1ST#/2ND# = INTEGERAB(AB)210:"WHAT IS ";A" ----T ? QABPP1:500:120/ P0PO1I FIND COMPLIMENTX A$:10000s PRINT COMPLIMENT TIME LOOP A$:T11000:T SCREEN CLEAR T125::T X:700:1 STARTING OF DIVISIE { DIGITS THAN 2ND# ?5 | THEN GOTO135^ }B10ĭA99ĺ" X";B:140t ~B100ĭA99ī135 B10ĭA9ī135 " X";B:140 " X";B " -------" " ";Q ANSWER CORREC d e STARTING OF4 f MULTIPLICATION: g@ hU iX1N:PP1:OPo m FINDING NUMBERS nA(H(1)):B(H(1)) pC99115 qAC:120 r 1ST# < 2ND# ? sAB110 x:"WHAT IS ";A z DOES 1ST# HAVE MOR4 @ THEN IT GOES TO 904 A(W2)(W4)090G E DECISIONm F"DO YOU WANT ANY CERTAIN # ?";A$ J DECISION CHECK KA$"N"ĭA$"O"90 O DECISION P"WHAT IS THAT # ?";C Y BRANCH TO PROBLEMS ZW100,200,300,400 ' DECISION. ("HOW MANY PROBLEMS?";NG , DECISION CHECKS -N140f 1 DECISION 2"HIGHEST NUMBER OF DIGITS YOU CAN DO," 3"EX.(1,2,OR 3)?";U:H10U 6 DECISION CHECK 7U150 <U190 ? IF DECISION IS 2 OR  *** CREATED BY ***> *** DANIEL R CARRIKER ***DUT125::ThP0:Z0:C99:n *** DECISION *** "MULT.=1,DIV.=2,ADD.=3,SUB.=4?";W SEEING IF DECISION WAS A LEGAL ONEW410W110     XXR vII1 RR1" 330E U1N(1)N(2)N(1)(N(1)1)2Xh U2N(1)N(2)N(2)(N(2)1)2Yn  "FIRST SAMPLE PRECEEDING, U = "U1 "SECOND SAMPLE PRECEEDING, U = "U2 "RUNHELLO" I1 JJ1 IN(1)4803 X(I)X(I1)480= II1F 510V JN(2)550l Y(J)Y(J1)550v JJ1 R1R1R RR1 KK1 440 &XX(IM)R1K 0YY(JL)R1K :330 DJN(2)660 NYYR XJJ1 b640 l Y(K1)C K J! . I2270< J1N(1)J X(J)Y(J)Q JX I` R1h "I0p ,J0z 6II1 @JJ1 JIN(1)580 TJN(2)480 ^X(I)Y(J)620 hY(J)X(I)590 rK2 |MI LJ R12R1 RR2 I "MANN-WHITNEY U-TEST""3X(25),Y(25)=(N(2)H2I12[<"SAMPLE "I":"jF" SIZE ";tPN(I)ZJ1N(I)d" DATA "J;nY(J)xJJ1N(I)K1N(I)JCY(K)DY(K1)Y(K)Y(K1)200 Y(K)Y(K1)    @"INTERPOLATION: (ENTER X=0 TO END PROGRAM)"< J"X = ";XI ^X0390[ h"Y = ";ABXa rj |330{ "RUNHELLO" )BJ)N / "F(X) = ";A;" + (";B;" * X)"B JB(R2JKN)P MMK2NZ KMJ` k R2JM "COEFFICIENT OF DETERMINATION (R^2) = ";R2 ""COEFFICIENT OF CORRELATION = "(R2) ,"STANDARD ERROR OF ESTIMATE = "((K(N2))) 6. } "LINEAR REGRESSION" ?"NUMBER OF KNOWN POINTS";F(NN2J0V<K0^FL0fPM0oZR20zdI1Nn"X,Y OF POINT ";I;xX,YJJXKKYLLX2MMY2R2R2XYIB(NR2KJ)(NLJ2) A(K (J)0 960 I2C1- A(I,J)19504 IH B(J)A(I,VC1)O J` ZA(1,VC1)f  "FUNCTION = ";Z(1) I1V "X(";I;")=";B(I) I  M1880 B(R)0 ZA(P,R)% I1VC19 A(P,I)A(P,I)Z@ IM I1C2Z IP820g ZA(I,R)v J1VC1 A(I,J)A(I,J)ZA(P,J) *J 4I >440 H"INFEASIBLE" R1030 \"UNBOUNDED" f1030 pJ1V zB(J)0920 B70 M1880% A(M,P).0001840- &M16 0440> :P1K DI2C1^ NA(I,R)0640v XZA(I,CV1)A(I,R) bP1630 lZA(P,CV1)A(P,R)640 vPI I P1860 I1VC B(I)1690 A(P,I)1700 I B(I)1 I1V TB(I)1 ^I$ hI2C1< rA(I,VI1)1430K |B(VI1)1X J1CVu A(C2,J)A(C2,J)A(I,J)| J MC2 I P1 R1 I2CV A(M,I)A(M,P)490 PI A(M,I)A(M,R)510 RI I A(M,R)05 (1 OR -1)"; A(I,V1). " CONSTANT ";< A(I,V2)T A(I,CV1)A(I,V2)c A(I,V2)0p I2240 A(I,VI1)A(I,V1) A(I,V1)0 I "FUNCTION:" I1V " COEFFICIENT ";I; "A(1,I) ,I 6 @M1 J "LINEAR PROGRAMMING"!5A(10,14),B(13)Q("NUMBER OF VARIABLES";X2Vv<"NUMBER OF CONSTRAINTS";}FCP"MATRIX ELEMENTS:"ZI2C1d"CONSTRAINT ";I1nJ1Vx" COEFFICIENT ";J;A(I,J)J " RELATION(1=YES, 0=NO)"; Z ( Z170F "NEW LINE (1=YES,0=NO)";M ZY Z120j "RUNHELLO" Ol "LINEAR INTERPOLATION"#>"X,Y OF FIRST POINT";I(X1,Y1e2"X,Y OF SECOND POINT";p<X2,Y2F"INTERPOLATE: X= ";PXZYY1(Y2Y1)(X2X1)(XX1)d" Y= ";(Y1000.5)1000n x"MORE POINTS ON THIS LINE   ,10 NOM 0 TO";F9) M"1 STAR=";F966;"UNITS."/ T: ^I1NI cTX(I)F9Y hI;4);"!";m mJ0(T660.5)w r"*";~ wJ | I 24 42,29,36 30,27,33 29,21,23 24,20,20 25,11,15 14,12,10 18,10,11 17,08F }F0150" F999999150+ 200< *DATA ERRORX "ERROR IN DATA ITEM";I "FREQUENCY OF";F;"IS OUT OF BOUNDS (0-999999)" FF9250 270 F9F X(I)F I ,**SCALING FOR WIDTH: /F10 @ J"SCALED FR '**PRODUCES HISTOGRAMS (SIDEWAYS)3 X(100)Q**READ NUMBER OF SCORES:XNdN150r#N10050{(1002"ONLY 1 TO 100 SCORES, PLEASE"<"RE-EXAMINE DATA STATEMENTS"Fd**FIND MAXIMUM FOR SCALING:nF90xI1N z   "THE GREATEST COMMON DENOMINATOR OF"::X" AND "Y" IS ";::" "B" ";::"."~ ::"THAT'S HOW EUCLID'S ALGORITHM WORKS!!!"A IF A > = B"% Z" THEN A=A-B"? d" ELSE B=B-A"N n" GCD=B"Y "END" ::"PRESS SPACE BAR TO CONTINUE";:A$ :5 "X= ";X "Y= ";Y 15 AX:BY ABAAB:195 BBA "A="A" B="B A0180L  1/5/80 DENNIS WARD2 STEMS FROM APPLE K VOL 3 ISSUE 4 PG 7\ APRIL,1980::9:10::"EUCLID'S ALGORITHM"::12"GCD = GREATEST COMMON DENOMINATOR":("GCD OF (X,Y):"2" A=X"<" B=Y"F" WHILE A>0" P" (K(N2))) J? T"INTERPOLATION (ENTER 0 TO END PROGRAM)"M ^"X = ";XZ rX0410n |"Y = "(A)XBt } 350 " CATALOG" J2KJ)(NLJ2) A(KBJ)N& C "F(X) = ";(A);" * X^"BV JB(R2JKN)d MMK2Nn KMJt  "R2JM ,"COEFFICIENT OF DETERMINATION (R^2) = ";R2 6"COEFFICIENT OF CORRELATION = "(R2) @"STANDARD ERROR OF ESTIMATE = "( "GEOMETRIC REGRESSION"#B"NUMBER OF KNOWN POINTS";I(NQ2J0Y<K0aFL0iPM0rZR20}dI1Nn"X,Y OF POINT ";I;xX,YY(Y)X(X)JJXKKYLLX2MMY2R2R2XYI B(NR))2)))! "GEOMETRIC MEAN = "M@ "GEOMETRIC DEVIATION = "RF N 40_ "RUNHELLO" a% "GEOMETRIC MEAN AND DEVIATION"+X"(TO END PROGRAM ENTER 0 OBSERVATIONS)"w("NUMBER OF OBSERVATIONS";~2N<N0200FP1NPM1ZI1Nd"ITEM "I;nDxMMDPQQ(D)2I R((Q(N1)(N(N1)((M   J  RRPS% TT2S, IA "INTEGRAL = ";RG i "CHANGE DATA AND RECOMPUTE?" "(0=NO,1=NEW INTEGRATION LIMITS, 2=NEW NO. OF INTERVALS)"; "S ,S180 6S2100 @"RUNHELLO" S91223443A F .062672048,.96397183,.04060143,.9931286,.017614007j P"INTEGRATION LIMITS (LOWER,UPPER)";s ZX,Y d"NUMBER OF INTERVALS"; nN xS(YX)N2 TXS R0 I1N P0 J110 A,B PPB(C(SAT)C(TSA))) "INTEGRATION: GAUSSIAN QUADRATURE"/a - ENTER FUNCTION HEE (DEFFNC(X)="FUNCTION")( .076526521,.15275339,.22778585,.14917299,.373706092 .14209611,.510867,.13168864,.6305368,.11819453 < .74633191,.10193012,.83911697,.083276742,.   310 ,X1X& 6"PERCENTILE = ";1X@ @"TAIL-END VALUE = "XF EN J40_ T"RUNHELLO"1 200 SD2 TD1% Z1F1 J29S= K29Tg Y((1K)Z(13)1J)(KZ(23)J)t T4270 X.5(1Y(.196854Y(.115194Y(.000344Y.019527))))4 X(X10000.5)10000 290 YY(1.08Y4T3) 240 "F1a "F-DISTRIBUTION"K"(TO END PROGRAM ENTER AN F-VALUE OF 0)"[("F-VALUE";b2Fo<F0340F"DEGREES OF FREEDOM IN NUMERATOR";PD1Z"DEGREES OF FREEDOM IN DENOMINATOR";dD2nX1xF1170SD1TD2 ZF))) J8 T"INTERPOLATION: (ENTER 0 TO END PROGRAM)"F ^"X = ";XS rX0410k |"Y = ";(A)(BX)q z 350 " CATALOG" @LJ2) A(KBJ)N , "A = "(A)9 "B = "BL JB(R2JKN)Z MMK2Nd KMJj u "R2JM ,"COEFFICIENT OF DETERMINATION (R^2) = ";R2 6"COEFFICIENT OF CORRELATION = ";(R2) @"STANDARD ERROR OF ESTIMATE = ";((K(N2 "EXPONENTIL REGRESSION"$C"NUMBER OF KNOWN POINTS";J(NR2J0Z<K0bFL0jPM0sZR20~dI1Nn"X,Y OF POINT ";I;xX,YY(Y)JJXKKYLLX2MMY2R2R2XYI B(NR2KJ)(NE'S METHOD"45);"6. QUARTIC RUNGE-KUTTA METHOD"G5);"7. STOP"Mm"WHICH ";:X:X1X71045z$X7700)XXX,X5490.200LVING ";N:?:5:"DIFFERENTIAL EQUATION SOLVER DEMO"g::"CURRENT FUNCTION :":20:::5);"1. CHANGE FUNCTION"5);"2. EULER'S METHOD"5);"3. EXTENDED EULER'S METHOD"5);"4. MODIFIED EULER'S METHOD" 5);"5. MILNTIMES YOU"/"WANT THE INTERVAL HALVED."::u"WHAT IS THE X-COORDINATE OF THE INITIAL":"CONDITION ";:X1:"WHAT IS THE Y-COORDINATE OF THE INITIAL":"CONDITION ";:Y1:"AT WHAT DO YOU WANT THE FUNCTION ";:B :"HOW MANY HAE FUNCTION IS":"REQUIRED FOR MILNE'S METHOD, THE MOD-":"IFIED EULER'S METHOD WILL BE USE TO" "START THIS ALGORYTHYM. I WILL ASK YOU":"THE INITIAL CONDITION AND THE VALUE":"AT WHICH YOU WOULD TO KNOW THE FUNCTION.";:"I WILL ALSO ASK YOU HOW MANY N XXO:YYO J1M:203 XX1,2,3,4,5,6@ XXOJWG JY 8);M;28);Yl WW2:M2M:I :" HIT RETURN TO CONTINUE";:X$:1000 :10:"**** OPTION NOT AVAILABLE ****":I11000:I:1000^:" SINCE FOUR VALUES OF THAT WHICH YOU WANT THE":"VALUE OF THE FUNCTION ";:Y1T :"HOW MANY HALVING ";:N` :20: "INITIAL CONDITION : Y ( ";XO;" ) = ";YO::: 5);"DIVISIONS";28);"Y ( ";Y1;" )" 5);"---------";28);"-----------": M1:WY1XO I1 ALSO"W "ASK YOU FOR THE MAXIMUM NUMBER OF TIMES":"YOU WANT THE INTERVAL HALVED. " :"WHAT IS THE X-COORDINATE OF THE INITIAL":"CONDITION ";:XO :"WHAT IS THE Y-COORDINATE OF THE INITIAL":"CONDITION ";:YO5 :"WHAT IS THE POINT ,Y) IS AN APPROPRIATE RIGHT-"| n"HAND SIDE OF A DIFFERENTIAL EQUATION ":"IN THE FORM OF :"::" Y' = F ( X , Y ) ": p :" I WILL ASK YOU FOR THE INITIAL CON-":"DITION AND THE POINT AT WHICH YOU WANT":"THE VALUE OF THE FUNCTION. I WILLWA XAW:YBK3:20:K4YPRIMEW:YB(K12(K2K3)K4)6:XA:N YPRIMEYT w d:" CURRENT FUNCTION : ":20 i::" TO CHANGE THE DIFFERENTIAL EQUATION,":"TYPE :" k:"20 YPRIME = F( X,Y ) ":"RUN " m:"WHERE F(X 1000YYYPRIMEW:oAY:BX:XX.001:YY.001:CYPRIME:20:YACWWW2((YPRIMEC).001):XB:AY:BX:CYPRIME:2:XXW:20:YAW2(CYPRIME):XB: K1WYPRIME:AX:BY:XAW2:YK12B:20:K2YPRIMEW:YBK22:20:K3YPRIME     A$(F);":"::"B = ";B(F)::"M = ";M(F)::"CORR. COEFF. = ";C(F)::1300:60h A$(5);A$(F);" FIT":XL0:YL0:XY0:XS0:YS0:X0:Y0:NM14008936:"DATA NOT ENTERED: START AGAIN.":Q0 pFL884'rYB(F)(M(F)X):890AtX(YB(F))M(F):890MzFL894b|:"Y = ";Y:900r~:"X = ";X:"(RETURN)=MORE, (O)=OPTIONS ?";:Q$:Q$"O"60:810:" (PRESS ANY KEY TO CONTINUE)";:Q$:936:SEČ936N:X:819 .:"INPUT TEST Y ?";Y73F820,840,860,880C4FL830\6YB(F)(M(F)X):890u>X(YB(F))M(F):890HFL850JYB(F)(X(M(F))):890RX(YB(F))(1(M(F))):890\FL870^YB(F)((M(F)(X))):890fX((YB(F))M(F)):89G 936:"USE THIS ROUTINE AFTER COMPUTATION."::"AVAILABLE FITS:":p"Q14::C(Q)0ĺ"(";Q;") ";;A$(Q)$Q::" WHICH ?";F&F4800'C(F)0800(:"X TO Y (X), OR Y TO X (Y) ?";Q$:FL(Q$"Y")*FL814,:"INPUT TEST X ?";::" WHICH DATA PAIR ?";N`:"DATA ";N;" PRESENTLY:"::"X = ";X(N)::"Y = ";Y(N)::"INPUT NEW DATA:"::ID756"X = ?";X(N):760"X = ";N:"Y = ?";Y(N):" (RETURN)=MORE, (O)=OPTIONS ?";:Q$:Q$"O"60750606\CC(Q):PFQ&^Q:FPF:2000f936:" (RETURN) = LIST, (E) = EDIT ?";:Q$:Q$"E"750tN1NM:"N=";N:"X=";X(N):"Y=";Y(N):(37)19708N:1300:60:" (RETURN)=MORE, (O)=OPTIONS ?";:Q$:Q$"O"60936:706!(X2)))))B(4)((YNM)(M(4)(XNM)))`C(4)(XY((1NM)XY))2:C(4)C(4)(XS((X2)NM))~C(4)C(4)(YS((Y2)NM))SEı2000&3000:519X936:"BEST FIT SEARCH":ZSE1:F1:200:F2:300:F3:400:F4:500:C0:Q14:C(Q)C(3)(XS((1NM)(X2)))9C(3)C(3)(YS((1NM)(Y2)))CSEıM2000\3000:419n4000:N1NMY(N)0550XLX(N):YL(Y(N))XXXL:YYYL:XYXY(XLYL)XSXS(XL2):YSYS(YL2):NM(4)((XY((1NM)XY))(XS((1NM)2000^3000:317%4000:N1NM6X(N)0450MXL(X(N)):YLY(N)mXXXL:YYYL:XYXY(XLYL)XSXS(XL2):YSYS(YL2):NM(3)((XY((1NM)XY))(XS((1NM)(X2))))B(3)(1NM)(Y(M(3)X))C(3)(XY((1NM)XY))2:C(3)CL(X(N)):YL(Y(N))4 4XXXL:YYYL:XYXY(XLYL)R 6XSXS(XL2):YSYS(YL2) 8N:M(2)XY(XYNM):M(2)M(2)(XS((X2)NM)) :B(2)((YNM)(M(2)XNM)) <C(2)(XY(XYNM))2:C(2)C(2)(XS((X2)NM)):C(2)C(2)(YS((Y2)NM)) =SEı>)2):YSYS(Y(N)2)= N:M(1)(XY(XYNM))(XS((X2)NM))[ B(1)(YNM)(M(1)(XNM))v C(1)(XY((XY)NM))2 C(1)C(1)(XS((X2)NM)) C(1)C(1)(YS((Y2)NM)) SEı 2000 ,4000:N1NM /X(N)0350 0Y(N)0350 2X:"ENTER 'E' AT END OF DATA"::"N = ";N::ID106O g"X = ?";Q$:Q$"E"120c hX(N)(Q$):110x jX(N)N:"X = ";N n:"Y = ?";Q$:Q$"E"120 sY(N)(Q$):N xNMN1:60 4000:N1NM XXX(N):YYY(N):XYXY(X(N)Y(N)) XSXS(X(N(4)::"(5) FIND BEST FIT"z P:"(6) LIST AND EDIT DATA"::"(7) ENTER DATA TABLE "::"(8) TEST FIT"::" WHICH ?";F ZSE0:F200,300,400,500,600,700,100,800 d936:"DATA ENTRY MODE:"::"SHALL X = INDEX (Y/N) ?";Q$3 fID(Q$"Y")::N1100: X,Y DATA <*>"::"FOUR FITS AVAILABLE:": 2A$(1);": Y=B+MX"::A$(2);": Y=BX^M"::A$(3);": Y=B+M LN X"::A$(4);": Y=B EXP(MX)": 71300 <936:"OPTIONS:"::"(1) ";A$(7);A$(1)::"(2) ";A$(7);A$(2) F:"(3) ";A$(7);A$(3)::"(4) ";A$(7);A$ CURFIT REV. A8X(100):Y(100):A$(10):Q$(1)NB(4):M(4):C(4)A$(1)"LINEAR":A$(2)"POWER":A$(3)"LOGARITHMIC":A$(4)"EXPONENTIAL" A$(5)"DATA UNSUITED TO ":A$(6)"DATA ERROR":A$(7)"COMPUTE "* (936:"<*> MULTIPLE REGRESSION ON      "DERIVATIVE"6 - ENTER DEFFNC(X) HERE\("(ENTER X=99999 TO END PROGRAM)"w2"DERIVATIVE AT X=";X1FX199999160PD.0001" IS ";(C(X1D)C(X1))D50"RUNHELLO" IS ";2DD150))(X(J)X(I)) I$ BBTY(J)+ JF " Y = ";BL w "MORE X ON THIS CURVE (1=YES, 0=NO)";~ C C1100 "MORE X ON ANOTHER CURVE (1=YES, 0=NO)"; C "C120 ,"RUNHELLO"S" "CURVILINEAR INTERPOLATION"3X(50),Y(50)9X("NUMBER OF KNOWN POINTS";_2Pj<I1PF"X,Y OF POINT";I;PX(I),Y(I)ZIdn"INTERPOLATE: X = ";xAB0J1PT1I1PIJ190 TT(AX(I"."RUNHELLO" 60 HZ);"+"; RZY(TJ)$ \J2 fZ01040A pZB21040O zZ);"+";Y 1040c STLo J0B2 Y(S)J1010 "+"; KSTP1 Y(K)Y(S)990 SK 1020 K 1020 "*"; J "Y";  I$"X1730 J1P L1PJ- DY(TL1): BY(TL)H DB710W Y(TL1)Bd Y(TL)Dk Lr J L0P1 ZY(TL) Z0770 L I0910 Z0800 "*"; LP1870 *JLP1 4ZB21040 >Y(TJ)Z81)A Y(I1)B I J' T14 P0N1F X(P1)0490M Pg I0((A2A1)A3.5)q TTPy P0 TN540 X(T)I590 I0570 &"*"; 01040 :SN1 D920 NLTN XX(L)X(T)630 bPP1 lL vP(I)((Y(I)B1)B3.5) I3 Y(N1)(B2.5)1Q X(N1)((A2A1)A3.5)1W " ,"INTERSECTION OF AXES AT (";A1;",";B1;")" 6 @J1N JI1NJ TAX(I) ^BY(I) hCX(I1) rDY(I1) |AC430 X(I)C Y(I)D X(Iȫ60* x"NUMBER OF POINTS TO BE PLOTTED";1 N? N01070N N99180e "TOO MANY POINTS"n 120y I1N I1220 "COORDINATES OF POINT ";I; 230 " POINT ";I; X(I),Y(I) X(I)((X(I)A1)A3.5) Y "COORDINATE PLOT"1X(100),Y(100)j("X-AXIS: LEFT ENDPOINT, RIGHT ENDPOINT, INCREMENT";x2A1,A2,A3<"Y-AXIS: LOWER ENDPOINT, UPPER ENDPOINT, INCREMENT";FB1,B2,B3PB2(B2B1)B3ZB240120d"Y-RANGE TOO LARGE" n