help
@language:simplified_chinese
已知直线的坐标方位角Q和直线起点坐标（Xo,Yo），求直线上任一点的中桩坐标（X， Y），左右边桩坐标（XL，YL）、（XR，YR）： 公式：X =Xo+L*cosQ ；Y=Yo+L*sinQ
@end
endh
function cl_zmlr()
//[起点x0坐标c,起点y0坐标d,切线方位角q,起点桩号z,左边距u,右边距t,偏转角v]
variable c,d,q,z,u,t,v
variable m=input("\n"+"？[起点x0坐标c,起点y0坐标d,切线方位角dms(q),起点桩号z,左边距u,右边距t,偏转角dms(v)]"+"\n")
c=m[0]
d=m[1]
q=m[2]
z=m[3]
u=m[4]
t=m[5]
v=m[6]
variable a0=input("？计算结果保留小数点后位数：Fix»")
return fx(a0,c,d,q,z,u,t,v)
endf
function fx(a0,c,d,q,z,u,t,v)
variable l=input("\n"+"？待求桩号:")
variable w=abs(l-z),x=c+w*cosd(q),y=d+w*sind(q)
print("»»Z+0_("+round(x,a0)+","+round(y,a0)+")"+"\n")
if(u<=0)
return fx(a0,c,d,q,z,u,t,v)
else
variable a=x-u*cosd(q+v),b=y-u*sind(q+v),e=x+t*cosd(q+v),f=y+t*sind(q+v)
print("»»Z-"+u+"_("+round(a,a0)+","+round(b,a0)+")"+"\n")
print("»»Z+"+t+"_("+round(e,a0)+","+round(f,a0)+")"+"\n")
endif
sleep(3000)
variable k0=input("\n"+"？输入k0值;结束(=0)|主程序(≠0)："+"k0=")
if(k0!=0)
print("‥修改初始数据‥"+"\n")
return cl_zmlr()
else
return "‥Function Over‥"
endif
endf

zan