如题所述
第1个回答 2019-11-25
CASIO4500坐标计算程序
HUANHEQUXIAN
K"JD"D"LS":B=D2/24R:M=D/2-DB/10R
T=M+tan.5A(R+B)▲L=∏RA/180+D▲E=(R+B)/cos.5A-R▲Z"ZH"=K-T▲H"HY"=Z+D▲Q"QZ"=
Z+L/2▲J"YH"=Z+L-D▲O"HZ"J+D▲prog
1▲
N"N=1=>V":P:prog
3:L=W:Fixm
Lb1
2:{S}:S"KX":S>J=>Goto4△S>H=>Goto3△U=S-Z:E=U-UXY5/40R2D2:F=UXY3/6RD:Goto5
Lb1
3:U=90(2S-2H+D)/
∏R:E=RsinU+M:F=R-RcosU+B:Goto5
Lb1
4:F=O-S:D≠0=>I=30F2/∏RD△V=F-FXY3/90R2:N=1=>U=360-A:F=180-A+I:
≠=>U=A:F-180+A-I△E=T+TcosU+VcosF:F=TsinU+VsinF:Goto1
Lb1
5:N=1=>F=-F△Lb1
1:X=E:Y=F:P=1=>prog2:
prog4△:
prog3:W=W-L:W<0=>W=W+360△V:
"S"▲W:
"R"▲Goto2
X=C+EcosL-FsinL▲Y=G+EsinL+FcosL▲
C"X0"G"Y0":Pol(X-C,Y-G):W<0=>W=W+360△W
D≠0=>Q=>90U2/∏RD△Fixm:I=A-3I:N=1=>Q=-Q:U=-U:I=-I△
S<H=>F=L+Q≠=>S>J=>F=L+I:
≠=>F=L+U△△V=1:
{E}:E"<B":F"R"=F+E:Lb1
6:
{I}:I"SL":X+IcosF▲Y+IsinF▲V<2=>V=V+1:Goto6△
ZHI
XIAN
E"X0"F"Y0"A"R0"K"CZ":Lb1
1:
{S}=S"KX":D=S-K:X=E+DcosA▲Y=F+DsinA▲V=1:Lb1
2:
{BI}:H=A+B-180:I"SL":X+IcosH▲Y+IsinH▲V<2=>V=V+1:Goto2△Goto1
计算要素:
JD——交点里程
LS——缓和曲线长
R
——圆曲线半径
A
——线路转角
T
——切线长
L
——圆弧总长度
E
——外矢距
N
——曲线方向,左偏取“1”,右偏取“0”
P
——取“1”
X0.Y0——ZH点坐标
X.Y——交点坐标
KX——待求点里程
B
——与中线夹角
SL——边距,左“+”;右“-”
圆曲线各要素计算公式
T=Rtan(A÷2)◢
L=π÷180(RA)
◢
E0=R÷Cos(A÷2)
-R◢
Q=2T-L◢
说明:T
切线长;R
圆曲线半径;L曲线长度;
E0
外矢距;
Q
切曲差;
A
曲线转向角;
HUANHEQUXIAN
K"JD"D"LS":B=D2/24R:M=D/2-DB/10R
T=M+tan.5A(R+B)▲L=∏RA/180+D▲E=(R+B)/cos.5A-R▲Z"ZH"=K-T▲H"HY"=Z+D▲Q"QZ"=
Z+L/2▲J"YH"=Z+L-D▲O"HZ"J+D▲prog
1▲
N"N=1=>V":P:prog
3:L=W:Fixm
Lb1
2:{S}:S"KX":S>J=>Goto4△S>H=>Goto3△U=S-Z:E=U-UXY5/40R2D2:F=UXY3/6RD:Goto5
Lb1
3:U=90(2S-2H+D)/
∏R:E=RsinU+M:F=R-RcosU+B:Goto5
Lb1
4:F=O-S:D≠0=>I=30F2/∏RD△V=F-FXY3/90R2:N=1=>U=360-A:F=180-A+I:
≠=>U=A:F-180+A-I△E=T+TcosU+VcosF:F=TsinU+VsinF:Goto1
Lb1
5:N=1=>F=-F△Lb1
1:X=E:Y=F:P=1=>prog2:
prog4△:
prog3:W=W-L:W<0=>W=W+360△V:
"S"▲W:
"R"▲Goto2
X=C+EcosL-FsinL▲Y=G+EsinL+FcosL▲
C"X0"G"Y0":Pol(X-C,Y-G):W<0=>W=W+360△W
D≠0=>Q=>90U2/∏RD△Fixm:I=A-3I:N=1=>Q=-Q:U=-U:I=-I△
S<H=>F=L+Q≠=>S>J=>F=L+I:
≠=>F=L+U△△V=1:
{E}:E"<B":F"R"=F+E:Lb1
6:
{I}:I"SL":X+IcosF▲Y+IsinF▲V<2=>V=V+1:Goto6△
ZHI
XIAN
E"X0"F"Y0"A"R0"K"CZ":Lb1
1:
{S}=S"KX":D=S-K:X=E+DcosA▲Y=F+DsinA▲V=1:Lb1
2:
{BI}:H=A+B-180:I"SL":X+IcosH▲Y+IsinH▲V<2=>V=V+1:Goto2△Goto1
计算要素:
JD——交点里程
LS——缓和曲线长
R
——圆曲线半径
A
——线路转角
T
——切线长
L
——圆弧总长度
E
——外矢距
N
——曲线方向,左偏取“1”,右偏取“0”
P
——取“1”
X0.Y0——ZH点坐标
X.Y——交点坐标
KX——待求点里程
B
——与中线夹角
SL——边距,左“+”;右“-”
圆曲线各要素计算公式
T=Rtan(A÷2)◢
L=π÷180(RA)
◢
E0=R÷Cos(A÷2)
-R◢
Q=2T-L◢
说明:T
切线长;R
圆曲线半径;L曲线长度;
E0
外矢距;
Q
切曲差;
A
曲线转向角;