Description

Calculates polynoms.

Input data

Sample Data

Xo  = -4
Dx  = 1
Grad= 5
a(5)=1
a(4)=4
a(3)=-4
a(2)=-34
a(1)=-45
a(0)=18   

Program

http://fx-602p.krischik.com/uploads/Programs/Poly.af

PROGRAM LIST
File : Poly

*** P0
MAC AC “Xo?” HLT “Xo
  = #”
GSBP2
X↔M18 “Dx?” HLT “Dx 
 = #”
GSBP2
X↔M19 “Grad?” HLT “G
rad= #”
GSBP2
Min0F 16 Min00
LBL1
15 - MR00 =
x=F GOTO2
- MR0F X↔Y - 1 =
Min2F “a( AR2F )
?” HLT “a( AR2F
)=#”
GSBP2
IND Min00
DSZ GOTO1
LBL2
16 Min00 AC Min17
MR18 × IND MR00 =
Min1F
LBL3
DSZ IND
MR00 + MR1F = × MR18
= Min1F 1 M+17 MR17
+ 1 =
x=F GOTO4
GOTO3
LBL4
DSZ IND
MR00 + MR1F = FIX2 “
f( AR18 )= #”
GSBP2
PAUSE MR19 M+18
GOTO2

       ···155 steps

*** P2
SAVE invEXE
       ···3 steps