254
regel
BEGIN REAL PL4, PLB, PIH;
IFAT 3V^ 4 THEN
BEGIN N: N— 2; GC: FALSE; PIH: 10i5o; GOTO
ENDVOORWAARDE
136 PIHPl3(J,I,K,N)
IF PIH „150 THEN GOTO EINDP4
VOORWAARDE: P1A Pls[I,K,J,N)
PIBPI3 (K,J,I,N)
IF PL4 10i5o V PIS „150 THEN
141 GOTO EINDP4;
PIH:=—PIA— PLB;
IF AI 2 THEN PIH: PIH 2oo;
EINDP4: PI4: PIH
END PI4;
146 REAL PROCEDURE Pl{J,I,K,N)VALUE AI; INTEGER J,I,K,N
BEGIN REAL PL4, PIB, PIH; INTEGER H;
PI//: 10i5o; GCTRUE
IF 6 V IV 1 V TESTNO(/) V TESTNO(/) V TESTNO(K)
THEN
BEGIN PRINT ('VERKEERDE AANROEP VAN PI', J,I,K,N)
151 GOTO EINDPI
END;
IF lï 5 V W 6 THEN
BEGIN AIAI4GC: FALSE;
GOTO VOORWAARDE;
156 END;
PIH: PI4(/,7,H,AI);
IF PIH „150 THEN GOTO EINDPI;
VOORWAARDE: IF IV 2 THEN H: i ELSE H: 2;
PI2IPl^(I,K,J,H)
161 PIBPÏ^(K,J,I,H)
IF PI^ „150 V PIB „150 THEN
BEGIN GC: FALSE; GOTO EINDPI
END;
IF AI 1 THEN
166 BEGIN PIH: LN(^BS(SIN(PIB/RHO)/SIN(PI^/RHO)));
GOTO EINDPI
END;
PI HEXP(+PI/4PIB) +EXP(PIv!PIB) EXP(PIA
PIB) 1/2;
PIH: ARCCOS(PIH) x RHO;
171 IF PIH o THEN PIH PIB200;
EINDPI: PI: PIH; IF GC THEN PIBERG (PIHJ,I,K,AI)
END PI;
REAL PROCEDURE LAM(I,K,J,P,N)INTEGER J,I,K,P,N;
BEGIN REAL LAMH, PI^
176 LAMH: 10I5o;
IFP<iVP>6VAI<iVAI>2V
TESTNO(I) V TESTNO(H) V TESTNO(J) THEN
BEGIN PRINT ('VERKEERDE AANROEP VAN LAM', I,K,
J.P.N):
GOTO EIND
181 END;
LAMH: LAMi(/,H,P,AI); IF LAMH ^10i5O V B 2 THEN GOTO
[EIND;
LAMHLAMi ,P,AI)IF LAMH 10i5o THEN
BEGIN PL4: PI(/,J,K,AI);