5800p梁端線.橋梁承臺、校模、梁縫放樣程序(任意矩形角點,四邊中點坐標(biāo)計算).doc

5800p梁端線.橋梁承臺、校模、梁縫放樣程序(任意矩形角點,四邊中點坐標(biāo)計算) ，5800橋梁承臺、校模、梁縫放樣程序。
歡迎下載！
(橋梁樁基、承臺、墩身校模、梁端線放樣程序fx-4800)程序 CTJS LbI0:{XYZDE}:X”X0”:Y’Y0’:Z”AO”:D”HP”:E”ZP”:fixm T=arctan((D/2)/(E/2)) Q=√((D/2)^2+(E/2)^2) Goto1△ LbI1:{S}:S=-1=>Goto2△ S=1=>Goto3△ S=0=>Goto0△ S=2=>Goto4△ LbI2: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△ LbI3: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△ LbI4:{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坐標(biāo) Y0:墩中心Y坐標(biāo) AO:墩中心切線方位角 HP:以線路方向為準(zhǔn)的橫向距離 ZP：以線路方向為準(zhǔn)的縱向距離 S=-1時如圖計算： 88