CASIO中边桩放样程序3Word格式.docx
《CASIO中边桩放样程序3Word格式.docx》由会员分享,可在线阅读,更多相关《CASIO中边桩放样程序3Word格式.docx(9页珍藏版)》请在冰豆网上搜索。
Goto8⊿
Z≥B=>
Z=B◢
Lbl8
Z≤G=>
L=T+G-Z:
V=F+180:
U=F
Goto2⊿
Z≤Z[1]=>
L=Z-G:
V=L-L∧5÷
(90R2C2):
L=30L2S÷
(pRC):
P=F+180:
Q=F+L:
U=F+3L
Goto4⊿
Z≤Z[3]=>
L=F+A÷
2+90S+180+180(Z-Z[2])S÷
R÷
p:
U=L+90S
Goto5⊿
Z≤Z[4]=>
L=Z[4]-Z:
L=30SL2÷
P=F+A:
Q=F+A+180-L:
U=F-3L+A
Z>
Z[4]=>
L=Z-Z[4]+T:
U=F+A:
V=U
Lbl2
X=N+LcosV:
Y=E+LsinV
Goto6
Lbl4
X=N+TcosP+VcosQ:
Y=E+TsinP+VsinQ
Lbl5
X=Z[6]+RcosL:
Y=Z[7]+RsinL
Lbl6
{WM}:
W"
BIANJU"
M"
JIAJIAO"
U<
U=U+360⊿
QX-FWJ="
U→DMS◢
X="
X◢
Y="
Y◢
W=0=>
Goto3⊿
W>
X=X+Wcos(U+M):
Y=Y+Wsin(U+M)
XR="
YR="
W<
X=X+(AbsW)cos(U+180+M):
Y=Y+(AbsW)sin(U+180+M)
XL="
YL="
Lbl3
Pol(X-H,Y-K)
J<
J=J+360⊿
FWJ="
J→DMS◢
CJ="
I◢
Goto1
⊿
说明:
A?
输入转角:
左转为负,右转为正
R?
输入圆曲线半径
LS?
输入缓和曲线长度
JD?
输入交点桩号
JDX?
JDY?
输入交点X,Y坐标
QDFWJ?
输入起点切线方位角
DKA?
输入起点里程
DKB?
输入终点里程
ZJX?
ZJY?
输入置镜点X,Y坐标
Z〝DKI〞?
输入待求点里程
QX-FWJ
待求点切线方位角
W〝BIANJU〞?
输入左右桩距中桩边距(左侧输入-,右侧输+)
M〝JIAJIAO〞?
输入斜交时边桩与线路方向右侧夹角,正交为90度
X,Y
待求点中桩坐标
XR,YR
右桩坐标
XL,YL
左桩坐标
FWJ
置镜点至待求点方位角
CJ
置镜点至待求点距离
5800----经典程序(缓+园+缓)
5800“直+缓+圆+缓+直”型坐标计算
主程序(QXJS)
Prog“1”:
“K—ZH”?
Q:
”ZHX=”?
F:
“ZHY=”?
G:
“TZH—JD”?
N:
“(Y1,Z-1)”?
I←
Lbl1:
“LICHENG=”?
K:
“WAIYI=(Z-,Y+)”?
D:
Goto2←
Lbl2:
ifK<
Q:
thenGoto3:
elseGoto4:
ifend←
if(判断)
then(执行)
Lbl3:
“X=”:
F-(Q-K)cosN-DsinN→X◢
ifend(结束)
else(否则执行)
“Y=”:
G-(Q-K)sinN+DcosN→Y◢
Goto1←
第一段直线
Lbl4:
ifK>
Q+L:
thenGotoA:
elseGoto5:
ifend←
Lbl5:
ifK≤Q+B:
thenGoto6:
elseGoto7:
Lbl6:
K-Q→S:
B→W:
Prog“2”:
N+I×
90S2÷
(ЛRB)→O:
O<
0=>
O+360→O:
O>
360=>
O-360→O←
UcosN-VsinN+F+Dcos(O+90)→X◢
VcosN+UsinN+G+Dsin(O+90)→Y◢
Goto1?
第一段缓曲
Lbl7:
ifK≤Q+L-C:
thenGoto8:
elseGoto9:
Lbl8:
N+I90(2S-B)÷
(ЛR)→O:
O+360→O:
360=>
O-360→O←
Prog“3”:
”X=”UcosN-VsinN+F+Dcos(O+90)→X◢
“Y=”:
VcosN+UsinN+G+Dsin(O+90)→Y◢
圆曲线
Lbl9:
Q+L-K→S:
C→W:
Prog“2”:
N+IA+180→E:
E-I×
(ЛRC)+180→O:
O-360→O←
-V→V←
“X=”:
(U-H)cosE-VsinE+F+TcosN+Dcos(O+90)→X◢
VcosE+(U-H)sinE+G+TsinN+Dsin(O+90)→Y◢
第二段缓曲
LblA:
N+IA+180→E:
E+180→O:
-HcosE+F+TcosN→X
-HsinE+G+TsinN→Y
X+(K-Q-L)cosO-DsinO◢
Y+(K-Q-L)sinO+DcosO◢
第二段直线
圆曲缓曲参数子程序“1”
?
A:
“L01”?
B:
“L02”?
C←
B÷
2-B3÷
(240R2)→M←
C÷
2-C3÷
(240R2)→J←
B2÷
(24R)-B4÷
(2688R3)→P←
C2÷
(24R)-C4÷
(2688R3)→Z←
M+(R+P)tan(A÷
2)+(Z-P)÷
sinA→T←
J+(R+Z)tan(A÷
2)+(P-Z)÷
sinA→H←
2+C÷
2+ARЛ÷
180→L←
缓曲子程序“2”
S-S5÷
(40R2W2)+S9÷
(3456R4W4)-S13÷
(599040R6W6)→U←
I×
(S3÷
(6RW)-S7÷
(336R3W3)+S11÷
(42240R5W5))→V←
圆曲子程序“3”
Rsin(180(S-B÷
2)÷
Л÷
R)+M→U←
I(R(1-cos(180(S-B÷
R))+P)→V←
程序说明:
本程序可以计算等长和不等长“直+缓+圆+缓+直”型线或者单圆曲线的中线坐标、外移桩坐标以及中线的切线方位角(可加入◢显示出来)。
先将主、子程序存入计算器,然后运行主程序“QXJS”,输入A(曲线偏角),曲线半径R,第一缓和曲线长L01,第二缓和曲线长L02,(等长缓和曲线时L01=L02),然后显示曲线逐要素,接着输入ZH坐标(ZHX,ZHY),ZH到JD坐标方位角TZH—JD,当曲线为左偏时(Y1,Z-1)输-1,右偏输1,输入计算里程K,外移距离D,计算中桩时D输0,计算左边桩时D输负数,算右边桩时D输正数,当所输里程不在本曲线计算围时,屏幕显示K—OVER,继续输入有效里程可继续计算。
对于单圆曲线,缓和曲线长输入0。
本程序缓和曲线X计算取了4项,Y计算取了3项,一般的曲线计算精度都可达到mm级。
5800竖曲线高程(RGC)
“JD-K”?
A:
“JD-H”?
B:
“+i,-i”?
I:
T:
“n+1,u-1”?
J:
“”?
W:
“K0=”:
I÷
100→I←
A-T
→D◢
“H0=”:
B-IT→
E◢
“KZ=“:
A+T→
U◢
“HZ=“:
E+2TI-4JT2÷
(2R)→V◢
Lbl1:
?
K:
Goto2
Lbl2:
ifK<
thenGoto3:
elseGoto4:
ifend
Lbl3:
“NO”:
Goto1
Lbl4:
ifK>
U:
thenGoto3:
elseGoto6:
Lbl5:
K≤U=>
Goto6
Lbl6:
“H=”:
E+(K-D)×
I-J(K-D)2÷
(2R)-W→H◢
JD–K(交点桩号)
JD–H(交点直线高程)+i,-i(后面坡度)R
(竖曲线半径)T(T长)HSGC=(后视高程)
5800计算器公路全线坐标正、反算计算程序2009.7.23
5800正反算、隧道超欠挖程序.doc
正算主程序(ZS)
Lb10
FIX4:
S:
Z:
Prog
“PM-SJ”:
Abs(S-O)→W:
Prog"
SUB1"
XS="
X◢
YS="
Y◢F-90→F(需要时可以让他显示,不要时不必输入):
Prog“SQX-SJ”:
Prog“SQX”:
H◢
Goto
反算主程序(FS)
FIX4:
?
X:
Y:
Prog“PM-SJ”:
X→I:
Y→
SUB2"
S="
O+W→S◢"
Z="
Z◢
Prog“SQX-SJ”:
Prog“SQX”:
H◢Goto
隧道3心圆放样主程序(SD-3XY)
Lb10:
Prog“FS”:
1.5→A:
1.65→B:
0.89→G:
2.27→C:
3.3→D:
2.41→E:
0.51→J:
“H1”:
F:
ifF≤H+A:
thenE-AbsZ→W:
IfEnd:
ifF>H+AAndF≤H+A+B:
then√(D&
sup2;
-(F-H-A)&
)-G-AbsZ→W:
ifF>H+A+B:
then√(C&
-(F-H-A-J)&
)-AbsZ→W:
“W=”:
W◢
(水平方向的超欠挖:
正为欠,负为超)Goto0
正算子程序(SUB1)
1÷
P→
C:
(P-R)÷
(2HPR)
→
180÷
π→
E:
0.1739274226→
0.3260725774→
0.0694318442→
0.3300094782→
L:
1-L→
1-K→
M:
U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))
V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))
G+QEW(C+WD)+90→F:
X+ZcosF→
Y+ZsinF→
Y反算子程序(SUB2)
G-90→T:
Abs((Y-V)cosT-(X-U)sin(T))
0→
Lbl0:
T+QEW(C+WD)
→L:
(J-Y)cosL-(I-X)sinL
→Z:
ifAbsZ<
1E-6:
thenGoto1:
ElssW+Z
0:
IfEnd←┘
(J-Y)÷
sinF→
Z子程序(平面线形数据库)PM-SJ
ifS
≥500(线元起点里程)AndS<769.256(线元止点里程):
Then19942.837
→U(线元起点X坐标):
28343.561
→V(线元起点Y坐标):
500→O(线元起点里程):
125°
16°
31°
→G(线元起点方位角):
269.265
→H(线元长度):
10^(45)→P(线元起点曲率半径):
10^(45)→R(线元终点曲率半径):
0
→Q(线元左右偏标志:
左负右正):
≥769.256(线元起点里程)AndS<806.748(线元止点里程):
Then19787.34
28563.378→V(线元起点Y坐标):
769.256→O(线元起点里程):
37.492→H(线元长度):
221.75→R(线元终点曲率半径):
-1→Q(线元左右偏标志:
≥806.748(线元起点里程)AndS<919.527(线元止点里程):
Then19766.566→U(线元起点X坐标):
28594.574→V(线元起点Y坐标):
806.748→O(线元起点里程):
120°
25°
54.07°
112.779→H(线元长度):
221.75→P(线元起点曲率半径):
≥919.527(线元起点里程)AndS<999.812(线元止点里程):
Then19736.072
28701.893
919.527→O(线元起点里程):
91°
17°
30.63°
80.285→H(线元长度):
9579.228→R(线元终点曲率半径):
≥999.812(线元起点里程):
Then19744.038
28781.659→V(线元起点Y坐标):
999.812→O(线元起点里程):
80°
40°
50°
100→H(线元长度):
子程序(竖曲线数据库)SQX-SJ
ifS≤999.812(竖曲线终点里程):
then0.0357(前坡度:
上坡正下坡负)→E:
0.0227(后坡度:
上坡正下坡负)→F:
600→R(竖曲线半径):
780→G(变坡点里程):
110→C(变坡点高程):
子程序(竖曲线计算公式)SQX
E-F→J:
ifJ>0:
then-R→R:
ElssR→R:
Abs(R*J÷
2)→T:
ifS≤G-T:
thenG-S→L:
C-LE→H:
ifS>G-TAnd
S≤G:
(S+T-G)&
÷
2÷
R→N:
C-LE+N
H:
ifS>G
And
S≤G+T:
thenS-G→L:
(G+T-S)&
C+LF+N
ifS>G+T:
thenS-G→L:
C+LF
三、使用说明
1、规定
(1)
以道路中线的前进方向(即里程增大的方向)区分左右;
当线元往左偏时,Q=-1;
当线元往右偏时,Q=1;
当线元为直线时,Q=0。
(2)
当所求点位于中线时,Z=0;
当位于中线左铡时,Z取负值;
当位于中线中线右侧时,Z取正值。
(3)
当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次代替。
(4)
当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于圆弧的半径。
(5)
当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大,以10的45次代替;
与圆曲线相接时,曲率半径等于圆曲线的半径。
止点与直线相接时,曲率半径为无穷大,以10的45次代替;
(6)
当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值;
止点与直线相接时,曲率半径等于设计规定的值;
以上程序为个人改编而得,如有好的建议及不妥处请留言。
如有好的程序,也发一份我共享啊!
[B][B][B]
CASIOfx—5800计算器工程测量与公路测量程序
1、坐标正算
〝X0=〞?
X:
〝Y0=〞?
Y:
〝I=〞?
I:
〝J=〞?
J
X+ICos(J)→U:
Y+ISin(J)→V
〝X=〞:
U(待求点的X坐标)
〝Y=〞:
V(待求点的Y坐标)
说明:
X0Y0:
已知点坐标I:
两点的距离J:
方位角
2、坐标反算
Lbl0
〝X1=〞?
〝Y1=〞?
〝X2=〞?
U:
〝Y2=〞?
V
Pol(U-X,V-Y):
0J+360→J
〝I=〞:
I
〝J=〞:
JDMS
GOTO0
X1Y1:
第一点的坐标,X2Y2第二点的坐标,I:
两点的距离,J:
3、圆曲线
〝Y0=〞?
〝FWJ=〞?
D:
〝QDHAO=〞?
G:
〝ZDHAO=〞?
C:
〝R=〞?
〝DQHAO=〞?
L
L<
GOrL﹥CGOTO2
〝PY=〞?
K
180(L-G)÷
(πR)→E
2RSin(0.5E)→F
ReC(Abs(F),D+0.5E):
Cls
X+I+KCos(D+E+90)→A
Y+J+KSin(D+E+90)→B
D+E→o:
o<
0360+o→0o
〝FWJ=〞:
oDMS
〝END〞
X0Y0:
起始点的坐标,FWJ:
起始点的方位角,QDHAO:
起点里程,ZDHAO终点里程,R:
半径,DQHAO:
待求点里程,PY:
偏移量
4、竖曲线
〝QZHAO=〞?
J:
〝H+B〞=?
〝I1=〞?
〝I2=〞?
〝R=〞?
〝T=〞?
T:
((D-C)÷
100)÷
Abs((D-C)÷
100)→A:
Abs(0.5R(D-C)÷
100)→S
〝T〞:
S
J-T→X
J+T→Y
〝DQ=〞?
IfL<
ThenGoto1:
ElseIf
L﹥Y:
IfEnd:
IfEnd
〝GC=〞:
B+C(L-J)÷
100+A(L-J+T)
(2R)→H
Goto0
QZHAO:
曲中点里程,H+B:
曲中点高程,I1:
第一坡度,I2:
第二坡度,R:
半径,T:
切线长,DQ:
待求点里程。
5.正算偏移
〝LS=〞?
L:
〝PY=〞?
C
ReC(L,D)
A+I+CCos(D+90)→X
B+J+CSin(D+90)→Y
Goto0
已知点坐标,LS:
两点距离,FWJ:
6.万能公式
〝1÷
R-QD〞?
R-ZD〞?
E:
〝QDHAO〞?
F:
〝ZDHAO〞?
G
H:
o
IfH<
ThenGoto2:
H﹥G:
IfEnd
(E-D)÷
Abs(G-F)→P:
Abs(H-F)→Q:
PQ→I:
C+90Q(I+2D)÷
π→J:
C+45Q(I÷
8+D)÷
π→M:
C+135Q(3I÷
π→N:
2+2D)÷
π→K
A+Q(Cos(C)+4(Cos(M)+Cos(N))+2Cos(K)+Cos(J))÷
12→U:
B+Q(Sin(C)+4(Sin(M)+Sin(N))+2Sin(K)+Sin(J))÷
12→V
U+oCos(J+90)→X
V+oSin(J+90)→Y
JDMS
起开点坐标,FWJ:
起开点方位角,1÷
R-QD:
起开点曲率,1÷
R-ZD终点曲率,QDHAO:
起点里程,ZDHAO终点里程,DQHAO:
待求点里程,XY:
待求点坐标
6、标高计算
〝QZHAO=〞?
〝ZDHAO=〞?
K:
〝B—HB=〞?
〝SX=〞?
T
(D-C)÷
100→W:
W÷
Abs(W)→A:
0.5RAbs(W)→S
〝o-YIGAO=〞?
J-T→X:
J+T→Y
〝L—DQHAO=〞?
〝XIELV=〞?
ThenGoto3:
IEnd
〝HL=〞:
B+0.01C(L-J)+A(L-J+T)
(2R)+0.01UV+Q→Q
〝HO=〞