我的5800p测量程序及公式

《我的5800p测量程序及公式》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、FILE非常好用的卡西欧5800p程序一、坐标反算(XY-FD)Deg：Fix3I(换行)Lbl0I''X0二〃？A:''YO二〃？B:''XW〃？C:''YN二〃？D!(换行)Pol((C-A),(D-B))J<0=>J+360-Jl(换行)''JL=〃:1/、'FWJ=〃:J：>DMSGoto0二、坐标正算(DF-XY)Deg：Fix3丨(换行)''X0=〃？A；''YO二〃?B：''L二〃?L：、'C二〃?Cl(换行)A+Lcos(C)XIB+Lsin(C)->YI''X二〃:''Y二〃:XA三、直线段中桩、边桩坐标计算(该程序从起点往终点计算

2、)(ZX)1、Deg：Fix3I(换行)2、Lbl1!3、''X0〃?X：''YO二〃?Y：、'K0二〃?E：4、?K：?L：?AI5、X+(K-E)cos(J)+Lcos(J+A)->CI6''XP二〃:C,设置小数保留位数程序标签FWJ二〃?JI赋值起点坐标、桩号、走向方位角输入所求的桩号、边距、相对于主线的方位角(如果只计算中桩坐标，边距及方位角皆为0)计算坐标X显示坐标X7、Y+(K-E)sin(J)+Lsin(J+A)^DI讣算坐标Y8、''YP二〃:D/显示坐标Y9、Goto1I转向程序标签循环执行计算四、圆曲线坐标计算程序（该程序从起点

3、往终点计算）（YQX）1、Deg：Fix3I(换行)2、Lbl0：3、''K0二〃?K：?X：?Y：?A：?R：4、''L=-l,R二+1〃:?G：5、''ZS二0,FSH0〃:?S：6、SHO=>Goto1I7、''Ki〃？Z!8、90(Z-K)4-(nR)->BI9、2RsinB-*DI10、''Xi=〃:X+Dcos(A+GB)->P^11、''Yi二〃:Y+Dsin(A+GB)-Q,12、A+180G(Z-K)-r(riR)->0I13、''ZBJ〃?E!14、''XiI=‘：P+Ecos(0—90)A15、''YiL二〃：Q+Esin(0-

4、90)A16、''YBJ〃?FI17、“XiR=":P+Fcos(0+90)A18、“YiR=":Q+Fsin(0+90)A19>Goto0I20.、Lbl1：21、“xc”?u：“YC”22、X+Rcos(A+90G)TH23、Y+Rsin(A+90G)->NI24、Pol(U・M,V・N)fHI25、JV0=>J+360fJI26.、“PJ=”：R・H-L227、“XCCZ=”：M+Rcos(J)-T/28.、“YCCZ=”:N+Rsin(J)fW,29、Pol(T・X,W・Y)-ZI30.、“CZZH=”：K+sin・l（Z—2一R）nRF90

5、/31.、Goto0说明：1.设置小数保留三位。2.程序03.赋值起点桩号K0,赋值起点坐标X、Y,赋值半径R,赋值起点走向方位角A。4•赋值曲线转向，左转为・1,右转为+1。5.选择正算S=0,或反算SH0.6.如果SH0,进入反算程序。7•正算程序：输入所求桩号Ki。&计算弦切角Bo9.计算弦长Do10.计算中桩坐标Xi并显示。11.计算中桩坐标Yi并显示。12.计算i点走向方位角0。13.输入左边桩距屮桩的距离Eo14.计算左边桩坐标XiL并显示。15.计算左边桩坐标YiL并显示。16.输入右边桥距中桥的距离Fo17.计算右边桩坐标XiR并显示

6、。18.计算右边桩坐标YiR并显示。19.到程序Oo20.反算程序k21.输入测量坐标XC、YCo22.计算圆心X坐标M。23.计算圆心Y坐标N。24.计算圆心与测点距离H。25.计算圆心到测点的走向方位角。26.计算偏距PJ并显示，正值说明测点在圆内，负值说明测点在圆外。27.计算垂足坐标XCCZ并显示2&计算垂足坐标YCCZ并显示。。28.计算垂足到起点弦长Z。29.计算垂足桩号CZZH并显示31・到程序0。五、竖曲线高程计算程序(SQX)1、Lbl0：“LK(JD)=”?M：“H(JD)二”?N：“R二”?R：“Il二”?I：“12二”?J：1

7、-J-P：IfP>0：Then1-K：Else-1-KIfEndI2、“T二”:Abs(RX(J-I)4-200)3、“E二”T2—2—RfE,4、Lbl1：“LK二”?L：IfLWM-T：ThenGoto6：ElseGoto2：IfEndI5、Lbl2：IfLWM：ThenGoto7：ElseGoto3：IfEndI6、Lbl3:IfLWM+T：ThenGoto8：ElseGoto9：IfEndI7、Lbl6：“H二”：(L-M)XI4-100+N->H^Goto0I8、Lbl7：“H二”：(L-M)XI^lOO+N-KX(L-M+T)2Goto0

8、I9、Lbl8：“H二”(L-M)XJ4-100+N-KX(L-M-T)24-24-R-H^Goto0I10