<style type="text/css"> SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S32 { color: #3399FF; } .L0S52 { color: #0000FF; } .L0S55 { color: #800080; } .L0S70 { color: #808080; } </style>
<style type="text/css"> SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S33 { color: #4DA619; } .L0S52 { color: #0000FF; } </style> pi TYPE f VALUE '3.14159265',
Rad = pi / 180.
dLat = rad * ( p_lat2 - p_lat1 ).
dLon = Rad * ( P_LON1 - P_LON2 ).
lat1 = p_lat1 * rad.
lat2 = p_lat2 * rad.
temp3 = sin( dLat / 2 ) * sin( dLat / 2 ) + sin( dLon / 2 ) * sin( dLon / 2 ) * cos( lat1 ) * cos( lat2 ).
temp4 = 2 * atan( sqrt( temp3 ) / sqrt( 1 - temp3 ) ).
temp5 = 6371 * temp4.
P_RDIST = temp5.
??? ㅡ_ㅡ ???