%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:788
File Name:INVGAUSS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 0
\Dim \Mat A
\List \Ans[1\->A
\List \Ans[2\->B
A\<>B\=>"MATRIX IS NOT
SQUARE"
A\<>B\=>\Goto0
\Identity A\->\Mat B
"INITIAL MATRIX"\Disp\Mat A\->\Mat C\Disp\For 1\->K \To A-1
\For K\->J \To A
\Mat C[J,K]\<>0\=>\Break
\Next 
A=1\=>1\->J
\Mat C[J,K]=0\=>\Goto9
A=1\=>\Goto8
\If J\<>K
\Then \ClrText
\Locate 1,2,"SWAPPING ROWS"
\Locate 1,3,K
\Locate 1,4,"AND"
\Locate 1,5,J\Disp\Swap(C,J,K
\Swap(B,J,K
\Mat C\Disp\ClrText:"I"\Disp\Mat B\Disp\IfEnd
\For K+1\->J \To A
-\Mat C[J,K]\ab/c\Mat C[K,K\->H
\If H\<>0
\Then \ClrText
\Locate 1,2,"ADDING"
\Locate 1,3,H
\Locate 1,4,"TIMES ROW"
\Locate 1,5,K
\Locate 1,6,"TO ROW"
\Locate 1,7,J\Disp\*Row+(H,C,K,J
\*Row+(H,B,K,J
\Mat C\Disp\ClrText:"I"\Disp\Mat B\Disp\IfEnd
\Next 
\Next 
\Lbl 8
\Mat C[A,A]\->M
M=0\=>\Goto9
\For A\->C \To 1 \Step \(-)1
\Mat C[C,C]\->M
\If M\<>1
\Then 1\->\Mat C[C,C]
\*Row(1\ab/cM,B,C
\ClrText
\Locate 1,2,"MULTIPLYING ROW"
\Locate 1,3,C
\Locate 1,4,"BY"
\Locate 1,5,1\ab/cM\Disp\Mat C\Disp\ClrText:"I"\Disp\Mat B\Disp\IfEnd
\For C-1\->R \To 1 \Step \(-)1
\(-)\Mat C[R,C]\->H
\If H\<>0
\Then \*Row+(H,B,C,R
0\->\Mat C[R,C]
\ClrText
\Locate 1,2,"ADDING"
\Locate 1,3,H
\Locate 1,4,"TIMES ROW"
\Locate 1,5,C
\Locate 1,6,"TO ROW"
\Locate 1,7,R\Disp\Mat C\Disp\ClrText:"I"\Disp\Mat B\Disp\IfEnd
\Next 
\Next 
"THE INVERSE IS"\Disp\Mat B\Disp\Lbl 1
"PRESS AC TO STOP"\Disp\Goto1
\Lbl 9
\ClrText
"NOT INVERTIBLE"\Disp\Goto9
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:978
File Name:INVGAUS2
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Lbl 0
\Dim \Mat A
\List \Ans[1\->A
\List \Ans[2\->B
\If A\<>B\ And B\<>A+1
\Then "MATRIX IS NOT
SQUARE N*N 
OR AUGMENTED N*N+1"\Disp\Goto0
\IfEnd
"INITIAL MATRIX"\Disp\If B=A+1
\Then \For 1\->C \To B
\Mat->List\Mat A,C)\->\List 1
\List->Mat(\List 1)
C=1\=>\Mat \Ans\->\Mat C
C>1\=>C<B\=>\Augment(\Mat C,\Mat \Ans)\->\Mat C
C=B\=>\Mat \Ans\->\Mat D
\Next 
\Mat C\Disp\Else \Mat A\->\Mat C\Disp\IfEnd
\Identity A\->\Mat B
\For 1\->K \To A-1
\For K\->J \To A
\Mat C[J,K]\<>0\=>\Break
\Next 
A=1\=>1\->J
\Mat C[J,K]=0\=>\Goto9
A=1\=>\Goto8
\If J\<>K
\Then \ClrText
\Locate 1,2,"SWAPPING ROWS"
\Locate 1,3,K
\Locate 1,4,"AND"
\Locate 1,5,J\Disp\Swap(C,J,K
\Swap(B,J,K
\Mat C\Disp\ClrText:"I"\Disp\Mat B\Disp\IfEnd
\For K+1\->J \To A
-\Mat C[J,K]\ab/c\Mat C[K,K\->H
\If H\<>0
\Then \ClrText
\Locate 1,2,"ADDING"
\Locate 1,3,H
\Locate 1,4,"TIMES ROW"
\Locate 1,5,K
\Locate 1,6,"TO ROW"
\Locate 1,7,J\Disp\*Row+(H,C,K,J
\*Row+(H,B,K,J
\Mat C\Disp\ClrText:"I"\Disp\Mat B\Disp\IfEnd
\Next 
\Next 
\Lbl 8
\Mat C[A,A]\->M
M=0\=>\Goto9
\For A\->C \To 1 \Step \(-)1
\Mat C[C,C]\->M
\If M\<>1
\Then 1\->\Mat C[C,C]
\*Row(1\ab/cM,B,C
\ClrText
\Locate 1,2,"MULTIPLYING ROW"
\Locate 1,3,C
\Locate 1,4,"BY"
\Locate 1,5,1\ab/cM\Disp\Mat C\Disp\ClrText:"I"\Disp\Mat B\Disp\IfEnd
\For C-1\->R \To 1 \Step \(-)1
\(-)\Mat C[R,C]\->H
\If H\<>0
\Then \*Row+(H,B,C,R
0\->\Mat C[R,C]
\ClrText
\Locate 1,2,"ADDING"
\Locate 1,3,H
\Locate 1,4,"TIMES ROW"
\Locate 1,5,C
\Locate 1,6,"TO ROW"
\Locate 1,7,R\Disp\Mat C\Disp\ClrText:"I"\Disp\Mat B\Disp\IfEnd
\Next 
\Next 
"THE INVERSE IS"\Disp\Mat B\Disp\Dim \Mat A
\List \Ans[1]\->A
\List \Ans[2]\->B
\If B=A+1
\Then "THE SOLN IS"\Disp\Mat B\Mat D\Disp\IfEnd
\Lbl 1
"PRESS AC TO STOP"\Disp\Goto1
\Lbl 9
\ClrText
"NOT INVERTIBLE"\Disp\Goto9
%End