文档介绍：卡西欧5800计算器测量专用程序
 一、程序功能
    主要功能:采用交点法方式计算多条线路坐标正反算,可算任意复杂线型及立交匝道,包括C型,S型、卵型、回头曲线等;极坐标放样,全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、。
新版本优化:1、优化程序语句、2、取消原线元法计算,化线元法为交点法。3、高程计算修改,4、附计算坐标及高程参数设计要素输入实例
二、源程序(绿色为程序名;蓝色为输入计算器内容)(1、坐标计算放样程序2、坐标反算程序;3、高程计算查阅程序;4、路基半幅标准宽度查阅程序;5、路基边坡及开挖口放样程序;6、路基标准距离放样;7、桥梁锥坡计算放样程序;8、极坐标计算程序;9、隧道超欠挖计算程序)运行后按1~9数子约半秒,则选择1至9的程序,返回时,在桩号输入-1,返回选择计算类型。输入-2,返回选择线路。
程序名:0(数子0)
ClrMat:ClrVar:12→DimZ:Norm 2:Do:"(XY=1,ZD=2 ,GC=3,GD=4, BP=5,FM=6,ZP=7,JS=8,SD=9)===>QING AN 1-9":Getkey→Z[3]:While Z[3]=35:Prog"1XY”:WhileEnd:While Z[3]=36:Prog"2ZD":WhileEnd: While Z[3]=37:Prog"3GC":WhileEnd: While Z[3]=21:Prog"4GD":WhileEnd: While Z[3]=22:Prog"5BP":WhileEnd: While Z[3]=23:Prog"6FM":WhileEnd: While Z[3]=31:Prog"7ZP":WhileEnd: While Z[3]=32:Prog"8JS":WhileEnd: While Z[3]=33:Prog"9SD":WhileEnd:LpWhile Z[3]≠25:”XIE XIE SHI YONG”:
:一般坐标计算及放样程序
程序名:1XY
Prog "DX":Prog"QX":90→A: "PJ1"?A:A→B: "PJ2"?B:A→Z[1]:B→Z[9]: Do:"KM"?Z:Z=-1=>Stop:Z=-2=>Break: Prog"K": ?D: 0→L: "L0"?L:L→Z[10]: Porg"A":Z[2]+Z[1] →A :A-Z[9]→E:I+Dcos(A)+Z[10]cos(E→X:J+Dsin(A)+Z[10]sin(E→Y:Prog"XY":Prog"JS":LpWhile Z≠-1
:由大概桩号及坐标反算桩号及距离
程序名:2ZD
Prog"QX":Do: "KM"?Z:Z=-1=>Stop:Z=-2=>Break: Prog"K": "XO"?X: "Y0"?Y: Porg"B": Prog"ZD":LpWhile Z≠-1
(:Prog"QX":"KM"?Z:Do: Prog"K":"XO"?X:X=-1=>Stop:X=-2=>Break:"Y0"?Y: Porg"B":Prog"H": Prog"ZD": " H=": Locate 6,4,H:" I=":Locate 6,4,I◢LpWhile X≠-1 )
:任意点高程计算及横坡
程序名:3GC
Prog"QX":0→B: "H-B"?B: B→Z[9]: Do: "KM"?Z:Z=-1=>Stop:Z=-2=>Break:?D:Prog"H":Fix 3: " H=": Locate 6,4,H-Z[9]:" I=":Locate 6,4,I:LpWhile Z≠-1
:任意桩号位置的标准路基宽度计算
程序名:4GD
Prog"QX": Do: "KM"?Z:Z=-1=>Stop:Z=-2=>Break:-1→D:Prog"C":L→P:1→D: Prog"C":Fix 3: " LGD=": Locate 6,4,P:" RGD=":Locate 6,4,L:LpWhile Z≠-1
5、主程序:路基开挖边线及填方坡脚线放样程序
程序名:5BP
Prog "DX":Prog"QX":→B: "TH-GD"?B: B→Z[7]: Do:"KM"?Z:Z=-1=>Stop:Z=-2=>Break: Prog"K": “X0"?X:"Y0"?Y:Z[8]→M:"M0"?M:M→Z[8]: Porg"B":D→P :Prog"C":If D<0:Then -L→D:Else L-→D: IfEnd: Prog