资源描述：
《卡西欧5800计算器程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算，设计任意点高程及横坡计算，桥涵放样，路基开挖口及填方坡脚线放样。程序坐标计算适应于但可线型.二源程序1.主程序1:一般放样反算程序（①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离）程序名:1ZD-XYLbl0:Norm2F=1:（正反算判别，F=1正算，F=2反算，也可以改F前加？，改F为变量）Z[l]=90（与路线右边夹角）Prog”THB“：F=l=>Gotol：F=2=>Goto2Lbl1:Fix3:"X=":Locate6,4,X
2、/"Y=":Locate6,4,Y/Prog"引S":Goto0:Lbl2:Fix3:HKM=H:Locate6,4,Z/"D=H:Locate64D/Goto02.主程序2:高程序横坡程序（设计任意点高程及横坡）程序名：2GCLbl0:Norm2"KM"?Z:?D:Prog"H":Fix3:"H二"：Locate6,4,H，“I二"：Locate6,4,NGoto03.主程序3:极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JSX:Y:1268.123-K(置仪点X坐标)2243.545->L(置仪点Y坐标，都是手工输入，也可以建
3、导线点数据库子程序，个人认为太麻烦)Y-LE:X-KF:Pol(F,E):IFJ<0:ThenJ+360->川nt(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J))T:(不习惯小数点后四位为角度显示的，也可以用命令“DMS，来直接显示)Fix4:"FWJ二":Locate6,4/(不习惯小数点后四位为角度显示的，也可以用命令"DMS，来直接显示)Fix3:MS=w:Locate6,4,I，4•主程序4:涵洞放样程序(由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名
4、：4JH-XYLbl0:Norm290-Z⑴(涵洞中心桩与右边夹角,手工输入,也可以修改成前面加？后变为变量)l-*F:ProgMTHB":?L:Z[2]-Z[l]->E:X+Lcos(E)->X:Y+Lsin(E)-Y:Fix3:”X=":Locate6,4,XProg"引S":Goto0:4•主程序5:路基开挖边线及填方坡脚线放样程序(输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度)程序名:5FBXLbl0:Norm2:18-*DimZ:2->F:90->Z[l]:Prog"THB":Z:D:"MO"?M:M-*Z[
5、4]:D->Z[3]:Prog,#6GD":L->Z[6]:IfD<0:Then0.75・L->D:GotoH:ElseL-0.75->D:GotoH:IfEndLbIH:Prog"H":H-0.03-Z[4]->Z[5]:Z[6]->L:IfZ[5]<0:Then-z[5]->G:GotoW:ElseZ[5]-*G:GotoT:LblWProg"W0":Z[10]+Z[：L：L]->A:IfG>A:ThenGotol:ElseIfG>Z[10]:ThenGoto2:ElseGoto3:IfEnd:Lbll:L+Z[12]+Z[13]+Z[14]
6、+(G-A)xZ[9]+Z[ll]xZ[8]+Z[10]xZ[7]:GotoZ:Lbl2:L+Z[12]+Z[13]+(G-Z[10])xZ[8]+Z[10]xZ[刀:GotoZ:Lbl3:L+Z[12]+GxZ⑺:Gotoz:LblT:L+0.5-*N:IfG>Z[17]:Then(N+Z[18]+(G-Z[17])xZ[16]+Z[17]xZ[15])-*S:GotoZ:Else(N+GxZ[15])-*S:Gotoz:LblZ:Z[3]->D:Fix2:Abs(D)-S->T:ML0二":LLocate6,4,T，"KM=H:Locate6
7、,4,Z/"D=H:Locate64D/“TW二"：Locate6,4,Z[5卜Goto04•主程序6:路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg"GO"Z-C->E:(B-A)xE/S+A-*L:L:7・坐标计算次程序(THB)程序名：THB18-*DimZ:"KM"?Z:Prog"X0""P->C:(P-R)^(2HPR)S:180^n->E:F=l=>Goto1:F=2=>Goto2-」Lbl1:?D:Abs(Z・O)—W:Prog"A":X:Y:Goto3
8、Lbl2:X:Y:XT:Y-*J:Prog“B”：O+W-Z:D-D:Goto3Lbl3:IFF=IThenX:Y:ElseZ:D&正算
