File: STAT.FC of Tape: Various/ETH/fc1

(.FC,.FO Focal format converted to 'WRITE' listing) 

---

C ACU-FOCAL12,1973

01.01 T "PROGRAMM HAUSARBEIT STATISTICK", !"==============================",!!!
01.02 S X=0;S D=0;S W=0;ASK "ANZAHL WERTE " AW
01.04 S X=X+1
01.06 A W(X);S W=W+W(X)
01.08 I (X-AW)1.04,1.10
01.10 S B=W/AW;T !!,%7.02, "ARITHMETISCHES MITTEL = ",B
01.12 F X=1,AW;S C=(W(X)-B)^2; S D=D+C
01.14 S G=FSQT(D/(AW-1))
01.16 T !,%7.02,"STANDARD ABWEICHUNG   = ",G

---