锥坡放样计算程序之修正版
根据林新红《桥台锥坡基础曲线方程的推导及应用》设计的卡西欧5800桥台锥坡基础曲线放样程序，应用此程序进行锥坡放样将大大提高工作效率和保障工程精度。
在实际应用中无论是正交桥台或斜交桥台，锥坡的短轴（程序中：L）始终与路线方向平行且值大小不变；锥坡的长轴（程序中：K）只有在桥台斜交时随着构造物（桥台）纵横轴设计交角（程序中：G\）的变化而变化。
前 桥 台
后 桥 台 锥坡基础曲线放样示意图
上面完整布置图中，①,②号桥台锥坡尖点方位角就是尖点对应中桩的切线方位角。③,
④号桥台锥坡尖点方位角任然是尖点对应中桩的切线方位角，但在计算时要±180(程序中为:H=H±180),而此时P=P-N:Z=1=>P=P≠>Z=2=>P= - P△,为了方便程序计算，规定①,②号桥台锥坡为前锥坡；③,④号桥台锥坡为后锥坡,下列程序中现已都考虑了这些元素，只要计算时分清前后左右就OK了。
- 1 -
程序名： ZPFYJS
Lbl 0 : \\：?Z: \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：\：T◢??显示坐标值的组数 If N≥G:Then G→N:IfEnd: G-N→P：
KLsin(G)÷√((Ksin(N))2+(Lsin(P))2)→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坐标
F+Msin(H+P)→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
说明：程序中各注释文的涵义 \、\测站点横纵坐标 \锥坡尖点的标高 \锥坡基础顶面标高
\路基横坡度（椎体长半轴方向），如果为1：1.5则输入为1.5
\锥坡迎水面坡度（路线方向，短半轴方向），如果为1：1则输入为1 \、\锥坡尖点的横、纵坐标 \桥台横纵轴之间的夹角
\锥坡尖点沿路线前进方向的方位角
\输1计算前桥台锥坡，输2计算后桥台锥坡 \输1计算左侧桥台锥坡，输2计算右侧桥台锥坡 \--把需要加密点而设置的平分角度值，如要求曲线精度更高，可将角度划分更细加密即可，一般可以设置取S值为：5度、4度或者3度。如G=60，S=5，可以60÷5=12，计算完毕有12+1=13组坐标，放样13次。 注意：N=0时放样的锥坡基础曲线的起点(第一组坐标)，N=G时放样的锥坡基础曲线的终点(返回前
的最后一组坐标)，程序在执行返回要求重新输入变量时表示该曲线已计算放样完毕。
- 2 -
附注:本文经修改试验后可以正常运行,请放心使用.另外,在输入完毕后请试验下是否跟原设计符合,可在CAD上面进行试验,如果符合没有问题表示此程序可以正常运行.至于各代码的含义用户可以设置成自己喜欢并且能够理解的代码.如\锥坡尖点的标高中的HS可以设置成ZPDH
意思是锥坡顶面高程,而锥坡基础的则可以设置成ZPJH意思是锥坡坡脚的地面实测高程等等.
修正时间:2015-3-30 修正人:李志欢
结语:本人并非编程高手,对于编程也只是略知一二.程序如有不足或须优化之处,请多多指教.欢迎测量界同盟共同探讨.--更快!更高!更准!
- 3 -