18 lines
392 B
Plaintext
18 lines
392 B
Plaintext
100 CLS
|
|
110 LET p = atan(1)*4
|
|
120 LET d = p/180
|
|
130 LET k = 36.12
|
|
140 LET m = -86.67
|
|
150 LET l = 33.94
|
|
160 LET n = -118.4
|
|
170 LET r = 6372.8
|
|
180 PRINT " Distancia de Haversine entre BNA y LAX = ";
|
|
190 LET g = d*(m-n)
|
|
200 LET t = d*(k)
|
|
210 LET s = d*(l)
|
|
220 LET x = COS(g)*COS(t)-COS(s)
|
|
230 LET y = SIN(g)*COS(t)
|
|
240 LET z = SIN(t)-SIN(s)
|
|
250 PRINT (ASIN(SQR(x*x+y*y+z*z)/2)*r*2);"km"
|
|
260 END
|