5800高速公路U型桥台基础角点坐标计算程序
歪哥哥 发表于2009年12月01日 11:45 阅读(105) 评论(7) 分类: 个人5800程序 举报
5800计算程序:高速公路U型桥台基础20个角点坐标
快速计算程序
(歪哥版权 网络首发 2009)
LbI G :“X(TD Z)”?A: “Y(TD Z)”?B: “QXFWJ(TD Z)”?F: “RJ”?T: “<--O-->XL” ?D: “-Z(L)” ?L: “+Z(R)” ?R: “n” ?N: “]-] Or [-[” ?S : “u”?U: cos (F)?C: sin (F)?G: cos
(F+T)?H:sin(F+T) ?K:Goto 7?
LbI 1:“QT:(0) (1)”? ?V:V=0=> -1?Q: V=1=> 1?Q:A+0.5QCD?O: B+0.5QGD?P ?
Cls :“X1=”: “Y1=”: “X2=”: “Y2=”:Locate 4,
1,O+LH: Locate 4,2,P+LK: Locate 4,3,O: Locate 4,4,P?
Cls :“X3=”: “Y3=”: “X4=”: “Y4=”: Locate
4,1,O+RH: Locate 4,2,P+RK: Locate 4,3,O+NCQ+RH:
Locate 4,4,P+NGQ+RK?
Cls :“X5=”: “Y5=”: “X6=”: “Y6=”: Locate 4,1,O+NCQ+H(R-U): Locate 4,2,P+NGQ+K(R-U):
Locate 4,3,O+SCQ+H(R-U): Locate
4,4,P+SGQ+K(R-U)?
Cls :“X7=”: “Y7=”: “X8=”: “Y8=”: Locate 4,1,O+SCQ: Locate 4,2,P+SGQ: Locate 4,3,
O+SCQ-H(Abs(L)-U): Locate 4,4,P+SGQ-K(Abs(L)
-U)?
Cls :“X9=”: “Y9=”: “X10=”: “Y10=”Locate 4,1,O+NCQ-H(Abs(L)-U): Locate 4,2,P+NGQ-K(Abs
(L)-U): Locate 5,3,O+NCQ+LH: Locate 5,4,P+NGQ+LK?
Goto 1?
程序简要说明:
高速公路上的通道,小桥等经常见到U型基础桥台,按照线路前进方向
的0号台和1号桥台基础角点坐标计算虽然简单,但繁琐,故编写此小工
具程序,只需输入X(TD Z)? Y(TD Z)?通道中心
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
坐标和通道中心的
QXFWJ(TD Z)切线方位角,以及下图上所示的相关已知条件数据,中间只
需切换选择下桥台台号QT:,0, ,1,? 输入0或1号台就可快速的一次性求出两个桥台的各自10个共计20个角点的坐标,从而为高效率的全站仪施工放样提供坐标数据.注意:Z(L)一定要输入负值,即左宽度.小桥跨径大于8米时,则中心坐标切线方位角按照各自桥台中心即图中2点的输入分别计算各自桥台;当桥台跨径小于8米时为通道,则可以按照通道中心坐标切线方位角计算两个桥台坐标如下图例中!!