%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:341
File Name:CMPLXSYS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"SOLVE SYSTEM OF"
"EQUATIONS OVER"
"COMPLEX NUMBERS"
"(1) 2 EQUATIONS,"
"    2 VARIABLES"
"(2) 3 EQUATIONS,"
"    3 VARIABLES"
"(3) 4 EQUATIONS,"
"    4 VARIABLES"
"WHICH CASE"?\->\theta
\theta=1\=>\Prog "CPLXSYS2"
\theta=2\=>\Prog "CPLXSYS3"
\theta=3\=>\Prog "CPLXSYS4"
\ClrText
\If \r=0
\Then \Locate 2,4,"NO UNIQUE SOLUTION"
\Else "SOLUTION IS"
"X="
X\Disp"Y="
Y\Disp\theta\>=2\=>"Z="
\theta\>=2\=>Z\Disp\theta=3\=>"W="
\theta=3\=>W\Disp"DONE"
\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:149
File Name:CPLXSYS2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"IN EQUATION 1,"
"AX+BY=C,"
"A="?\->A
"B="?\->B
"C="?\->C
"IN EQUATION 2,"
"DX+EY=F,"
"D="?\->D
"E="?\->E
"F="?\->F
AE-BD\->\r
\If \r\<>0
\Then (CE-BF)/\r\->X
(AF-CD)/\r\->Y
\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:330
File Name:CPLXSYS3
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"IN EQUATION 1,"
"AX+BY+CZ=D,"
"A="?\->A
"B="?\->B
"C="?\->C
"D="?\->D
"IN EQUATION 2,"
"EX+FY+GZ=H,"
"E="?\->E
"F="?\->F
"G="?\->G
"H="?\->H
"IN EQUATION 3,"
"IX+JY+KZ=L,"
"I="?\->I
"J="?\->J
"K="?\->K
"L="?\->L
A(FK-GJ)-E(BK-CJ)+I(BG-CF)\->\r
\If \r\<>0
\Then (D(FK-GJ)-H(BK-CJ)+L(BG-CF))/\r\->X
(A(HK-GL)-E(DK-CL)+I(DG-CH))/\r\->Y
(A(FL-HJ)-E(BL-DJ)+I(BH-DF))/\r\->Z
\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:943
File Name:CPLXSYS4
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"IN EQUATION 1,"
"AX+BY+CZ+DW=E,"
"A="?\->A
"B="?\->B
"C="?\->C
"D="?\->D
"E="?\->E
"IN EQUATION 2,"
"FX+GY+HZ+IW=J,"
"F="?\->F
"G="?\->G
"H="?\->H
"I="?\->I
"J="?\->J
"IN EQUATION 3,"
"KX+LY+MZ+NW=O,"
"K="?\->K
"L="?\->L
"M="?\->M
"N="?\->N
"O="?\->O
"IN EQUATION 4,"
"PX+QY+RZ+SW=T,"
"P="?\->P
"Q="?\->Q
"R="?\->R
"S="?\->S
"T="?\->T
AGMS-AGNR-ALHS+ALIR+AQHN-AQIM-FBMS+FBNR+FLCS-FLDR-FQCN+FQDM+KBHS-KBIR-KGCS+KGDR+KQCI-KQDH-PBHN+PBMI+PGCN-PGDM-PLCI+PLDH\->\r
\If \r\<>0
\Then EGMS-EGNR-ELHS+ELIR+EQHN-EQIM-JBMS+JBNR+JLCS-JLDR-JQCN+JQDM+OBHS-OBIR-OGCS+OGDR+OQCI-OQDH-TBHN+TBMI+TGCN-TGDM-TLCI+TLDH\->U
U/\r\->X
AJMS-AJNR-AOHS+AOIR+ATHN-ATIM-FEMS+FENR+FOCS-FODR-FTCN+FTDM+KEHS-KEIR-KJCS+KJDR+KTCI-KTDH-PEHN+PEMI+PJCN-PJDM-POCI+PODH\->U
U/\r\->Y
AGOS-AGNT-ALJS+ALIT+AQJN-AQIO-FBOS+FBNT+FLES-FLDT-FQEN+FQDO+KBJS-KBIT-KGES+KGDT+KQEI-KQDJ-PBJN+PBOI+PGEN-PGDO-PLEI+PLDJ\->U
U/\r\->Z
AGMT-AGOR-ALHT+ALJR+AQHO-AQJM-FBMT+FBOR+FLCT-FLER-FQCO+FQEM+KBHT-KBJR-KGCT+KGER+KQCJ-KQEH-PBHO+PBMJ+PGCO-PGEM-PLCJ+PLEH\->U
U/\r\->W
\IfEnd
%End