MDL MAIN

PROMPT Enter number of equations

STO N

RCL N

"MATA
Create Mat A
MATDIM

RCL N

 1 

"VECB

MATDIM
Create Vector B
RCL N

X^2

 1000 

/

 1 
Initialize regs I & J
STOJ

STOI

+

STO COUNT
Store number of matrix elements
LBL Start1
Start loop
"Enter A
Store initial part of prompt
&(IJ
Append (I,j) to Alpha
~?
Append question mark
PROMPT
Prompt for next mat coefficient
MATSTO MATA
Store A(I,J)
MATJ+ MATA
Move to the next column
ISG COUNT
End of loop
GTO Start1

RCL N
Access vector B
 1000 

/

 1 

STOI

STOJ

+

STO COUNT
Calc number of B elements
LBL Start2

"Enter B(
Store initial part of prompt
&I
Append index
~)?
Append ) and ?
PROMPT
Prompt for B(I)
MATSTO VECB
Store B(I)
MATJ+ VECB
Move to the next element
ISG COUNT
End of loop
GTO Start2

MATSYSLE MATA VECB VECX
Solve linear equations
RCL N
Access vector X
 1000 

/

 1 
Initialize regs I & J
STOI

STOJ

+

STO COUNT
Calc number of X elements
LBL Start3
Start loop
"X(
Recall X(I)
&I

~)=

MATRCL VECX

&X

MSG
Display X(I)
MATJ+ VECB
Move to next element
ISG COUNT
End of loop
GTO Start3

RTN

