File: KUGEL.FC of Tape: Various/ETH/fc1
(.FC,.FO Focal format converted to 'WRITE' listing)
C ACU-FOCAL12,1973 01.01 S R=6371; S PI=3.141592654 01.05 T %15.03, !!! "KUERZESTE ENTFERNUNG ZWISCHEN 2 PUNKTEN"! 01.06 T "AUF DER KUGELOBERFLAECHE"!! 01.11 T "KOORDINATEN PUNKT 1 IN ALTGRAD"! 01.12 A "LAENGE",L1, "BREITE",B1,!! 01.13 T "KOORDINATEN PUNKT 2 IN ALTGRAD"! 01.14 A "LAENGE",L2, "BREITE",B2,!! 01.15 S L=FABS(L1-L2) 01.20 S A=(90-B1)*PI/180; S B=(90-B2)*PI/180 01.24 S V=FCOS(A); S G=FCOS(B); S H=FSIN(A) 01.26 S K=FSIN(B); S M=FCOS(L*PI/180) 01.29 S N=V*G+H*K*M 01.30 S U=FATN(FSQT(1-N^2)/N)*180/PI 01.33 T "KUERZESTE ENTFERNUNG",2*R*PI*U/360,!!