%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:388
File Name:ROOTGRPH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"GRAPH POLYNOMIAL"
"WITH GIVEN ROOTS"
"DEGREE OF POLYNOMIAL="?\->N
N\->\Dim \List 6
"LEADING COEFFICIENT="?\->A
\For 1\->I \To N
\ClrText
\Locate 1,3,"ENTER ROOTS"
\Locate 1,4,"OF POLYNOMIAL"
\Locate 1,5,"ROOT"
\Locate 6,5,I
\Locate 8,5,"="
?\->\List 6[I]
\Next 
\Min(\List 6)\->B
\Max(\List 6)\->C
\If B=C
\Then B-5.25\->B
C+5.25\->C
\IfEnd
\FMin(A\Prod (X-\List 6),B,C)
\List \Ans[2]\->E
\FMax(A\Prod (X-\List 6),B,C)
\List \Ans[2]\->F
.1(C-B)\->D
\Int D\->J
J=0\=>1\->J
.1(F-E)\->G
\Int G\->K
K=0\=>1\->K
\ViewWindow B-D,C+D,J,E-G,F+G,K
"A\Prod (X-\List 6)"\->\Y 6
\Graph Y=\Y 6
%End