资源描述:
《锥坡放样计算程序5800》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、锥坡放样计算程序5800锥坡放样计算程序之修正版根据林新红《桥台锥坡基础曲线方程的推导及应用》设计的卡西欧5800桥台锥坡基础曲线放样程序,应用此程序进行锥坡放样将大大提高工作效率和保障工程精度。在实际应用中无论是正交桥台或斜交桥台,锥坡的短轴(程序中:L)始终与路线方向平行且值大小不变;锥坡的长轴(程序中:K)只有在桥台斜交时随着构造物(桥台)纵横轴设计交角(程序中:G'^JIAO")的变化而变化。前桥台后桥台锥坡基础曲线放样示意图上面完整布置图中,①,②号桥台锥坡尖点方位角就是尖点对应中桩的切线方位角。③,④号桥台锥坡尖点方位
2、角任然是尖点对应中桩的切线方位角,但在计算时要±180(程序中为:H=H±180)z而此时P=P-N:Z=1=>P二PH>;Z=2=>P=・P△'为了方便程序计算,规定①,②号桥台锥坡为前锥坡;③,④号桥台锥坡为后锥坡,下列程序中现已都考虑了这些元素,只要计算时分清前后左右就OKTo程序名:ZPFYJSLbl0:,,XCH?U:"YC"?V:,'HS"?A:"HJ"?B:"il"?C:"i2H?D:"XO"?E:"Y0H?F:"XJIAO"?G:"FWJH?H:”QZPJ,HZP・2”?R:HL-1,R-2H:?Z
3、:HJMDH?S:IfR=2:ThenH-180->H:lfEnd:(A・B)CFcos(90・G)fK/???显示锥坡长半轴长度值(如果去掉黑三角,K值不显示)(A-B)D-L/????????显示锥坡短半轴长度值(如果去掉黑三角,L值不显示)0->T:O->N:(注意,这里是数字0,而不是字母0)Lbl1:T+1->T:"n":T/??显示坐标值的组数IfN^G:ThenG—N:lfEnd:G・N—P:KLsin(G)一V((Ksin(N))2+(Lsin(P))2)->M/????显示随着加密递增变化而变化的极轴长度值(可去
4、掉黑三角,M值不显示)IfR=l:ThenGoto2:lfEnd:IfR=2:ThenGoto3:lfEnd:???判断是前桥台锥坡还是后桥台锥坡Lbl2:lfZ=l:Then-P->P:Goto4:lfEnd:lfZ=2:ThenP->P:Goto4:lfEnd(回车EXE)???判断是前桥台锥坡的左侧锥坡还是右侧锥坡Lbl3:IfZ=1Then-P—P:Goto4:lfEnd:lfZ=2:ThenP—P:Goto4:lfEnd(回车EXE)?????判断是后桥台锥坡的左侧锥坡还是右侧锥坡Lbl4:E+Mcos(H+P)—X:H
5、X=":X,??显示随着加密递增变化而变化的极轴末端的X坐标F+Msin(H+P)fY:,,Y=H:Y"?显示随着加密递增变化而变化的极轴末端的Y坐标Pol(X-U,Y-V)->J:lfJ<0ThenJ+360->J:IfEnd:"FWJ=w:J?DMS/??显示随着加密递增变化而变化的放样极坐标方位角I/??????显示随着加密递增变化而变化的放样极坐标距离IfN=G:ThenGoto0:IfEnd(回车EXE)?程序自动跳回主程序表示锥坡基础曲线计算放样完毕N+S-^N:Goto1说明:程序中各注释文的涵义"XC"YC
6、H-测站点横纵坐标HHSn-锥坡尖点的标高"HJ"-锥坡基础顶面标高,,iln-路基横坡度(椎体长半轴方向),如果为1:1.5则输入为1.572“-锥坡迎水面坡度(路线方向,短半轴方向),如果为:L1则输入为1HXOW-锥坡尖点的横、纵坐标“XJIAO—桥台横纵轴之间的夹角“FWJJ锥坡尖点沿路线前进方向的方位角,,QZP-l/HZP-2n-输1计算前桥台锥坡,输2计算后桥台锥坡,,L-l/R-2n-输1计算左侧桥台锥坡,输2计算右侧桥台锥坡••JMD**-把需要加密点而设置的平分角度值,如要求曲线精度更高,可将角度划分更细加密
7、即可,一般可以设置取S值为:5度、4度或者3度。如G二60,S二5,可以60*5=12,计算完毕有12+1=13组坐标,放样13次。注意:N=0时放样的锥坡基础曲线的起点(第一组坐标),N二G时放样的锥坡基础曲线的终点(返回前的最后一组坐标),程序在执行返回要求重新输入变量时表示该曲线己计算放样完毕。・2・附注:本文经修改试验后可以止常运行,请放心使用•另外,在输入完毕后请试验下是否跟原设计符合,可在CAD上面进行试验,如果符合没有问题表示此程序可以正常运行•至于各代码的含义用户可以设置成自己喜欢并且能够理解的代码•如THS11-
8、锥坡尖点的标高中的HS可以设置成ZPDH意思是锥坡顶面高程,而锥坡基础的则可以设置成ZPJH意思是锥坡坡脚的地面实测高程等等.修正时间:2015-3-30修止人:李志欢结语:本人并非编程高手,对于编程也只是略知一二•程序如有不足或须优化之处,请多多