13 lines
441 B
Text
13 lines
441 B
Text
1.01 S BA = 36.12; S LA = -86.67
|
|
1.02 S BB = 33.94; S LB = -118.4
|
|
1.03 S DR = 3.1415926536 / 180; S D = 2 * 6372.8
|
|
1.04 S TA = (LB - LA) * DR
|
|
1.05 S TB = DR * BA
|
|
1.06 S TC = DR * BB
|
|
1.07 S DZ = FSIN(TB) - FSIN(TC)
|
|
1.08 S DX = FCOS(TA) * FCOS(TB) - FCOS(TC)
|
|
1.09 S DY = FSIN(TA) * FCOS(TB)
|
|
1.10 S AS = DX * DX + DY * DY + DZ * DZ
|
|
1.11 S AS = FSQT(AS) / 2
|
|
1.12 S HDIST = D * FATN(AS / FSQT(1 - AS^2))
|
|
1.13 T %6.2,"Haversine distance ",HDIST,!
|