download searchable PDF of Circuit Design book - IEEE Global ...

Program B2-2A.
Gauss-Jordan Solution of Complex Equations with Screen
Iuput
5 REM LEY P314 CHPLX-TO-REAL HATRICES.TRC9/79
15 DIM A{20,21),8(lO,22)
40 PRINT". OF CQf1PLEX EQUATION$=";=INPUT He
50 N=Z_NC
70 FOR J=1 TO NC
71 K=2'J-l
72 PRINT"INf:>UT COL";J;"COMPLEX CQEFS: IO
74 FOR 1=1 TO NC
76 PRINT" ROW"; 1; "REAL, It1ASs ";: INPUT B(I,K),BU,K+I)
78 NEXT I
80 NEXT J
82 PRINT" INPUT COMPLEX INDEP VARIABLEs: ,.
64 FOR 1=1 TO Ne
86 PRINT" ROW";I;"REAL,Ir1AG=";:INPUT 8(I,N+l),8(I,N+2)
BS NEXT I
100 MAsN-l
110 MB=N+l
120 He=N
130 HD=N+2
135 REM SET UP ODD ROWS
240 IK:-l
130 FOR 1=1 TO MA STEP 2
160 IK""IK+l
170 FOR J=1 TO MB STEP 2
180 LJ""I-IK
190 A(I,J)=B(LJ,J)
200 A(I,J+l)=-B(LJ,J+IJ
210 NEXT J
220 NEXT I
225 REM SET UP EVEN ROWS
230 FOR 1=2 TO He STEP 2
240 FOR J""1 TO MB STEP 2
250 LJ=INT([/2)
260 A(I,J)=B(LJ,J+I)
270 A