锥坡放样计算程序（简单易用. 绝对精品）
根据林新红《桥台锥坡基础曲线方程的推导及应用》设计的卡西欧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 ：
Lbl 1：T+1→T ："POInt" ：T ◢„„显示坐标值的组数
If N≥G:Then G→N:IfEnd: G-N→P ：
KLsinG ÷√（（KsinN) ²+(LsinP)²) →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:„„„判断是前桥台锥坡的左侧锥坡还是右侧锥坡
Lbl 3: If Z=1 Then P→P:Goto 4:IfEnd:If Z=2:Then -P→P:IfEnd:„„„„„判断是后桥台锥坡的左侧锥坡还是右侧锥坡
Lbl 4:
E+Mcos(H+P)→X: "X="：X ◢„„显示随着加密递增变化而变化的极轴末端的X 坐标 F+Msin(H+P)→Y: "Y="：Y ◢„„显示随着加密递增变化而变化的极轴末端的Y 坐标 Pol （X-U ，Y-V ）If J
“FWJ=”:J►DMS ◢„„显示随着加密递增变化而变化的放样极坐标方位角
“S=”：I ◢„„„„„„显示随着加密递增变化而变化的放样极坐标距离
If N=G: Then Goto 0: IfEnd:„程序自动跳回主程序表示锥坡基础曲线计算放样完毕 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时放样的锥坡基础曲线的终点(返回前的最后一组坐标) ，程序在执行返回要求重新输入变量时表示该曲线已计算放样完毕。
锥坡放样计算程序（简单易用. 绝对精品）
根据林新红《桥台锥坡基础曲线方程的推导及应用》设计的卡西欧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 ：
Lbl 1：T+1→T ："POInt" ：T ◢„„显示坐标值的组数
If N≥G:Then G→N:IfEnd: G-N→P ：
KLsinG ÷√（（KsinN) ²+(LsinP)²) →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:„„„判断是前桥台锥坡的左侧锥坡还是右侧锥坡
Lbl 3: If Z=1 Then P→P:Goto 4:IfEnd:If Z=2:Then -P→P:IfEnd:„„„„„判断是后桥台锥坡的左侧锥坡还是右侧锥坡
Lbl 4:
E+Mcos(H+P)→X: "X="：X ◢„„显示随着加密递增变化而变化的极轴末端的X 坐标 F+Msin(H+P)→Y: "Y="：Y ◢„„显示随着加密递增变化而变化的极轴末端的Y 坐标 Pol （X-U ，Y-V ）If J
“FWJ=”:J►DMS ◢„„显示随着加密递增变化而变化的放样极坐标方位角
“S=”：I ◢„„„„„„显示随着加密递增变化而变化的放样极坐标距离
If N=G: Then Goto 0: IfEnd:„程序自动跳回主程序表示锥坡基础曲线计算放样完毕 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时放样的锥坡基础曲线的终点(返回前的最后一组坐标) ，程序在执行返回要求重新输入变量时表示该曲线已计算放样完毕。