CASIO4850 计算程序

《CASIO4850 计算程序》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、坐标正算（ZBZS）X"X1":Y"Y1"LbI0:{LP}L"L":O"FWJ":"X2=":N=X+LcosO"Y2=":E=Y+LsinOGoto0注：X1,Y1:已知点坐标L：待求点至已知点的距离PWJ：已知点至待求点的方位角（以度分秒的方式输入）X2,Y2:待求点的坐标坐标反算（ZBFS）T"X1":U"Y1"LbI0:{XY}:X"X2":Y"Y2"N=X-T:E=Y-UO=Tan-1(E÷N)“L=”:L=√（N2+E2）N<0=>O=O+180E<0=>O=O+360O≧360=>O

2、=O-360“FWJ”:OGoto0注：X1,Y1:已知点1的坐标X2,Y2:已知点2的坐标L：两点间的距离PWJ：两点间的方位角（以度分秒的方式输入）直线段中边桩坐标计算（ZX.ZB）C”QD”:A”XQ”:B”YQ”:O”FWJ”LbI0:{GDF}L=P-C“X=”:X=A+LcosO“Y=”:Y=B+LsinOD”ZBK”D=0=>Goto2LbI1“XZ=”:E=X+Dcos(H-90)“YZ=”:N=Y+Dsin(H-90)LbI2F”YBK”F=0=>Goto0“XY=”:W=X+Fc

3、os(H+90)“YY=”:V=Y+Fsin(H+90)Goto0注：QD：直线段起点桩号XQ，YQ：起点坐标FWJ：起点方位角，（输入是以度分妙的方式输入）P：待求点桩号ZBK：左边桩距中桩的距离YBK：右边桩距中桩的距离X，Y：待求桩号的中桩坐标XZ，YZ：待求桩号的左边桩坐标XY，YY：待求桩号的右边桩坐标圆曲线中边桩坐标计算（YQX.ZB）E”ZY”:A”XZY”:B”YZY”:R:I”L-,R+”:H”FWJ”LbI0:{FLM}J=F”P”-EG=90J÷π÷R“X=”:X=A+(2Rs

4、inG)cos(H+IG)“Y=”:Y=B+(2RsinG)sin(H+IG)L“ZBK”L=0=>Goto2LbI1“XZ=”:V=X+Lcos(H+2IG-90)“YZ=”:W=Y+Lsin(H+2IG-90)LbI2M“YBK”M=0=>Goto0LbI3“XY=”:V=X+Lcos(H+2IG+90)“YY=”:W=Y+Lsin(H+2IG+90)Goto0注:ZY:直圆点桩号XZY，YZY：直圆点的横坐标与纵坐标R：圆曲线半径I“L-，R+”：圆曲线左偏为“-1”，右偏为“+1”FWJ：起

5、点切线方位角，以“度分秒”输入P：待求点桩号ZBK，YBK：道路边桩距中桩距离的左边宽、右边宽X=，Y=：道路中线坐标XZ，YZ：道路左边桩坐标XY，YY：道路右边桩坐标缓和曲线（HHQX.ZB）V“FWJI”:W“FWJ2”:A“ZH”:C“XZH”:D“YZH”:B“HZ:E“XHZ”:F“YHZ”:R:L“LS”:I“L-，R+”K=A+L:M=B-LLbI0:{P}PGoto5P≤K=>Goto2PGoto3P≤B=>Goto4PGoto6LbI2G=P-AH=G-G

6、^5÷(40R^2L^2)+G^9÷（3456R^4L^4）-G^13÷（599040R^6L^6）J=(G^3÷(6RL)-G^7÷(336R^3L^3)+G^11÷(42240R^5L^5))I“X=”:X=C+HcosV-JsinV“Y=”:Y=D+HsinV+JcosVGoto0LbI3G=P-AH=Rsin((L÷2÷R)×180÷π+(G-L)÷R×180÷π)+L÷2-L^3÷(240R2)J=(R(1-cos((L÷2÷R)×180÷π+(G-L)÷R×180÷π))+L2÷24÷R

7、)I“X=”:X=C+HcosV-JsinV“Y=”:Y=D+HsinV+JcosVGoto0LbI4G=B-PH=G-G^5÷(40R^2L^2)+G^9÷（3456R^4L^4）-G^13÷（599040R^6L^6）J=-(G^3÷(6RL)-G^7÷(336R^3L^3)+G^11÷(42240R^5L^5))I“X=”:X=E-HcosW+JsinW“Y=”:Y=F-HsinW-JcosWGoto0LbI5G=A-P“X=”:X=C+Gcos(V+180)“Y=”:Y=D+Gsin(V+1

8、80)Goto0LbI6G=P-B“X=”:X=E+GcosW“Y=”:Y=F+GsinWGoto0注：FWJ1:起始方位角FWJ2:终点方位角ZH:直缓(ZH)点桩号HZ:缓直(HZ)点桩号XZH,YZH:直缓(ZH)点坐标XHZ,YHZ:缓直(HZ)点坐标R:圆曲线半径LS:缓和曲线长I”L-,R+”:路线左偏-1，右偏+1P：待求点桩号钢绞线伸长量计算（SCL.JS）P”P(N)”:E”Eg”A”A(mm)”:K”k”:U”u”:G=0LbI0:{LO}B=KL