三點拉格朗日插值多項式 ( Lagrange Interpolating Polynomial for 3 points )

注意：此程式只能在 HP-32SII 上使用。

LBL A	R/S	STO A	R/S	STO B	R/S
STO C	STO F	R/S	STO D	STO E	RCL B
STO –E	RCL A	STO –F	RCL F	STO ÷E	R/S
STO F	R/S	STO –D	RCL C	RCL –F	STO ÷D
RCL E	STO –D	RCL A	STO –F	RCL F	STO ÷D
RCL B	STO F	RCL E	RCL ×A	STO –F	RCL A
RCL +C	RCL D	R/S	×	STO –E	RCL D
RCL ×A	RCL ×C	STO +F	RCL E	R/S	RCL F
PRGM	72 bytes

( 程式連同數字記憶共使用 120 bytes。)
( 如果日後想繼續輸入其他程式，則請在離開 PRGM 模式前按 RTN。)

例：計算經過 (0, 6), (2, 0) 及 (4, 2) 三點的拉格朗日插值多項式。

按 XEQ A，再按

0  R/S 6  R/S 2  R/S 0  R/S 4  R/S 2  R/S      顯示  1  ( x² 的係數 ( coefficient ) )
再按 R/S     顯示  –5  ( x 的係數 )
再按 R/S     顯示  6  ( 常數項 )

亦即是說所求的多項式是  x² – 5x + 6

程式執行完成後，按 RCL D 會顯示多項式 x² 的係數，按 RCL E 會顯示 x 的係數，而按 RCL F 會顯示常數項。

如果輸入的三點中有任何兩點的 x 座標 ( x-coordinate ) 相同，則程式會顯示錯誤 Divide by Zero。