5 PRINT:PRINT:PRINT "LIST THIS PROGRAM FOR INSTRUCTIONS": PRINT:PRINT 10 REM-STATISTICS PROGRAM 30 REM-REQUIRED INPUT 40 REM- 1) YEAR OF BEGINNING DATA 50 REM- 2) YEAR OF ENDING DATA 60 REM- 3) DATA FOR THE YEARS OF ANALYSIS 70 REM- 80 REM- 90 REM-MATRIX T CONTAINS THE FOLLOWING: 100 REM- T(1) CONTAINS THE SUM OF THE X'S 110 REM- T(2) CONTAINS THE SUM OF THE Y'S 120 REM- T(3) CONTAINS THE SUM THE X*Y'S 130 REM- T(4) CONTAINS THE SUM OF THE X SQUARE'S 140 REM- 150 REM- 160 REM-MATRIX A CONTAINS THE FOLLOWING: 170 REM- A(Z,1) CONTAINS THE ASSIGNED X VALUES 180 REM- A(Z,2) CONTAINS THE INPUTTED Y VALUES 190 REM- A(Z,3) CONTAINS X*Y 200 REM- A(Z,4) CONTAINS X SQUARED 210 REM- A(Z,5) CONTAINS THE EXPECTED VALUES OF Y (Y') 220 REM- USING THE FORMULA Y'=A+BX 230 REM- 240REM- 250 DIM T(4),A(100,5) 260 MAT T=ZER 270 PRINT 280 PRINT 290 PRINT "WHAT IS THE BEGINNING YEAR OF YOUR DATA"; 300 INPUT B3 310 PRINT "WHAT IS THE ENDING YEAR"; 320 INPUT E 330 REM-CALCULATE NUMBER OF PERIODS OF DATA 340 N=ABS(E-B3+1) 350 B1=B3 360 REM-IS THERE AN EVEN NUMBER OF YEARS (YES THEN GO TO LINE#460) 370 IF N/2=INT(N/2) THEN 460 380 REM-ASSIGN VALUES TO X FOR ODD NUMBER OF YEARS 390 X=-(N-1)/2 400 FOR Z=1 TO N 410 A(Z,1)=X 420 X=X+1 430 NEXT Z 440 GO 510 450 REM-ASSIGN VALUES TO X FOR EVEN NUMBER OF YEARS 460 X=-(N-1) 470 FOR Z=1 TO N 480 A(Z,1)=X 490 X=X+2 500 NEXT Z 510 PRINT 520 PRINT 530 PRINT 540 PRINT 550 PRINT "YEAR YVALUE" 560 PRINT "==== ======" 570 FOR Z=1 TO N 580 PRINT B1; 590 REM-INPUT THE VALUE OF Y FOR EACH PERIOD 600 INPUT A(Z,2) 610 B1=B1+1 620 REM-FIND THE VALUE OF X*Y AND ROUND TO THE NEAREST 100TH 630 A(Z,3)=INT(A(Z,1)*A(Z,2)*100+.5)/100 640 REM-FIND THE VALUE OF X SQUAR AND ROUND TO THE NEAREST 100TH 650 A(Z,4)=INT(A(Z,1)^2*100+.5)/100 660 FOR Z1=1 TO 4 670 REM-TOTAL UP THE X'S , Y'S , X*Y'S , AND THE X SQUARE'S 680 T(Z1)=T(Z1)+A(Z,Z1) 690 NEXT Z1 700 NEXT Z 710 REM-CALCULATE A AND ROUND OFF TO NEAREST 100TH 720 REM- FORMULA FOR A IS 730 REM- A=SUM OF THE Y'S DIVIDED BY N(NUMBER OF PERIODS) 740 A=INT(T(2)/N*100+.5)/100 750 REM-CALCULATE B AND ROUND OFF TO THE NEAREST 100TH 760 REM- FORMULA FOR B IS 770 REM- =SUM OF THE X*Y'S DIVIDED BY SUM OF THE X SQUARE'S 780 B=INT(T(3)/T(4)*100+.5)/100 790 PRINT 800 PRINT 810 PRINT 820 PRINT "********************************************************"; 830 PRINT "***************" 840 PRINT "YEAR";TAB(11);"X";TAB(24);"Y";TAB(36);"XY"; 850 PRINT TAB(47);"X^2";TAB(61);"Y'" 860 PRINT "********************************************************"; 870 PRINT "***************" 880 FOR Z=1 TO N 890 REM-CALCULATE Y' FOR THE PERIOD 900 A(Z,5)=A+B*A(Z,1) 91 PRINT B3;TAB(10);A(Z,1);TAB(22);A(Z,2);TAB(34);A(Z,3);TAB(46);A(Z,4); 920 PRINT TAB(58);A(Z,5) 930 B3=B3+1 940 NEXT Z 950 PRINT "********************************************************"; 960 PRINT "***************" 970 PRINT "TOTALS";TAB(10);T(1);TAB(22);T(2);TAB(34);T(3);TAB(46);T(4) 980 PRINT "********************************************************"; 990 PRINT "***************" 1000 PRINT 1010 PRINT 1020 PRINT "THE EQUATION FOR YOUR DATA IS:" 1030 PRINT " Y'="A"+"B"*X 1040 END