설명

지구상의 지점(공항)의 좌표는 도 단위로 표시됩니다.
위도와 경도. 최단거리(대권거리)
포인트 쌍 사이가 바람직합니다. 먼저 구면 좌표는 다음과 같습니다.
데카르트 좌표로 변환됩니다. 둘째, 직선
단위 구의 점 사이의 거리가 계산됩니다. 셋째,
대권 거리가 계산됩니다.

소형 모델 유형 :슬롯 사이트 추천

카테고리 : 슬롯 사이트 추천 모델 라이브러리

메인 파일 : great.gms

$title 대권 거리(GREAT,SEQ=73)

$onText
지구상의 지점(공항)의 좌표는 도 단위로 표시됩니다.
위도와 경도. 최단거리(대권거리)
포인트 쌍 사이가 바람직합니다. 먼저 구면 좌표는 다음과 같습니다.
데카르트 좌표로 변환됩니다. 둘째, 직선
단위 구의 점 사이의 거리가 계산됩니다. 셋째,
대권 거리가 계산됩니다.

Brooke, A, Kendrick, D 및 Meeraus, A, 슬롯 사이트 추천: 사용자 안내서. 는
Scientific Press, 캘리포니아 레드우드 시티, 1988.

지구의 중심은 모든 좌표계의 원점입니다.

구면 좌표 위도 각도 북쪽 양수
                                      남쪽 네거티브
                      경도 각도 동쪽 양수
                                      서쪽 부정

데카르트 좌표 x축 0 N 0 E
                      y축 0 N 90 E
                      z축 90N

키워드: 대권 거리, 직교 거리, 거리 측정, 수학
$offText

세트
   k '좌표' / x축, y축, z축 /
   a '공항' / sfo '샌프란시스코'
                     미아 '마이애미'
                     JFK '뉴욕'
                     아 '휴스턴'
                     '워싱턴 DC'
                     khi '카라치 - 파키스탄'
                     nnn '북극'
                     sss '남극' /;

별칭(a,ap);

테이블 loc(a,*) '지도상의 위치'
          위도-위도-분 경도-도-분
   SF 37 37 -122 -23
   미아 25 48 - 80 -17
   JFK 40 38 - 73 -47
   아 29 58 - 95 -20
   이드 38 57 - 77 -25
   키 24 40 67 10
   nn90
   sss -90 ;

스칼라 r '지구 반경(마일)' / 3959 /;

매개변수
   lat(a) '위도 각도(라디안)'
   long(a) '경도 각도(라디안)'
   uk(a,k) '직교 좌표의 점(단위 구)'
   useg(a,ap) '점 사이의 직선 거리(단위 구)'
   udis(a,ap) '대권 거리(단위 구)'
   dis(a,ap) '대권 거리(마일)';

lat (a) = (loc(a,"lat-deg") + loc(a,"lat-min") /60)*pi/180;
long(a) = (loc(a,"long-deg") + loc(a,"long-min")/60)*pi/180;

uk(a,"x축") = cos(long(a))*cos(lat(a));
uk(a,"y축") = sin(long(a))*cos(lat(a));
uk(a,"z축") = sin(lat(a));

useg(a,ap) = sqrt(sum(k, sqr(uk(a,k) - uk(ap,k)) ));
udis(a,ap) = 파이;
udis(a,ap)$(useg(a,ap) < 1.99999) = 2*arctan(useg(a,ap)/2/sqrt(1 - sqr(useg(a,ap)/2)));
dis(a,ap) = r*udis(a,ap);

옵션 lat:5, long:5, uk:5, useg:5, udis:5, dis:0;

loc, lat, long, uk, useg, udis, dis를 표시합니다.