大地坐标转换成施坐工标公式.docVIP

大地(高斯平面)坐标?系工程坐标系转换 大?地坐标系---工程?坐标系?=====?==========?========= ?待转换点为P，大地坐?标为：Xp、Yp? ?工程坐标系原点o:??大地坐标：Xo、Yo?? 工程坐标：xo、?yo 工程坐标系x轴?之大地方位角：ad?X=Xp-XodY?=Yp-YoP点转?换后之工程坐标为xp?、yp:?xp=d?X*COS(a)+d?Y*SIN(a)+x?oyp=-dX*S?IN(a)+dY*C?OS(a)+yo 工?程坐标系---大地?坐标系======?==========?======== 待?转换点为P，工程坐标?为：xp、yp 工程?坐标系原点o:?大地?坐标：Xo、Yo 工?程坐标：xo、yo ?工程坐标系x轴之大地?方位角：adx=x?p-xody=yp?-yoP点转换后之?工程坐标为xp、yp?:xp=Xo+dx?*COS(a)-dy?*SIN(a)yp?=Yo+dx*SIN?(a)+dy*COS?(a) ?坐标方位角?计算程序 置镜点坐标?：ZX??ZY 后视?点坐标：HX??HY?方??位??角：W?两点间距离:?S?Lb1?0←?｛A?,??B,??C,???D｝←A〝ZX=?〞:B〝ZY=〞:C?〝HX=〞:D〝HY?=〞:W=tg1((?D-B)÷(C-A)?):(D-B)0=?(C-A)0=?W=W:∟∟(D-B?)0=(C-A)?0=W=W+18?0:∟∟(D-B)?0=(C-A)0?=W=W+180:?∟∟(D-B)0=?(C-A)0=?W=360+W∟∟W?=W◢S=√((D?-B)2+(C-A)?2)?◢Goto??0← CASIO???fx－4500p坐?标计算程序 根据坐标?计算方位角W＝W＋?360△W：“ALF?(1~2)＝”?L1???A“X1＝”：B?“Y1＝”：Pol(?C“X2”－A，D“?Y2”－B：“S＝”?▲W＜0直线段坐标?计算L1???X“?X(0)”：Y“Y(?0)”：S“S(0)?”：A“ALF”L?2???Lb1?2?L3???{L}：L?“LX”L4????M“X(Z)”＝X＋?(L－S)cosA▲?L5???N“Y(?Z)”＝Y＋(L－S?)sinA▲L6????{B}：B“B(?L)”：Q“Q”L?7???O“X(L)?”＝M＋Bcos(A?＋Q＋180)▲L?8???P“Y(L)?”＝N＋Bsin(A?＋Q＋180)▲L?9???{C}：C“?B(R)”L10???U“X(R)”＝M?＋Ccos(A＋Q)?▲L11??V“Y?(R)”＝N＋Csi?n(A＋Q)▲L1?2??Goto??2?园曲线段坐标计算?L1???S“S(0?)-Km”：X“X(?0)”：Y“Y(0)?”：A“ALF”：R?“R”：K“K(L＝?1,R＝2)”L2????Lb1?2L?3???{L}：L“?L(X)”L4????V＝180／π×（?L－S）／R：W＝V?／2L5???C＝?A＋(-1)K×W：?D＝2RsinW：F?＝A＋(-1)K×V?L6???M“X(?Z)”＝X＋Dcos?C▲L7???N“?Y(Z)”＝Y＋Ds?inC▲L8????{E}：E“B(L)?”：Q“Q”L9????O“X(L)”＝?M＋Ecos(F＋Q?＋180)▲L10???P“Y(L)”＝?N＋Esin(F＋Q?＋180)▲L11???{G}：G“B(?R)”L12??T?“X(R)”＝M＋G?cos(F＋Q)▲?L13??U“Y(R?)”＝N＋Gsin(?F＋Q)▲L14???Goto??2正?向缓和曲线段坐标计算?L1???S“ZH?-Km”：X“X(Z?H)”：Y“Y(ZH?)”：A“ALF”：?R“R”：H“LS”?：K“K(L＝1,R?＝2)”L2????Lb1?2L3????{L}：L“L(X?)”L4???D＝?30（L－S）2／π?／R／H：C＝L－S?－（L－S）5／90?／（R×H）2：B＝?A＋D(-1)K：E?＝A＋3D(-1)K?L5???U“X(?Z)”＝X＋Ccos?B▲L6???V“?Y(Z)”＝Y＋Cs?inB▲L7????{G}：G“B(L)?”：Q“Q”L8????F“X(L)”＝?U＋Gcos(E＋Q?＋180)▲L9????I“Y(L)”＝?V＋Gsin(E＋Q?＋180)▲L10???{J}：J“B(?R)”L11??M?“X(R)”＝U＋J?cos(E＋Q)▲?L12??N“Y(R?)”＝V＋jsin(?E＋Q)▲L13???Goto??2卵?形曲线坐标计算X＝?1,D＝