19.07.2014 Views

[Luyben] Process Mod.. - Student subdomain for University of Bath

[Luyben] Process Mod.. - Student subdomain for University of Bath

[Luyben] Process Mod.. - Student subdomain for University of Bath

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

608 MULTIVARIABLE PROCESSES<br />

TABLE 17.3 (continued)<br />

CALL IDENT(HIN,N)<br />

CALL MADD(HIN,Q,H,N)<br />

CALL LEQ2C(H,NN,IA,HIN,M,IB,IJOB,WA,WK,IER)<br />

CALL LOADTF(GL,W,N,KL,TAUL,DL)<br />

CALL MVMULT(HIN,GL,XTLC,W,N)<br />

DO 6 I=l,N<br />

6 DB(I)=20.*ALOGlO(CABS(XTLC(I)))<br />

WRITE(6,7)W,(DB(I),I=l,N)<br />

7 FORMAT(lX,F7.4,4F9.3)<br />

W=W*DW<br />

IF(W.LT.lO.)GO TO 100<br />

RETURN<br />

END<br />

C<br />

SUBROUTINE LOADTF(GL,W,N,KL,TAUL,DL)<br />

COMPLEX GL(4),ZL,ZD<br />

DIMENSION DL(4),TAUL(4,4)<br />

REAL KL(4)<br />

ZL(X)=CMPLX(l.,X*W)<br />

ZD(X)=CMPLX(COS(WtX),-SIN(W*X))<br />

DO 10 I=l,N<br />

GL(I)=KL(I)*ZD(DL(I))*ZL(TAUL(l,I))/ZL(TAUL(2,1))/<br />

+ ZL(TAUL(3,I))/ZL(TAUL(4,1))<br />

10 CONTINUE<br />

RETURN<br />

END<br />

C<br />

C MATRIX-VECTOR MULTIPLICATION<br />

SUBROUTINE MVMULT(A,B,C,W,N)<br />

COMPLEX A(4,4),B(4)$(4)<br />

DO 30 I=l,N<br />

C(I)=CMPLX(O.,O.)<br />

DO 20 J=l,N<br />

20 C(I)=A(I,J,*B(J)+C(I)<br />

30 CONTINUE<br />

RETURN<br />

END<br />

Results<br />

W TLC1 TLC2 TCL3<br />

.OlOO -51.187 -18.386 -7.112<br />

.0126 -47.967 -17.091 -3.642<br />

.0158 -45.022 -16.026 .240<br />

.0200 -42.393 -15.209 3.093<br />

.0251 -40.119 -14.645 6.361<br />

.0316 -38.231 -14.331 9.540<br />

,039s -36.722 -14.266 12.547<br />

.0501 -35.442 -14.440 15.252<br />

.0631 -34.002 -14.781 17.553<br />

.0794 -32.012 -15.072 19.407<br />

.lOOO -29.484 -14.857 20.770<br />

.1259 -26.696 -13.620 21.450<br />

.1585 -23.911 -11.456 20.922<br />

.I995 -21.406 -9.153 17.734<br />

.2512 -19.702 -7.744 7.871<br />

.3162 -19.614 -8.386 15.111<br />

W TLC1 TLC2 TCL3<br />

.3981 -21.309 -11.531 15.413<br />

.5012 -24.020 -16.312 8.943<br />

6310 -27.079 -19.446 9.338<br />

.7943 -29.796 -19.764 6.413<br />

1.0000 -32.102 -21.345 5.627<br />

1.2589 -35.142 -24.907 3.107<br />

1.5849 -37.406 -26.733 ,995<br />

1.9953 -39.624 -28.397 -1.342<br />

2.5119 -41.039 -29.725 -3.389<br />

3.1623 -42.692 -32.305 -5.623<br />

3.9811 -45.035 -34.280 -7.692<br />

5.0119 -46.915 -36.055 -9.727<br />

6.3096 -49.044 -38.224 -11.729<br />

7.9433 -50.828 -40.280 -13.540<br />

10.0000 -52.814 -42.443 -15.796

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!