10 COM Z6,H$[7],V6,J7,W$[72],U$[72],I[4],C3,S[7],I6,P[7] 20 COM I,R7,N9,L[24,8],N7,P$[72],Q$[72],N[24,4],M[4],F9,D[4,2],R[16] 30 GOTO 80 40 CHAIN "$ANAL-4" 50 CHAIN "$ANAL-3" 60 CHAIN "$ANAL-1" 70 CHAIN "$EX-DAT" 80 A9=I-I 90 IF F9=2 THEN 410 100 IF F9=4 THEN 160 110 PRINT "WOULD ANOTHER FORM OF OUTPUT BE OF VALUE AT THIS TIME"; 120 INPUT B$[I,I] 130 IF B$="N" THEN 410 140 F9=I 150 GOTO 40 160 PRINT '10"WOULD YOU LIKE TO USE THE SAME VARIABLES BUT REDEFINE EITHER" 170 PRINT "THE DEPENDENT OR INDEPENDENT FUNCTION"; 180 INPUT B$[I,I] 190 IF B$#"Y" THEN 240 200 F9=0 210 W$=P$ 220 U$=Q$ 230 GOTO 50 240 IF NOT C3 AND NOT A9 THEN 410 250 IF NOT C3 AND A9=2 THEN 1080 260 PRINT '10"WOULD YOU LIKE TO SELECT A DIFFERENT PLAN FOR THE ANALYSIS" 270 PRINT "OF THE VARIABLES IN THIS INVESTIGATION"; 280 INPUT B$[I,I] 290 IF B$="N" THEN 1080 300 MAT S=ZER 310 MAT P=ZER 320 MAT M=ZER 330 FOR W=I TO 4 340 S[W+2]=W 350 NEXT W 360 PRINT "WILL THE NEW PLAN REQUIRE ANOTHER SET OF DATA"; 370 INPUT B$[I,I] 380 IF B$="Y" THEN 400 390 GOTO 60 400 GOTO 70 410 PRINT '10"DOES (DO) THE GRAPH(S) RESEMBLE A STRAIGHT LINE(S)"; 420 INPUT B$[I,I] 430 A9=I 440 IF B$#"Y" THEN 160 450 DIM D$[4] 460 D$="*@#." 470 Z8=I-I 480 PRINT '10"WOULD YOU LIKE TO DETERMINE THE SLOPE OF THE LINE"; 490 INPUT B$[I,I] 500 IF B$#"Y" THEN 260 510 A9=2 520 IF R[I]=R[2] OR NOT R[2] THEN 610 530 PRINT '10"SELECT ONE OF THE CHARACTERS USED TO PLOT A GIVEN SET OF DATA:" 540 PRINT "WHICH OF THESE PLOT CHARACTERS DO YOU WANT TO ANALYZE (# @ * .)"; 550 INPUT B$[I,I] 560 FOR N=I TO 4 570 IF B$=D$[N,N] THEN 620 580 NEXT N 590 PRINT "SORRY CHARLIE, YOU'LL HAVE TO PLAY THIS GAME STRAIGHT!" 600 GOTO 530 610 N=I 620 PRINT '10"SELECT AN INTERVAL FOR THE 'CHANGE IN ("W$")' AND THE" 630 PRINT "CORRESPONDING 'CHANGE IN ("U$")'." 640 PRINT "'CHANGE ALONG Y-AXIS' = 'CHANGE IN ("U$")' = "; 650 INPUT Y 660 PRINT "'CHANGE ALONG X-AXIS' = 'CHANGE IN ("W$")' = "; 670 INPUT X 680 PRINT TAB(20)"CHANGE IN (Y)"'10'13TAB(12)"SLOPE = ------------- = "INT(1000*Y/X+.5)/1000 690 PRINT TAB(20)"CHANGE IN (X)" 700 PRINT '10"DOES THE EXTENSION OF YOUR GRAPH INCLUDE THE ORIGIN, THE POINT (0,0)"; 710 INPUT B$[I,I] 720 PRINT "COMPARE YOUR RESULT FOR THE SLOPE OF THE LINE WITH THE FOLLOWING VALUE" 730 PRINT "CALCULATED BY 'MODEQ'." 740 IF B$="N" THEN 800 750 PRINT TAB(20)"CHANGE IN (Y)"'10'13TAB(12)"SLOPE = ------------- = "INT(R[N]*1000+.5)/1000 760 PRINT TAB(20)"CHANGE IN (X)" 770 PRINT '10"THE DEVIATION IN VALUES FOR THE SLOPE OF THE LINE IS "ABS(INT(1000*(R[N]-Y/X)/R[N]+.5))/10" PERCENT." 780 IF ABS((R[N]-Y/X)/R[N]*100)<10 THEN 1020 790 GOTO 890 800 PRINT TAB(20)"CHANGE IN (Y)"'10'13TAB(12)"SLOPE = ------------- = "INT(1000*R[N+4]+.5)/1000 810 PRINT TAB(20)"CHANGE IN (X)" 820 Z9=R[8+2*N-I]-(R[4+N]*R[8+2*N]) 830 IF ABS(Z9)>.0001 THEN 850 840 Z9=I-I 850 PRINT "THE Y-AXIS INTERCEPT IS "Z9". YOU SHOULD COMPARE THIS VALUE" 860 PRINT "WITH THE INTERCEPT ON YOUR GRAPH." 870 PRINT '10"THE DEVIATION IN VALUES FOR THE SLOPE OF THE LINE IS "ABS(INT(1000*(R[N+4]-Y/X)/R[N+4]+.5))/10" PERCENT." 880 IF ABS((R[N+4]-Y/X)/R[N+4]*100)<10 THEN 1020 890 PRINT '10"WHILE THE FIGURE OF 'TEN PERCENT' IS NOT A STANDARD FOR MAXIMUM" 900 PRINT "ERROR, AN ERROR GREATER THAN THIS VALUE MAY SUGGEST THE FOLLOWING:" 910 PRINT TAB(5)"1) A REEXAMINATION OF THE CHANGES IN VALUES ALONG THE" 920 PRINT TAB(8)"(Y) AND (X) AXES," 930 PRINT TAB(5)"2) THE RELATIONSHIP MAY NOT BE LINEAR. TRY A" 940 PRINT TAB(8)"REDEFINITON OF FUNCTIONS" 950 PRINT TAB(5)"3) ANOTHER PLAN FOR THE ANALYSIS"'10 960 A9=3 970 PRINT "IS THE PROBLEM IN YOUR VALUES FOR 'CHANGE IN (Y)' OR 'CHANGE IN (X)'"; 980 INPUT B$[I,I] 990 IF B$="N" THEN 160 1000 PRINT "OKAY, TRY AGAIN." 1010 GOTO 640 1020 Z8=Z8+I 1030 IF NOT R[Z8+I] THEN 160 1040 PRINT '10"WOULD YOU LIKE TO FIND THE SLOPE OF ANOTHER LINE"; 1050 INPUT B$[I,I] 1060 IF B$="N" THEN 160 1070 GOTO 540 1080 PRINT '10"THIS CONCLUDES THE PROGRAM. IF YOU WANT TO EXTEND YOUR PLAN FOR" 1090 PRINT "ANALYSIS OR TRY ANOTHER PLAN, RUN 'MODEQ' AGAIN." 1100 END