4800程序Word文件下载.docx
- 文档编号:16186535
- 上传时间:2022-11-21
- 格式:DOCX
- 页数:7
- 大小:20.11KB
4800程序Word文件下载.docx
《4800程序Word文件下载.docx》由会员分享,可在线阅读,更多相关《4800程序Word文件下载.docx(7页珍藏版)》请在冰豆网上搜索。
J9_nM__L_V
14A<0=>
S=-1:
≠=>
S=1⊿_?
zhw__0
15U=F+A/2+90S`"
(FWK=8)"
16V=W+R2)~`.CD?
L_
17B=N+VcosU`_D%_U5_Jb
18O=E+VsinULD=eMk:
~
19Lbl1->
^Ex`
20{Z}%_,1x_Ol4l
21Z≤G=>
L=T+G-Zg_
"
Tb\___
22V=F+180_0._aIc_c
23U=F]6X;
__&
=H
24Goto2⊿E0*KK__o%_
25Z≤H=>
L=Z-GgkMQ=;
Nn
26V=L-L∧5/(90R∧2C∧2)68?
>
#o865
27L=30L∧2S/(兀RC)O_p'
&
c0l_
28P=F+180q^DQ9_
__B
29Q=F+Ld_C<
2%___y
30U“FW”=F+3L◢4J1_rMf_h
31Goto4⊿__.(_&
w/jR
32Z≤K=>
L=F+A/2+90S+180+180(Z-I)S/R/兀b/w5K_2
33U“FW”=L+90S◢K_(uz`_(5_
34Goto5⊿p/qu_4_[Mm
35Z≤M=>
L=M-Z'
T|EwrSj
36V=L-L∧5/(90R∧2C∧2)
__M>
Q3;
s
37L=30SL∧2/(兀RC)[4hi/60_
38P=F+AO#ke_o_C4
39Q=F+A+180-L8Vjv#pm_
40U=F-3L+A_lGt:
.p{NG
41Goto4⊿+w7U7"
xQ
42Z>
M=>
L=Z-M+T>
4)_:
_
43U=F+AX`3_yeQ_c
44V=U%#__o@c
45Goto2B
9Mp3[_
46Lbl2_Qv`_:
E_
47X=N+LcosV◢=)G]\W)_m_
48Y=E+LsinV◢_o>
nw~_H\
49Goto6⊿Zoc4@%n
50Lbl3Q"
D5D_rj
51{W}_2S~(_P
52P“XL”=X+Wcos(U-90)◢V9SL96_'
[I
53Q“YL”=Y+Wsin(U-90)◢\__q_*-9_M
54P“XR”=X+Wcos(U+90)◢~Kt1%&
3{a?
55Q“YR”=Y+Wsin(U+90)◢___;
/_htdj
56Goto1W7'
<
Jom|_?
57Lbl4H_i=<
/Wy;
58X=N+TcosP+VcosQ◢w_ggB^}~_
59Y=E+TsinP+VsinQ◢j`"
!
G*_V_h
60Goto6\/<
VJ_BuV
61Lbl51P[_x.__t#
62X=B+RcosL◢P__{UV3ZA%
63Y=O+RsinL◢{_&
_>
rKCi_
64Goto6&
K60n6q{aQ
65Lbl6,_>
_r_vlP
66J=1=>
Goto3⊿Pb>
/_b\&
JS
67Goto1
4800直线坐标计算程序
Zx
Lbl
0↓
QMNF↓
{KDEJ}↓
S=K—Q:
G=F+J↓
X=M+ScosF◣
Y=N+SsinF◣
Prog"J"↓
Goto0↓
↓
J
H=X+DcosG◣
I=Y+DsinG◣
T=X—EcosG◣
U=Y—EsinG◣
Q:
其表示意义为其始里程
M:
其始点里程的X坐标
N:
其始点里程的Y坐标
其始里程的方位角
L:
缓和曲线长度
曲线半径
P:
表示线路的偏向,左为-1,右为1
K:
代测点里程
J:
图纸上的交角(一般为右角)
X:
代测点里程中心桩X坐标
Y:
代测点里程中心桩Y坐标
D:
代测点里程右边桩距中心桩距离
H:
代测点里程右边桩距的X坐标
I:
代测点里程右边桩距的Y坐标
代测点里程左边桩距中心桩距离
T:
代测点里程左边桩距的X坐标
U:
代测点里程左边桩距的Y坐标
直线、曲线、螺旋线、匝道中边桩坐标计算程序
主程序名称(4800-4850)
A“XA”:
B“YB”:
C“CA”:
D“RA”:
E“RB”:
F“DKA”:
G“DKB”换行
D≠0=>
D=1÷
换行
E≠0=>
E=1÷
Lb1
1:
{H,O,R}换行
H“DKI”:
O“DL”:
R“DR”换行
0
P=(E-D)÷
Abs(G-F)换行
Abs(H-F)>Abs(G-F)=>
Q=Abs(G-F):
Q=Abs(H-F):
I=P×
Q
J=C+(I+2D)×
Q×
90÷
π换行
M=C+(I÷
8+2D)×
45÷
(4π)换行
N=C+(3I÷
135÷
U=C+(5I÷
225÷
V=C+(7I÷
315÷
K=C+(I÷
4+2D)×
(2π)换行
W=C+(I÷
2+2D)×
Z=C+(3I÷
X=A+Q÷
24×
(cosC+4×
(cosM+cosN+cosU+cosV)+2×
(cosK+cosW+cosZ)+cosJ)换行
Y=B+Q÷
(sinC+4×
(sinM+sinN+sinU+sinV)+2×
(sinK+sinW+sinZ)+sinJ)换行
U=X+O×
cos(J-90)换行
V=Y+O×
sin(J-90)换行
W=X+R×
cos(J+90)换行
Z=Y+R×
sin(J+90)换行
Goto3:
换行
H“DKI=”◢
fx4850输入改为
“DKI=”:
H◢
X“X=”◢
“X=”:
X◢
Y“Y=”◢
“Y=”:
Y◢
U“XL=”◢
fx4850输入改为
“XL=”:
U◢
V“YL=”◢
“YL=”:
V◢
W“XR=”◢
“XR=”:
W◢
Z“YR=”◢
“YR=”:
Z◢
Goto
1
3
A=X:
B=Y:
D=E:
F=G:
C=J
{E,G}
G“DKB”
计算器显示及输入方法:
XA?
线型起算点的X坐标。
YA?
线型起算点的Y坐标。
CA?
线型起算点切线方位角。
RA?
第一曲线曲率,输入0。
匝道及螺旋线时输入上段曲线半径左负右正。
RB?
第二曲线曲率,输入所要计算曲线的半径,左传为负右转为正,直线输0。
DKA?
线型的起点里程。
DKB?
线型的终点里程。
DKI?
要求点的里程。
DL?
输入左边桩的距离。
可以0输入。
DR?
输入右边桩的距离。
DKI=显示要求点里程。
X=
显示要求里程点的X坐标。
Y=
显示要求里程点的Y坐标。
XL=
显示要求里程点的左边桩X坐标。
YL=
显示要求里程点的左边桩Y坐标
XR=
显示要求里程点的右边桩X坐标。
YR=
显示要求里程点的右边桩Y坐标
说明:
1、DKI?
再次出现输入下一个要求的点的桩号,如果输入数据大于DKB?
所输入的数据,则会再次出现RB?
这时输入下一段线型的半径,直线输0,DKB?
也会随后出现,这次出现输入下一段线型的终点里程桩号。
则可以正常运算其它桩号点的坐标。
2、本程序可以反复计算下一线型。
3、上述说明中线型是指曲线上的某一段,例如直缓点到缓圆点则为一段的线型。
有缓和曲线或无缓和曲线任意桩号中、边桩坐标4800计算程序
四、QXZB(曲线坐标)
A”ZH(ZH)=〃:
B”X(ZH)=〃:
C”Y(ZH)=〃”X(HZ)=〃:
E”Y(HZ)=〃:
F”FWJ-1=〃:
G”FWJ-2=〃:
H”R=〃:
I”L1=〃:
J”L=〃:
K”L2=〃:
L”ZJ(Z=1,Y=-1)=〃
O=180/pi(pi为圆周率,电脑中找不到此符号以此代替)
LbIA
{MN}
M”ZHUANGHAO=〃
P=M-A
MM>
(A+I+J+K)?
GOTOA⊿
N”ZHUANGJU(Z+,Y-)=〃
M>
(A+I+J)?
GOTOD⊿
(A+I)?
GOTOC⊿
LbIB(第一缓和曲线)
X=B+(P-(P5÷
40÷
H2÷
I2))COSF+(P3÷
6÷
H÷
I-P7÷
336÷
H3÷
I3)LSINF
Y=C+(P-(P5÷
I2))SINF-(P3÷
I3)LCOSF
X=X+NCOS(F-(P2÷
2÷
I)OL-90)◢
Y=Y+NSIN(F-(P2÷
GOTOA
LbIC(圆曲线)
X=B+(HSIN(((P-I)÷
H+I÷
H)O)+(I÷
2-I3÷
240÷
H2))COSF-(H(1-COS(((P-I)÷
H)O))+I2÷
24÷
H)(-1)LSINF
Y=C+(HSIN(((P-I)÷
H2))SINF+(H(1-COS(((P-I)÷
H)O))+I2÷
H)(-1)LCOSF
X=X+NCOS(F-((P-I)÷
H)OL-90)◢
Y=Y+NSIN(F-((P-I)÷
LbID(第二缓和曲线)
Q=A+I+J+K-M
X=D-(Q-Q5÷
K2)COSG+(Q3÷
K-Q7÷
K3)LSING
Y=E-(Q-Q5÷
K2)SING-(Q3÷
K3)LCOSG
X=X+NCOS(F-(I÷
H+J÷
H+K÷
H-Q2÷
K)OL-90)◢
Y=Y+NSIN(F-(I÷
变量说明:
以上变量依次为:
ZH(ZH)=直缓点桩号,无缓和曲线则为直圆点;
X(ZH)=直缓点X坐标;
无缓和曲线则为直圆点;
Y(ZH)=直缓点Y坐标,无缓和曲线则为直圆点;
X(HZ)=缓直点X坐标,无缓和曲线则为圆直点;
Y(HZ)=缓直点Y坐标,无缓和曲线则为圆直点;
FWJ-1=第一切线方位角;
FWJ-2=第二切线方位角;
R=半径;
L1=第一缓和曲线长;
L=圆曲线长;
L2=第二缓和曲线长;
ZJ(Z=1,Y=-1)=转角形式(左=1,右=-1)
ZHUANGHAO=所求点桩号
ZHUANGJU(Z+,Y-)=边桩桩距,左边桩为正,右为负,中桩0
4800计算器求直线、缓和曲线、圆曲线上任一里程中桩坐标及左右任意角度、任意距离的点的坐标的程序
A“XA”:
B“YA”:
C“CA”“1/RA”:
E“1/RB”:
F“DKA”:
G“DKB”:
Z[3]=F:
Z[4]=D:
←
{HSOR}:
H“DKI”:
H>
G=>Goto3:
ΔH<
Z[3]=
>Goto0:
ΔS“Jo”:
O“DL”:
R“DR”=0=>
Z[6]=0:
≠=>
Z[6]=1:
ΔE=0=>
Z[7]=0:
Z[7]=2:
ΔZ[8]=Z[6]+Z[7]:
Z[8]=0=>
Z[9]=G-Z[3]:
ΔZ[8]=1=>
Z[9]=Abs(0.2/Z[4]):
ΔZ[8]=2=>Z[9]=Abs(0.2/E):
ΔZ[8]=3=>Z[9]=Abs(0.2/E):
ΔH=G=>
H=H-0.0001:
Δ←
2=(E-D)/Abs(G-F)=H-F:
Z[1]=Abs(H-F):
Z[1]>
Z[9]=>
Q=
QZ[9]/Z[1]:
ΔI=PQ:
T=D+I:
J=C+90Q(I+2D)/π:
M=C+45Q
(I/4+2D)/(2π):
N=C+135Q(3I/4+2D)/(2π):
K=C+45Q
(I/2+2D)/
π:
X=A+Q/12×
(cosC+4(cosM+cosN)+2cosK+cosJ):
Y=B+Q/12×
(sinC+4(sinM+sinN)+2sinK+sinJ):
Z[1]≤Z[9]=>
J=J◢X=X◢Y=Y◢
U“XL”=X+Ocos(J-S)
◢V“YL”=Y+Osin(J-S)
◢
W“XR”=X+Rcos(J-S+180)
◢Z“YR”=Y+Rsin(J-S+180)
A=X:
B=Y:
C=J=T:
F=H:
F=F+Q:
2:
3:
C=J=E:
F=G:
Z[3]=G:
Z[4]=E:
{EG}:
1←
0:
{FABCD}:
E=Z[4]:
G=Z[3]:
1
程序说明:
1、编程前先将存储区扩大9个(至35个);
该程序适合任何线型,任何半径,误差均在毫米之内。
2、该程序可在该区内任意输入里程,若所输里程小于起点里程,则程序提示输入前一区间起点里程、坐标、方位角及曲率,完成过渡。
若要转入下一区间,则必须输入该区间终点里程后,再输入下一区间的里程及终点里程、曲率、完成过渡。
总之,该程序前进时为有意识,而后退时可在无意识时。
(注意:
如果前进时无意识,即未输终点里程,会出错)。
3、该程序可重复输入任一里程(包括起、终点),从而可达到求出某一里程不同距离(不同角度)点坐标。
4、符号注解:
输入数据含义:
XA、YA、CA——起点坐标,起点切线方位角
DKA、DKB、DKI——起终点及待求点的里程
Jo——与线路切线斜交角度(左侧上方夹角)如为法线方向则Jo=90(见示意图)
圆:
起±
1/R,终±
1/R
直线头或尾与缓和曲线头曲率输入0
(曲线左偏曲率为“-1/R”,右偏曲率为“+1/R”)
结果显示数据含义:
X、Y、J——所求里程的中桩坐标及切线方位角
XL、YL、XR、YR——左右边桩的坐标
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 4800 程序