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：
方位角
２、坐标反算
Lbl0
〝X1=〞?
〝Y1=〞?
〝X2=〞?
U:
〝Y2=〞?
V
Pol（U-X,V-Y）:
0J+360→J
〝I=〞:
I
〝J=〞:
JDMS
GOTO0
X1Y1：
第一点的坐标，X2Y2第二点的坐标，I：
两点的距离，J：
３、圆曲线
〝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：
偏移量
４、竖曲线
〝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=〞
升级会员 