%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:430
File Name:AV
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'AUSTAUSCHVERFAHREN
'EIN TAUSCHSCHRITT
'IN  \Mat B,M,N
'OUT \Mat B
'TMP \Mat \Ans,I,J
'    \List 1
'M,N..PIVOTPOSITION
\Dim \Mat B\->\List 1
0\->I
M>\List 1[1]\=>1\->I
M\<=0\=>2\->I
N>\List 1[2]\=>3\->I
N\<=0\=>4\->I
\Mat B[M,N]=0\=>5\->I
\If I\<>0
\Then \ClrText
\Locate 1,1,"ERROR"
\Locate 7,1,E
\IfEnd
\For 1\->J \To \List 1[2]
\If J\<>N
\Then \(-)\Mat B[M,J]\ab/c\Mat B[M,N]\->\Mat B[M,J]
\IfEnd
\Next 
\For 1\->I \To \List 1[1]
\For 1\->J \To \List 1[2]
\If I\<>M\ And J\<>N
\Then \Mat B[I,J]+\Mat B[M,J]*\Mat B[I,N]\->\Mat B[I,J]
\IfEnd
\Next 
\Next 
\For 1\->I \To \List 1[1]
\If I\<>M
\Then \Mat B[I,N]\ab/c\Mat B[M,N]\->\Mat B[I,N]
\IfEnd
\Next 
1\ab/c\Mat B[M,N]\->\Mat B[M,N]

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1248
File Name:PRI SV
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->E:0\->V:0\->I:0\->J:0\->M
0\->N:0\->O:0\->U
'INPUT KOPIEREN
\Mat A\->\Mat B
\List 5\->\List 2
\List 6\->\List 3
\Dim \Mat B\->\List 1
\List 1[1]\->P
\List 1[2]\->Q
\Dim \List 2<P-2\ Or \Dim \List 2>P-1\=>3\->E
\Dim \List 2=P-2\=>1\->V
\Dim \List 3\<>Q-1\=>4\->E
\If E=0
\Then \For 1\->I \To \Dim \List 2
\Dim \List 2=P-1\ And \List 2[I]\<=0\=>1\->E
\Dim \List 2=P-2\ And \List 2[I]=0\=>2\->E
\For 1\->J \To \Dim \List 3
\List 2[I]=\List 3[J]\=>5\->E
I=1\ And \List 3[J]\<=0\=>6\->E
\Next 
\Next 
\IfEnd
\If E\<>0
\Then \ClrText
\Locate 1,1,"PRI SV ERROR"
\Locate 14,1,E
\Stop
\IfEnd
\ClrText
\Locate 1,1,"SIMPLEXVERFAHREN"
V\<>0\=>\Locate 1,2,"MIT KUENSTL. VAR."
\Locate 1,3,"1 KONTROLLIERT"
\Locate 1,4,"2 AUTOMATISCH"
\Do
\Getkey\->O
\LpWhile O\<>72\ And O\<>62
O=72\=>0\->O
O=62\=>1\->O
\Do
0\->M:0\->N:0\->E:0\->G:0\->H
\For 1\->J \To Q-1
\If (V=0\ And \Mat B[P,J]<0)\ Or (V=1\ And (\Mat B[P,J]<0\ Or (\Mat B[P,J]=0\ And \Mat B[P-1,J]<0)))
\Then 6\->E
\For 1\->I \To \Dim \List 2
\If \Mat B[I,J]<0
\Then 0\->E
\If G\<>0
\Then \Mat B[I,Q]/\Abs \Mat B[I,J]<\Mat B[G,Q]/\Abs \Mat B[G,H]\=>0\->G
\IfEnd
\If G=0
\Then I\->G:J\->H
\IfEnd
\IfEnd
\Next 
\If E\<>0
\Then \ClrText
\Locate 1,1,"NICHT LOESBAR"
\Locate 1,2,"FALL S2"
\Stop
\IfEnd
'PIVOT-BEWERTUNG
\Abs \Mat B[G,H]\->R
R<1\=>1\ab/cR\->R
271.8282*\e^x(\(-)R)\->S
\Frac R=0\=>S+80\->S
\List 2[G]<0\=>S+90\->S
\If U=1
\Then \ClrText
\Locate 1,1,G
\Locate 1,2,H
\Locate 1,3,S
\Do
\LpWhile \Getkey\<>31
\IfEnd
\If M=0\ Or (M\<>0\ And S>T)
\Then G\->M:H\->N:S\->T
\IfEnd
0\->G:0\->H
\IfEnd
\Next 
\ClrText
\If M=0
\Then \If V=1\ And \Mat B[P,Q]>1\EE\(-)10
\Then \Locate 1,1,"NICHT LOESBAR"
\Locate 1,2,"FALL S1"
\Else \Locate 1,1,"LOESBAR"
\Locate 1,2,"ZMIN="
\Locate 6,2,\Mat B[P-V,Q]
\IfEnd
\Do
\LpWhile \Getkey\<>31
\Prog "SV LOES"
\Stop
\IfEnd
\Locate 1,1,"PIVOT"
\Locate 1,2,"M="
\Locate 3,2,M
\Locate 1,3,"N="
\Locate 3,3,N
\Locate 1,4,"T="
\Locate 3,4,T
\List 2[M]\->E
\List 3[N]\->\List 2[M]
E\->\List 3[N]
\Prog "AV"
\If V=1\ And \List 3[N]<0
\Then \For 1\->I \To P
0\->\Mat B[I,N]
\Next 
\IfEnd
O\<>1\=>\Mat B\Disp\LpWhile 1=1

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:161
File Name:AV MANU
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
1\->O:0\->V
\Mat A\->\Mat B
\If O=1
\Then \List 5\->\List 2
\List 6\->\List 3
\IfEnd
\Do
\Mat B\Disp"I "?\->M
M>0\=>"J "?\->N
\If N>0\ And M>0
\Then \Prog "AV"
\If O=1
\Then \List 2[M]\->E
\List 3[N]\->\List 2[M]
E\->\List 3[N]
\IfEnd
\Else 1\->V
\IfEnd
\LpWhile V=0
\Prog "SV LOES"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:319
File Name:SV LOES
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\AxesOff
\Dim \Mat B\->\List 1
\List 1[2]\->Q
\Cls
\For 1\->J \To \Dim \List 3
\List 3[J]\->K
\If K>0
\Then \Text 1,J*14-13,"X"
\Text 3,J*14-9,K
\Else \Text 1,J*14-13,"Y"
\Text 3,J*14-9,\(-)K
\IfEnd
\Text 1,J*14-4,"="
\Next 
\Text 1,J*14,0
\For 1\->I \To \Dim \List 2
\List 2[I]\->K
1\->W
\Int (I/2)=I/2\=>64\->W
I\->V
W=1\=>I+1\->V
V/2\->V
\If K>0
\Then \Text 9*V,W,"X"
\Text 9*V+2,W+4,K
\Else \Text 9*V,W,"Y"
\Text 9*V+2,W+4,\(-)K
\IfEnd
\Text 9*V,W+12,"="
\Text 9*V,W+16,\Mat B[I,Q]
\Next 
\AxesOn

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1041
File Name:DUAL SV
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->E:0\->I:0\->J:0\->M
0\->N:0\->O:0\->U
'INPUT KOPIEREN
\Mat A\->\Mat B
\List 5\->\List 2
\List 6\->\List 3
\Dim \Mat B\->\List 1
\List 1[1]\->P
\List 1[2]\->Q
\Dim \List 2\<>P-1\=>3\->E
\Dim \List 3\<>Q-1\=>4\->E
\If E=0
\Then \For 1\->I \To \Dim \List 2
\Dim \List 2=P-1\ And \List 2[I]\<=0\=>1\->E
\Dim \List 2=P-2\ And \List 2[I]=0\=>2\->E
\For 1\->J \To \Dim \List 3
\List 2[I]=\List 3[J]\=>5\->E
I=1\ And \List 3[J]\<=0\=>6\->E
\Next 
\Next 
\IfEnd
\If E\<>0
\Then \ClrText
\Locate 1,1,"DUAL SV ERROR"
\Locate 14,1,E
\Stop
\IfEnd
\ClrText
\Locate 1,1,"Duales"
\Locate 1,2,"Simplexverfahren"
\Locate 1,3,"1 KONTROLLIERT"
\Locate 1,4,"2 AUTOMATISCH"
\Do
\Getkey\->O
\LpWhile O\<>72\ And O\<>62
O=72\=>0\->O
O=62\=>1\->O
\Do
0\->M:0\->N:0\->E:0\->G:0\->H
\For 1\->I \To \Dim \List 2
\If \Mat B[I,Q]<0
\Then 6\->E
\For 1\->J \To \Dim \List 3
\If \Mat B[I,J]>0
\Then 0\->E
\If G\<>0
\Then \Mat B[P,J]/\Abs \Mat B[I,J]<\Mat B[P,H]/\Abs \Mat B[G,H]\=>0\->G
\IfEnd
\If G=0
\Then I\->G:J\->H
\IfEnd
\IfEnd
\Next 
\If E\<>0
\Then \ClrText
\Locate 1,1,"NICHT LOESBAR"
\Locate 1,2,"Fall DS2"
\Stop
\IfEnd
'PIVOT-BEWERTUNG
\Abs \Mat B[G,H]\->R
R<1\=>1\ab/cR\->R
271.8282*\e^x(\(-)R)\->S
\Frac R=0\=>S+80\->S
'\List 2[G]<0\=>S+90\->S
\If U=1
\Then \ClrText
\Locate 1,1,G
\Locate 1,2,H
\Locate 1,3,S
\Do
\LpWhile \Getkey\<>31
\IfEnd
\If M=0\ Or (M\<>0\ And S>T)
\Then G\->M:H\->N:S\->T
\IfEnd
0\->G:0\->H
\IfEnd
\Next 
\ClrText
\If M=0
\Then \Locate 1,1,"LOESBAR"
\Locate 1,2,"ZMIN="
\Locate 6,2,\Mat B[P,Q]
\Do
\LpWhile \Getkey\<>31
\Prog "SV LOES"
\Stop
\IfEnd
\Locate 1,1,"PIVOT"
\Locate 1,2,"M="
\Locate 3,2,M
\Locate 1,3,"N="
\Locate 3,3,N
\Locate 1,4,"T="
\Locate 3,4,T
\List 2[M]\->E
\List 3[N]\->\List 2[M]
E\->\List 3[N]
\Prog "AV"
O\<>1\=>\Mat B\Disp\LpWhile 1=1

%End