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——所求点的坐标值
Guest 2007-07-28 14:12
I J是什么意思
Guest 2007-10-08 11:48
好呀
Guest 2007-10-13 09:37
能不能用呀请回复
Guest 2007-10-14 08:42
我的QQ751643431 我加你
Guest 2007-11-09 13:06
I,J是什么意思，请回复啊
Guest 2007-11-09 13:39
I,J是什么意思，请回复啊
Guest 2007-11-10 03:40
I,J是什么意思？
xyza0 2008-05-25 02:16
J、I表示什么