' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L 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õ`  \ 濭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- ( q Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`KEY. WHEN THE GRAPH IS FINISHED (AT THE BELL), AGAIN PRESS A KEY TO PROCEED.":4012iGCOPY1330,MEPB(1):I2L:PB(I)MEMEPB(I).I:ML1.910:MFMEML:USUL(1):UXUL(L)US0:720,00,190159,190-4I1L:PB(I)0X(UL(I)US)IFYMS1NN:XMS2NN:SSS3S22NN:SPS5S1S2NN:BSPSS:KYMBXMlSD((6K)B(4K)B)2:MN(5K)B"REGRESSION EQUATION:":"Y=";K;" + ";B;"(X)":"ESTIMATE OF MEAN AND SD:":"MEAN=";MN;" SD=";SDX4006:4012::10:"FOR THE GRAPH, PRESS A :118tPB(I)0DvUL(I);7);FR(I);12);SUM;17);P;27);PB(I):I`x"TOTAL";7);N;12);SUMS10:S20:S30:S40:S50:NN0I1L:PB(I)0205S1S1PB(I)FR(I):S2S2UL(I)FR(I):S3S3FR(I)UL(I)2:S5S5PB(I)UL(I)FR(I):NNNNFR(I)k4004:El"UL";7);"FR";12);"SUM";17);"PERCENT";27);"PROBIT"OmSUM0nI1L:SUMSUMFR(I):PSUM100N:PC(P10.5):PPC10:PC0PB(I)0:118pPC500PB(I)PR(PC):118rPC1000PC1000PC:PB(I)10PR(PC):PB(I)(PB(I)1000.5)1000N":4015AGAIN":4015AII120:BOUNCE(SZ)(SZ)(SZ)(SZ):II:k!:5);"(TO CONTINUE, PRESS A KEY)";"":16368,0:A$::!:5);"(PRESS THE APPROPRIATE KEY)":16368,0:!SZ16336:SOUND(SZ)(SZ):!AN$:AN$"Y"GG1:!AN$"N"GG2:""ENTER AGAIETYPE"::"";"":DL1300:DL:"";"":F G$"N"HCOPY0:4011:_ "ENTER AGAIN":4001 HCOPY1ĺ(13);(4);"PR#1"  HCOPY1ĺ(13);(4);"PR#0"  16368,0:G$:GG(G$) GG1GGGKĺ"ENTER AGAIN":4008 -!SZ16336:49:R:I:4011:I1144:R:I:4011:I112:R:PR(I)R:4014:I:I112:PR(I)PR(I):I:PR(13)0:J0:I1425:PR(I)PR(12J):JJ1:IN25:DE1:270:"DO YOU WISH HARD COPY (Y/N)?":16368,0* G$:G$"Y"HCOPY1:::(12):"TURN ON TELTHERE IS!";"";"":4004::"25 FEMUR LENGTHS OF STEM MOTHERS OF THE APHID PEMPHIGUS POPULI-TRANSVERSUS IN MM(E-01): (SOKAL AND ROHLF, BOX 6.4)":I1205:UL(I);6);UL(I1);11);UL(I2);16);UL(I3);21);UL(I4):I4006:4012BI116302,0:16299,0:16297,0,"":4012:A:HCOPY0İ4000:"DO YOU WISH TO:"::5);"1. RE-DISPLAY THE RESULTS"::5);"2. ENTER ANOTHER SET OF DATA"::5);"3. STOP THE PROGRAM"4013:GK3:4008:GG306,230,410:10:"THAT'S ALL Y191(PB(I)ML)191MF:X,Y:IMmYKBUL(1):XUL(1):YMLYML:X(YK)BzrY191(YML)191MF:X(XUS)159UX:X,YwYKBUL(N2):XUL(N2):YPB(N2)YPB(N2):X(YK)B|Y191(YML)191MF:X(XUS)159UX:X,YGCOPY1:39016304,0:THE GRAPH IS FINISHED (AT THE BELL), AGAIN PRESS A KEY TO PROCEED.":4012^UGCOPY1386YUSUL(1):UXUL(N2)US:MLPB(1):MFPB(N2)ML^:7:0,00,190159,190cX(UL(1)US)159UX:Y191(PB(1)ML)191MF:X,Y hI2N2:X(UL(I)US)159UX:S1N:XMS2N:SSS3S22N:SPS5S1S2N:BSPSS:KYMBXMaJSD((1K)B(1K)B)2:MN(0K)BO"REGRESSION EQUATION:":"Y=";K;" + ";B;"(X)":"ESTIMATE OF MEAN AND SD:":"MEAN=";MN;" SD=";SDMT4006:4012:(10):"FOR THE GRAPH, PRESS A KEY. WHEN .5)100014014:I'2"":4004:}6"Y";7);"FR";15);"RANKIT":I1N2:UL(I);7);FR(I);15);PB(I):I:"TOTAL";7);N;S10:S20:S30:S40:S50@I1N2:S1S1FR(I)PB(I):S2S2FR(I)UL(I):S3S3FR(I)UL(I)2:S5S5FR(I)PB(I)UL(I):I:EYM1N:FR(I)0:I:J1:UL(J)UL(1):FR(1)1:I2N:UL(I)UL(J)FR(J)FR(J)1:290rJJ1:UL(J)UL(I):FR(J)FR(J)1"I:N2J:4011'J1:I1N2::FR(I)1PB(I)PR(J):JJ1:305 ,S10:K1FR(I):S1S1PR(J):JJ1:K:PB(I)S1FR(I):PB(I)(PB(I)1000250,255PI1N1:PR(I)PR(I):I:J0:IN11N:PR(I)PR(N1J):JJ1:I:260I1N1:PR(I)PR(I):I:PR(N11)0:J0:IN12N:PR(I)PR(N1J):JJ1:II1N:YTUL(I):KI:JIN:UL(J)YTYTUL(J):KJJ:UL(K)UL(I):UL(I)YT:4014:INISZ)(SZ):II:M :5);"(TO CONTINUE, PRESS A KEY)";"":16368,0:A$:: :5);"(PRESS THE APPROPRIATE KEY)":16368,0: SZ16336:SOUND(SZ)(SZ): L:"";"":(G$"N"HCOPY0:4011:A"ENTER AGAIN":4001aHCOPY1ĺ(13);(4);"PR#1"gHCOPY1ĺ(13);(4);"PR#0"16368,0:G$:GG(G$)GG1GGGKĺ"ENTER AGAIN":4008 SZ16336:II120:BOUNCE(SZ)(SZ)(XT.5((2DF1)2.326)2:XQXSĺ" NS":4011:745TXQXTĺ" *";"":745g" **";"";""r216,0MV345,350:"DO YOU WISH HARD COPY (Y/N)?":16368,0 G$:G$"Y"HCOPY1:::(12):"TURN ON TELETYPE"::"";"":DL1300:DJ(2XQ3.1415927))LQ1:M1:DXDFODXDX2:MMXQDX:M.0000001700`LQLQM:685x" **";"";"":745PB1JKQLQ:216,0PB.05ĺ" NS":4011:750PB.01ĺ" *";"":750" **";"";"":750XS.5((2DF1)1.645)24,3*5K12:I0K:R:Y(I)I:FR(I)R:I::4004::"SEX RATIOS IN 6115 SIBSHIPS OF TWELVE IN SAXONY. (SOKAL AND ROHLF, TABLE 5.4)":95720R1:IDF22:RRI:IKQXQ(((DF1)2))(XQ2)RKQ0695(DF2)DF2J1:680TE ANOTHER SAMPLE"::5);"5. GENERATE ANOTHER SAMPLE, CHANGE":9);"PARAMETERS"::5);"6. STOP THE PROGRAM"!4013:GK6:4008:GG90,125,75,370,360,550&:10:"THAT'S ALL, FOLKS!";"";""+0 7,45,181,478,829,1112,1343,1033,670,286,104,2X  IK"LIGHT - OBSERVED; DARK - EXPECTED":4012:::HCOPY0İ4000:"DO YOU WISH TO:"::5);"1. RE-DISPLAY THE RESULTS"::5);"2. CALCULATE ANOTHER SET OF":9);"EXPECTATIONS"::5);"3. ENTER ANOTHER SET OF DATA"o:5);"4. GENERA0,550MF0,I0K:FR(I)MFMFFR(I)3IYI0K:AA(AF(I)1):AAMFMFAA`Iz:15:0,3939:KLK1IOKXI39KLYG39FR(I)39MFYG,39XI2IOKXI39KL1YG39AF(I)39MFYG,39 YOU WISH TO:"::5);"1. RE-DISPLAY THE RESULTS"::5);"2. GENERATE ANOTHER SAMPLE"::5);"3. GENERATE ANOTHER SAMPLE, CHANGE":9);"PARAMETERS":5);"4. ANALYSE THIS SAMPLE"::5);"5. STOP THE PROGRAM":4013:GK5:4008GG405,370,360,915);"FR":I0K:Y(I)I:5);Y(I);15);FR(I):I:5);"TOTAL";15);Ny:"INITIAL RAN. NO.=";RS;" (SAMPLE NO. ";RZ;")""PARAMETERS ARE:"MUKPP:SG2MUQ:"P=";PP;" Q=";Q:"MU=";MU;" SIGMA2=";SG2DG1:4006:4012::HCOPY0İ4000:"DOS A KEY)";"":16368,0:A$::T :5);"(PRESS THE APPROPRIATE KEY)":16368,0:v SZ16336:SOUND(SZ)(SZ): AN$:AN$"Y"GG1: AN$"N"GG2: "ENTER AGAIN":4015A"ENTER AGAIN":40013HCOPY1ĺ(13);(4);"PR#1"9YHCOPY1ĺ(13);(4);"PR#0"_z16368,0:G$:GG(G$)GG1GGGKĺ"ENTER AGAIN":4008SZ16336:II120:BOUNCE(SZ)(SZ)(SZ)(SZ):II: :5);"(TO CONTINUE, PRESBIRTH WEIGHTS OF MALE CHINESE IN OZS. (SOKAL AND ROHLF, BOX 6.3)"Tc:DE1:108:"DO YOU WISH HARD COPY (Y/N)?":16368,0G$:G$"Y"HCOPY1:::(12):"TURN ON TELETYPE"::"";"":DL1300:DL:"";"":G$"N"HCOPY0:4011:"::5);"3. STOP THE PROGRAM"DW4013:GK3:4008:GG107,100,345pY:10:"THAT'S ALL THERE IS!";"";"":^ 2,6,39,385,888,1729,2240,2007,1233,641,201,74,14,5,1`UL(0)55.5:CI8:L15:N9465:I1L:R:FR(I)R:UL(I)UL(I1)CI:IDb:4004:"ME:X(YK)B;DY191(YML)191MF:X(XUS)159UX:X,YLFGCOPY1:335wJ16304,0:16302,0:16299,0:16297,0O"":4012:T:HCOPY0İ4000V:"DO YOU WISH TO:"::5);"1. RE-DISPLAY THE RESULTS"::5);"2. ENTER ANOTHER SET OF DATA159UX:Y191(PB(I)ML)191MF:X,Y:IJI:31246IM8IIJL:PB(I)0316:X(UL(I)US)159UX:Y191(PB(I)ML)191MF:X,Y<I>YKBUL(1):XUL(1):YMLYML:X(YK)B@Y191(YML)191MF:X(XUS)UX:X,Y BYKBUL(L):XUL(L):YMEY:"IS THIS SECOND VALUE SATIFACTORY?(Y/N)":16368,0:4015:GG490,480jSK(KKK2)((Z)(Z2)):KSKK4004::"ITERATED K=";KK;" V(K)=";SK:4006:4012120:"NEGATIVE BINOMIAL GENERATOR"::"ENTER THE FOLLOWING QUANTITIES:":"BIG Z0480K2:K20480+KKK2:450"FINAL VALUE FOR K=";KK:"TO CALCULATE V(K), ENTER 2ND K VALUE THAT GIVES Z CLOSE TO ZERO BUT OF OPPOSITE SIGN":K2:SA0:I0K:SASAA(I)(K2Y(I)):I:Z2SAN(1YMK2):"FOR K=";K2;" Z=";Z2G WHEN DESIRED ACCURACY IS ATTAINED, I.E. WHEN Z IS CLOSE TO ZERO, PRESS SPACE BAR, RETURN."SA0:I0K:SASAA(I)(KKY(I)):I:ZSAN(1YMKK)::"FOR K=";KK;" Z=";ZZ0ĺ"CHOOSE LARGER VALUE FOR K"Z0ĺ"CHOOSE SMALLER VALUE FOR K"  ANOTHER SAMPLE, CHANGE":9);"PARAMETERS"::5);"6. STOP THE PROGRAM":4013:GK6:4008wGG85,70,120,431,500,630:520:"ITERATION OF K:"A(K)0:I1K:JKI:A(J)A(J1)FR(J1):I:KKK1_:"ENTER NEW VALUES OF K AS INDICATED. PECTED":4012$::HCOPY0İ4000:"DO YOU WISH TO:"::5);"1. RE-DISPLAY THE RESULTS"::5);"2. ENTER ANOTHER SET OF DATA"::5);"3. CALCULATE ANOTHER SET OF":9);"EXPECTATIONS"Y:5);"4. GENERATE ANOTHER SAMPLE"::5);"5. GENERATEN":4015II120:BOUNCE(SZ)(SZ)(SZ)(SZ):II:k :5);"(TO CONTINUE, PRESS A KEY)";"":16368,0:A$:: :5);"(PRESS THE APPROPRIATE KEY)":16368,0: SZ16336:SOUND(SZ)(SZ): AN$:AN$"Y"GG1: AN$"N"GG2:!"ENTER AGAIETYPE"::"";"":DL1300:DL:"";"":FG$"N"HCOPY0:4011:_"ENTER AGAIN":4001HCOPY1ĺ(13);(4);"PR#1"HCOPY1ĺ(13);(4);"PR#0"16368,0:G$:GG(G$)GG1GGGKĺ"ENTER AGAIN":4008- SZ16336:XS.5((2DF1)1.645)2;XT.5((2DF1)2.326)2XXQXSĺ" NS":4011:690rXQXTĺ" *";"":690" **";"";""216,0:MT2:595:"DO YOU WISH HARD COPY (Y/N)?":16368,0*G$:G$"Y"HCOPY1:::(12):"TURN ON TEL(DF1)2))(XQ2)R g216,0;l(DF2)DF2J1:630SqJ(2XQ3.1415927)fvLQ1:M1:DXDF{DXDX2:MMXQDX:M.0000001645LQLQM:635PB1JKQLQPB.05ĺ" NS":4011:695PB.01ĺ" *";"":695" **";"";"":695";"" . 75,103,121,54,30,13,2,1,0,1UL10:I1L:Y(I)I1:R:FR(I)R:I4004::"YEAST CELLS IN 400 SQUARES OF A HAEMO- CYTOMETER. (SOKAL AND ROHLF, BOX 5.2)"85SMT600,695X665]R1:IDF22:RRI:IbKQXQ((HE RESULTS"::5);"2. GENERATE ANOTHER SAMPLE"::5);"3. GENERATE ANOTHER SAMPLE, CHANGE":9);"PARAMETERS":5);"4. ANALYSE THIS SAMPLE"::5);"5. STOP THE PROGRAM":4013:GK5:4008GG435,400,385,80,475:10:"THAT'S ALL, FOLKS!";"I1K1:Y(I)I1:5);Y(I);15);FR(I):I:5);"TOTAL";15);Nq:"INITIAL RAN. NO.=";SR;"(SAMPLE NO. ";RZ;")""NUMBER OF Y'S REJECTED=";RJ:"MU=SIGMA2=";MUDG14006:4012::HCOPY0İ4000o:"DO YOU WISH TO:"::5);"1. RE-DISPLAY TB1(MU):KLY:LK1-I1N:YX0:TR1VRX(1):TRTRRX:TRBYXYX1:415YXKĺ"Y=";YX;" REJECTED";"":YX0:TR1:RJRJ1:415FR(YX1)FR(YX1)1:4014:IRZRZ1:""<4004::"POISSON SAMPLE OF SIZE ";N:5);"Y";15);"FR":Y DESIRED (IF NO LIMIT PRESS SPACE BAR, RETURN):";:LY:LY0LY50:"INTEGER TO START RANDOM NUMBER GENERATOR:";:SR:SRSR:RX(SR):RZ0I050:FR(I)0:I:RJ0::"HERE I GO! ";N;" POISSON VARIATES COMING UP. ONE MOMENT PLEASE."6. STOP THE PROGRAM"Cw4013:GK6:4008:GG80,120,70,380,385,475N|:400:"POISSON GENERATOR"::"ENTER THE FOLLOWING QUANTITIES:"::"MU, THE MEAN VALUE:";:MU::"N, THE NUMBER OF VARIATES TO BE GENERATED:";:NF:"ENTER LARGEST RESULTS"::5);"2. PLOT SCATTERDIAGRAM"::5);"3. STOP THE PROGRAM"m4013:GK3:4008::GG85,175,51510:"PROGRAM ENDED. THAT'S ALL, FOLKS!":"";""16300,0:16298,0:DN2:X1:Y1:TTT2:T1540STY:RTD:ZT:545 STDPT(12):"G ";PT(13),PT(14):"H ";PT(15),PT(16)"2 POINTS FOR MAJOR AXIS:":PT(17),PT(18):PT(19),PT(20):"2 POINTS FOR MINOR AXIS:":PT(21),PT(22):PT(23),PT(24)4006:4012:HCOPY0İ4000G:"DO YOU WISH TO:"::5);"1. RE-DISPLAY THE 4004["T=";TT;" D=";DA:"L1=";L1;" L2=";L2:"H=";H;" A=";A:"F,A(2,N-2)=";FS;" CA=";CA"8 POINTS ON ELLIPSE ARE:":5);"Y1";20);"Y2""A ";PT(1),PT(2):"B ";PT(3),PT(4):"C ";PT(5),PT(6):"D ";PT(7),PT(8)."E ";PT(9),PT(10):"F ";PT(11),79XD:XP0XP279GG1:435LYP191(YYS)191YD:YP0YP191GG1:460\GG457,458qXP,YP:GG2:460}XP,YPJ15:BOUNCE(SZ)(SZ)(SZ)(SZ):J:425GCOPY1:47516304,0:16302,0:16299,0:16297,0"":4012::::DX:I1ĭXM1465SBCB3B4X:CCC4C5XC6XV2X2:SQBC24V1CC:SQ0450II1:DX0āJ150:BOUNCE(SZ):J:420DXXD279:SG1J110:BOUNCE(SZ)(SZ)(SZ)(SZ)(SZ)(SZ):J:425Y(SG(SQ)BC)(2V1)XP(XXS)2AN$"Y"GG1:#&AN$"N"GG2:<&"ENTER AGAIN":4015GG1GGGKĺ"ENTER AGAIN":4008%%a%SZ16336:II120:BOUNCE(SZ)(SZ)(SZ)(SZ):II:%:5);"(TO CONTINUE, PRESS A KEY)";"":16368,0:A$::%:5);"(PRESS THE APPROPRIATE KEY)":16368,0:%SZ16336:SOUND(SZ)(SZ):&AN$:68,0^$G$:G$"Y"HCOPY1:::(12):"TURN ON TELETYPE"::"";"":DL1300:DL:"";"":z$G$"N"HCOPY0:4011:$"ENTER AGAIN":4001$HCOPY1ĺ(13);(4);"PR#1"$$HCOPY1ĺ(13);(4);"PR#0"$$16368,0:G$:GG(G$)%#*PB.01ĺ" *";"":8503#/" **";"";"":850Q#4XS.5((2DF1)1.645)2o#9XT.5((2DF1)2.326)2#>XQXSĺ" NS":4011:845#CXQXTĺ" *";"":845#H" **";"";""#M216,0:MT2:750#R$:"DO YOU WISH HARD COPY (Y/N)?":163 "820&"R1:IDF22:RRI:II"KQXQ(((DF1)2))(XQ2)RT"216,0o"(DF2)DF2J1:785" J(2XQ3.1415927)"LQ1:M1:DXDF"DXDX2:MMXQDX:M.0000001800"LQLQM:790" PB1JKQLQ#%PB.05ĺ" NS":4011:850:10:"THAT'S ALL FOLKS!";"";""(!{E! 442,91,29,14,4,6,2,0,1k!K8:I08:R:FR(I)R:Y(I)I:I:!4004::"MITES (ARRENURUS SP.) INFESTING 589 CHIRONOMID FLIES (CALOPSECTRA AKRINA) (SOKAL AND ROHLF, TABLE 5.6)"!90"MT755,850TO:"::5);"1. RE-DISPLAY THE RESULTS"::5);"2. GENERATE ANOTHER SAMPLE"::5);"3. GENERATE ANOTHER SAMPLE, CHANGE":9);"PARAMETERS" l:5);"4. ANALYSE THIS SAMPLE"::5);"5. STOP THE PROGRAM":4013:GK5:4008 qGG570,520,500,85,630"!vINITIAL RAN. NUM.=";SR;"(SAMPLE NO. ";RZ;")"[NP1BQ:MUBQKJP:SG2MUP:LQ1P:LPBQPS"PARAMETERS ARE:":"K=";KJ,"MU=";MU:"SIGMA2=";SG2:"BQ=";BQ,"BP=";P:"LQ=";LQ,"LP=";LPXKS0:DG1]4006:4012b:HCOPY0İ4000 g:"DO YOU WISH =";SF;" REJECTED";"":SS0:SF0:RJRJ1:535I0FR(SF)FR(SF)1:4014:JZ5"":RZRZ1d:4004?:"NEGATIVE BINOMIAL SAMPLE OF SIZE ";N:5);"Y";15);"FR"DI0LY:Y(I)I:5);Y(I);15);FR(I):I-I5);"TOTAL";15);N:"NO. Y REJECTED=";RJ:"MBER GENERATOR:":SR:SRSR:RX(SR):RZ0TI050:FR(I)0:I:RJ0:KLY :"HERE I GO! ";N;" VARIATES COMING UP. ONE MOMENT PLEASE."J1N:SS0:SF0RX(1)RXBQSFSF1:535!SSSS1:SSKJ555&535,+SFLYĺ"YQ (=R=LITTLE P/LITTLE Q OR":"=MEAN/(K+MEAN):";:BQ::"K (MUST BE AN INTEGER):";:KJ::"N (NUMBER OF VARIATES TO BE GENERATED):";:N:"LARGEST Y DESIRED (IF NO LIMIT, PRESS SPACE BAR, RETURN):";:LY:LY0LY503:"INTEGER TO START RANDOM NU1,2.093,2.086g Y 2.080,2.074,2.069,2.064,2.060,2.056,2.052,2.048,2.045,2.042,2.021,2.000,1.980,1.960 ZI118:R:I:DF30604 [I1DF:R:I:TR:: \DF120A11:A20:NX33:608 ]DF60A12:A21:NX32:608!^DF40A13:A22:NX31:6S (X). (SOKAL AND ROHLF, TABLE 14.1)" :"HUMIDITY (X)";15);"WEIGHT LOSS (Y)":I1N:3);XX(I);17);YY(I):I:4006:4012:4004:65 X 12.706,4.303,3.182,2.776,2.571,2.447,2.365,2.306,2.262,2.228,2.201,2.179,2.160,2.145,2.131,2.120,2.110,2.10,43.0,53.0,62.5,75.5,85.0,93.0Q  8.98,8.14,6.67,6.08,5.90,5.83,4.68,4.20,3.72 N9:I1N:R:XX(I)R:I:I1N:R:YY(I)R:I::4004+ :"WEIGHT LOSS IN MG (Y) OF TRIBOLIUM BEETLES AFTER SIX DAYS OF STARVATION AT NINE DIFFERENT HUMIDITIEZ(23)J)T4506vPB.5(1YY(.196854YY(.115194YY(.000344YY.019527))))4:PB(PB10000.5)10000:507YYYY(1.08YY4T3):505FS1PB1PBPB.05X$" NS":511PB.01X$" *":511X$" **" 0,12.0,29.5(X$):X0G$"0"İ4006:200ZYABX:SY(UM(11N(XM1)2Q1)):L1YTSY:L2YTSY" Y=";Y;20);"SY=";SY:"L1=";L1;20);"L2=";L2:256X1:FS1502S1:TN2:ZFS:503SN2:T1:Z1FS J29S:K29T:YY((1K)Z(13)1J)(KOM X:"6:" X=";X$:X(X$):X0G$"0"İ4006:200" SAMPLE SIZE FOR MEAN Y=";K:YABX:SY(UM(1K1N(XM1)2Q1)):L1YTSY:L2YTSY" Y=";Y;20);"SY=";SY:"L1=";L1;20);"L2=";L2:241:"PREDICT A SAMPLE Y FROM X:" X=";X$:X"PREDICT X FROM Y:"C:" Y=";X$:Y(X$):Y0X$"0"İ4006:200X(YA)B:DB2T2SB2:HTD(UM(D(11N)(YM2)2Q1)):LLM1B(YM2)D:L1LLH:L2LLH" X=";X:" D=";D;20);"H=";H:"L1=";L1;20);"L2=";L2:226:"PREDICT A MEAN Y FR ALL FOLKS!":"";"":16300,0:16298,0::4006:197U:"PREDICT Y FROM X:":" X=";X$:X(X$):X0X$"0"İ4006:200YABX:SY(UM(1N(XM1)2Q1)):L1YTSY:L2YTSY" Y=";Y;20);"SY=";SY:"L1=";L1;20);"L2=";L2:211:LE Y FROM X"M:3);"5. DO SOMETHING ELSE"::3);"6. STOP THE PROGRAM":"TO RETURN TO THIS LISTING FROM (1) - (4), INPUT A NON-NUMERICAL CHARACTER."GK6:4008:4004GG210,225,240,255,207,206+4006:::"PROGRAM ENDED. THAT'SDICTIONS"::5);"3. PLOT THE LINE"::5);"4. STOP THE PROGRAM"k4013:GK4:4008::GG71,200,95,206 :"DO YOU WISH TO:"::3);"1. PREDICT Y FROM X"::3);"2. PREDICT X FROM Y"::3);"3. PREDICT A MEAN Y FROM X"::3);"4. PREDICT A SAMPPROPRIATE KEY)":16368,0:=!SZ16336:SOUND(SZ)(SZ):V!AN$:AN$"Y"GG1:j!AN$"N"GG2:!"ENTER AGAIN":4015A HCOPY1ĺ(13);(4);"PR#0"& A 16368,0:G$:GG(G$)f GG1GGGKĺ"ENTER AGAIN":4008l  SZ16336:II120:BOUNCE(SZ)(SZ)(SZ)(SZ):II: :5);"(TO CONTINUE, PRESS A KEY)";"":16368,0:A$::!:5);"(PRESS THE APb4006:4012:4004:115K:"DO YOU WISH HARD COPY (Y/N)?":16368,0G$:G$"Y"HCOPY1:::(12):"TURN ON TELETYPE"::"";"":DL1300:DL:"";"":G$"N"HCOPY0:4011:"ENTER AGAIN":4001HCOPY1ĺ(13);(4);"PR#1" 15.39,17.25,9.52X:4004:"RELATIONSHIP BETWEEN GILL WEIGHT (MGS) AND BODY WEIGHT (GMS) IN THE CRAB PACHYGRAPSUS CRASSIPES. (SOKAL AND ROHLF, BOX 15.1)"]:"GILL WT.";10);"BODY WT.":3);"Y1";13);"Y2":I112:2);Y1(I);12);Y2(I):I:BOUNCE(16336):I:5808:PB.01X$" *":"";:580O?X$" **":"";"";UDII134:R:I:N12:I1N:R:Y1(I)R:I:I1N:R:Y2(I)R:I:N 159,179,100,45,384,230,100,320,80,220,320,210S 14.4,15.2,11.3,2.5,22.7,14.9,1.41,15.81,4.19,:RTY:Z1TR!J29ST:K29RT:LT((1K)Z(13)1J)(KZ(23)J):RT4555&PB.5(1LT(.196854LT(.115194LT(.000344LT.019527))))4:PB(PB10000.5)10000:560+LTLT(1.08LT4RT3):5500T1PB1PB5PB.05X$" NS":I120!GI:KC01115>!LCK0RKRK1:Q(L,J)RK:Y2(L,J)YK:1110!QSS0:N1NT:RKRK1:SSSSRK:N:RSSSNT:N1NT:KTI(N):Q(K,J)RS:Y2(K,J)YK:N!VM![310:J!`""::4004 "eI1A:S(I)0:"TREATMENT ";I:J1B:Y(I,J);10);Q(I,J):S(I)S(I)ȭY(I,J)YLYLY(I,J)# J:310:I? YKYL10:YJYL5:ABABQ $J1B:RKA1p )M1A:YTYJ:NT0:K0:KC0{ .I1A 3Y2(I,J)YK1095 8KC2 =Y2(I,J)YTNTNT1:KK1:TI(K)I:CK1:1095 BY2(I,J)YTNT1:K1:CK0:YTY2(I,J):TI(K)I:LIA:"FOR TREATMENT ";I;" ENTER THE VALUES FOR EACH BLOCK:":J1B:Y(I,J):J:I:"VARIATES AS ENTERED ARE:":I1A:"TREATMENT ";IJ1B:Y(I,J):J:I :"ONE MOMENT PLEASE. RANKING!"YLY(1,1):K0 I1A:J1B:KK1:Y2(I,J)Y(I,J):*";"":" NS":315: :"FRIEDMAN'S METHOD FOR RANDOMIZED BLOCKS: (I.E. A TWO-WAY ANOVA WITH TREATMENTS X BLOCKS, NO REPLICATION)."HCOPY0İ400075:AN$"Y"1150"HOW MANY TREATMENTS?";A"HOW MANY BLOCKS?";BNI1HS OF THE CHIGGER TROMBICULA LIPOWSKYI, MEASURING THE LENGTH OF THE CHELICERAL BASE (SOKAL AND ROHLF, BOX 13.6):""SAMPLE A","SAMPLE B":J110:Y(1,J),Y(2,J):J:J1116:Y(1,J):J:4006:535TS1.96ĺ" **";"";"":TS1.645ĺ" 6,10I104,109,112,114,116,118,118,119,121,123,125,126,126,128,128,128w 100,105,107,107,108,111,116,120,121,123I155:RR:IA2:NN0:I12:RR:N(I)RR:NNNNRR:I:I12:J1N(I)::RR:Y(I,J)RR:J:I::4004|:"TWO SAMPLES OF NYMP)N(2))TJ)12:E(FG):TSDED"(N1>20 WITH TIES), T=";TS;:710:"(.05 LEVEL SIGNIFICANCE: *-1 TAILED; **- 2 TAILED, TEST)"XZ1NSN(1):N(1)N(2):N(2)NS:NSS(1):S(1)S(2):S(2)NS:XZ059:60:63:GK4:65:GG615,510,50,70 12S(2)C1N(1)N(2)C-UC:C1CUC1>N(1)20660`"(N1<=20), U=";U;:1700:675DUN(1)N(2)2:TJ0E(N(1)N(2)(N(1)N(2)1)12):TSDE:"(N1>20), T=";TS;:710:675FN(1)N(2)((N(1)N(2))(N(1)N(2)1)):G((N(1)N(2))3(N(1:J:Ig""::4004lST0:I12:S(I)0:"GROUP ";I;", ";N(I);" VARIATES:":J1N(I):Y(I,J);10);Q(I,J):S(I)S(I)Q(I,J):JqSTSTS(I):IvXZ0:N(1)N(2)NSN(1):N(1)N(2):N(2)NS:NSS(1):S(1)S(2):S(2)NS:XZ1{CN(1)N(2)N(2)(N(2)1)Y1(J)YTNT1:K1:CK0:YTY1(J):TI(K)J:LJ>NJ:KC0610gSCK0RKRK1:Q1(L)RK:Y1(L)YK:605XSS0:M1NT:RKRK1:SSSSRK:M:RSSSNT:M1NT:KTI(M):Q1(K)RS:Y1(K)YK:M:TJTJNT3NT]310:IbK0:I12:J1N(I):KK1:Q(I,J)Q1(K)NKING!"YLY(1,1):K0V!I12:J1N(I):KK1:Y1(K)Y(I,J):Y(I,J)YLYLY(I,J)e&J:310:I+YKYL10:YJYL5:RKNN1:TJ00I1NN:YTYJ:NT0:K0:KC05J1NN:Y1(J)YK590?KC2DY1(J)YTNTNT1:KK1:TI(K)J:CK1:590-IRIATE KEY)":16368,0:9%SZ16336:SOUND(SZ)(SZ):R%AN$:AN$"Y"GG1:f%AN$"N"GG2:%"ENTER AGAIN":4015HCOPY1ĺ(13);(4);"PR#0""$=$16368,0:G$:GG(G$)b$GG1GGGKĺ"ENTER AGAIN":4008h$$SZ16336:II120:BOUNCE(SZ)(SZ)(SZ)(SZ):II:$:5);"(TO CONTINUE, PRESS A KEY)";"":16368,0:A$::%:5);"(PRESS THE APPROPF3F1)(A2A1)F1#kG#:"DO YOU WISH HARD COPY (Y/N)?":16368,0#G$:G$"Y"HCOPY1:::(12):"TURN ON TELETYPE"::"";"":DL1300:DL:"";"":#G$"N"HCOPY0:4011:#"ENTER AGAIN":4001#HCOPY1ĺ(13);(4);"PR#1"#$3.32,3.23,3.15,3.07,3.005"dI152:R:I:DF30614P"eI1DF:R:I:FSR::r"fDF120A11:A20:NX33:618"gDF60A12:A21:NX32:618"hDF40A13:A22:NX31:618"iA14:A23:NX30#jI1NX:R:I:F1R:R:F3R::N4120DF:FS(N4A1)(08!_A14:A23:NX30^!`I1NX:R:I:T1R:R:T3R::N4120DF:T(N4A1)(T3T1)(A2A1)T1e!a:!b 199,19,9.55,6.94,5.79,5.14,4.74,4.46,4.26,4.10,3.98,3.89,3.81,3.74,3.68,3.63,3.59,3.55,3.52,3.49"c 3.47,3.44,3.42,3.40,3.39,3.37,3.35,3.34,3.33,20,27,35,42,49,56,63X1 70,77,22,30,38,46 ,53,61,69,76,84,91,23,32,41,49,58,66,74,82 1 91,99,107,25,35,44,53,62,71,80,89,97,106,115,124,27,37,47,57,671 76,86,95,104,114,123,132,141,29,40,50,61,71,81,91,101,111,121,131,14162 151,161,31,42,5,47,59,72,84,96,108,120,132k0 144,156,167,179,191,203,214,226,238,20,36,49,62,75,88,101,113,126,138,1510 163,176,188,200,213,225,237,250,2620 0,0,16,0,15,19,23,0,17,22,27,31,0,20,25,30,36,41,16,221 28,34,40,46,51,18,25,32,38,44,51,57,64,,117,126,135,27,38,48,57,67,77,87,96,106,115,125,134/ 144,153,29,40,50,61,71,82,92,102,112,122,132,143,153,163,173,31,42,53/ 65,76,86,97,108,119,130,140,151,161,172,183,193,32,45,56,68,80,91,1030 114,125,137,148,159,170,182,193,204,215,19,341,25,29,14,19,2 4,29,34,38,15,21b. 27,32,38,43,49,17,23,30,36,42,48,54,60,19,26,33,39,46,53,60. 66,73,21,28,36,43,50,58,65,72,79,87,22,31,39,47,55,63,70,78. 86,94,102,24,33,42,50,59,67,76,84,93,101,109,118,25,35,45,54,634/ 72,81,90,99,10879,397,416,435M-rI1141:RR:I:I5B:RR:I:TXRR:I145:RR:I:TYRR:\-wTY01665x-|TSTYĺ" **";"";"":-TSTXĺ" *";"":-" NS":315:- 0,1,3,7,12,18,25,33,42,52,63,75,88,102,117,133,150,169 . 9,12,15,10,14,18,21,12,16,231,141,152,164,176,188,201,214,228,242,257,272,287,303,320,337,354],^ 372,390,408,427,467,c 0,1,3,4,6,9,11,14,18,22,26,30,35,41,47,53,59,66,74,82,h 90,99,108,117,127,138,148,160,171,183,196,209,222,230,250,265,280,295,311,328-m 344,362,3OF TWO STRAIN OF GUINEA PIGS, COMPARED OVER 9 YEARS: (SOKAL AND ROHLF, BOX 13.9)"::"STRAIN B";12);"STRAIN 13"+3J19:2);Y(1,J);14);Y(2,J):J:4006:1430+T 1,3,4,6,9,11,14,18,22,26,31,36,42,48,54,61,68,76,84,92B,Y 101,111,120,1ILED) TEST"8*"59:60:63:GK4:65:GG1515,1405,50,70l*' 2.68,2.60,2.43,2.90,2.94,2.70,2.68,2.98,2.85*, 2.36,2.41,2.39,2.85,2.82,2.73,2.58,2.89,2.78*0I1123:RR:I*1B9:I12:J1B:RR:Y(I,J)RR:J:I::4004{+2:"MEAN LITTER SIZE TSP:SN(SN):SNSPSTSN6)"SUM:";11);SP;19);SNm)B50ĺ:"(N<=50). SMALLER SUM=";ST;:1620:1565)N1STB(B1)4:N2(B(B.5)B1)12):TSN1N2::"(N>50). T=";TS;710 *:"SIGNIFICANCE AT .05 LEVEL INDICATED BY:* (1-TAILED), ** (2-TAK)Q1(K)RS:Q(1,K)YK:N$(310:J5(""::4004("DIFF";9);"+ RANKS";17);"- RANKS":J1B:YP(Y1(J)10000.5)10000:YP;:Q1(J)0ĺ19);Q1(J):1530(11);Q1(J)(J(SP0:SN0:J1B:Q1(J)0SNSNQ1(J):1545(SPSPQ1(J)) J:SQ(1,M)YK1495'KC2H'Q(1,M)YTNTNT1:KK1:TI(K)M:CK1:1495{'Q(1,M)YTNT1:K1:CK0:YTQ(1,M):TI(K)M:LM'M:KC01515'CK0RKRK1:Q1(L)Q1(L)RK:Q(1,L)YK:1510(SS0:N1NT:RKRK1:SSSSRK:N:RSSSNT:N1NT:KTI(N):Q1():J*&:"ONE MOMENT PLEASE. RANKING!"s&J1B:Y1(J)Y(1,J)Y(2,J):Q(1,J)(Y1(J)):Q1(J)1:Y1(J)0Q1(J)1z&J&YLQ(1,1)&J1B:Q(1,J)YLYLQ(1,J)&J:310&YKYL10:YJYL5:RKB1&J1B:YTYJ:NT0:K0:KC0:&M1B'OBSERVATIONS%~HCOPY0İ40005%75:AN$"Y"1575]%:"NUMBER OF PAIRS OF VARIATES?";B%"ENTER THE PAIRED VARIATES IN THE FORMAT: (X,Y)":J1B:"PAIR NO. ";J;": ";Y(1,J),Y(2,J):J&:"VARIATES AS ENTERED ARE:":J1B:Y(1,J);10);Y(2,J52 AT TEN DEPTHS:":" (SOKAL AND ROHLF, BOX 13.7)"e$"DAY 1";8);"DAY 2";16);"DAY 3";24);"DAY 4"$:I110:Y(I,1);8);Y(I,2);16);Y(I,3);24);Y(I,4):I:4006:1035$x %}:"WILCOXON'S SIGNED RANKS TEST FOR TWO GROUPS, ARRANGED AS PAIRED ,9.9,6.0,5.9,5.6s# 24.6,22.9,22.1,21.0,19.0,14.2,10.4,6.3,6.0,5.5,24.8,23.2,22.2,21.2,18.8,13.8,9.6,6.3,5.8,5.6#I183:RR:I#A10:B4:J1B:I110:RR:Y(I,J)RR:I:J::40042$:"TEMPERATURES AT ROT LAKE ON 4 EARLY AFTERNOONS IN 19Q(I,J):J"jI["oST0:I1A:STSTS(I)2:I:V112(AB(A1)):V23B(A1):XQV1STV2f"tDFA1"y:"XQ=";XQ;:MT1:320"z59:60:63:GK4:65:GG1120,1008,50,70#~ 23.8,22.6,22.2,21.2,18.4,13.5,9.8,6.0,5.8,5.6,24.0,22.4,22.1,21.8,19.3,14.4RAL LIMITS:":" (DF=";DF;" X1=";ER;" X2=";HR;")":"L1=";L1;" L2=";L2t"DF100ĺ:"DF>100. NO NON-CENTRAL LIMITS.""H30İ5020 #L1VH3:L2VH4:ER(H310000.5)10000:HR(H41000.5)1000:"NON-CENTRAL (SHORTEST) LIMITS:":" (DF=";DF;" F1=";ER;"TTC:TC0İ3000:TCTo!L1MNTSM:L2MNTSM:T(T1000.5)1000:" (DF=";DF;" T=";T;")":"L1=";L1;" L2=";L2!:".95 CONFIDENCE INTERVALS FOR VARIANCE:":H10İ5000:H1XS:H2XTD"L1SSH2:L2SSH1:ER(H11000.5)1000:HR(H21000.5)1000:"CENT,"VARIANCE=";V% "S=";SD,"CV%=";CVA "SS=";SS,"SE MEAN=";SMO CQ2986X 991 AX(M2MN)100M2:AZ(M3SD)100M3::"ACCURACY LOST BY GROUPING:":"MEAN: ";AX;"%. SD:";AZ;"%" CQ0!:".95 CONFIDENCE INTERVAL FOR THE MEAN:":DFN1:N2İ922:MM1I:930GFR(I)1ĭN2(N2)MD(YC(I)YC(I1))2:S6YX(I)FR(I):S7N2S6:MDYC(I)CI2CIS7FR(I):MNSUMN"N=";N"SY=";SUM,"MEAN=";MNSS(S2SUM2N):VSS(N1):SD(V):CVSD100MN:SMSD(N) "SY2=";S2M0:S20:S30:S40:N0:S50:MM0:N2N20qCK0;zI1LV5);YC(I);17);FR(I);SUMSUMFR(I)YC(I):S2S2FR(I)YC(I)2:S3S3FR(I)YC(I)3:S4S4FR(I)YC(I)4:NNFR(I):S5S5FR(I):YX(I)S524);YX(I)I:N2N2 I1L:MM0ĭYX(I)LOWEST CLASS MARK=";XC:YC(I)XCA>:"ENTER FREQUENCIES FOR:":LHI1LR"CLASS ";I;"(";YC(I);")";" FREQUENCY IS";:FR(I)\YC(I1)YC(I)CIfI:TC0:H10'p4004:::"ANALYSIS OF GROUPED DATA ":"CLASS MARK";13);"FREQUENCY";23);"SUM":SU27);"NS":4011:%:CK1880 "FOR DATA GROUPED IN A FREQUENCY DISTRI- BUTION HAVING UP TO 50 CLASSES; CALCU- LATES MEAN, VARIANCE, S, CV, SE, G1, G2 AND MEDIAN."CQ0 :"CLASS INTERVAL=";CI*:"NUMBER OF CLASSES=";L4:",.14960 .14868,.14779,.14691,.14605,.14520,.14437,.14355,.14274,.14195,.14117,.14040,.13965,.13891,.13818,.13746,.13675,.13606,.13537,.13469,.13403N100TD1.358(N):750I137:X:II1N:X:I::TDXDKTDĺ27);"*";"":0056,.19837,.19625,.19420,.19221,.19028,.18841,.18659,.18482,.18311,.18144,.17981,.17823,.17669,.17519,.17373,.17231 .17091,.16956,.16823,.16693,.16567,.16443,.16322,.16204,.16088,.15975,.15864,.15755,.15649,.15544,.15442,.15342,.15244,.15147,.150521,.40925,.39122,.37543,.36143,.34890,.33760,.32733,.31796,.30936,.30143,.29408 .28724,.28087,.27490,.26931,.26404,.25907,.25438,.24993,.24571,.24170,.23788,.23424,.23076,.22743,.22425,.22119,.21826,.21544,.21273,.21012t .20760,.20517,.20283,.2:610NI1M4CXY(I);15);Y(I1);25);Y(I2);35);Y(I3):IPbL0660clL630,640,650tvY(M1):660Y(M1);15);Y(M2):660Y(M1);15);Y(M2);25);Y(M3)N .97500,.84189,.70760,.62394,.56328,.51926,.48342,.45427,.43001:N37:I1N:RR:Y(I)RR:I::110=TU1.96ĺ" *";"":P" NS":4011:gI1N:YTY(I):KIJIN:Y(J)YTYTY(J):KJJ:Y(K)Y(I):Y(I)YT&SOUND(SZ)(SZ):I0:"VARIATES AS LISTED ARE:"DK(N4):MK4:LNM:M0LN";"":#5G$"N"HCOPY0:4011:<5"ENTER AGAIN":4001\5HCOPY1ĺ(13);(4);"PR#1"b55HCOPY1ĺ(13);(4);"PR#0"55SZ16336:II120:SOUND(SZ)(SZ):II:AN(2):RR:I:NXD1N(2)1:4&U1RR:I1189:RR:I:U2RR:U4+UU2ĺ" **";"";"":k40UU1ĺ" *";"":}45" NS":315:4:"DO YOU WISH HARD COPY (Y/N)?":16368,05G$:G$"Y"HCOPY1:::(12):"TURN ON TELETYPE"::"";"":DL1300:DL:"8,52,66,80,93,106,119,132,145,158K3 171,184,197,210,222,235,248,261,273Y3 N(1)3ıp3N(1)18ĭN(2)1ı3I1231:RR:I:I3N(1):RR:I:D1RR:N(1)20āIN(1)120:RR:I3I1D1:RR:I:N(1)19āI2N(2):RR:I:NXD1N(2):18304!I13,65,75,86,97,107,118,129,139,149,160,170,181,32,45,572 68,80,91,102,114,125,136,147,158,169,180,191,202,34,47,60,72,84,96,1082 120,132,143,155,167,178,190,202,213,225,0,36,50,63,76,89,101,114,126,138!3 151,163,175,188,200,212,224,236,248,0,3XLCLXCCI2DXCI-2YLXLCLDXDX1:2010722050H2XLCLYLSU22I130:FR(I)0:I:L0:I1N:YSY(I):ZLXLCL:J130:ZLZLCI:DYSZL:AD(D):AD.1E08D02 D0ĺ"DATUM ";Y(I);" FALLS ON IMPLIED CLASS LIMIT. EXECUTION STOPPED.":1870 3631bYLY(1):YHY(1):I1N:YSY(I):YSYL0YLYSF1lYSYH0YHYSY1vI:RANGEYHYLh1CI019901CRANGESU:I140:AI:CDCA:CD(CD.5):CDCM19701CDCS19801AA1:A0A1119801I1CISUA1XC020401DX02P THE PROGRAM"=0>4013:GK5:4008:GG1740,109,1870,1695,34H0D:1100N:"TABULATING VARIATES INTO A FREQUENCY DISTRIBUTION WITH BETWEEN 12 AND 20 CLASSES (MAXIMUM 50)":SUUS:22200X"ONE MOMENT PLEASE. DATA BEING TABULATED."1aSZ1633"MU=";MU;" SD=";S%/)TC0:H10:H30//+4006H/04012:HCOPY0İ4000/::"DO YOU WISH TO:"::5);"1. REDISPLAY THE SAMPLE"::5);"2. ANALYSE THE SAMPLE"::5);"3. TABULATE THE SAMPLE"/<:5);"4. GENERATE ANOTHER SAMPLE0=:5);"5. STO(1):SMSMRX:J:SZ16336:SOUND(SZ)(SZ)`.Y(I)(SM6)SMU:Y(I)(Y(I)DC.5)DC:I:"".4004:::"GENERATION OF SIMULATED DATA":" NORMAL SAMPLE OF SIZE N= ";N.580.:5);"RAN. INIT.=";SR;" (SAMPLE ";UX;")"::"PARAMETERS ARE:"/&"INTEGER TO START RANDOM NUMBER GENERA- TOR (ALTERNATE: PRESS SPACE BAR, RETURN)=";SRo-SR0SR1-RX(SR):UX0-:"HERE I GO! ";N;" NORMAL VARIATES COMING UP. ONE MOMENT PLEASE":I150:FR(I)0:I:UXUX1-.I1N:SM0:J112:RXAN$:AN$"Y"1720&,AN$"N"1700?,"ENTER AGAIN":1696,:"ENTER: MEAN=";MU::"STANDARD DEVIATION=";S::"NUMBER OF DECIMAL PLACES DESIRED (0 - 4)=";DP:DC10DP:US1DC_-:"N (THE NUMBER OF VARIATES DESIRED - MAX IMUM 500)=";N::EAN AND STANDARD DEVIATION IN APPROPRIATE UNITS SO THAT THE VARIATES, TO FOUR SIGNIFICANT FIGURES, WILL HAVE FROM ZERO TO FOUR DECIMAL PLACES, I.E. FALL+" IN THE RANGE XXXX. TO XXXX."+1700+:"SAME PARAMETERS AS BEFORE?(Y/N)";,*54006E*6:"FOR GOODNESS-OF-FIT TEST, PRESS A KEY";"":A$:2360i*:"NORMAL VARIATE GENERATOR":*"CONTINUOUS VARIATES MAY OCCUR IN A WIDE RANGE OF VALUES AND BE EXPRESSED TO ANY DEGREE OF ACCURACY."+:"TO USE THIS GENERATOR, CODE YOUR M1:AP(L2)NPA:S1S1PA:S2S2AP(L2):AP(L2)(AP(L2)DA.5)DA:PA(PADA.5)DA:ULCL(ULCLDA.5)DA)">";ULCL;13);Z;20);PA;29);AP(L2);37);"-")S1(S1DA.5)DA:S2(S2DA.5)DA)""TOTAL";8);N;20);S1;29);S2),:"MEAN=";MN;" SD=";SDBPA)(AP(I)NRP-(S1S1RP:S2S2AP(I)o(RP(RPDA.5)DA:AP(I)(AP(I)DA.5)DA:LCL(LCLDA.5)DA(LCL;8);FR(I);13);Z1;20);RP;29);AP(I);(SN(FR(I)AP(I))(SN0ĺ37);"+":1520(37);"-"(PAPB:LCLULCL(Ie)L2LF430:PAT:AP(0)TN:S1S1PA:S2S2AP(0)['P"<";XLCL;13);Z;20);PA;29);AP(0);37);"-"q'ZLCLXLCL:DA10000|'dI1L'nULCLLCLCI:Z1Z'xZ(ULCLMN)SD:Z(Z100.5)100'430:PBT'LL01440'(Z)0LL1:RP1PAPB:1450(RP(P,1210,60,770,1670,34&&&DA1000V&YM(MNDA.5)DA:SD(SDDA10.5)(DA10)&4004::"FIT A NORMAL DISTRIBUTION"&("LCL";7);"OBS.F";15);"Z";20);"REL.F";29);"ABS.F";36);"DIFF"&2S10:S20:LL0&<Z(XLCLMN)SD:Z(Z100.5)100*'1. REDISPLAY THE RESULTS"::5);"2. FIT A NORMAL CURVE TO THE DATA"::5);"3. ENTER ANOTHER UNGROUPED SAMPLE"%:5);"4. ENTER ANOTHER GROUPED SAMPLE"::5);"5. GENERATE ANOTHER SAMPLE"::5);"6. STOP THE PROGRAM"&4013:GK6:4008:GG880N(N1))((N2)(N1)(N3)):SG(SG):TGG1SGq$SH(24N(N1)2)((N3)(N2)(N3)(N5)):SH(SH):THG2SH$`:"G1=";G1;:TUTG:518$j"G2=";G2;:TUTH:518$o:"MEDIAN=";MD$s4006$t4012:HCOPY0İ4000r%~:"DO YOU WISH TO:"::5);" F2=";HR;")":"L1=";L1;" L2=";L2j#GANS3:GB3SUMS2:GC2SUM3N:GD(N1)(N2)SD3:G1(GAGBGC)GD#GANS4:GB4SUMS3:GC6SUM2S2N:GD3SUM4N2:GE(N1)(N2)(N3)V2:GF3(N1)2:GG(N2)(N3):G2(N1)(GAGBGCGD)GEGFGG/$SG(630SB I1NX:RR:I:T1RR:RR:T3RR:N4120DF:T(N4A1)(T3T1)(A2A1)T1:3010kB IDF134:RR:I:xB NX33ıB INX234:RR:I:B:"DO YOU WISH HARD COPY (Y/N)?"CG$:G$"Y"HCOPY1:::(12):"TURN ON TELETYPE"::"";"":DL13074,2.069,2.064,2.060,2.056,2.052,2.048,2.045,2.042,2.021,2.000,1.980,1.960jA I1137:RR:I:DF303004A I1DF:RR:I:TRR:3009A DF120A11:A20:NX33:3008A DF60A12:A21:NX32:3008A DF40A13:A22:NX31:3008B A14:A23:NX);"5. GENERATE ANOTHER SAMPLE"::5);"6. STOP THE PROGRAM"o@" 4013:GK6:4008:GG2640,1210,60,770,1695,34@ 12.706,4.303,3.182,2.776,2.571,2.447,2.365,2.306,2.262,2.228,2.201,2.179,2.160,2.145,2.131,2.120,2.110,2.101,2.093,2.086 JA 2.080,2.0LIGHT - OBSERVED; DARK - EXPECTED"0? 4012::C? HCOPY0İ4000? :"DO YOU WISH TO:"::5)"1. REDISPLAY BAR DIAGRAM"::5);"2. REDISPLAY NORMAL FIT"::5);"3. ENTER ANOTHER UNGROUPED SAMPLE"=@ :5);"4. ENTER ANOTHER GROUPED SAMPLE"::5R(I)MFMFFR(I)>d I>>n I0L2:AA(AP(I)1):AAMFMFAAG>x I:b> :15:0,3939:KLL21n> I0L2|> XI39KL> YG39FR(I)39MF> YG,39X> I> 2> I0L2> XI39KL1> YG39AP(I)39MF> YG,39X> I"? (21):"=7 S10:S20:DK0:I0L2:S1S1FR(I):S2S2AP(I):DB(S1S2):DBDKDKDB=< I:DA10000:DKDKN:DK(DKDA.5)DA:"KOLMOGOROV-SMIRNOV TEST:":10);"FOR N=";N;" D=";DK;:670=E 4006=F :"FOR BAR DIAGRAM, PRESS A KEY";"":A$=P MF0>Z I0L2:FLX(I)0ĺ12);LF(I);&< 17);AP(I);@< LX(I)0ĺ25);LX(I);W< X30ĺ33);X2(I);`< :I<( DFDF3:SW(SXDA.5)DA:"FOR DF=";DF;" TOTAL CHI SQUARE=";31);SW;:XQSW:4020<0 GW(GSDA.5)DA:XQGS<2 "G=2(";G1;" - ";G2;")=";31);GW;:4020J:2380 ; I; GS2(G1G2)d; 4004::"GOODNESS-OF-FIT:":"CLASS";7);"FR";17);"AF";33);"X2"; DA100:I0L2:AP(I)(AP(I)DA.5)DA:LX(I)(LX(I)DA.5)DA:X3X2(I):X2(I)(X2(I)DA.5)DA; I0IL2ĺ"TAIL";:2568; YC(I);7);FR(I);< 3):AA52520,: LX(L3)AA:LF(L3)AB:2500;: L3J2480M: NN2470,2480V: MM2e: AA02440}: AAAP(L3):ABFR(L3): DDABAA: AB0G1G1AB(AB): G2G2AB(AA):X2(L3)DD2AA:SXSXX2(L3):DFDF1:AA0:AB0:MM2520,2510; NN2:MM1:CM20:XC0:CI09. R98 BPAP(0):I0L2:LX(I)0:X2(I)0:AP(I)BPJI:BPAP(I)9= I:AB0:AA0:SX0:DF0:G10:G20:NN1:MM19B 9L I0L29V NN2420,24009` L3L2I:JL325309j 24309t L3I9~ AP(L3)52455: AAAAAP(L3):ABABFR(LNUMBER OF CLASSES DESIRED (NORMALLY 20, MAXIMUM 50)=";:CMQ8CM0CM208 :"LOWEST CLASS MARK (NORMALLY MIN. Y - UNIT STEP/2 + CLASS INTERVAL/2)=";:XC8 :"CLASS INTERVAL (NORMALLY A MULTIPLE OF THE UNIT STEP)=";:CI8 9$ CS1222307:"IF, FOR ANY OF THE FOLLOWING, YOU WISH THE COMPUTER TO DETERMINE THE VALUE, PRESS SPACE BAR, RETURN, RATHER THAN ENTERING A VALUE."7:"MINIMUM NUMBER OF CLASSES ALLOWABLE (NORMALLY 12)=";:CS7CS0CS12A8:"MAXIMUM 0:GK6:4008:GG2129,2210,2180,60,1670,34F6CK1:XCXLCLCI2:770L6^6:2220:18806"DO YOU WISH THE COMPUTER TO DETERMINE THE FREQUENCY DISTRIBUTION'S PARA- METERS?(Y/N)"6AN$:AN$"N"22606AN$"Y"23407"ENTER AGAIN": TO:"::5);"1. REDISPLAY THE DISTRIBUTION"::5);"2. CHANGE THE DISTRIBUTION":9);"PARAMETERS"::5);"3. ANALYSE THE DISTRIBUTION"5u:5);"4. ENTER ANOTHER SAMPLE"::5);"5. GENERATE ANOTHER SAMPLE"::5);"6. STOP THE PROGRAM"+6z4013:CK CLASS INTERVAL=";CI:"NUMBER OF CLASSES=";L:"CLASS MARK";13);"FREQUENCY";23);"SUM"4\DA1US10:YGXLCLCI2:SM0:I1L:SMSMFR(I):YC(I)(YGDA.5)DA:5);YC(I);17);FR(I);24);SM:YGYGCI:I4e40064f4012:HCOPY0İ40005p:"DO YOU WISHD02100'3 FR(J)FR(J)1:LJ0LJ13*2120834J3>"REQUIRED NUMBER OF CLASSES EXCEEDS 30. EXECUTION STOPPED":18703HSOUND(SZ)(SZ):I:""3Q4004:::"TABULATION OF DATA"V4R"SMALLEST OBS.=";YL;" LARGEST OBS.=";YH:"RANGE=";RANGE;"36:RR:I:T1RR:RR:T2RR:H4(DFA1)(T2T1)(A2A1)T1::80:A290:50363ODF70NX34:A170:A280:5036WODF60NX33:A160:A270:5036{ODF50NX32:A150:A260:5036ODF40NX31:A140:A250:5036ONX30:A130:A240OI1NX:RR:I:T1RR:RR:T2RR:H3(DFA1)(T2T1)(A2A1)T1;PI12.149,2.097,2.050,2.008 N 1.971,1.936,1.905,1.876,1.850,1.825,1.802,1.782,1.762,1.744,1.608,1.523,1.464,1.421,1.387,1.360,1.338NDF305028NI1DF:RR:I:H3RR:I138:RR:I:H4RR::NDF90NX36:A190:A2100:5036ODF80NX35:A1.5019,.5135,.5242,.5341,.5433,.5520,.5601,.5677M .5749,.5817,.5882,.5943,.6001,.6057,.6110,.6160,.6209,.6255,.6636,.6913,.7128,.7300,.7443,.7564,.7669N 0,23.605,10.127,6.590,5.054,4.211,3.679,3.314,3.048,2.844,2.683,2.553,2.445,2.354,2.276,2.208,0XS.5((2DF1)1.96)2:XT.5((2DF1)1.96)2:[LI1DF:RR:I:XSRR:DF1005013rLIDF1100:RR:ILI1DF:RR:I:XTRR:DF1005015LIDF1100:RR:IL/M 0,.2099,.2681,.3125,.3480,.3774,.4025,.4242,.4432,.4602,.4755,.4893,9,91.519,92.689,93.856,95.023,96.189,97.353,98.516,99.678,100.84,102.00,103.16,104.32,105.47,106.63K 107.78,108.94,110.09,111.24,112.39,113.54,114.69,115.84,116.99,118.14,119.28,120.43,121.57,122.72,123.86,125.00,126.14,127.28,128.42,129.565LDF10,49.481,50.725,51.966,53.203,54.437,55.668,56.896,58.120,59.342J 60.561,61.777,62.990,64.202,65.410,66.617,67.821,69.023,70.222,71.420,72.616,73.810,75.002,76.192,77.380,78.567,79.752,80.936,82.117,83.298cK 84.476,85.654,86.830,88.004,89.177,90.3483,71.642,72.501,73.361,74.222I 5.024,7.378,9.348,11.143,12.832,14.449,16.013,17.535,19.023,20.483,21.920,23.337,24.736,26.119,27.488,28.845,30.191,31.526,32.852,34.170?J 35.479,36.781,38.076,39.364,40.646,41.923,43.194,44.461,45.722,46.979,48.232 41.303,42.126,42.950,43.776,44.603,45.431,46.261,47.092,47.924,48.758,49.592,50.428,51.265,52.103,52.942,53.782,54.623,55.466,56.309,57.153I 57.998,58.845,59.692,60.540,61.389,62.239,63.089,63.941,64.793,65.647,66.501,67.356,68.211,69.068,69.925,70.713.844,14.573,15.308,16.047,16.791,17.539,18.291,19.047,19.806,20.570,21.336,22.106,22.879,23.654,24.433G 25.215,25.999,26.786,27.575,28.366,29.160,29.956,30.755,31.555,32.357,33.162,33.968,34.776,35.586,36.398,37.212,38.027,38.844,39.662,40.482HS":4011:4076)FXQXTĺ" *";"":4076100. NO NON-CENTRAL LIMITS.":JH30İ5020L1VH3:L2VH4:ER(H310000.5)10000:HR(H41000.5)1000:"NON-CENTRAL (SHORTEST) LIMITS:":" (DF=";DF;" F1=";H3;" F2=";H4;")":"L1=";L1;" L2=";L2N4ĺ:"N<4. NO VALN2ĺ:"NO CONFIDENCE INTERVALS FOR VARIANCE":229{:".95 CONFIDENCE INTERVALS FOR VARIANCE:":H10İ5000:H1XS:H2XTL1SSH2:L2SSH1:ER(H11000.5)1000:HR(H21000.5)1000:"CENTRAL LIMITS:":" (DF=";DF;" X1=";ER;" X2=";HR;")":"L1=";L1;"CQ2! "SY2=";S2,"VARIANCE=";V8 "S=";SD,"CV%=";CVT "SS=";SS,"SE MEAN=";SM :".95 CONFIDENCE INTERVAL FOR THE MEAN:":DFN1:TTC:TC0İ3000:TCT L1MNTSM:L2MNTSM:T(T1000.5)1000:" (DF=";DF;" T=";T;")":"L1=";L1;" L2=";L230:S30:S40:S50:N2N2, SZ16336:I1Nd SUMSUMY(I):S2S2Y(I)2:S3S3Y(I)3:S4S4Y(I)4} SOUND(SZ)(SZ):I MNSUMN "N=";N "SY=";SUM,"MEAN=";MN SS(S2SUM2N):VSS(N1):SD(V):CVSD100MN:SMSD(N) M2MN:M3SD:OF A CENTIMETER, THEN THE UNIT STEP IS .1."L K"ENTER: THE UNIT STEP=";USk P:"NUMBER OF VARIATES=";N Z:"ENTER VARIATES" dI1N:Y(I):I:TC0:H10:H30 iKC0 m n4004::"ANALYSIS OF UNORDERED DATA":570 sKC2170 xSUM0:S2 2 <"FOR UNGROUPED DATA UP TO 100 VARIATES; CALCULATES MEAN, VARIANCE, S, CV, SE, G1, G2, MEDIAN, KOLMOGOROV-SMIRNOV D.", F:"THE UNIT STEP IS THE ACCURACY OF MEA- SUREMENT. IF YOUR VARIABLE HAS BEEN MEASURED TO, SAY, THE NEAREST TENTH ::5);"1. ENTER UNORDERED DATA"::5);"2. ENTER A FREQUENCY DISTRIBUTION"::5);"3. GENERATE NORMAL DATA"::5);"4. SEE A DEMONSTRATION" :"(PRESS THE APPROPRIATE KEY)":GK4:4008:GG50,770,1670,500 ":(13):"THAT'S THE END!";""::30=H]AW500:BZ50: AW IS NO. OF VARIATES. BZ IS NO. OF CLASSES IN FREQUENCY DISTRIBUTION. Y(AW),YC(BZ),FR(BZ),YX(BZ),AP(BZ),LX(BZ),X2(BZ),LF(BZ):(12):"ANALYSIS (OR GENERATION) OF CONTINUOUS DATA SAMPLES":4000:CK0 "DO YOU WISH TO:"                                          SZ)(SZ)(SZ):II:S:5);"(TO CONTINUE, PRESS A KEY)";"":16368,0:A$:::5);"(PRESS THE APPROPRIATE KEY)":16368,0:SZ16336:SOUND(SZ)(SZ):16368,0:AN$:AN$"Y"GG1:AN$"N"GG2:"ENTER AGAIN":4015X0300:DL:"";"":.G$"N"HCOPY0:4011:G"ENTER AGAIN":4001gHCOPY1ĺ(13);(4);"PR#1"mHCOPY1ĺ(13);(4);"PR#0"16368,0:G$:GG(G$)GG1GGGKĺ"ENTER AGAIN":4008SZ16336:II120:BOUNCE(SZ)( 26,5957.822,-441.253,32.680,757.112O 20,4071.359,-70.830,1.232,507.392K5:I1K:A(I):SX2(I):SPXY(I):ES(I):US(I):I::"DO YOU WISH HARD COPY (Y/N)?":16368,0G$:G$"Y"HCOPY1:::(12):"TURN ON TELETYPE"::"";"":DL108YY4T3):505#FS1PB1PBAPB.05ĺ" NS":4011:511\PB.01ĺ" *";"":511o" **";"";""u 25,6606.235,-4559.436,3146.793,1830.098 30,8346.426,-2052.158,504.570,1209.200 27,6452.440,-1561.988,378.122,1164.760'";"": X1:FS15022 SD1:TD2:ZFS:503G SD2:TD1:Z1FS J29S:KK29T:YY((1KK)Z(13)1J)(KKZ(23)J) T4506 PB.5(1YY(.196854YY(.115194YY(.000344YY.019527))))4:PB(PB10000.5)10000:507YYYY(1.U;22);Q8 l:"F=";FS;:500? n4006:4012::HCOPY0İ4000 p:"DO YOU WISH TO:"::5);"1. REDISPLAY THE RESULTS"::5);"2. ENTER NEW DATA"::5);"3. STOP THE PROGRAM" r4013:GK3:4008 tGG80,65,120 x:10:"THAT'S ALL THERE IS!";":Q6Q1Q4:Q7Q6D1:Q8SUD2:FSQ7Q8 h:4004:"BASIC QUANTITIES:"::"S(SS(Y2))=";Q1:"S(SPXY)=";Q2:"S(SSX2)=";Q3:"SY2 POOLED=";Q4:"B(MEAN)=";Q5 j:"ANOVA TABLE:"::"DF";5);"SS";22);"MS":"AMONG B'S":D1;5);Q6;22);Q7:"WITHIN B'S":D2;5);S:":"SSX2=";SX2(I);22);"SPXY=";SPXY(I):"SS(Y2)=";ES(I);22);"NO. GPS.=";A(I):"SS(D2)=";US(I):Ir R4006:4012 dSU0:SA0:Q10:Q20:Q30:I1K:Q1Q1ES(I):Q2Q2SPXY(I):Q3Q3SX2(I):SASAA(I):SUSUUS(I):I$ fD1K1:D2SA2K:Q4Q22Q3:Q5Q2Q3ER OF LINES: ";K:I1K::"FOR LINE ";I;":":"SUM OF SQUARES OF X: ";SX2(I):"SUM OF PRODUCTS, X AND Y: ";SPXY(I):"EXPLAINED SS: ";ES(I):"UNEXPLAINED SS: ";US(I) G"NUMBER OF GROUPS: ";A(I):Ib P:4004:"DATA AS ENTERED ARE:":I1K::"LINE ";I;" ,1AA20: AA IS MAX. NO. LINES COMPARED.V2SX2(AA),SPXY(AA),ES(AA),US(AA),A(AA)4:5:"THIS PROGRAM TESTS FOR EQUALITY OF SLOPES OF SEVERAL REGRESSION LINES (SOKAL AND ROHLF, BOX 14.8)":HCOPY0İ4000A:"DATA ENTRY:" F:"NUMB     z#??    !ΠŠ"ҠӠ ̠J Š̠ΠŠӠ Ġ٠έӠ/ ٠ϠӠ ҠŠŠ Р̠ΠD  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nq -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    ҠΠΠӠӮ)eZca(ҠӠΠǠŠӠ̠ϭ̠͠ҠҠĠ٬ź)_cP a(Π)dQ KM6oa(ˠ)GP a(Ҡ)GPa(Π)cPa(­)!ca(Ҡ)G(Pa(ԭ)2cPa(Š) <cca(ŠӺ)FcP a(Π)0Pca( 5)=";XS;" X2(.01)=";XT'216,0:4004G(XQ2)R216,00(DF2)DF2J1:4050HJ(2XQ3.1415927)[LQ1:M1:DXDFDXDX2:MMXQDX:M.00000014065LQLQM:4055PB1JKQLQ"P=";PB:4004XS.5((2DF1)1.645)2XT.5((2DF1)2.326)2"X2(.0ES THE COMPUTER ROUTINE OVERFLOWS. IN SUCH INSTANCES, THE NORMAL APPROXIMA- TION TO X2(.05) AND X2(.01) WILL BE GIVEN.":"X2=";XQXQ0100"DEGREES OF FREEDOM=";DF4071R1:IDF22:RRI:I KQXQ(((DF1)2))ABILITIES FOR THE CHI-SQUARE (X2) DISTRIBUTION.":"TO GO TO ANOTHER TABLE OR STOP THE PRO- GRAM, ENTER AN X2 VALUE OF ZERO.":"PROBABILITIES GIVEN ARE THE AREA TO THE RIGHT OF THE X2 ORDINATE.":"NOTE: FOR SUFFICIENTLY LARGE X2 VALUT3):505FS1PB1PB-"P=";PB:475FPB.01XS" *":511:9:"THAT'S ALL THERE IS!":I125:W6543.7889987.5437:I:"";""::4);"(PRESS THE APPROPRIATE KEY)":G$:GG(G$)GG1GGGKĺ"ENTER AGAIN"3:"PROB;D2X1:FS1502-SD1:TD2:ZFS:503BSD2:TD1:Z1FS}J29S:K29T:YY((1K)Z(13)1J)(KZ(23)J)T4506PB.5(1YY(.196854YY(.115194YY(.000344YY.019527))))4:PB(PB10000.5)10000:507 YYYY(1.08YY4AN F VALUE OF ZERO."_ :"PROBABILITIES GIVEN ARE AREAS TO THE RIGHT OF THE F ORDINATE." :"NOTE: DF1 AND DF2 ARE THE DEGREES OF FREEDOM OF THE NUMERATOR AND DENOMIN- ATOR RESPECTIVELY." :"F=";FS FS0100"DF1=";D1:"DF2=":"Z=";Z Z01004 R((Z2)2)2.5066292746L T1(1.33267(Z)) T(R(.4361836T(.1201676(T2)).937298(T3))) "P=";T:410 :"PROBABILITIES FOR THE F DISTRIBUTION." :"TO GO TO ANOTHER TABLE OR STOP THE PRO- GRAM, ENTER 6LTLT(1.08LT4RT3):308/ 8T1PB1PBA :"P=";PB:255| :"PROBABILITIES FOR Z (STANDARD NORMAL DEVIATE). :"TO GO TO ANOTHER TABLE OR STOP THE PRO- GRAM, ENTER A Z VALUE OF ZERO." :"PROBABILITIES GIVEN ARE ONE-TAILED." S OF FREEDOM=";D, ,X1:Y1:TTT2:T1304C .STY:RTD:ZT:306W 0STD:RTY:Z1T 2J29ST:K29RT:LT((1K)Z(13)1J)(KZ(23)J):RT4310 4PB.5(1LT(.196854LT(.115194LT(.000344LT.019527))))4:PB(PB10000.5)10000:312 n1000:GK5:10050 sGG400,250,4000,470,900W :"PROBABILITIES FOR T DEVIATES:" :"TO GO TO ANOTHER TABLE OR STOP THE PRO- GRAM, ENTER A T VALUE OF ZERO." :"PROBABILITIES GIVEN ARE ONE-TAILED." :"T=";TT TT0ī100 "DEGREE) d::10);"STATISTICAL TABLES"::"THIS PROGRAM CALCULATES THE PROBABILITY CORRESPONDING TO VARIATES OF THE FOL- LOWING DISTRIBUTIONS:"i:5);"1. Z (NORMAL)"::5);"2. T"::5);"3. CHI-SQUARE"::5);"4. F"::4);"(5. STOP PROGRAM)"     5:GG1000,235e:"NUMBER OF VARIATES=";:N:"ENTER THE ";N;" VARIATES:":I1N:I;":";:UL(I):IN1N2:OD1:N1(N1)N1(N1):OD2I149:NQI51:R:PR(NQ)R:I:NQN50:PQPR(NQ):PQ1245I1PQ1:R:II1N1:R:PR(I)R:I::OD.28 .23,.18,.13,.08,.03:"THIS PROGRAM DOES A GRAPHICAL TEST FOR NORMALITY ON A SMALL SAMPLE USING RANKITS."HCOPY0İ4000I125:R:UL(I)R:IGCOPY0DE0ĺ:"DO YOU WISH TO SEE A DEMONSTRATION?(Y/N)":16368,0:401.77,.70,.64,.58,.52,.46,.40,.34,.29,.24,.18,.13,.08,.03,2.24,1.85,1.62,1.45 1.32,1.21,1.11,1.02,.94,.86,.79,.72,.66,.59,.53,.48,.42,.36,.31,.26,.21,.15,.10,.05 2.25,1.85,1.63,1.46,1.33,1.22,1.12,1.03,.95,.87,.80,.74,.67,.61,.55,.49,.44,.38,.33,2,1.59,1.42,1.28,1.17,1.07,.98,.89,.81,.74,.67,.60,.54 .48,.42,.36,.30,.25,.19,.14,.08,.03,2.22,1.83,1.60,1.43,1.30,1.18,1.08,.99,.91,.83,.76 .69,.62,.56,.50,.44,.38,.32,.27,.21,.16,.11,.05,2.23,1.84,1.61,1.44,1.31,1.19,1.09,1.00K .92,.84,.62,.55,.48,.42,.36,.29,.23,.17| .12,.06,2.20,1.80,1.57,1.40,1.26,1.14,1.04,.95,.86,.78,.71,.64,.57,.50,.44,.38,.32,.26 .20,.14,.09,.03,2.21,1.81,1.58,1.41,1.27,1.16,1.05,.96,.88,.80,.72,.65,.59,.52,.46,.406 .34,.28,.22,.17,.11,.06,2.22,1.86,.09,.03e 2.17,1.76,1.53,1.36,1.22,1.10,.99,.90,.81,.73,.65,.58,.51,.44,.37,.31,.25,.18,.12,.06 2.18,1.78,1.54,1.37,1.23,1.11,1.01,.91,.83,.75,.67,.60,.53,.46,.40,.33,.27,.21,.15,.09 .03,2.19,1.79,1.55,1.38,1.25,1.13,1.02,.93,.84,.76,.69,.07,2.14,1.73,1.49,1.32,1.17,1.05,.94,.85,.75,.67,.59,.51,.44,.37,.30,.23,.16,.10 .03,2.15,1.74,1.50,1.33,1.19,1.07,.96,.86,.77,.69,.61,.54,.46,.39,.33,.26,.19,.13,.06  2.16,1.75,1.52,1.34,1.20,1.08,.98,.88,.79,.71,.63,.56,.49,.42,.35,.28,.22,.1.18,.11,.04,2.11,1.69,1.45,1.27,1.12,1.00,.89,.79,.69,.60,.52 .44,.36,.29,.22,.14,.07,2.12,1.70,1.46,1.28,1.14,1.02,.91,.81,.72,.63,.54,.47,.39,.32 .24,.17,.10,.03,2.13,1.72,1.48,1.30,1.16,1.03,.92,.83,.73,.65,.57,.49,.42,.34,.27,.20Q .14,92,.80,.69,.60,.50,.41,.33,.24,.16,.08} 2.07,1.65,1.40,1.22,1.07,.94,.82,.72,.62,.53,.44,.36,.28,.20,.12,.04,2.08,1.66,1.42,1.23 1.09,.96,.85,.74,.65,.56,.47,.39,.31,.23,.15,.08,2.09,1.68,1.43,1.25,1.11,.98,.87,.76= .67,.58,.50,.41,.34,.26,0,.58,.48,.38,.28o n .19,.09,2.01,1.58,1.33,1.14,.98,.85,.73,.61,.51,.41,.32,.22,.13,.04,2.03,1.60,1.35,1.16 s 1.00,.87,.75,.64,.54,.44,.35,.26,.17,.09,2.04,1.62,1.36,1.18,1.03,.89,.78,.67,.57,.47&x .38,.29,.21,.12,.04,2.06,1.63,1.38,1.20,1.05,. .06,1.93,1.48,1.21,1.01,.85,.70,.57,.45,.33,.22,.11,1.95,1.50,1.24,1.04,.88,.73,.60,.48 d .37,.26,.16,.05,1.97,1.52,1.26,1.07,.91,.76,.64,.52,.41,.30,.20,.10,1.98,1.54,1.29,1.09 i .93,.79,.67,.55,.44,.34,.24,.14,.05,2.00,1.56,1.31,1.11,.96,.82,.7.146,1.820,1.350,1.066,.848,.665,.502,.351,.208 U .069,1.844,1.380,1.099,.886,.707,.548,.402,.264,.131,1.867,1.408,1.131,.921,.745,.590,.448,.315,.187,.062 Z 1.89,1.43,1.16,.95,.78,.63,.49,.36,.24,.12,1.91,1.46,1.19,.98,.82,.67,.53,.41,.29,.17Y _.586,1.062,.729,.462,.225,1.629,1.116,.793,.537,.312,.103,1.668,1.164,.850,.603 K .388,.190,1.703,1.208,.901,.662,.456,.267,.088,1.736,1.248,.948,.715,.516,.335,.165,1.766,1.285,.990,.763/ P .570,.396,.234,.077,1.794,1.319,1.029,.807,.619,.451,.295,145m < 157,170,183,197,211,226,241,257,273,290,307,325,343,362,381,401,421,442,463,485,507,530,553,577,601 A .564,.846,1.029,.297,1.163,.495,1.267,.642,.202,1.352,.757,.353,1.424,.852,.473,.153,1.485,.932,.572,.275O F 1.539,1.001,.656,.376,.123,1 )0AZ50: NO. OF VARIATES IN SAMPLE.K1FR(AZ),UL(AZ),PB(AZ),PR(500)2 3.8,3.3,3.9,4.1,4.4,3.6,4.3,4.4,4.4,4.1,4.3,3.9,3.8,4.5,3.6,3.5,4.3,4.7,3.6,4.2,4.3,3.8,3.6,3.8,3.9 7 1,2,3,5,7,10,13,17,21,26,31,37,43,50,57,65,73,82,91,101,111,122,133,          DF:TT(N4A1)(T3T1)(A2A1)T1:=16368,0:G$:GG(G$)bGG1GGGKĺ"ENTER AGAIN":4008h:5);"(TO CONTINUE, PRESS A KEY)":16368,0:A$:""::5);"(PRESS THE APPROPRIATE KEY)":SZ16336:SOUND(SZ)(SZ)::OLKS!";"";"":J120:DL123.546987.5436:J:"":J DFNU:DF303004[ TTT(I,DF):~ DF120A11:A20:NX33:3008 DF60A12:A21:NX32:3008 DF40A13:A22:NX31:3008 A14:A23:NX30" T1T(I,NX):NYNX1:T3T(I,NY):N4120000:TPTT3sNWCN(TATP)2:NW(NW.5):NWN130GxNNW:4014:110b:"SAMPLE SIZE N=";NWl4012:"DO YOU WISH TO:"::5);"1. MAKE ANOTHER ESTIMATE"::5);"2. STOP THE PROGRAM":4013:GK2:4008:GG75,1504:(13)::"THAT'S ALL, FTYPE II ERROR RATE) DO YOU WISH?"::5);"1. .8"::5);"2. .9"::5);"3. .95"::5);"4. .99"b4013:GK4:4008:GG100,101,102,103dPR1:105ePR2:105fPR3:105gPR5:iCN2VD2:N10 nNUA(N1):IAL:3000:TATT:IPR:3D::"NUMBER OF GROUPS (OR TREATMENTS) TO BE IN THE TEST; ";AP:"WHICH SIGNIFICANCE LEVEL (ALPHA - TYPE I ERROR RATE) DO YOU WISH?"::5);"1. .05"::5);"2. .01":4013:GK2:4008:GG85,90UAL4:95ZAL6g_:"WHICH POWER (1 - BETA, 0,2.617,2.576; FI16:J134:T(I,J):J:4014:I:"": K:"SAMPLE SIZE ESTIMATION (SEE SOKAL AND ROHLF, BOX 9.11)"::"ENTER THE FOLLOWING QUANTITIES:"::"ESTIMATE OF VARIANCES: ";V?N:"SMALLEST TRUE DIFFERENCE TO BE DETECTED: ";479,2.473,2.467,2.462,2.457,2.423,2.390,2.358,2.326 A 63.657,9.925,5.841,4.604,4.032,3.707,3.499,3.355,3.250,3.169,3.106,3.055,3.012,2.977,2.947,2.921,2.898,2.878,2.861,2.845 B 2.831,2.819,2.807,2.797,2.787,2.779,2.771,2.763,2.756,2.750,2.704,2.66> 2.080,2.074,2.069,2.064,2.060,2.056,2.052,2.048,2.045,2.042,2.021,2.000,1.980,1.960 ? 31.821,6.965,4.541,3.747,3.365,3.143,2.998,2.896,2.821,2.764,2.718,2.681,2.650,2.624,2.602,2.583,2.567,2.552,2.539,2.5283 @ 2.518,2.508,2.500,2.492,2.485,2..753,1.746,1.740,1.734,1.729,1.725} < 1.721,1.717,1.714,1.711,1.708,1.706,1.703,1.701,1.699,1.697,1.684,1.671,1.658,1.645 = 12.706,4.303,3.182,2.776,2.571,2.447,2.365,2.306,2.262,2.228,2.201,2.179,2.160,2.145,2.131,2.120,2.110,2.101,2.093,2.086X 1.383,1.372,1.363,1.356,1.350,1.345,1.341,1.337,1.333,1.330,1.328,1.325 : 1.323,1.321,1.319,1.318,1.316,1.315,1.314,1.313,1.311,1.310,1.303,1.296,1.289,1.282 " ; 6.314,2.920,2.353,2.132,2.015,1.843,1.895,1.860,1.833,1.812,1.796,1.782,1.771,1.761,1 2T(6,34){7 1.376,1.061,.978,.941,.920,.906,.896,.889,.883,.879,.876,.873,.870,.868,.866,.865,.863,.862,.861,.8608 .859,.858,.858,.857,.856,.856,.855,.855,.854,.854,.851,.848,.845,.842G 9 3.078,1.886,1.638,1.533,1.476,1.440,1.415,1.397,     ":16368,0:4015:GG350,104h"ENTER THE FOLLOWING QUANTITIES:":"LOWEST CLASS MARK=";:LC:"CLASS INTERVAL=";:CI:"NUMBER OF CLASSES=";:LjN0:UL(1)LCCI2:I1L:"FOR UPPER LIMIT ";UL(I);" FREQ.=";:FR(I):NNFR(I):UL(I1)UL(I)CI:I:SUM0 27,4.930,4.932,4.935,4.937,4.940,4.942,4.945,4.947,4.950J 4.952,4.955,4.957,4.960,4.962,4.965,4.967,4.970,4.972,4.975,4.977,4.980,4.982,4.985,4.987,4.990,4.992,4.995,4.997,5.000eHCOPY0İ4000fDE0ĺ:"DO YOU WISH TO SEE A DEMONSTRATION?(Y/N),4.826,4.829,4.831,4.834,4.836,4.839,4.841,4.844,4.846,4.849H 4.852,4.854,4.857,4.859,4.862,4.864,4.867,4.869,4.872,4.874,4.877,4.879,4.882,4.884,4.887,4.889,4.892,4.895,4.897,4.9008I 4.902,4.905,4.907,4.910,4.912,4.915,4.917,4.920,4.922,4.925,4.9.721,4.723,4.726,4.728,4.781,4.734,4.736,4.730,4.741,4.744,4.747F 4.749,4.752,4.754,4.757,4.760,4.762,4.765,4.767,4.770,4.772,4.775,4.778,4.780,4.783,4.785,4.788,4.790,4.793,4.796,4.798<G 4.801,4.803,4.806,4.808,4.811,4.813,4.816,4.819,4.821,4.8242,4.615,4.617,4.620,4.623,4.625,4.628,4.631,4.634,4.636,4.639,4.642D 4.644,4.647,4.650,4.652,4.655,4.658,4.660,4.663,4.665,4.668,4.671,4.673,4.676,4.679,4.681,4.684,4.687,4.689,4.692,4.695 @E 4.697,4.700,4.702,4.705,4.708,4.710,4.713,4.715,4.718,44.501,4.504,4.507,4.510,4.513,4.515,4.518,4.521,4.524,4.527,4.530,4.532B 4.535,4.538,4.541,4.543,4.546,4.549,4.552,4.555,4.557,4.560,4.563,4.566,4.568,4.571,4.574,4.577,4.579,4.582,4.585,4.588CC 4.590,4.593,4.596,4.598,4.601,4.604,4.607,4.609,4.61381,4.384,4.387,4.390,4.393,4.396,4.399,4.402,4.405,4.408,4.411,4.414,4.417@ 4.420,4.423,4.426,4.429,4.432,4.435,4.438,4.441,4.444,4.447,4.450,4.452,4.455,4.458,4.461,4.464,4.467,4.470,4.473,4.476GA 4.478,4.481,4.484,4.487,4.490,4.493,4.496,4.498,1,4.255,4.258,4.261,4.264,4.268,4.271,4.274,4.278,4.281,4.284,4.287,4.290,4.294> 4.297,4.300,4.303,4.307,4.310,4.313,4.316,4.319,4.322,4.326,4.329,4.332,4.335,4.338,4.341,4.344,4.347,4.350,4.354,4.357K? 4.360,4.363,4.366,4.369,4.372,4.375,4.378,4.4.111,4.115,4.118,4.122,4.126,4.129,4.133,4.137,4.140,4.144,4.148,4.151,4.155,4.158< 4.162,4.166,4.169,4.173,4.176,4.180,4.183,4.187,4.190,4.194,4.197,4.200,4.204,4.207,4.211,4.214,4.218,4.221,4.224,4.228O= 4.231,4.235,4.238,4.241,4.245,4.248,4.256,3.951,3.955,3.959,3.964,3.968,3.972,3.976,3.981,3.985,3.989,3.993,3.997,4.001,4.006 : 4.010,4.014,4.018,4.022,4.026,4.030,4.034,4.038,4.042,4.046,4.050,4.054,4.058,4.062,4.065,4.069,4.073,4.077,4.081,4.085 S; 4.088,4.092,4.096,4.100,4.104,4.107,3.752,3.757,3.763,3.768,3.773,3.779,3.784,3.789,3.794,3.800,3.805,3.810,3.815,3.820,3.825 8 3.830,3.835,3.840,3.845,3.850,3.854,3.859,3.864,3.869,3.874,3.878,3.883,3.888,3.892,3.897,3.902,3.906,3.911,3.915,3.920U 9 3.924,3.929,3.933,3.937,3.942,3.94486,3.494,3.501,3.509,3.517,3.524,3.532,3.539,3.546,3.553,3.560,3.567,3.574,3.581,3.588,3.595 6 3.602,3.608,3.615,3.621,3.628,3.634,3.641,3.647,3.653,3.659,3.665,3.671,3.677,3.683,3.689,3.695,3.701,3.707,3.713,3.718Y 7 3.724,3.730,3.735,3.741,3.746,3,3.040,3.057,3.073,3.089,3.104,3.119,3.134,3.148,3.162,3.175,3.188,3.201,3.213,3.226,3.238,3.249 4 3.261,3.272,3.283,3.294,3.305,3.315,3.325,3.335,3.345,3.355,3.365,3.374,3.384,3.393,3.402,3.411,3.420,3.428,3.437,3.445] 5 3.454,3.462,3.470,3.478,3.UL(AZ),PB(AZ),PR(500)::"";"ONE MOMENT PLEASE. I'M READING TABLES."e 1I1500:R:PR(I)R:I:"" 2 1.910,2.122,2.252,2.348,2.424,2.488,2.543,2.591,2.634,2.674,2.710,2.743,2.774,2.803,2.830,2.856,2.880,2.903,2.925,2.946a 3 2.966,2.986,3.005,3.02-:"THIS PROGRAM PERFORMS A GRAPHICAL TEST OF NORMALITY ON A FREQUENCY DISTRIBU- TION USING PROBITS (EQUIVALENT TO THE PROBABILITY PAPER TEST, SOKAL AND ROHLF, BOX 6.3.)"/AZ50: NO. OF CLASSES IN FREQUENCY DISTRIBUTION.E 0FR(AZ),         ^r:"HERE I GO! ";N;" BINOMIAL VARIATES COMING UP. ONE MOMENT PLEASE.":I050:FR(I)0:InwI1N:YX0|J1K:RX(1):RXQYXYX1J:4014FR(YX)FR(YX)1:I:""RZRZ14004C:N;" BINOMIAL SAMPLES OF SIZE ";K:5);"Y";PY0:445h:"BINOMIAL GENERATOR"::"ENTER THE FOLLOWING QUANTITIES:"::"P (THE PROB. OF A SUCCESS): ";PP::"K (THE SAMPLE SIZE): ";K::"N (THE NUMBER OF SAMPLES: ";N:Q1PPm:"INTEGER TO START RANDOM NUMBER GENERATOR";RS:RSRS:RX(RS):RZ0);AF(I);23);LX(I);31);X2(I)$OIzTXQSX:SX(SX1000.5)1000:"FOR DF=";DF;" TOTAL CHI SQUARE=";31);SX;:MV1:650YXQGS:GS(GS1000.5)1000:"G=2(";G1;" - ";G2;")=";31);GS;:MV2:650^4006::"BAR DIAGRAM IS NEXT":4012:445 cA$:SCO;"FR";15);"AF";31);"X2"|;I0K:DC100:AF(I)(AF(I)DC.5)DC:LX(I)(LX(I)DC.5)DC:X3X2(I):X2(I)(X2(I)DC.5)DC@X30ĺY(I);4);FR(I);15);AF(I):335ELX(I)0ĺY(I);4);FR(I);15);AF(I);31);X2(I):335JY(I);4);FR(I);9);LF(I);152AA:SXSXX2(L):DFDF1:AA0:AB0:MM300,295E'NN2:MM1:JL:230L,I]1GS2(G1G2)w2DFDF1DZ:DF13093MY5MY1:2254MY1MY0:"SAMPLE SIZE TOO SMALL. MINIMUM E(Y)=1 NOT ATTAINABLE.":2255"MINIMUM E(Y)=";MY6"Y";4)LKI:JL305255%LI8AF(L)MY270`AAAAAF(L):ABABFR(L):AAMY300{ LX(L)AA:LF(L)AB:290NN275,280MM2AA0260AAAF(L):ABFR(L)"DDABAA:AB0AB.0001.#G1G1AB(AB):G2G2AB(AA):X2(L)DDS-OF-FIT TEST IS NEXT":MY5:4012F4004::5);"GOODNESS-OF-FIT":DFKDZ:DF1ĺ"NUMBER OF CLASSES IS TOO FEW FOR THE GOODNESS-OF-FIT TEST.":350I0K:LX(I)0:X2(I)0:I:AB0:AA0:SX0:DF0:G10:G20:NN1:MM1I0KNN250,240;" K=";K4006:DE021574012::HCOPY0İ4000:"DO YOU WISH TO:"::5);"1. REDISPLAY THE RESULTS"::5);"2. CALCULATE ANOTHER SET OF":9);"EXPECTATIONS"::5);"3. STOP THE PROGRAM"4013:GK3:4008:GG165,135,550!:"GOODNESI0K:Y(I);4);FR(I);9);RF(I);24);AF(I);39);YSN(FR(I)AF(I)):SN0ĺ"+":200b"-"I:5);N;10);SR;25);SAKPQKPQ:SI(KPQ):"YM=KP=";YM:"SIGMA2=KPQ=";KPQ;23);"SIGMA=";SI:" S2=";V;23);" S=";S:"P=";P;" Q=";Q;" BQ=";BQEXPECTED VALUES":Q1P:BQPQ:QKK(Q):QK(QK):RF(0)QK:AF(0)QKN:SRRF(0):SAAF(0)c YMKP: Y(0)0:I1K:JI1:RF(I)RF(I1)BQ(KJ2)(J1):AF(I)RF(I)N:SRSRRF(I):SASAAF(I):Y(I)I:I "Y";4);"FR";9);"ERF";24);"EAF";36);"DIFF"3ENTER K, THE SAMPLE SIZE: ";K:I0K:Y(I)I:Ib "ENTER THE NUMBER OF SAMPLES, N: ";N:DE1:155u PXM:DZ1:165 DZ0: "ENTER THE PARAMETRIC P";:DG1ĺ:"(FOR GENERATOR P, PRESS SPACE BAR, RETURN)"; P:P0PPPV 4004::5);","SFY2=";S2:"S2=";V," SS=";SS:" S=";S," P=";P@ sXMP:DE0P x4006:4012 }:"FOR EXPECTED VALUES, DO YOU WISH TO USE:"::5);"1. THE OBSERVED P"::5);"2. A PARAMETRIC P":4013:GK2:4008 GG145,150. :"BINOMIAL EXPECTED VALUES":":I UDG0/ Z4004::"SAMPLE STATISTICS":[ _5);"Y";20);"FREQUENCY":S10:S20:N0 dIOK:5);Y(I);25);FR(I):S1S1FR(I)Y(I):S2S2FR(I)Y(I)2:NNFR(I):I iYMS1N:SSS2S12N:VSS(N1):S(V):PYMK2 n" N=";N," SFY=";S1:"YM=";YM;"3. GENERATE BINOMIAL DATA"::5);"4. SEE A DEMONSTRATION"f F4013:GK4:4008:GG75,135,360,560 K:"DATA ENTRY"::"ENTER K, THE SAMPLE SIZE (MAX=50):";K::"ENTER FREQUENCIES AS INDICATED:" PI0K:Y(I)I:"FOR Y=";Y(I);" FREQUENCY-";:FR(I)71AZ50: NO. OF CLASSES IN FREQUENCY DISTRIBUTION.l2Y(AZ),FR(AZ),RF(AZ),AF(AZ),LX(AZ),X2(AZ),LF(AZ)7:5);"BINOMIAL DISTRIBUTION"<HCOPY0İ4000> A:"DO YOU WISH TO:"::5);"1. ENTER DATA"::5);"2. GENERATE EXPECTED VALUES"::5)       WISH TO:"::5);"1. RE-DISPLAY THE RESULTS"::5);"2. CALCULATE ANOTHER SET OF":9);"EXPECTATIONS"::5);"3. ENTER ANOTHER SET OF DATA"r:5);"4. GENERATE ANOTHER SAMPLE"::5);"5. GENERATE ANOTHER SAMPLE, CHANGE":9);"PARAMETERS"::5);"(EY(I)1):AAMFMFAA6JI:::15:0,3939:KLK1fOI1K:XI39KL:YG39FR(I)39MF:YG,39XmTIY2:I1K:XI39KL1:YG39EY(I)39MF:YG,39X^I:(21):"LIGHT - OBSERVED; DARK - EXPECTED"c4012:::HCOPY0İ4000m:"DO YOU1000E-"FOR DF= ";DF;" TOTAL CHI SQUARE=";31);SX;:XQSX:MT1:5951XQGS:GS(GS1000.5)1000:"G=2(";G1;" - ";G2;")=";31);GS;:XQGS:MT1:5956LK1;4006::"BAR DIAGRAM IS NEXT.":4012@MF0:I1K:FR(I)MFMFFR(I)EI:I1K:AADC:LX(I)(LX(I)DC.5)DC:X3X2(I):X2(I)(X2(I)DC.5)DCfX30ĺY(I);4);FR(I);15);EY(I):295LX(I)0ĺY(I);4);FR(I);15);EY(I);31);X2(I):295"Y(I);4);FR(I);9);LF(I);15);EY(I);23);LX(I);31);X2(I)'I,XQSX:SX(SX1000.5):195 I GS2(G1G2)7 DFDF1DZ:DF1269K MY5MY1:190 MY1MY0:"SAMPLE SIZE TOO SMALL. MINIMUM E(Y)=1 NOT ATTAINABLE.":190 "MINIMUM E(Y)=";MY"Y";4);"FR";15);"EY";31);"X2"<I1K:DC100:EY(I)(EY(I)DC.5)AAEY(L):ABABFR(L):AAMY260;LX(L)AA:LF(L)AB:250KNN235,240TMM2bAA0220xAAEY(L):ABFR(L)DDABAA:AB0AB.0001G1G1AB(AB):G2G2AB(AA):X2(L)DD2AA:SXSXX2(L):DFDF1:AA0:AB0:MM260,255NN2:MM1:JLFIT":aDFK1DZ:DF1ĺ"NUMBER OF CLASSES IS TOO FEW FOR THE GOODNESS-OF-FIT TEST.":315I1K:LX(I)0:X2(I)0:I:AB0:AA0:SX0:DF0:G10:G20:NN1:MM1I1K:NN210,200LKI1:JL265215LIEY(L)MY230 AAO YOU WISH TO:"::5);"1. REDISPLAY THE RESULTS"::5);"2. CALCULATE ANOTHER SET OF":9);"EXPECTATIONS"::5);"3. STOP THE PROGRAM"4013:GK3:4008:GG160,130,475:"GOODNESS-OF-FIT TEST IS NEXT.":MY5:40124004::5);"GOODNESS-OF-);10);FR(I);20);EY(I);37);CSN(FR(I)EY(I)):SN0ĺ"+":169L"-"SIKL1:FR(K)0:EY(K)NS1:Y(K)L:5);Y(K);" OR MORE";20);EY(K):5);"TOTAL";20);N:5);"(BASED ON MEAN=";YM;")"4006:DE01804012:HCOPY0İ4000:"DM:YM0YMMU 4004::5);"EXPECTED VALUES"::EY(1)N(YM):S1EY(1):5);"Y";10);"FR";20);"E(FR)";35);"DIFF":5);Y(1);10);FR(1);20);EY(1);37); SN(FR(1)EY(1)):SN0ĺ"+":165 "-"I2L:EY(I)EY(I1)YMY(I):S1S1EY(I):5);Y(IISSON EXPECTED VALUES:":"ENTER THE NUMBER OF CLASSES: ";L:I1L:Y(I)I1:Iz "ENTER THE SAMPLE SIZE,N: ";N:DE1:150 YMXM:DZ1:160 DZ0: "ENTER THE PARAMETRIC MEAN VALUE";:DG1ĺ:"(FOR GENERATOR MU, PRESS SPACE BAR, RETURN)"; Y";N,"SFY=";S1:"YM=";YM,"SFY2=";S2:"S2=";V,"SS=";SS:"S=";S,"CD=";CDT nXMYM:DE0d s4006:4012 x:"FOR EXPECTED VALUES, DO YOU WISH TO USE:"::5);"1. THE OBSERVED MEAN"::5);"2. A PARAMETRIC MEAN" }4013:GK2:4008:GG140,145M :"PO1)Y(I)1:I LDG0= P4004::5);"SAMPLE STATISTICS":i U5);"Y";20);"FREQUENCY":S10:S20:N0 ZI1L:5);Y(I);25);FR(I):S1S1FR(I)Y(I):S2S2FR(I)Y(I)2:NNFR(I):I _YMS1N:SSS2S12N:VSS(N1):S(V):CDVYM dXMYME i"N=ENERATE POISSON DATA"^ A:5);"4. SEE A DEMONSTRATION":4013:GK4:4008:GG70,130,385,485 F:"DATA ENTRY:"::"ENTER NUMBER OF CLASSES (MAXIMUM 50): ";L:"ENTER FREQUENCIES AS INDICATED." KY(1)0:I1L:"FOR Y= ";Y(I);" FREQUENCY=";:FR(I):Y(I 71AZ50: NO. OF CLASSES IN FREQUENCY DISTRIBUTION.e2Y(AZ),FR(AZ),EY(AZ),LX(AZ),X2(AZ),LF(AZ)7:10);"THE POISSON DISTRIBUTION":HCOPY0İ4000 <:"DO YOU WISH TO:"::5);"1. ENTER DATA"::5);"2. GENERATE EXPECTED VALUES"::5);"3. G          M:FR(I)MFMFFR(I)>I:I0M:AA(EY(I)1):AAMFMFAA]I:::15:0,3939:KLM2I0M:JI1:XJ39KL:YG39FR(I)39MF:YG,39XI2:I0M:JI1:XJ39KL1:YG39EY(I)39MF:YG,39X I:(21):"LIGHT - OBSERVED; DARK - EXI);31);X2(I)^IcMZMthXQSX:SX(SX1000.5)1000:"FOR DF= ";DF;" TOTAL CHI SQUARE=";31);SX;:MT1:750mXQGS:GS(GS1000.5)1000:"G=2(";G1;" - ";G2;")=";31);GS;:MT1:750rMMZw4006::"BAR DIAGRAM IS NEXT":4012|MF0:I031);"X2"lJI0M:DC100:EY(I)(EY(I)DC.5)DC:LX(I)(LX(I)DC.5)DC:X3X2(I):X2(I)(X2(I)DC.5)DCOX30ĺY(I);4);FR(I);15);EY(I):350TLX(I)0ĺY(I);4);FR(I);15);EY(I);31);X2(I):350 YY(I);4);FR(I);9);LF(I);15);EY(I);23);LX(DF1:AA0:AB0:MM315,31026NN2:MM1:JL:2509;IJ@GS2(G1G2)dADFDF1DZ:DF1324xBMY5MY1:245CMY1MY0:"SAMPLE SIZE IS TOO SMALL. MINIMUM E(Y) =1 NOT ATTAINABLE.":245D"MINIMUM E(Y)=";MY E"Y";4);"FR";15);"EY";0 270 LI%EY(L)MY285MAAAAEY(L):ABABFR(L):AAMY315hLX(L)AA:LF(L)AB:305xNN290,295"MM2'AA0275,AAEY(L):ABFR(L)1DDABAA:AB0AB.00012G1G1AB(AB):G2G2AB(AA):X2(L)DD2AA:SXSXX2(L):DF NEXT.":MY5:401274004::5);"GOODNESS-OF-FIT":DFMDZ:DF1ĺ"NUMBER OF CLASSES IS TOO FEW FOR THE GOODNESS-OF-FIT TEST.":375I0M:LX(I)0:X2(I)0:I:AB0:AA0:SX0:DF0:G10:G20:NN1:MM1I0M:NN265,255LMI:JL324006:DE0239'4012:HCOPY0İ4000:"DO YOU WISH TO:"::5);"1. REDISPLAY THE RESULTS"::5);"2. CALCULATE ANOTHER SET OF":9);"EXPECTATIONS"::5);"3. STOP THE PROGRAM"4013:GK3:4008:GG190,130,630:"GOODNESS-OF-FIT TEST ISKY(I)1)RY(I):S1S1EY(I):5);Y(I);10);FR(I);20);EY(I);hSN(FR(I)EY(I)):SN0ĺ37);"+":225v37);"-"}IMK1:FR(M)0:Y(M)M:EY(M)NS1:5);Y(M);" OR MORE";20);EY(M):20);N:"LP=";P;" LQ=";Q:" R=BQ=";R:"YM=";YM;" K=";KK;"EXPECTED VALUES":PYMKK:Q1P:RYM(KKYM):EY(0)(N)KK(Q):EY(0)(EY(0)):S1EY(0):5);"Y";10);"FR";20);"E(FR)";36);"DIFF":5);Y(0);10);FR(0);20);EY(0);SN(FR(0)EY(0)):SN0ĺ37);"+":21037);"-"=I1K:EY(I)EY(I1)(KAMPLE SIZE, N: ";N:DE1:1506 YMXM:KKKS:DZ2:190A DZ0: "ENTER THE PARAMETRIC MEAN VALUE";:DG1ĺ:"(FOR GENERATOR MU AND K, PRESS SPACE BAR, RETURN)"; YM:YM0YMMU:KKKJ:190 "ENTER PARAMETRIC K VALUE: ";KK4004::5) VALUES, DO YOU WISH TO USE:"::5);"1. THE OBSERVED MEAN AND K"::5);"2. A PARAMETRIC MEAN AND K" }4013:GK2:4008:GG140,145 :"NEGATIVE BINOMIAL EXPECTED VALUES:":"ENTER THE NUMBER OF CLASSES: ";K:KK1:I0K:Y(I)I:I "ENTER THE S(V):K1YM2(VYM) iXMYM n"N=";N,"SFY=";S1:"YM=";YM,"SFY2=";S2:"S2=";V,"SS=";SS:"S=";S,"APPROX. K=";K1:DE0:KS0KKKS::"ITERATED K=";KK;" V(K)=";SK:4006:4012:120 s4006::"ITERATION OF EXACT K IS NEXT":4012:435g x:"FOR EXPECTED=";Y(I);" FREQUENCY=";:FR(I):Y(I1)Y(I)1:I:KS0:DG0[ U4004::"SAMPLE STATISTICS": Z5);"Y";20);"FREQUENCY":S10:S20:N0 _I0K:5);Y(I);25);FR(I):S1S1FR(I)Y(I):S2S2FR(I)Y(I)2:NNFR(I):I dYMS1N:SSS2S12N:VSS(N1):S::5);"3. GENERATE NEGATIVE BINOMIAL DATA"::5);"4. SEE A DEMONSTRATION"v A4013:GK4:4008:GG70,130,500,640 F:"DATA ENTRY"::"ENTER NUMBER OF CLASSES (MAX.=50): ";K::"ENTER FREQUENCIES AS INDICATED:":KK1:Y(1)0 K:I0K8 P"FOR Y=61AZ50: NO. OF CLASSES IN FREQUENCY DISTRIBUTIONj2Y(AZ),FR(AZ),EY(AZ),LX(AZ),X2(AZ),LF(AZ),A(AZ)7:5);"THE NEGATIVE BINOMIAL DISTRIBUTION":HCOPY0İ4000N <:"DO YOU WISH TO:"::5);"1. ENTER DATA"::5);"2. GENERATE EXPECTED VALUES"           F)(SZ)(SZ)(SZ)(SZ):I::5);"DO YOU WISH TO:"::5);"1. REVIEW THIS INFORMATION?"::5);"2. STOP THE PROGRAM?"GK2:G$:GG(G$)GG1GGGKĺ"ENTER AGAIN":2003SZ16336:I150:BOUNCE(SZ)(SZ)(SZ)(SZ):I:"":);(4);"CATALOG":"ADDITIONAL PROGRAMS ARE ON THE OTHER SIDE OF THE DISK. FLIP THE DISK AND TYPE: CATALOG (RETURN) -TO GET THE ADDITIONAL LISTING.":5);"TO CONTINUE, PRESS A KEY":A$:SZ16336:I120:BOUNCE(SZMATION OF THE DATA MAY BE DONE."^':"LATIN SQUARE GENERATES LATIN SQUARES UP TO 40 X 40."{2002:2006:GG100,1000:(13):5);"THAT'S IT, FOLKS!":"";""I125:DLY123.4765987.436:I:"HERE COMES THE CATALOG-":2006:(13REE-WAY ANALYSIS OF VARIANCE. IF DESIRED, DATA MAY BE TRANSFORMED." ":"NEST2 DOES A TWO-LEVEL NESTED ANOVA. NEST3 DOES A THREE-LEVEL NESTED ANOVA. IN BOTH INSTANCES, EQUAL OR UNEQUAL SAMPLE SIZES MAY BE ACCOMODATED AND TRANSFORTRANS- FORMED AND UNEQUAL VARIANCES ANOVA AND T-TEST PERFORMED.":"ANOVA2 DOES TWO-WAY ANALYSIS OF VARIANCE AND TUKEY'S TEST FOR NONADDITIVITY. IF NECESSARY, THE DATA MAY BE TRANSFORMED."2000:2001::30);"PAGE 5"N:"ANOVA3 DOES A THTHE WILCOXON SIGNED RANKS TEST."`" (SEE CHAPTER 13 OF SOKAL AND ROHLF, 1969, BIOMETRY.)D:"ANOVA1 DOES ONE-WAY ANALYSIS OF VARIANCE AND T-TEST FOR THE DIFFERENCE BETWEEN TWO MEANS. IN ADDITION, ANOVA ASSUMP- TIONS MAY BE TESTED, THE DATA RESPONDING TO ANY Z, T, CHI-SQUARE OR F VALUE."R2000:2001::30);"PAGE 4" :"NON-PARAMETRICS OFFERS FOUR TESTS: THE KRUSKAL-WALLIS TEST, THE MANN-WHITNEY (WILCOXON'S TWO SAMPLE) TEST, FRIEDMAN'S TEST FOR RANDOMIZED BLOCKS, AND EN X, PREDICTS X GIVEN Y - WITH CONFIDENCE INTERVALS.":"REGRESSN DOES THE SAME WHEN THERE IS ONE OR MORE Y'S FOR EACH X, IN ADDITION TO TRANSFORMATIONS AND ORTHOGONAL POLYNO- MIALS."1:"TABLES ALLOWS LOOKUP OF THE PROBABILITY COREAN CONFIDENCE ELLIPSE."b :"REGRESS CALCULATES (FOR THE CASE OF ONLY ONE Y FOR EACH X):" " A REGRESSION ANOVA, THE EQUATION FOR THE LINE, CONFIDENCE INTERVALS FOR ALL PARAMETERS, CONFIDENCE BELT FOR THE"A" LINE, PREDICTS NEW Y'S GIVMPLES WHILE GRAPHP DOES A 'PROBABIL- ITY PAPER' GRAPH FOR LARGE SAMPLES (SEE CHAPTER 6 OF SOKAL AND RHOLF, BIOMETRY)" 2000:2001::30);"PAGE 3" :"CORRELATE CALCULATE THE SMALL SAMPLE CORRELATION COEFFICIENT, MAJOR AXES, AND BIVARIATE MDISTRIBUTIONS. UN- ORDERED DATA MAY BE TABULATED INTO A FREQUENCY DISTRIBUTION. NORMAL" " EXPECTED VALUES AND GOODNESS-OF-FIT TO NORMAL MAY BE DONE (CHI-SQUARE, G, AND KOLMOGOROV-SMIRNOV D)"v :"GRAPHR DOES A RANKIT GRAPH FOR SMALL SA"" 2000:2001::30);"PAGE 2" :"NORMAL GIVES BASIC STATISTICS INCLUDING MEDIAN, CONFIDENCE LIMITS FOR MEAN AND VARIANCE, G1, G2, KOLMOGOROV-SMIRNOV D AND THEIR SIGNIFICANCE."^ :"THE PROGRAM ACCEPTS EITHER UNORDERED DATA OR FREQUENCY :"CONTINGENCY ANALYSES FREQUENCIES OF ATTRIBUTES, DOING GOODNESS-OF-FIT, TESTS OF INDEPENDENCE, ETC. (SEE CHAPTER 16 OF SOKAL AND ROHLF, BIOMETRY.)" :"FOR ANALYSIS (OR GENERATION) OF CONTI- NUOUS DATA SAMPLES, RUN NORMAL. c""Jd:30);"PAGE 1"::"INTRODUCTION TO STATISTICAL PROGRAMS:"n:"FOR ANALYSIS (OR GENERATION) OF DISCRETE DATA SAMPLES, RUN BINOMIAL, POISSON OR NEGATIVE BINOMIAL PROGRAMS. THESE PROGRAMS ALSO DO GOODNESS-OF-FIT TESTS. x     :B3B4M12V1M2:C5B4M2:C4V1M22C5M1V2M12CA:C62V2M1:I0:XM1:YM2(CAV1)hMULT2:GG1XP(XXS)279XD:YP191(YYS)191YD:YP0YP191415XP,YP:GG2J15:BOUNCE(SZ)(SZ)(SZ)(SZ):JDXXD279:SG1XXMULT1)%wPT(6)M2C:PT(7)M1:PT(8)M2C?|C(CA(L2(1B12)))PT(10)M2C:PT(9)M1B1(PT(10)M2):PT(12)M2C:PT(11)M1B1(PT(12)M2)C(CA(L1(1B22)))PT(14)M2C:PT(13)M1B2(PT(14)M2):PT(16)M2C:PT(15)M1B2(PT(16)M2)XB42CV0A12:A21:NX32:3557YN240A13:A22:NX31:355K^A14:A23:NX30cI1NX:R:I:F1R:R:F3R::N4120N2:FS(N4A1)(F3F1)(A2A1)F1hCAFSL1L22(N1)(N2N):C(CAV2)mPT(1)M1C:PT(2)M2:PT(3)M1C:PT(4)M2:PT(5)M1rC(CAV.94,5.79,5.14,4.74,4.46,4.26,4.10,3.98,3.89,3.81,3.74,3.68,3.63,3.59,3.55,3.52,3.49@ 3.47,3.44,3.42,3.40,3.39,3.37,3.35,3.34,3.33,3.32,3.23,3.15,3.07,3.00EN2N2:N230335JI1N2:R:I:FSR::360ON2120A11:A20:NX33:355TN262)Y:X(XXS)279XD:Y191(YYS)191YD:X,YW'YYM:XZ2B2Y:XXSXXS:Y(XZ2)B2r,XXMXXM:Y(XZ2)B21PT(23)X:PT(24)Y:X(XXS)279XD:Y191(YYS)191YD:X,Y6I110:BOUNCE(SZ)(SZ)(SZ)(SZ)(SZ)(SZ):IS; 199,19,9.55,6YD:X,Y2YYM:XZ1B1Y:XXSXXS:Y(XZ1)B1M XXMXXM:Y(XZ1)B1PT(19)X:PT(20)Y:X(XXS)279XD:Y191(YYS)191YD:X,YI150:BOUNCE(SZ):IYYS:XZ2B2Y:XXSXXS:Y(XZ2)B2XXMXXM:Y(XZ2)B2-"PT(21)X:PT(2I)XS)279XD:Y191(Y2(I)YS)191YD7Y1(I)XSX2KY2(I)YSY189TX,YJ15:BOUNCE(SZ)(SZ)(SZ)(SZ):J:IYYS:XZ1B1Y:XXSXXS:Y(XZ1)B1XXMXXM:Y(XZ1)B1PT(17)X:PT(18)Y:X(XXS)279XD:Y191(YYS)191 TO PROCEED.":4012:GCOPY1470F:7:0,00,191279,191:SZ16336nXSY1(1):XMY1(1):YSY2(1):YMY2(1)yI2NY1(I)XSXSY1(I)Y1(I)XMXMY1(I)Y2(I)YSYSY2(I)Y2(I)YMYMY2(I)I:XDXMXS:YDYMYS%I1N:X(Y1(2)):A(H(1HH)):LL(B1A)(1B1A):LU(B1A)(1B1A)"CONFIDENCE LIMITS: MAJOR AXIS SLOPE:":"LOWER: ";LL;" UPPER: ";LU4006:4012:505 :10::"FOR A GRAPH, PRESS A KEY. WHEN THE GRAPH IS FINISHED (AT THE BELL) AGAIN PRESS A KEY;LL;" UPPER: ";LU DA(V1V2)24(V1V2CV2):DA(DA):L1(V1V2DA)2:L2(V1V2DA)2:B1CV(L1V1):B21B1:Z1M1B1M2:Z2M1B2M2 "PRINCIPAL AXES ARE:":"MAJOR: Y1=";Z1;" + ";B1;"Y2":"MINOR: Y1=";Z2;" + ";B2;"Y2"8H3.841(N(L1L2L2L1S=";D1;23);D2\ 16);"SP=";SP:15);"S12=";CV:TTR((N2)(1R2)):530:17);"R=";R;X$ Z.5((1R)(1R)):LB1.96(N3):LLZLB:LUZLB:LL((LL)(LL))((LL)(LL)):LU((LU)(LU))((LU)(LU)) "CONFIDENCE LIMITS FOR R:":"LOWER: "N:Q2S4S32N:V1Q1(N1):V2Q2(N1):D1(V1):D2(V2):SPS5S1S3N:RSP(Q1Q2):CVSP(N1)l }RSR2 8);"Y1";26);"Y2":" SY=";S1;23);S3:" SY2=";S2;23);S4:13);"SY1Y2=";S5:"MEAN=";M1;23);M2:" SS=";Q1;23);Q2:" S2=";V1;23);V2:" 20);"Y1";27);"Y2"T iI1N22:3);Y1(I);10);Y2(I);20);Y1(I1);27);Y2(I1):It nN2Nĺ3);Y1(N);10);Y2(N) sS10:S20:S30:S40:S50:I1N:S1S1Y1(I):S2S2Y1(I)2:S3S3Y2(I):S4S4Y2(I)2:S5S5Y1(I)Y2(I):Ia xM1S1N:M2S3N:Q1S2S12 A DEMONSTRATION?(Y/N)":16368,0:4015:GG585,70 F:"NUMBER OF PAIRED VARIATES=?":N:"ENTER VARIATES IN FORM Y1, Y2 (RETURN)" KI1N:Y1(I),Y2(I):I PGCOPY0 U4004 Z:"VARIATES AS ENTERED ARE:" _N22(N2) d3);"Y1";10);"Y2";'1AZ50: NO. OF PAIRS OF VARIATES.A2Y1(AZ),Y2(AZ),PT(24)7:"THIS PROGRAM HANDLES FROM 4 TO 50 PAIRED VARIATES, CALCULATING THE CORRELATION COEFFICIENT, BIVARIATE MEAN, AND THE PRICIPAL AXES."<HCOPY0İ40002 A:"DO YOU WISH TO SEE         X1X3:X2X4:Y1Y5:Y2Y6:Y3Y7:Y4Y8:P1P3:P2P4:R1R5:R2R6:R3R7:R4R8:134]GCOPY1:19616304,0:16302,0:16299,0:16297,0"":4012::HCOPY0İ4000B:"DO YOU WISH TO:"::5);"1. RE-DISPLAY THE RESULTS"::5);"2. MAKE PREO3148,1512Y7YSYMX:Y7YMCOCO1:O32:151YR7191(Y7YS)191YD:P2,R3P4,R7iO4152,156Y8YSYMX:Y8YSCOCO1:O42:156R8191(Y8YS)191YD:P2,R4P4,R8J15:BOUNCE(SZ)(SZ)(SZ)(SZ):JCO4CU2ī194LYMX:Y5YMCOCO1:O12:141DR5191(Y5YS)191YD:P1,R1P3,R5TO2142,146|Y6YSYMX:Y6YSCOCO1:O22:146R6191(Y6YS)191YD:P1,R2P3,R6U2146,156X4X24XD279:P4(X4XS)279XD:YABX4:X4XSCUCU1:U22:156 1:O21:O31:O41U11:U21rP1(X1XS)279XD:P2P1:R1191(Y1YS)191YD:R3R1:R2191(Y2YS)191YD:R4R2X3X14XD279:P3(X3XS)279XD:YABX3:SY(UM(1N(X3M1)2Q1)):U1135,145X3XMCUCU1:U12:145O1138,141Y5YSI^zX(M1XS)279XD:X1X3:X2X3:Y191(M2YS)191YD:Y1Y3:Y2Y3:X1,YX2,Y:X,Y1X,Y2{J110:BOUNCE(SZ)(SZ)(SZ)(SZ):J}610:MX(2FS)X1M1:X2M1:YABX1:SY(UM(1N(X1M1)2Q1)):Y1YSYMX:Y3Y1:Y2YSYMX:Y4Y2:CO0:O1)(SZ):J:I3sXXS:YABX:YYSYYS:X(YA)BLtYYMYYM:X(YA)ByuX(XXS)279XD:Y191(YYS)191YD:X,YvXXM:YABX:YYSYYS:X(YA)BwYYMYYM:X(YA)BxX(XXS)279XD:Y191(YYS)191YD:X,YyI150:BOUNCE(SZ):NhXX(I)XSXSXX(I)0iXX(I)XMXMXX(I)GjYY(I)YSYSYY(I)^kYY(I)YMYMYY(I)wlI:XDXMXS:YDYMYSnI1N:X(XX(I)XS)279XD:Y191(YY(I)YS)191YDoXX(I)XSX2pYY(I)YSY189qX,Y rJ15:BOUNCE(SZ)(SZ)(SZ A GRAPH OF THE LINE AND .95 CONFI- DENCE BELT, PRESS ANY KEY. WHEN THE GRAPH IS FINISHED (AT THE BELL), AGAIN PRESS A KEY TO PROCEED."`4012dGCOPY1195e:7:0,00,191279,191:SZ16336fXSXX(1):XMXX(1):YSYY(1):YMYY(1)gI2IMITS FOR MEAN Y:":"S.E.=";SY:"L1=";L1;22);"L2=";L2K\4006:4012:197`]:HCOPY0İ4000^:"DO YOU WISH TO:"::5);"1. RE-DISPLAY THE RESULTS"::5);"2. MAKE PREDICTIONS"::5);"3. PLOT THE LINE"::5);"4. STOP THE PROGRAM"_:"FORUATION:" U"Y=";A;" + ";B;"X"6 V4006:4012:4004 ZSB(UMQ1):DFN2:600:L1BTSB:L2BTSB::"S.E. & .95 CONFIDENCE LIMITS FOR B:":"S.E.=";SB;22);"T=";T:"L1=";L1;22);"L2=";L26[SY(UMN):L1M2TSY:L2M2TSY::"S.E. & .95 CONFIDENCE L O:"REGRESSION ANALYSIS:" P"DF";7);"SS";20);"MS";35);"F":"EXPLAINED":"1";4);ES;18);EM;31);FS;X$;:X$" *"ĺ"":83 QX$" **"ĺ"";"":83 R4011 S"UNEXPLAINED":N2;4);US;18);UM:"TOTAL":N1;4);Q2;18);V2 T:"REGRESSION EQESSP2Q1:USQ2ES G8);"X";26);"Y":" SY=";S1;23);S3:" SY2=";S2;23);S4:13);"SXY=";S5:"MEAN=";M1;23);M2:" SS=";Q1;23);Q2:" S2=";V1;23);V2 H" S=";D1;23);D2:16);"SP=";SP KN2N2:EMES:UMUSN2:FSEMUM:500:FS(FS100.5)100 =N2NĺXX(N);8);YY(N) AS10:S20:S30:S40:S50:I1N:S1S1XX(I):S2S2XX(I)2:S3S3YY(I):S4S4YY(I)2:S5S5XX(I)YY(I):I FM1S1N:M2S3N:Q1S2S12N:Q2S4S32N:SPS5S1S3N:V1Q1(N1):V2Q2(N1):D1(V1):D2(V2):BSPQ1:AM2BM1::"ENTER N, THE SAMPLE SIZE=";:N:"ENTER THE VARIATES, IN THE FORM X,Y:":I1N:XX(I),YY(I):Im :GCOPY0 ;4004::"VARIATES AS ENTERED ARE:" <N22(N2):2);"X";9);"Y";19);"X";26);"Y":I1N22:XX(I);8);YY(I);18);XX(I1);25)YY(I1):I'0AZ50: NO. OF PAIRS OF VARIATES.:1XX(AZ),YY(AZ)2:"THIS PROGRAM DOES A REGRESSION ANALYSIS WHERE THERE IS A SINGLE VALUE OF Y FOR EACH X."3HCOPY0İ40004:"DO YOU WISH TO SEE A DEMONSTRATION?(Y/N)":16368,0:4015:GG520,55a 7         ԠҤҤĠٍ̠FOR GROUP ";I;" HOW MANY REPLICATES?":N(I)z"ENTER THE ";N(I);" REPLICATE VALUES:":NNNNN(I):J1N(I):Y(I,J):J:I :"VARIATES AS ENTERED ARE:":I12:"GROUP ";I;" ";N(I);" VARIATES:"J1N(I):Y(I,J):J:I:"ONE MOMENT PLEASE. RA315:415"XQXTĺ" *";"":4155" **";"";""J216,0:MT2:320PV:"WILCOXON TWO-SAMPLE TEST (=MANN-WHITNEY U-TEST) FOR TWO SAMPLES, RANKED OBSER- VATIONS, NOT PAIRED."HCOPY0İ400075:AN$"Y"685+NN0:I12:"5927)cLQ1:M1:DXDF>hDXDX2:MMXQDX:M.0000001360OmLQLQM:360`rPB1JKQLQ}wPB.05ĺ" NS":315:420|PB.01ĺ" *";"":420" **";"";"":420XS.5((2DF1)1.645)2XT.5((2DF1)2.326)2XQXSĺ" NS":13526SZ16336:SOUND(SZ)(SZ)(SZ)(SZ):n;SZ16336:II120:BOUNCE(SZ)(SZ)(SZ)(SZ):II:~@MT325,420E390JR1:IDF22:RRI:IOKQXQ((DF1)2))(XQ2)RT216,0Y(DF2)DF2J1:355^J(2XQ3.1411I):RR:Y(I,J)RR:J:I::40042:"EFFECT OF DIFFERENT SUGARS ON GROWTH OF PEA SECTIONS (SOKAL AND ROHLF, BOX 13.5)":"CONT";6);"GLU";12);"FRU";18);"G+F";24);"SUC"3:J110:Y(1,J);6);Y(2,J);12);Y(3,J);18);Y(4,J);24);Y(5,J):J:4006: 10,10,10,10,104 75,67,70,75,65,71,67,67,76,68X 57,58,60,59,62,60,60,57,59,61|" 58,61,56,58,57,56,61,60,57,58' 58,59,58,61,57,56,58,57,57,59, 62,66,65,63,64,62,65,65,62,671A5:NN0:I15:RR:N(I)RR:NNNNRR:I:I1A:J1N(%H20:I1A:H2H2S(I)2N(I):IAH33(NN1):H4H1H2H3]DTJ((NN1)NN(NN1))oD1D:H5H4D:"H1=";H1;" * ";H2;" - ";H3:"H=";H4;" / ";D"ADJUSTED H=";H5; XQH5:DFA1:MT1:320:59:60:63:GK4:65:GG215,105,50,70RS:Y1(K)YK:M:TJTJNT3NT)310:I[K0:I1A:J1N(I):KK1:Q(I,J)Q1(K):J:Il""::4004ST0:I1A:S(I)0:"GROUP ";I;", ";N(I);" VARIATES:":J1N(I):Y(I,J);10);Q(I,J):S(I)S(I)Q(I,J):JSTSTS(I):IH112(NN(NN1))J1NNY1(J)YK190#KC2QY1(J)YTNTNT1:KK1:TI(K)J:CK1:190Y1(J)YTNT1:K1:CK0:YTY1(J):TI(K)J:LJJ:KC0210CK0RKRK1:Q1(L)RK:Y1(L)YK:205SS0:M1NT:RKRK1:SSSSRK:M:RSSSNT:M1NT:KTI(M):Q1(K) ";I;" ";N(I);" VARIATES:"6 J1N(I):Y(I,J):J:I\ :"ONE MOMENT PLEASE. RANKING!"n YLY(1,1):K0 I1A:J1N(I):KK1:Y1(K)Y(I,J):Y(I,J)YLYLY(I,J) J:310:I YKYL10:YJYL5:RKNN1:TJ0 I1NN:YTYJ:NT0:K0:KC0EST":HCOPY0İ4000( l75:AN$"Y"275B n"HOW MANY GROUPS?";A sNN0:I1A:"FOR GROUP ";I;" HOW MANY REPLICATES?":N(I) x"ENTER THE ";N(I);" REPLICATE VALUES:":NNNNN(I):J1N(I):Y(I,J):J:I }:"VARIATES AS ENTERED ARE:":I1A:"GROUPGGGKĺ"ENTER AGAIN":65: Cn F:9:5);"THAT'S ALL THERE IS.":I125:W1223.785476.9898:I:"";"": K:"WOULD YOU LIKE TO SEE A DEMONSTRATION (Y/N)? LAN$ MAN$"N"ı NAN$"Y"ı O"ENTER AGAIN":75 d i:"KRUSKAL-WALLIS T <:HCOPY0İ4000t =:"DO YOU WISH TO:"::5);"1. REDISPLAY THE RESULTS"::5);"2. RUN ANOTHER SET OF DATA" >:5);"3. SELECT ANOTHER TEST"::5);"4. STOP THE PROGRAM": ?:5);"(PRESS THE APPROPRIATE KEY)": AG$:GG(G$) BGG1:5);"2. MANN-WHITNEY U TEST":9);"(WILCOXON TWO-SAMPLE TEST)" 4:5);"3. FRIEDMAN'S RANDOMIZED BLOCKS"::5);"4. WILCOXON'S SIGNED-RANKS TEST" 563:GK4:65:GG100,500,1000,1400 ;4006::5);"(TO CONTINUE, PRESS A KEY)":16368,0:A$:-W,AA20:BB20:CCAABB: AA IS NO. OF GROUPS, BB IS MAX. NO. REPLICATES IN A GROUP.-N(AA),TI(AA),Y(AA,BB),Y1(CC),Q1(CC),Q(AA,BB),Y2(AA,BB)2:"A SELECTION OF NON-PARAMETRIC TESTS:":"WHICH DO YOU CHOOSE?"A 3:5);"1. KRUSKAL-WALLIS TEST":                    8Hmx (6*+(n*+c*ȩ*h`HH$hH,b (hHI  X $ i$h`l 6:II120:BOUNCE(SZ)(SZ)(SZ)(SZ):II:m :5);"(TO CONTINUE, PRESS A KEY)";"":16368,0:A$:: :5);"(PRESS THE APPROPRIATE KEY)":16368,0: SZ16336:SOUND(SZ)(SZ):XNELETYPE"::"";"":DL1300:DL:"";"":H G$"N"HCOPY0:4011:a "ENTER AGAIN":4001 HCOPY1ĺ(13);(4);"PR#1"  HCOPY1ĺ(13);(4);"PR#0"  16368,0:G$:GG(G$) GG1GGGKĺ"ENTER AGAIN":4008 / SZ163308 GG180,108,220@ :(10):"THAT'S ALL THERE IS!";"":X I1N:Z(I)(1):Ih I1N:ZT0 J1N:Z(J)ZTZTZ(J):KJ J:Q(K)I:Z(K)0:I: :"DO YOU WISH HARD COPY (Y/N)?":16368,0, G$:G$"Y"HCOPY1:::(12):"TURN ON T:: I1N:J1N:TA);Y2(I,J);:TATA3:TA40TA1:M J:TA1:::IW 4006r 4012::HCOPY0İ4000 :"DO YOU WISH TO:"::5);"1. RE-DISPLAY THE RESULT"::5);"2. GENERATE ANOTHER SQUARE"::5);"3. STOP THE PROGRAM":4013:GK3:40:4014:L:4011G I1N:J1N:KJI1:Y(I,J)X(K):J:4014:I:4011V 1000:"" I1N:J1N:KQ(I):Y1(I,J)Y(K,J):J:4014:I 1000:"" J1N:I1N:KQ(J):Y2(I,J)Y1(I,K):I:4014:J "":TA1:4004::N;" X ";N;" LATIN SQUARE:":5PX(80),Y(40,40),Y1(40,40),Y2(40,40),Q(40),Z(40)Z:"THE PROGRAM GENERATES N X N LATIN SQUARES FOR ANY N (WITHIN REASON - DEFINED AS N <=40)"dHCOPY0İ4000i110ln:"N=";N xK1N:X(K)K:K:LN12N:X(L)X(LN)!! ! ! ! ! R AGAIN":101 gGG50,105F i:(10):"THAT'S ALL THERE IS!";"":AK TO THE TV, TYPE:"::5);"PR#0"W _:5);"(TO CONTINUE, PRESS A KEY)":16368,0:A$ d:(10):"PRESS THE APPROPRIATE KEY TO:"::5);"1. REVIEW THESE INSTRUCTIONS"::5);"2. STOP THE PROGRAM":GK2 e16368,0:G$:GG(G$) fGG1GGGKĺ"ENTE NOT RECOGNIZE TAB COMMANDS OR GENERATE AUTOMATIC CARRRIAGE RETURNS, THE FORMAT OF THE OUTPUT WILL BE SOMEWHAT MESSED UP." U:"THUS, FOR THE BEST RESULTS, USE THE APPLE II IN SUTTON HALL."! Z:"TO CEASE HARD COPY AND ROUTE OUTPUT BACSET, CONTROL B, PR#6, ETC."Q F5);"(TO CONTINUE, PRESS A KEY)":16368,0:A$ K:"":"DURING OPERATION, THE TV WILL REMAIN BLANK, ALL OUTPUT GOING TO THE PRINTER." P:"BECAUSE THE SERIAL COMMUNICATIONS HARD- WARE BEING USED APPARENTLY DOESE COMMAND:"::5);"EXEC HARD COPY"n <:"3. WHEN THE DISK DRIVE STOPS, RUN":5);"PROGRAM BY TYPING: RUN" A:"YOU MUST NOT ASK FOR HARD COPY WHEN THE PROGRAM QUERIES YOU! IF YOU DO, THE APPLE WILL HANG UP AND YOU WILL HAVE TO START FROM REH2:"TO GET HARD COPY OF THE OUTPUT FROM THE STATISTICS PROGRAMS ON THE PRINTER IN THE RICHARDS HALL AUDIO-VISUAL ROOM,"3" TURN ON THE PRINTER AND:"# 7:"1. LOAD THE DESIRED PROGRAM BY TYPING:"::5);"LOAD (NAME) (RETURN)"::"2. TYPE TH"" " " " "