Sharp PC-1500 Applications Manual page 23

All and more about Sharp PC-1 500 at http://www.PC-1500.info
PROGRAM
LAGRANG E'S INTERPO LATION
PROGRAM NO.
3
TI TL E
PS- A- 4
I
Program List
1
[ Memory Content s J
J0: " A":CL EAR
;
A
W A J T
0
20 : I NPUT
"N=
1
' ;
N
B
25:N=N- J:DJ M
X(N)
, Y<N>, B <N>
c
30: FOR 1= 0 TO
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("+STR$
(
l +J )+" )= "
I
v
43:CL S
J
v
4S: PR INT A$ ;
v
46: INPU T
y (
J )
K
4?:CLS
L
50 : NEXT
I
M
SS: CLS : INPUT
"2=
"; Z : GOT O
60
N
Number of data
5 6: END
0
6 0:P=0: f 0 R 1<=0TQ
N Value to be deter-
70 : BCKY. "' I
p
mined
by
interpolao t-
80: FOR·"'J =0 TO
N
ing
Z.
90: I F J=K THEN 110
J00:8<K>=B<K >*<Z-X
Q
<J>>l'<X<K>-X <J
R
) )
110: NEXT J
s
120 : P=P+B<K> *Y<K>
T
! 30 :NEXT
K
u
J40: LPR JNT
·· x=··; z
JS0:LPR JNT
,, P= ,. ; P
v
J60:GOTO
55
w
x
STATUS I
y
362
z
Interpolated value
A$
Input message
B{NJ
Operation a(ea for
the interpolation
X{N)
Input data to X-axis
YtNJ
Input data to Y·axis
Do not sale this PDF !!!
- 17 -