Laserfiche WebLink
<br />, <br /> <br />DO 10 I=l.~ <br />SO )=0 <br />GO 2.0 J=l,7 <br />3(1)=3(I)+eC(J)+3P(J)+F~(J)+~T(J) <br />l.O C 'IN.1' I !>oUE. <br />BN(I)=6C(!~+~P(I)+8~(I)+~T(I) <br />10 CiJNTI~UE <br />DO .30 1=7,1.2 <br />B(I)=&C(J)+6F(I)+o~(!)+~T(I) <br />3C carn INUE <br /> <br />c~ <br />~ -... <br />{'.;, <br />f'-_:' <br />"" <br /> <br />c <br />C CALCULATE A CJEfFICIENTS FO~ ~QR=C~~T ~CUATIJNS <br />C FOR Trlf PRESfrJT Y~A~ <br />C <br /> <br />DO 35 J =1 ,t> Y <br />C:0 36 K-=1,6 <br />A (K) = U <br />DC 37 L=I<,ti <br />A(K)=~C~)+~C(J,L)+~~(J,k)+~~(JIL)+AT(J,L) <br />37 CJ1'lTlt~U= <br />3c CGNTINlIc <br />OJ 33 ...'=1 t 1 Z <br />A(M)=AC(~,M).~P(J,M)+Ae(J,~)+~T(J.~) <br />36 CONTINUE <br />C <br />C CALCULATE Sl5TEv F:~ECASTf~ :~FL[~ GVf~ <br />C ThE NEXT 6 ~J~T~S <br />C <br /> <br />. <br /> <br />DO <to I=ltlZ <br />GO TOC41,~,,43,44.4;,~~,47t4~t4S,50,51,5~)J <br />~1 FC(J,r)=.3~A(1)+.7~~(1)-:(7) <br />GO TJ 6u <br />4~ FC(J,I)=.4~~(2)+.t~:(2) <br />&G l' a 60 <br />4~ FC(j,I)=.5(A(3)+.5~=(3) <br />(,0 TIJ 60 <br />44 fC(J,I)=.7~A(4)+.3~E(4) <br />G~ T~ 60 <br />4S FC(J,I)=.1~~(5)+.3=~(5) <br />GO TO 60 <br />~t FC(J,I)=.1~A(6)+.3*B(~) <br />GG TO 60 <br />41 FC(J.I)=.1~A(7)t.3~2(7) <br />GO T~ 6(, <br />4c FCCJ,I)=.5~A(8)t.S4b(~)+.j:*~(S)+.l7~~(q) <br />++~(1~)tc<ll)+E(12)+~N(1) <br />GO T:J 60 <br />49 FC(J,1):.~~A(9)t.5~3(~)~.3~T4(10)+.c7*~(10) <br />++3(11)+S(1~)tB~(1)+~~(2) <br />GO T2 60 <br />5G FC(J,I)=.5~~(la)+.~~?(10)+.33*4(11)+.~1~~(11} <br />.te(12)+bN(1)+3N(2)t~N(3) <br />GG TO to <br />51 FC(J,I)=.5~A(11)+.~~~(11)+.3~*A(12)+.67~B(12} <br />+.BN(1)+~N(;)+~N(3)tB~(4) <br />bJ TO 60 <br />52 IF(J .EC. ~y) Tr.:N <br />~(l)=AC(l,I)+~~(I,l)t~r(lll)+~T(l,l) <br />E:LS~ <br />r~= J + 1 <br /> <br />. <br /> <br />. <br />