10 CLS 20 PRINT "CURVILINEAR INTERPOLATION" 30 DEFDBL A-Z : DEFSNG I,J 40 PRINT 50 IF T9=1.1 THEN 70 60 DIM X(50),Y(50) 70 PRINT "NUMBER OF KNOWN POINTS"; 80 INPUT P 90 FOR I=1 TO P 100 PRINT "X,Y OF POINT";I; 110 INPUT X(I), Y(I) 120 NEXT I 130 PRINT 140 PRINT "INTERPOLATE: X="; 150 INPUT A 160 B=0 170 FOR J=1 TO P 180 T=1 190 FOR I=1 TO P 200 IF I=J THEN 220 210 T=T*(A-X(I))/(X(J)-X(I)) 220 NEXT I! 230 B=B+T*Y(J) 240 NEXT J 250 PRINT " Y=";B 260 PRINT 270 PRINT "MORE X ON THIS CURVE? (1=YES, 0=NO)"; 280 INPUT C 290 IF C=1 THEN 130 300 PRINT "MORE X ON ANOTHER CURVE? (1=YES, 0=NO)"; 310 INPUT C 320 IF C=1 THEN 40 330 END