Vízügyi Közlemények, 1974 (56. évfolyam)

2. füzet - Kozák Miklós: Kooperációs vízierőművek és tározók üzemének számítása csúcsterhelések esetén

260 Kozák Miklós •BEGIN ' INTEGER I»SZEL,N,REK,D,L,KOD; •REAL Z, B,P,DZ, F, R, H, C, DX,H, d»HIBA .M»3b ZD, Q, RO, KKi IMDEVC 1 ); READ (KOD, SZEL, REK, D, L, JJ KK, R0,BF » ZD, 9,HIBA, DX ) S •BEGIN REAL 'ARRAY AC 1 : SZEL ,i : D 3 •IF REK= I 'THEN 'GO 'TO Kb •FOR I : = 1 'STEP 1 'UNTIL SZEL 'DO •FOR N:=1 'STEP 1 'UNTIL L 'DO READ tACl.Nl>» DX:=AC2,

13-ACl.lli •GO "TO AT, KIi AC 1,13:=AC1,23:=OJ AC1,33:=DF; AC1,43:=S; ACl,53:=R0i fl[|,6]!=KK AT: AC 1> 7 31"ZDJ AC 1*93 :=AC

1,73-AC

1>23} D?:=AC1,91; F:=(AC1,33+AC1,53*DZ)*DZJ R

:=F/

СAC 1,31 +2*DZ*(S3RTC'l +АС 1» 51**2 ) ) ) î K:=F*AC

1,61*R**C2/3

Ii А С

1

j 81 :=AC

1,41/FJ С S=AC

1,7

1 + C СACl,4 3/F)**8)/I9.62+(( AC 1,41/K

)**2

)*DX/2

) •IF REK 'NE 1 'THEN 'GOTO EL

5 •FOR I :=2 'STEP 1 'UNTIL SZEL 'DO '3EGIN АСЫ 1 ««At 1-1

j

1 3 + DXJ AC 1,21: = ACI-1,21+J*DXJ ACI,33:=BF; A CI,

43 : = Q J ACI,53: = R0J ACb63t=KKJ •END ; EL: 'FOR M:=l 'STEP 1 'UNTIL SZEL-1 'DO •BEGIN ACN+1,73:=ACN,73; ISM: Z:= ACN+1>73; DZ : = ACN +

1, 7 3 - A CN+

1 , 23 J F:=CACN+1,3 3+ACN+1,53*DZ)*D?J Rs=r/CACN+1,3 3+2*DZ*CS3RT<

1+ACN+1»

53**3)))i K:=F*A CN+

1 » 63*R** CO«6666)J 3««-CCACN+1,43/F)**2)/19.62+C

С ACM+

1,43/K)**2

)* СACN+

1,1

3-ACN»

11)/2i ACN+1J

7 3 :=C+3S "IF С

ABS

(ACN+1

» 7 3 - Z ) 'GT HIBA) ' THEN 'GOTO ISMÍ ACN + 1,83 S = ACN+I,43/F; ACN + 1,93 :=ACN+1,7]-ACN+1,21 S •IF N=SZEL-1 'THEN 'GOTO UGRJ С

! = ACM + 1

,7 3 + ((ACM+

1,4 3/F)**2

)/19«62+

С СACN + 1

,43

/К)**2

)* СACN+2,

13 -ACN+bl3)/2J UGR

: 'END J FORMAT

("87654321 ! ! !!S)J PRINT ("KODS, KOD) Î LINEC2

); SPACEC 4)J OUTDEVC

1)J PRINT

(" XOM3 ZCM3 QCM3ZS1 VCM/S3 HCM3 S);AFFIX(" S)J LINSC3

); •FOR N : = 1 'STEP 1""Ua'TIL SZEL 'DO 'BEGIN FORMAT С"-654321

. 1 ! ! ! ! S : ; PR INT С ACM,

11); FORMAT

("-54321• 1234 ! ! ! ! S >i 'FOR I :=7,4»8,9 'DO PRINTC ACN, 1

1 ) J LIM"EC1)J •END ; LINE C3 ) J PBINTC"

JÈLMAGYARAZATS

)J LINE(

2)j PRINTC" XCM3» A SZELVENY KOORDINATAJA ZCM1= A DUZZASZTOTT VÍZSZINT Í)CM3/S3 = VÍZHOZAM VCM/S1« K00ZEPSE3SSSSG ЧСМ1= VIZMELYSEGS

) '

END ; I VK. 4231 I 'END ; 3. ábra. A kezdeti feltételek számításának programlistája Fig. 3. Programme list for computing the initial conditions Abb. 3. Programmliste der Berechnung der Anfangsbedingungen