Listing of file='42' on disk='vmedia/glbr_22.wvd.zip'
# Sector 738, program filename = '42' 0010 PRINT "INPUT X. TO END PROGRAM INPUT 0." 0020 INPUT X 0030 IF X=0 THEN 999 0040 IF INT(X)/ABS(X)<>-1 THEN 70 0050 PRINT "GAMMA(X) UNDEFINED" 0060 GOTO 910 0070 IF X<2 THEN 200 0100 P=INT(X)-1 0110 X=X-P 0120 GOSUB 500 0130 GOSUB 600 0140 X=S*T 0150 GOTO 900 0200 IF X<1 THEN 300 0210 GOSUB 600 0220 X=T 0230 GOTO 900 0300 IF X<0 THEN 400 0310 Y=X 0320 X=X+1 0330 GOSUB 600 0340 X=T/Y 0350 GOTO 900 0400 P=ABS(INT(X))+1 0410 GOSUB 500 0420 X=X+P 0430 Y=X 0440 X=X+1 0450 GOSUB 600 0460 X=T/Y/S 0470 GOTO 900 0500 S=1 0510 FOR I=0 TO P-1 0520 S=S*(X+I) 0530 NEXT I 0540 RETURN 0600 T,W=1 0610 X=X-1 0620 FOR I=1 TO 8 0630 W=W*X 0640 READ B 0650 T=T+W*B 0660 NEXT I 0670 RETURN 0680 DATA -.57719165,.98820589,-.89705694 0690 DATA .91820686,-.75670408,.48219939 0700 DATA -.19352782,.03586834 0900 PRINT "GAMMA(X)=";X 0910 PRINT 0920 PRINT "X"; 0930 RESTORE 0940 GOTO 20 0999 END