APPENDIX
Procedures for the computations described in 2.1 and 3.1*
A procedure for the transfer of geographical coordinates, named
gi6.
152
'PROCEDURE'GlólIJBGZ,SAA,ELL I PS.NUMEPS,NU8
•VALUE' EPS;
'INTEGER'I,J,NUH; 'REAL'EPS;
•ARRAY'BG2,SAA,ELLIPS;
'PR0CEDURE'NU8;
'BEGIN'MNTEGER'K.NI ,NS; 'REALVVCOEA, C, OS,ZlZ2;
•ARRAY'X[o:3]; 'SWITCH'HAAM:-o, 1,2,3,4,5,6;
'PROCEDURE'FUN(WA,PA); ARRAY'WA,PA;
*BEGIN'C0>C0S(PA[1]);
VV>SQRT(l.C0-C0~EA);
»A[i]:-VV-VV-VV*<C0S(PA[3])/C;
WA[2]:-VV-SIN(PAC3])/(O-C0);
RA[3];.»A[2>SI«(PA[i])
'END' FUN;
'GOTO'NAAM CRUH+1
1:HAYF0RD: ELL IPSCl]:-6378388;
ELLlPS[2j;-6356911.94613; 'GOTO'GEEN;
2BESSEL: ELL IPS[i]:-63773?7.155;
ELLIPSES;.6356078.96325; 'GOTO'GEEN;
SEVEREST i83o: ELL IPSC13:-6377276.34528;
ELL IPS[2] :-6356o75.41512; 'GOTO'GEEN;
4: CLARKE 1866: ELL IPS[l]:-63782o6.4;
ELL I PS[2] >635658 3.8; 'GOTO'GEEN;
5:KRASS0WSKY: ELL IPSCi]>6378245;
ELL I PS[2] >6356863. olO; 'GOTO'GEEN;
6: BOMFORDELL I PS[i] >6378155;
ELLIPS[2]>6356773.32o49;
oïGEEN: DS 5»o.43-LN EPS) )~105;
IF'DS 'LESS'50000 'THEN'0S>5oooo;
NS>SAA[i]/DS;
'IF'NS 'LESS1 'THEN'NS>1;
DS>SAA[l]/NS;
EA>ELLIPS[lMLLIPS[l]/(ELLIPS[2MLLIPS[2))-l-
C>ELLIPStl>ELLIPS[i]/ELLIPS[2];
Zl>Z2>o;
NI>o;
HERHAAL: X[o]>o; X[i J:-BGZ[ I J; X[23:-8GZIUl]; X[3]>SAA[2]-
FOR'K:-l 'STEP'i 'UNTIL'NS 'DO'
NU8(X,3,0S,FUN);
'IF'ABS(Zl-X[lj) 'LESSEPS/206265 'AND'
ABS(Z2-XC23'LESS'ABS(EPS/2o6265/C0S(X[ 13)'THEN"GOTO'KLAAR;
NS>NS~2; 0S>SAA[l3/NS; Nl>MUi; Zl>X[i3; Z2:-X[23-
'IF' III 'EQUAL' 5 'THEN'
'BEGIN' EPS>EPS-loo; Nl >2
'END';
'GOTO'HERHAAL;
KLAAR: BGZCJ3:-XEi3;
BGZ[J+i3>X[23;
SAAC 33-XC 33;
'END' G16;
Quotation marks are used to indicate basic algol symbols.
