| CASIO fx4850中桩/边桩坐标计算程序 程序名：XY Q:W:K:R:F:N:V:G: ←┘ Defm 4←┘ M=V÷2-V^3÷(240R2)←┘ P=V2÷(24R)-V^4÷(2688R^3)←┘ L=∏RN÷180+V←┘ T=M+(R+P)tan(N÷2)←┘ A=Q-T←┘ B=A+V←┘ D=A+L←┘ C=D-V←┘ Rec(T,F+180）←┘ Z[1]=W+I:Z[2]=K+J←┘ Rec(T,F+GN)←┘ Z[3]=W+I:Z[4]=K+J←┘ Lbi 0←┘ {HSE}←┘ U=S÷(Abs (S+10E-9)):S=Abs S←┘ H<A=>Goto 1:≠>H<B=>Goto 2:≠>H<C=>Goto 3:≠>H<D=>Goto 4:≠>Goto 5ΔΔΔΔΔ←┘ Lbi 1←┘ Rec(Q-H,F+180)←┘ X=W+I:Y=K+J←┘ Rec(S,F+180-(180-E)U)←┘ "X=":X=X+I◢ "Y=":Y=Y+J◢ S=SU←┘ Goto 0←┘ Lbi 2←┘ Z=H+A←┘ O=90Z2÷(∏RV)←┘ X=Z-Z^5÷(40R2V2)+Z^9÷(3456R^4V^4)←┘ Z=Z^3÷(6RV)-Z^7÷(336R^3V^3)+Z^11÷(42240R^5V^5)←┘ Lbi 6←┘ Rec(X,F)←┘ X=Z[1]+I:Y=Z[2]+J←┘ Rec(Z,F+90G)←┘ X=X+I:Y=Y+J←┘ Rec(S,F+OG+EU)←┘ "X=":X=X+I◢ "Y=":Y=Y+J◢ S=SU←┘ Goto 0←┘ Lbi 3←┘ Z=H-A-V÷2←┘ O=180Z÷(R∏)←┘ X=Rsin O+M←┘ Z=R(1-con O)+P←┘ Goto 6←┘ Lbi 4←┘ O=90Z2÷(VR∏)←┘ X=Z-Z^5÷(40R2V2)+Z^9÷(3456R^4V^4)←┘ Z=Z^3÷(6RV)-Z^7÷(336R^3V^3)+Z^11÷(42240R^5V^5)←┘ Rec(X,F+GN+180)←┘ X=Z[3]+I:Y=Z[4]+J←┘ Rec(X,F+GN+180-90G)←┘ X=X+I:Y=Y+J←┘ Rec(S,F+GN+180-OG-180-E)U))←┘ "X=":X=X+I◢ "Y=":Y=Y+J◢ S=SU←┘ Goto 0←┘ Lbi 5←┘ Rec(H-D+T,F+GN)←┘ X=W+I:Y=K+J←┘ Rec(S,F+GN+EU)←┘ "X=":X=X+I◢ "Y=":Y=Y+J◢ S=SU←┘ Goto 0←┘ 不明白者联系QQ326275120 注：XY程序单代号 Q——交点里程桩号（去K后以纯数字表示输入） W——交点X坐标值 K——交点Y坐标值 R——圆曲线半径 F——第一直线段方位角 N——交点偏角 V——缓和曲线长度 G——如果为左偏角输入“-1”，如果为右偏角输入“1” S——边桩至中桩的距离，求中桩时输入0 H——所求点的里程桩号 E——左边桩输入“-90”，右边桩输入“90” XY——所求点的坐标值 |
|【路桥隧】
( 湘ICP备16018960号-1 ) QQ群：
GMT+8, 2026-4-4 19:41
Powered by Discuz! X3.2
© 2001-2013 Comsenz Inc.
