help
@language:simplified_chinese
统一坐标系XOY：横轴为Y轴(右+,左-)，纵轴为X轴(上+,下-)
施工坐标系X'O'Y'：左手系(纵X+轴顺旋90°至横Y+轴)；右手系反之。
夹角dms(°'")：X+顺转θ(0°~360°)至X'+的夹角
zbzh()平面坐标系转换计算程序变量清单
x0(m)施工坐标系原点在统一坐标系中的x坐标
y0(m)施工坐标系原点在统一坐标系中的y坐标
dms(°'")统一坐标系的X轴顺时针旋转至施工坐标系的X轴的角值
left(1),right(else)左手与右手的判别码
xpp(m)待换算点在施工坐标系中的X坐标
ypp(m)待换算点在施工坐标系中的Y坐标
@end
endh
function cl2_zbzh()
variable a,b,e,f,c,d,g,mat_a,mat_b,mat_c,mat_d
a=input("x0»")
b=input("y0»")
e=input("dms»")
f=input("left(1),right(else)»")
c=input("xpp»")
g=input("ypp»")
mat_a=[[a],[b]]
mat_b=[[cosd(e),-sind(e)],[sind(e),cosd(e)]]
iff(f!=1,d=-g,d=g)
mat_c=[[c],[d]]
mat_d=mat_a+mat_b*mat_c
return mat_d
endf

zan