大地(高斯平面)坐标系工程坐标系转换大地坐标系--—〉工程坐标系 ========================待转换点为 P,大地坐标为：Xp、Yp 工程坐标系原点 o： 大地坐标：Xo、Yo 工程坐标：xo、yo工程坐标系 x 轴之大地方位角：adX=Xp-XodY=Yp—YoP 点转换后之工程坐标为 xp、yp: xp=dX＊COS(a）+dY＊SIN（a）+xoyp=—dX*SIN(a)+dY＊COS(a）+yo工程坐标系———>大地坐标系========================待转换点为 P,工程坐标为：xp、yp工程坐标系原点 o: 大地坐标：Xo、Yo工程坐标:xo、yo工程坐标系 x 轴之大地方位角：adx=xp—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两点间距离： SLb1 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+180 ： ∟ ∟ (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”L2 Lb1 2L3 ｛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"L7 O“X(L）”＝M＋Bcos（A＋Q＋180)▲L8 P“Y（L)”＝N＋Bsin(A＋Q＋180）▲L9 {C｝：C“B（R）”L10 U“X(R)”＝M＋Ccos（A＋Q）▲L11 V“Y（R)"＝N＋Csin（A＋Q）▲L12 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 2L3 {L｝:L“L（X)”L4 V＝180／π×（L－S）／R：W＝V／2L5 C＝A＋（—1)K×W：D＝2RsinW：F＝A＋（—1）K×VL6 M“X（Z)”＝X＋DcosC▲L7 N“Y（Z)”＝Y＋DsinC▲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＋Gcos（F＋Q）▲L13 U“Y（R）”＝N＋Gsin(F＋Q)▲L14 Goto 2正向缓和曲线段坐标计算L1 S“ZH—Km”：X“X...
