%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1723
File Name:AVS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 1,1,"--------AVS 2-------"
\Locate 1,3,"1\->BERECHNEN"
\Locate 1,4,"2\->LOESUNG ANZEIGEN"
\Do
\Getkey\->A
\LpWhile A\<>72\ And A\<>62
A=72\=>1\->U
A=62\=>0\->U
\ClrText
\If U=1
\Then \Locate 17,1,"AVS 2"
\Dim \Mat B\->\List 1
\List 1[1]\->M
\List 1[2]\->N
\Mat->List\Mat B,1)\->\List 2
\Trn \Mat B\->\Mat C
\Mat->List\Mat C,1)\->\List 3
\For 1\->I \To M
0\->\List 2[I]
\Next 
\For 1\->J \To N-1
\(-)J\->\List 3[J]
\Next 
1\->\List 3[N]
\Mat B\->\Mat C
\Locate 1,1,M
\Locate 3,1,"GLEICHUNGEN"
\Locate 1,2,N-1
\Locate 3,2,"UNBEKANNTE"
0\->E
0\->G
\IfEnd
0\->\r
\Do
\If U=1
\Then 0\->C
\For 1\->H \To 6 \Step 1
H\->A
A=0\=>1\->A
\For 0\->B \To M(N-1)-1
\Int (B/(N-1))+1\->I
B-(I-1)(N-1)+1\->J
'\Locate J,I,A
\If \Abs (\Mat C[I,J])=A\ And \List 3[J]\<>0\ And \List 2[I]=0
\Then \Locate 1,3,"PIVOT OK"
1\->C
\Break
\IfEnd
\Next 
C=1\=>\Break
\Next 
\If C=0
\Then \Locate 1,3,"PIVOT ALT."
\For 1\->I \To M
\For 1\->J \To N-1
\List 2[I]=0\ And \List 3[J]\<>0\Mat C[I,J]\<>0\=>1\->C
C=1\=>\Break
\Next 
C=1\=>\Break
\Next 
\If C=0
\Then \Locate 1,7,"ERROR 1"
\Stop
\IfEnd
\IfEnd
\r+1\->\r
\Locate 12,3,I
\Locate 17,3,J
\List 3[J]\->\List 2[I]
0\->\List 3[J]
\Mat C[I,J]\->P
\For 1\->L \To N
\If \List 3[L]\<>0
\Then \Mat C[I,L]\ab/c\(-)P\->\Mat C[I,L]
\IfEnd
\Next 
\For 1\->K \To M
\For 1\->L \To N
\If K\<>I\ And \List 3[L]\<>0\ And \List 2[K]\<>67
\Then \Mat C[K,L]+\Mat C[I,L]*\Mat C[K,J]\->\Mat C[K,L]
\IfEnd
\Next 
\Next 
\IfEnd
' ENDE?
' FALL 2
\For 1\->K \To M
\If \List 2[K]=0
\Then 0\->F
\For 1\->L \To N-1
\List 3[L]\<>0\ And \Mat C[K,L]\<>0\=>1\->F
F=1\=>\Break
\Next 
\If F=0
\Then \Mat C[K,N]\<>0\=>2\->E
E=2\=>\Break
\If \Mat C[K,N]=0
\Then 67\->\List 2[K]
G+1\->G
\Locate 1,4,G
\Locate 3,4,"ZEILE(N) ENTFERNT"
\IfEnd
\IfEnd
\IfEnd
\Next 
\If E=0
\Then ' FALL 1
1\->E
\For 1\->K \To M
\List 2[K]=0\=>0\->E
E=0\=>\Break
\Next 
\IfEnd
E
E=0\=>\ClrText
\LpWhile E=0
\If E=2
\Then \Locate 1,5,"UNLOESBAR"
\IfEnd
\If E=1
\Then \Locate 1,5,"LOESBAR"
\Locate 1,6,"RANG="
\Locate 6,6,\r
\Locate 9,7,"<EXE>"
\Do
\LpWhile \Getkey\<>31
\ClrGraph
\AxesOff
\GridOff
\For 1\->K \To M
\If \List 2[K]<0
\Then \Text 1,1,"X"
\Text 3,6,\(-)\List 2[K]
\Text 1,12,"="
1\->R
\For 1\->L \To N-1
\If \List 3[L]<0\ And \Mat C[K,L]\<>0
\Then \If R\<>1
\Then \Mat C[K,L]>0\=>\Text R,20,"+"
\IfEnd
\Mat C[K,L]<0\=>\Text R,20,"-"
\Text R,25,"X"
\Text R+2,30,\(-)\List 3[L]
\If \Abs (\Mat C[K,L])\<>1:\Then \Text R,35,"*"
\Text R,40,\Abs (\Mat C[K,L])
\IfEnd
R+10\->R
\If R>47
\Then \Text 56,34,"X"
\Text 58,39,\(-)\List 2[K]
\Text 56,46,"WEITER <EXE>"
\Text 56,34,"X"
\Do
\LpWhile \Getkey\<>31
2\->R
\ClrGraph
\IfEnd
\IfEnd
\Next 
\If (\Mat C[K,N]\<>0\ And R\<>1)\ Or R=1
\Then \Mat C[K,N]<0\=>\Text R,20,"-"
R\<>1\ And \Mat C[K,N]>0\=>\Text R,20,"+"
\Text R,25,\Abs (\Mat C[K,N])
\IfEnd
\Text 57,53,"<EXE>"
\Text 57,53,"<"
\Do
\LpWhile \Getkey\<>31
\ClrGraph
\IfEnd
\Next 
\ClrText
\AxesOn
\IfEnd

%End