Sharp PC-E500/E500S Technikersoftware

INTPLT.133

Lagrangesche Methode

INTPLT.133 (1.047 Bytes)

10 ' LAGRANGE.133 (Lagrange's interpolation)
20 MERGE "G:COMN.00$"
30 ON ERROR GOTO *ERR
40 CLEAR :DIM P1(200),Q1(200):Q5=2
50 GOSUB 900
60 PRINT " Number of data=";Q5;:INPUT Q5:IF Q5-INT Q5<>0 OR Q5<2 OR Q5>200 THEN 50
70 GOSUB 900:PRINT " Number of data=";Q5
80 FOR QI=1 TO Q5
90 P5$="("+MID$ (STR$ QI,2,3)+")="
100 PRINT " x"+P5$;P1(QI);:Q9$="":INPUT Q9$:IF Q9$="*" THEN 150
110 IF Q9$<>"" THEN P1(QI)=EVAL Q9$
120 PRINT " y"+P5$;Q1(QI);:Q9$="":INPUT Q9$:IF Q9$="*" THEN 150
130 IF Q9$<>"" THEN Q1(QI)=EVAL Q9$
140 NEXT
150 CLS
160 Q9$="":PRINT " x= ";:INPUT Q9$
165 IF Q9$="" THEN 50 ELSE QX=EVAL Q9$
170 R1=0
175 FOR QI=1 TO Q5
180 P6=1
185 FOR QJ=1 TO Q5
190 IF QI<>QJ THEN P6=P6*(QX-P1(QJ))/(P1(QI)-P1(QJ))
200 NEXT
210 R1=R1+P6*Q1(QI)
215 NEXT
220 PRINT " y=";R1:GOTO 160
900 CLS :PRINT "        *  LAGRANGE'S METHOD  *    ":LOCATE 0,1:RETURN
1000 *ERR IF ERL =60 RESUME 50
1010 IF ERL =110 RESUME 100
1020 IF ERL =130 RESUME 120
1025 IF ERL =165 RESUME 150
1030 GOSUB 900:GOSUB *DPA:GOSUB *REK:RESUME 50

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net