Casio FP-200 - Page 5

BUSINESS_]
[IJl]J[S]rr)
684 Bytes
11111111 I lllltll 111••11 Ill ......... 1a1•111•11111'9ttt11Nlffl .... lt .. llll&lfltllltlllW .... flldtltHlfttlNftltNIIMtlfltl.wtftlllltllllllllttlfl ....... lll I Ill 111 1•
10 CLEAR:CLS:PRINT"DATA INPUT
ASICC2)"
2121 INPUT D$
3121 IF D$="1" THEN GOSUB 1~121
40 IF D$="2" THEN GOSUB 200
5121 K#~(12*XY#-X•Y#)/(12•X2-XA2)
60 Htt=(X2•Y#-X•XY#)/(12•X2-X'<~2)
65 CLS
CETL(l)/8
70 INPUT "Which week ";J:IF J=0 THEN END
8<21 V#=K#•J+H#
9(21 PRINTV#:PRINT USING" ##th 1-ieek";J:PRI
NT:GOTO 70
100 r·rUNT"Being computed"
110 X=SUMRC(l,52):Y#=SUMRC<l,52)
120 FOR I=l TO 52
13121 X2=RC(I)A2+X2
140 XY#=I•RC(I)+XY#
150 NEXT I
160 RETURN
21210 OPTION BASE 1:DIM X(80) ,Y#(80)
210 I=I+l
220 PRINT USING"##th week
ear"; I
230 INPUT "SALES CEND'E')";A$
of 1 ast y
240 IF A$< >"E" THEN Y# <I) ===VAL <A1d: X (I) =I :-GOTO 2H'.I
250 T==I-·1
260 PRINT"Being computed"
270 FOR I=i TOT .
280 X=X(I)+X:X2=X(I)A2+X2:Y#=Y#(I)+Y#:XY#=X<I>•Y#
<I)+XYtt
290 NEXT I
300 RETURN
!DEBUG)
This program· can be used for various types of forecasting. However, widely
1
fluctuating figures will not follow a regression line. In this case, the figures fore-
cast
by this program may not represent the actual figures with fair accuracy.
9