255
regel
IF PIA 10i5o THEN
186 BEGIN LAM//: LAM// PL4 GOTO EINDLAM
END
END;
LAMH: LAMi(J,K.P.N); IF LAM// 10i5O THEN
BEGIN PIA: PI(I,KJ,N);
igi IF PI^ 10i5O THEN
BEGIN LAM// :=LAMHPI A GOTO EINDLAM
END
END;
PRINT ('LAM IS OP DEZE WIJZE NIET TE BEREKENEN',
I,K,J,P,N)
196 GOTO EIND;
EINDLAM: LAMBERG(LAM//,/, K,P,1V)
EIND: LAM LAM//
END LAM;
PROCEDURE LAMSCHOON(P)INTEGER P;
201 BEGIN INTEGER IJ)
FOR 1 STEP 1 UNTIL /LAM DO
HERHAAL: IF ENTIER(^LAM[/]/ioooooo)—P o THEN
BEGIN FOR J/+i STEP 1 UNTIL /LAM DO
BEGIN BLAM[2X/—3]:=BLAM[2X 1]
206 BLAM[2 x J2]=BLAM[2 x
A LAM[/1]A LAM[/]
END;
/LAM /LAM1GOTO HERHAAL
END;
211 END LAMSCHOON;
PROCEDURE Z(KJ,I,PINTEGER JJ,K,P
BEGIN REAL L, FI
IF P 2 V P 1 V TESTNO/K) V TESTNO(J) V TESTNO(/)
THEN
BEGIN PRINT ('VERKEERDE AANROEP VAN Z'KJ,I,P);
216 GOTO EINDEZ
END;
LLAM(/,K,/,P, 1)
FILAM(/,Zf ,/,P,2)
IF L 10i5O V FI 10i5O V BZ\P,I] 10i5O THEN
221 BEGIN PRINT ('COÖRDINATEN ZIJN OP DEZE WIJZE
NIET TE BEREKENEN', KJ.I.P)
GOTO EINDEZ
END;
BZ[P,K\=BZ[P,I] EXP(L) x COS(P//RHO)
BZ'rP, K 1]=BZ[P, i) EXP(L)x SIN(P//RHO)
226 EINDEZ: END Z\
PROCEDURE SCHOONMAKEN;
BEGIN INTEGER /,P;
FOR P: 1,2 DO
FOR 1 STEP 1 UNTIL 2 xNZ DO PZ[P,/]: 10150;
231 FOR STEP 1 UNTIL 2 x 1VLAM DO
BEGIN BLAM[/]: 10i5o; ^LAM[//2]: o
END;
FOR 1 STEP 1 UNTIL 2 x API DO
BEGIN PPI[/]: 10i5o; ^PI[//2]: o
236 END;
/LAM/PI1
END SCHOONMAKEN;