锥坡放样计算程序5800

锥坡放样计算程序之修正版
根据林新红《桥台锥坡基础曲线方程的推导及应用》设计的卡西欧5800桥台锥坡基础曲线放样程序，应用此程序进行锥坡放样将大大提高工作效率和保障工程精度。

在实际应用中无论是正交桥台或斜交桥台，锥坡的短轴（程序中：L）始终与路线方向平行且值大小不变；锥坡的长轴（程序中：K）只有在桥台斜交时随着构造物（桥台）纵横轴设计交角（程序中：G"XJIAO"）的变化而变化。

前桥台
后桥台
锥坡基础曲线放样示意图
上面完整布置图中，①,②号桥台锥坡尖点方位角就是尖点对应中桩的切线方位角。

③,④号桥台锥坡尖点方位角任然是尖点对应中桩的切线方位角，但在计算时要±180(程序中为:H=H±180),而此时P=P-N:Z=1=>P=P≠>Z=2=>P= - P△,为了方便程序计算，规定①,②号桥台锥坡为前锥坡；③,④号桥台锥坡为后锥坡,下列程序中现已都考虑了这些元素，只要计算时分清前后左右就OK了。

程序名： ZPFYJS
Lbl 0 : "XC"? U: "YC"? V :"HS"?A: "HJ" ?B: "i1"? C: "i2" ?D: "X0" ?E: "Y0" ?F: "XJIAO" ?G: "FWJ" ?H: "QZP-1,HZP-2" ?R: "L-1,R-2"：?Z: "JMD" ?S:
If R=2:Then H-180→H:IfEnd:
(A-B)C÷cos(90-G)→K◢………显示锥坡长半轴长度值(如果去掉黑三角，K值不显示) (A-B)D →L◢……………………显示锥坡短半轴长度值(如果去掉黑三角，L值不显示) 0→T: 0→N：(注意，这里是数字0，而不是字母O)
Lbl 1：T+1→T："n"：T◢……显示坐标值的组数
If N≥G:Then G→N:IfEnd: G-N→P：
KLsin(G)÷√((Ksin(N))²+(Lsin(P))²)→M◢…………显示随着加密递增变化而变
化的极轴长度值(可去掉黑三角,M值不显示)
If R=1:Then Goto 2:IfEnd: If R=2:Then Goto 3:IfEnd:………判断是前桥台锥坡还是后桥台锥坡
Lbl 2: If Z=1:Then -P→P:Goto 4:IfEnd:If Z=2:Then P→P:Goto 4:IfEnd（回车EXE）………判断是前桥台锥坡的左侧锥坡还是右侧锥坡
Lbl 3: If Z=1 Then -P→P:Goto 4:IfEnd:If Z=2:Then P→P:Goto 4:IfEnd（回车EXE）……………判断是后桥台锥坡的左侧锥坡还是右侧锥坡
Lbl 4:E+Mcos(H+P)→X: "X="：X◢……显示随着加密递增变化而变化的极轴末端的X 坐标
F+Msin(H+P)→Y: "Y="：Y◢……显示随着加密递增变化而变化的极轴末端的Y坐标
Pol（X-U，Y-V）→J：If J<0 Then J+360→J: IfEnd:“FWJ=”:J►DMS◢……显示随着
加密递增变化而变化的放样极坐标方位角
“S=”：I◢………………显示随着加密递增变化而变化的放样极坐标距离
If N=G: Then Goto 0: IfEnd（回车EXE）…程序自动跳回主程序表示锥坡基础曲线计算放样完毕
N+S→N：Goto 1
说明：程序中各注释文的涵义
"XC"、"YC"--测站点横纵坐标
"HS"--锥坡尖点的标高
"HJ"--锥坡基础顶面标高
"i1"--路基横坡度（椎体长半轴方向），如果为1：1.5则输入为1.5
"i2"--锥坡迎水面坡度（路线方向，短半轴方向），如果为1：1则输入为1
"X0"、"Y0"--锥坡尖点的横、纵坐标
"XJIAO"--桥台横纵轴之间的夹角
"FWJ"--锥坡尖点沿路线前进方向的方位角
"QZP-1,HZP-2"--输1计算前桥台锥坡，输2计算后桥台锥坡
"L-1,R-2"--输1计算左侧桥台锥坡，输2计算右侧桥台锥坡
"JMD" --把需要加密点而设置的平分角度值，如要求曲线精度更高，可将角度划分更细加密即可，一般可以设置取S值为：5度、4度或者3度。

如G=60，S=5，可以60÷5=12，计算完毕有12+1=13组坐标，放样13次。

注意：N=0时放样的锥坡基础曲线的起点(第一组坐标)，N=G时放样的锥坡基础曲线的终点(返回前的最后一组坐标)，程序在执行返回要求重新输入变量时表示该曲线已计算放样完毕。

附注:本文经修改试验后可以正常运行,请放心使用.另外,在输入完毕后请试验下是否跟原设计符合,可在CAD上面进行试验,如果符合没有问题表示此程序可以正常运行.至于各代码的含义用户可以设置成自己喜欢并且能够理解的代码.如"HS"--锥坡尖点的标高中的HS可以设置成ZPDH 意思是锥坡顶面高程,而锥坡基础的则可以设置成ZPJH意思是锥坡坡脚的地面实测高程等等.
修正时间:2015-3-30
修正人:李志欢
结语:本人并非编程高手,对于编程也只是略知一二.程序如有不足或须优化之处,请多多指教.欢迎测量界同盟共同探讨.--更快!更高!更准!。