锥坡放样计算程序5800.doc

锥坡放样计算程序之修正版
根据林新红《桥台锥坡基础曲线方程的推导及应用》设计的卡西欧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+