154
•ELSE'
•BEGIN"IF'OFI 'LESS'o 'THEICAo:-Ao<PI;
SIGi-MFI
'END';
'IF*Ao 'LESS'o 'THEN'Ao:-Aot2«PI;
NI:-NL:-o; Z:-o; EPS:-EFS/RHO;
I F'ABS(DLAN) GREAT ER'PI/2 'THENSIG-PI-SI 6;
NS:-ABS(2-ELL IPS[1]-SI G-1o-6)
•IF'NS 'LESS'1 'THEN'NS:-l;
IF'BOOLFI 'THEN'GOTOBREEOTE;
DLAM:-2-DLAH/NS;
OPNIEUW: XCo3:-8GZ[Ul]; X[i3:-B6ZCl3;
X[2]:-o; X[33:-Ao;
FOR'K-l 'STEP'l 'UNTIL'NS 'DO'
N U8 X3, OL AMFUNl
BELT A:-XCl3-B6Z[J3;
'IF'ABS(DELTA) 'GREATEREPS 'THEN'
'BEGIN'SIG:-X[23/ELLIPSCi3;
0ELTA;.C/(ELLIPS[1>V-V-V)-DELTA;
'IF'ABS(DELTA) 'GREATER',,-5 'THEN'0ELTA-.-TAN(0ELTA)
DA:-ARCTANSIN(XC 33SIN(SIG/BELTA-C0S(X[ 33 )~C0S(SIG)
Ao:-Ao+DA;
T El T NL6)
'GOTO'OPNI EUW;
'END';
MF'ABS(Z-Ao) 'LESS'EPS/SIN(X[2]/ELLIPS[l]) 'THEN*'GOTO'KLAAR;
NS:-NS-2;
0LAM:-(BGZCJ+l3-BGZ[Ul])/NS;
Z:-Ao; TEITUl.7); HL:-1;
'GOTO'OPNIEUW;
BREEDTE: DFI:-2-0FI/NS;
HERHAAL: XCo3:-BGZ13X[l]:-BGZEUl3;
XC23-o; X[3]:-Ao;
'F0R'K:-1 'STEP'l 'UNTIL'NS '00'
NU8(X,3,DFI,FUN2)
DELTA:.BGZ[Jtl]-X[l];
'IF'ABS(DELTA) 'GREATER'ABS(EPS/COS(BGZCJ3)) 'THEN'
'BEGIN'SIG:-XC23/ELLIPS[l3;
DELTA:-C-OELTA/(ELLIPS[l><V):
COB:-SI N(X[o3H AN(DELTA/2)
DA:.ARCTAN((TAN(X[3])-C0Btl)/(SIN(SIG}/(C0S(X[o])^IN(0ELTA)«C0S(X[3]))4
C0S(SIGHC0B-TAN(X[3]))));
Ao;.Ao+DA; TEIT(NL,6)
'GOTO'HERHAAL;
'END';
IF'ABS(Z-Ao) 'LESS'ABS(EPS/SIN(XC23/ELLIPSC13)'THEN'
'GOT O'KLAAR;
NS:-NS-2;
BFI:-(B6ZCJ3-B6ZCI3)/NS;
2:-Ao; TEIT(N1,5); NL:-1;
•GOTO'HERHAAL;
KLAAR: SAACl3:-XC21;
SAA[23:-Ao,
SAA[33:-XLJ3;
'END' Gl7;
