1 REM Ins{nt av 2314
10 ; CHR$(12)"CHI-2 F\RDELNING"
20 ; 
30 ; : ; : ; : ; "0=SLUTA" : ; : ; : ; 
40 ; "ANTAL FRIHETSGRADER=";
50 INPUT V
60 IF V=0 THEN 280
70 ; "CHI-2";
80 INPUT W
90 R=1
100 FOR I=V TO 2 STEP -2
110 R=R*2
120 NEXT I
130 K=W^(INT((W+1)/2))*EXP(-W/2)/R
140 IF INT(V/2)=V/2 THEN 170
150 J=SQR(2/W/PI)
160 GOTO 180
170 J=1
180 L=1
190 M=1
200 V=V+2
210 M=M*W/V
220 IF M<.00001 THEN 250
230 L=L+M
240 GOTO 200
250 ; "YTAN=";1-J*K*L
260 ; 
270 GOTO 40
280 REM 
290 END