19 lines
478 B
Text
19 lines
478 B
Text
100 HOME : rem 100 CLS for GW-BASIC and MSX BASIC : DELETE for Minimal BASIC
|
|
110 LET P = ATN(1)*4
|
|
120 LET D = P/180
|
|
130 LET M = 36.12
|
|
140 LET K = -86.67
|
|
150 LET N = 33.94
|
|
160 LET L = -118.4
|
|
170 LET R = 6372.8
|
|
180 PRINT " DISTANCIA DE HAVERSINE ENTRE BNA Y LAX = ";
|
|
190 LET A = SIN((L-K)*D/2)
|
|
200 LET A = A*A
|
|
210 LET B = COS(M*D)*COS(N*D)
|
|
220 LET C = SIN((N-M)*D/2)
|
|
230 LET C = C*C
|
|
240 LET D = SQR(C+B*A)
|
|
250 LET E = D/SQR(1-D*D)
|
|
260 LET F = ATN(E)
|
|
270 PRINT 2*R*F;"KM"
|
|
280 END
|