ruza5800p梁端线.桥梁承台、校模、梁缝放样程序(任意矩形角点,四边中点坐标计算)qwmp.docVIP

好文章 好文章 (桥梁桩基、承台、墩身校模、梁端线放样程序fx-4800)程序 CTJS LbI 0 :{XYZDE}:X”X0”:Y’Y0’:Z”AO”:D”HP”:E”ZP T=arctan((D/2)/(E/2)) ◢ Q=√((D/2)^2+(E/2)^2) ◢ Goto 1△ LbI 1:{S}:S=-1=Goto 2△ S=1=Goto 3△ S=0=Goto 0△ S=2=Goto 4△ LbI 2:F”X1”=X+E/2cosZ N”Y1”=Y+E/2sinZ O”X2”=X+D/2cos(Z-90) I”Y2”=Y+D/2sin(Z-90) J”X3”=X+E/2cos(Z-180) P”Y3”=Y+E/2sin(Z-180) L”X4”=X+D/2cos(Z+90) M”Y4”=Y+D/2sin(Z+90) Goto1△ LbI 3: F”X1”=X+Qcos(Z-180+T) N”Y1”=Y+Qsin(Z-180+T) O”X2”=X+Qcos(Z+180-T) I”Y2”=Y+Qsin(Z+180-T) J”X3”=X+Qcos(Z-T) P”Y3”=Y+Qsin(Z-T) L”X4”=X+Qcos(Z+T) M”Y4”=Y+Qsin(Z+T) Goto1△ LbI 4:{LOA}:L”LF”:O”PJ”:A”LDJ” F”XZ1”=X+(L/2)cos(O/2)cos(Z+180+O/2) N”YZ1”=Y+(L/2)cos(O/2)sin(Z+180+O/2) T”XZ2”= X+(L/2)cos(O/2)cos(Z-O/2) P”YZ2”= Y+(L/2)cos(O/2)sin(Z-O/2) M”X1”=F+(A/2)cos(Z+180+O/2-90) R”Y1”=N+(A/2)sin(Z+180+O/2-90) U”X2”=F+(A/2)cos(Z+180+O/2+90) H”Y2”= N+(A/2)sin(Z+180+O/2+90) V”X3”=T+(A/2)cos(Z-O/2-90) W”Y3”=P+(A/2)sin(Z-O/2-90) I”X4” =T+(A/2)cos(Z-O/2+90) G”Y4”= P+(A/2)sin(Z-O/2+90) Goto1△ 说明： X0:墩中心X坐标 Y0:墩中心Y坐标 AO:墩中心切线方位角 HP:以线路方向为准的横向距离 ZP：以线路方向为准的纵向距离 S=-1时如图计算： s=1时如图计算： S=2时如图计算：形式1与形式2 形式1： 形式2 (桥梁桩基、承台、墩身校模、梁端线放样fx-5800)程序 CTJS LbI 0 :”X0”？ X:’Y0’？ Y:”AO”？ Z:”HP” ？D:”ZP” arctan((D/2)/(E/2))-T:”T=”:T◢ √((D/2)^2+(E/2)^2)-Q: “Q=”:Q ◢ Goto 1△ LbI 1: ？S:if S=-1:then Goto 2:ifend if S=1:then Goto 3:ifend if S=0:then Goto 0:ifend if S=2:then Goto 4:ifend LbI 2: X+E/2cosZ-F:”X1” : F Y+E/2sinZ- N:”Y1” :N X+D/2cos(Z-90) - O:”X2” :O Y+D/2sin(Z-90) - I:”Y2” :I X+E/2cos(Z-180) - J:”X3” :J Y+E/2sin(Z-180) - P:”Y3” :P X+D/2cos(Z+90) - L:”X4” :L Y+D/2sin(Z+90) - M:”Y4” : M Goto1△ LbI 3: X+Qcos(Z-180+T) - F:”X1” :F Y+Qsin(Z-180+T) - N:”Y1” :N X+Qcos(Z+180-T) - O:”X2” :O Y+Qsin(Z+180-T) -