Deutsch (6.2 MB) - Nagra
Deutsch (6.2 MB) - Nagra
Deutsch (6.2 MB) - Nagra
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
NAGRA NTB 85-32<br />
ALPHA=MINCALPHA,1DO)<br />
ALPHA=MAX(ALPHA,ODO)<br />
BETA=MINCBETA,1DO)<br />
BETA=MAXCBETA,ODO)<br />
V1W=EPS1*V1<br />
V2W=EPS2*V2<br />
F12=F21+F31+F01<br />
F23=F01+F02+F31<br />
F34=F43+F23-F31<br />
X=RH01/EPS1<br />
DO 30 K=1,N<br />
30 RRCK)=1DO+X*AKD1CK)<br />
X=RH02/EPS2<br />
DO 40 K=1,N<br />
40 RR2CK)=1DO+X*AKD2(K)<br />
BK(1,1)=F12/V1W<br />
BK(2,1)=-BK(1,1)<br />
BK(1,2)=-F21/V2W<br />
BK(3,2)=-F23/V2W<br />
BK(2,2)=-BK(1,2)-BK(3,2)<br />
BK(1,3)=-F31/V3<br />
BK(4,3)=-F34/V3<br />
BK(3,3)=-BK(1,3)-BK(4,3)<br />
BK(3,4)=-F43/V4<br />
BK(4,4)=F4S/V4-BK(3,4)<br />
C - 14<br />
50 FORMAT(10A8)<br />
60 FORMAT(8D10.3)<br />
70 FORMATC1H1,5X,10A811)<br />
80 FORMAT(6X,'KOMPARTIMENT - PARAMETER [M,A,KGJ :'11<br />
1 6X,'V1,V2,V3,V4 ' ,4(1PD9.2,' ,')11<br />
2 6X,'EPS1,EPS2,RH01,RH02 :' ,4(D9.2,' ,')11<br />
3 6X,'F01,F02,F43,F4S,F21,F31: ' ,6(D9.2,' ,')11<br />
4 6X, 'ALPHA,BETA : ' ,OPF5.2,',' ,F5.211)<br />
90 FORMAT(6X,'KD - WERTE [M3/KGJ , (OBEN:KOMP.1 , UNTEN:KOMP.2) :')<br />
100 FORMAT(1HO,5X,12A9)<br />
110 FORMAT(5X,12(1PD8.1,1X»<br />
120 FORMAT(116X,'BIOLOGISCHE PARAMETER [KG,L,M2,DJ :'1<br />
1 6X,'COVG,COVV,VEZ,CIR,CDEP : ' ,5(1PD9.2,' ,')11)<br />
130 FORMAT(1X,10A8/3X,'TIME' ,5X,40CA8,2X»<br />
RETURN<br />
END
Change language