A.5
A{
J1=20000
U1=J1*1.005+10-J1
C.U1
J1=J1+U1
J1=J1-J1%8
U1=U1-U1%8
P.J1
C1=1/5^2/(1+1/5^2),R1=1/239^2/(1+1/239^2)
V.1
N4=2
A=1*10^j1,B=1*10^J1;
P=1*10^j1,Q=1*10^J1;
}
A~
V.1
t11=time
#ROF
{
P.N4
N5=N4+1
B=B*N4/N5
C.B
B=B*C1
C.B
A=A+B
C.A
Q=Q*N4/N5
C.Q
Q=Q*R1
C.Q
P=P+Q
C.P
Y=Y*N4/N5
C.Y
N4=N4+2
}
L5=J1*1000/906/2
C.L5
while (N4 < L5*2) do;
V.10
G=4*(4*C1*5*A-R1*239*P)
t12=time
t10=t12-t11
C.G
t=g*10^-j1
p.t
P.G
p.t10
#fw:pia51t.txt
W.G
W.J1
W.t10
#fc
P.U1

