%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:122
File Name:PARDIFF2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "PDENTER"
2\->\List 4[2]
\Seq(0,\r,1,2\List 4[2],1\->\List 2
\Seq(0,\r,1,\List 4[2],1\->\List 3
"DIFF VAR"
1\->\theta:\Lbl 2
?\->\List 3[\theta]:\theta+1\->\theta
\theta\<=\List 4[2]\=>\Goto2
\Prog "PDIFLOOP"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:93
File Name:PDIFFUNC
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\List 1[1]\->A
\List 1[2]\->B
\List 1[3]\->C
A\x^2+B+C
\Return
\List 1[4]\->D
\List 1[5]\->E
\List 1[6]\->F
\List 1[7]\->X
\List 1[8]\->Y
\List 1[9]\->Z
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:346
File Name:PDIFLOOP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
1\->\List 4[3]:\Lbl 0
\List 4[3]=1\=>1\EE\(-)4
\List 4[3]=2\=>\(-)2\EE\(-)4
\Ans\->\List 4[4]
\List 3[2]
\List 1[\Ans]+\List 4[4]\->\List 1[\Ans]
\List 3[1]
\List 1[\Ans]+1\EE\(-)4\->\List 1[\Ans]
\Prog "PDIFFUNC"
\Ans\->\List 4[5]
2\List 4[3]-1
\List 4[5]\->\List 2[\Ans]
\List 3[1]
\List 1[\Ans]-2\EE\(-)4\->\List 1[\Ans]
\Prog "PDIFFUNC"
\Ans\->\List 4[5]
2\List 4[3]
\List 4[5]\->\List 2[\Ans]
\List 3[1]
\List 1[\Ans]+1\EE\(-)4\->\List 1[\Ans]
\List 4[3]+1\->\List 4[3]:\List 4[3]\<=2\=>\Goto0
\List 3[2]
\List 1[\Ans]+1\EE\(-)4\->\List 1[\Ans]
(\List 2[1]-\List 2[2]-\List 2[3]+\List 2[4])/((2\EE\(-)4)^\List 4[2])
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:145
File Name:HESSIAN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "PDENTER"
2\->\List 4[2]
\Seq(0,\r,1,2\List 4[2],1\->\List 2
\Identity \List 4[1]\->\Mat A
1\->\r:\Lbl 3
1\->\theta:\Lbl 4
{\r,\theta}\->\List 3
\Prog "PDIFLOOP"
\Ans\->\Mat A[\r,\theta]
\theta+1\->\theta
\theta\<=\List 4[1]\=>\Goto4
\r+1\->\r
\r\<=\List 4[1]\=>\Goto3
\Mat A\Disp
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:128
File Name:PARDIFF
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "PDENTER"
"DIFF VAR"?\->\theta
1\EE\(-)4\->\r
\List 1[\theta]+\r\->\List 1[\theta]
\Prog "PDIFFUNC"
\Ans\->\List 2[1]
\List 1[\theta]-2\r\->\List 1[\theta]
\Prog "PDIFFUNC"
\Ans\->\List 2[2]
(\List 2[1]-\List 2[2])/2\r
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:99
File Name:PDENTER
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
{0,0,0,0,0}\->\List 4
"VARS"?\->\List 4[1]
\Seq(0,\r,1,\List 4[1],1\->\List 1
"X1,X2..."
1\->\theta:\Lbl 1
?\->\List 1[\theta]
\theta+1\->\theta
\theta\<=\List 4[1]\=>\Goto1
%End