Sharp PC-1500 - Page 23

A ll and more abo ut Sharp PC -1 500 at http://www.PC-1500.info
PROGRAM
LAGRANG E'S I NTE R PO LAT ION
PROGRAM NO .
3
TI TL E
PS- A- 4
I Program List 1
[ Memory Contents J
J0: " A":CL E AR
;
A
WA JT
0
20 : I NPUT "N=
1
'; N
B
25:N=N - J:DJ M
X(N)
, Y<N>, B< N>
c
30: FOR 1=0TO
N
35:A$ = ' 'X ( ''+STR$
(
D
l+J )+" >="
E
36 : PRIN T
A $;
40 : JNPUT x ( J >;
F
GO TO 42
G
41: N· " l: GO TO
55
H
42:A$="Y("+ST R$
(
l +J )+" )= "
I
v
4 3:C LS
J
v
4S: PR INT A$;
v
46: IN PU T
y ( J )
K
4?:CLS
L
50 : NEXT
I
M
SS: CLS : INPUT " 2=
"; Z : G OT O
60
N
Number of data
5 6: EN D
0
6 0:P=0: f 0R
1<=0T Q
N Va l ue to be deter-
70 : BCKY. "' I
p
min ed by in terpola o t-
80: FOR ·"'J =0 TO
N
ing
Z.
90: I F
J=K T HEN
110
J00:8<K>=B<K > *<Z-X
Q
<J>>l'<X<K>-X <J
R
) )
110: NEXT J
s
12 0 : P=P+B<K> *Y<K> T
! 30 :N EXT
K
u
J4 0: LPRJNT
·· x=··; z
JS0:LPR J NT
,, P= ,. ; P
v
J60:GOTO
55
w
x
STATUS I
y
362
z Inte rpolated val ue
A$ Input message
B {NJ
Operati on a( ea for
the interpolation
X{N)
Inp ut data to X-axis
YtNJ Inp ut data to Y·axis
Do not sale this PDF !!!
- 17 -