%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:42
File Name:TPROB
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\r\->T
V/(V+T\x^2)\->X
V/2\->A:1/2\->B
\Prog "BETAI"
\Ans/2
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:254
File Name:BETAI
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If (X<0)\ Or (X>1)
\Then "BETAI-X MUST BE":"0\<=X\<=1"
\Stop
\IfEnd
\If (X=0)\ Or (X=1)
\Then 0\->W
\Else A+B\->P
\Prog "GAMMALN"
\Ans\->W:A\->P
\Prog "GAMMALN"
W-\Ans\->W:B\->P
\Prog "GAMMALN"
W-\Ans\->W
W+A\In X+B\In (1-X)\->W
\e^xW\->W
\IfEnd
\If X<(A+1)/(A+B+2)
\Then \Prog "BETACF"
W\Ans/A
\Else 1-X\->X
A\->L:B\->A:L\->B
\Prog "BETACF"
A\->L:B\->A:L\->B:1-X\->X
1-W\Ans/B
\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:437
File Name:BETACF
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
1\->\List 1[1]
1\->\List 2[1]
1\->\List 1[4]
A-1\->\List 3[1]
A+1\->\List 3[2]
A+B\->\List 3[3]
1-X\List 3[3]/\List 3[2]\->\List 2[4]
\For 1\->M \To N
M\->E
E+E\->L
EX(B-M)/((\List 3[1]+L)(A+L))\->D
\List 1[4]+D\List 1[1]\->\List 1[2]
\List 2[4]+D\List 2[1]\->\List 2[2]
\(-)X(A+E)(\List 3[3]+E)/((A+L)(\List 3[2]+L))\->D
\List 1[2]+D\List 1[4]\->\List 1[3]
\List 2[2]+D\List 2[4]\->\List 2[3]
\List 1[4]\->\List 1[5]
\List 1[2]/\List 2[3]\->\List 1[1]
\List 2[2]/\List 2[3]\->\List 2[1]
\List 1[3]/\List 2[3]\->\List 1[4]
1\->\List 2[4]
\Abs (\List 1[4]-\List 1[5])<H\Abs \List 1[4]\=>\Break
\Next 
\If M=N+1
\Then "A OR B TOO BIG":"OR N TOO SMALL"
\Stop
\IfEnd
\Lbl 9
\List 1[4]
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:172
File Name:GAMMALN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Rad:P\->G:2.50662827465\->S:G-1\->K:K+5.5\->Y
(K+.5)\In Y-Y\->Y
1+76.18009173/(K+1)-86.50532033/(K+2)+24.01409822/(K+3)-1.231739516/(K+4)+(.120858003\EE\(-)2)/(K+5)-(.536382\EE\(-)5)/(K+6)
Y+\In S\Ans
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:38
File Name:FPROB
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\r\->F
V/(V+UF)\->X
V/2\->A:U/2\->B
\Prog "BETAI"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:342
File Name:INVTFPR
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
100\->N
3\EE\(-)3\->H
5\->\Dim \List 1
4\->\Dim \List 2
3\->\Dim \List 3
\Fix 3
"1) T"
"2) F"?\->Z
"AREA"?\->\theta
0\->I
Z=2\=>\Goto3
"V"?\->V:31831\->J
\If \theta\>=.005
\Then V=1\=>64\->J
V\>=2\=>10\->J
V\>=4\=>5\->J
\IfEnd
Z=1\=>\Goto4
\Lbl 3
"V1"?\->U:"V2"?\->V:1\EE10\->J
\theta\>=.01\=>6367\->J
\theta\>=.05\=>255\->J
\Lbl 4
\ClrText
\Locate 1,2,"ITERATING..."
\Lbl 2
(I+J)/2\->\r
Z=1\=>\Prog "TPROB"
Z=2\=>\Prog "FPROB"
\theta>\Ans\=>\r\->J
\theta\<=\Ans\=>\r\->I
\Int 1000I=\Int 1000J\=>\Int (.5+\Frac (1000\Frac I))=\Int (.5+\Frac (1000\Frac J))\=>\Goto1
\Goto2
\Lbl 1
\ClrText
"DONE":\r
%End