Listing of file='30 ' on disk='vmedia/glbr_22.wvd.zip'
# Sector 391, program filename = '30' 0003 DIM X(70),Y(70) 0005 PRINT "INPUT NUMBER OF KNOWN POINTS, N" 0010 INPUT N 0015 PRINT "INPUT KNOWN POINTS (1 POINT TO A LINE) AS FOLLOWS: 'X,Y'" 0020 FOR I=1 TO N 0025 INPUT X(I),Y(I) 0030 NEXT I 0035 PRINT "INPUT X-COORDINATE OF POINT TO BE INTERPOLATED. TO END" 0036 PRINT "KEY 99999" 0047 PRINT 0060 PRINT "X"; 0065 INPUT Z 0067 IF Z=99999THEN 160 0070 T=0 0075 FOR K=1 TO N 0080 S=1 0085 FOR I=1 TO N 0090 IF I=K THEN 100 0095 S=S*(Z-X(I))/(X(K)-X(I)) 0100 NEXT I 0110 T=T+S*Y(K) 0120 NEXT K 0130 PRINT "Y=";T 0140 PRINT 0150 GOTO 60 0160 END