Advertisement
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.
Advertisement
