CASIO计算器程序集.docx
- 文档编号:3037969
- 上传时间:2022-11-17
- 格式:DOCX
- 页数:7
- 大小:26.78KB
CASIO计算器程序集.docx
《CASIO计算器程序集.docx》由会员分享,可在线阅读,更多相关《CASIO计算器程序集.docx(7页珍藏版)》请在冰豆网上搜索。
CASIO计算器程序集
CASIO—5800P
计
算
器
程
序
集
中铁十五局集团第四工程有限公司
龙飞
2009年12月9日
目录
1.坐标计算.中------------------------------------------------2
2.坐标计算(左中右3桩)-------------------------------3
3.坐标计算(任意桩)-------------------------------------4
4.坐标反算------------------------------------------------5
5.竖曲线高程计算------------------------------------------------6
6.坐标投点-----------------------------------------------7
7.坐标正算------------------------------------------------8
8.后方交会------------------------------------------------9
坐标计算(中桩)
程序名:
1.ZBJS.Z(原复化辛朴生公式)改版加数据库
Lbl0:
“DKI”?
H
Prog“SJK”
(E-D)/Abs(G-F)→P:
Abs(H-F)→Q:
P*Q→I:
D+I→T
C+(I+2D)Q*90/π→J
C+(I/4+2D)Q*45/(2π)→M:
C+(3I/4+2D)Q*135/(2π)→N
C+(I/2+2D)Q*45/π→K
A+Q(cos(C)+4(cos(M)+cos(N))+2cos(K)+cos(J))/12→X:
“X=”:
X◢
B+Q(sin(C)+4(sin(M)+sin(N))+2sin(K)+sin(J))/12→Y:
“Y=”:
Y◢
Goto0
说明:
直接输入中桩里程出坐标
如果这步C+(I+2D)Q*90/π→J
改成C+(I+2D)Q*90/π→J:
“FWJ=”:
J◆DMS◢
能显示中桩的方位角
数据库
程序名:
SJK
IfH≥起点里程andH≤终点里程:
Then起点X坐标→A:
起点Y坐标→B:
起点方位角→C:
起点曲率→D:
终点曲率→E:
起点里程→F:
终点里程→G:
Return:
IfEnd
…………把每一段的数据全部输入进去。
说明:
曲率直线输入0,线路左偏输-1/半径,线路右偏输1/半径
坐标计算(左中右3桩)
程序名:
2.ZBJS.3(原复化辛朴生公式)改版加数据库
Lbl0:
“DKI”?
H:
“JD”?
S:
“DL”?
O:
“DR”?
R
Prog“SJK”
(E-D)/Abs(G-F)→P:
Abs(H-F)→Q:
PQ→I:
D+I→T
C+(I+2D)Q*90/π→J
C+(I/4+2D)Q*45/(2π)→M:
C+(3I/4+2D)Q*135/(2π)→N
C+(I/2+2D)Q*45/π→K
A+Q(cos(C)+4(cos(M)+cos(N))+2cos(K)+cos(J))/12→X:
“X=”:
X◢
B+Q(sin(C)+4(sin(M)+sin(N))+2sin(K)+sin(J))/12→Y:
“Y=”:
Y◢
X+Ocos(J-(180-S))→U:
“XL=”:
U◢
Y+Osin((J-(180-S))→V:
“YL=”:
V◢
X+Rcos((J+S)→W:
“XR=”:
W◢
Y+Rsin(J+S)→Z:
“YR=”:
Z◢
Goto0
坐标计算(任意桩)
程序名:
3.ZBJS.RYZ(原复化辛朴生公式)改版加数据库
Lbl0:
“DKI”?
H:
“JD”?
S:
“HD”?
O
Prog“SJK”
(E-D)/Abs(G-F)→P:
Abs(H-F)→Q:
PQ→I:
D+I→T
C+(I+2D)Q*90/π→J
C+(I/4+2D)Q*45/(2π)→M:
C+(3I/4+2D)Q*135/(2π)→N
C+(I/2+2D)Q*45/π→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+S)→X:
“X=”:
X◢
V+Osin(J+S)→Y:
“Y=”:
Y◢
Goto0
坐标反算
程序名:
4.ZBFS
LbIO:
“QDX”?
X:
“QDY”?
Y:
“ZDX”?
S:
“ZDY”?
T
POI(X-S,Y-T):
cls
ifJ<360:
ThenJ+180→J:
IfEnd:
cls
“HD=”:
I◢
“FWJ=”:
J◥DMS◢
Goto0
使用说明:
QDX………………………方向起点的X坐标
QDY………………………方向起点的Y坐标
ZDX………………………方向终点的X坐标
ZDY………………………方向终点的Y坐标
HD…………………………起点到终点的距离
FWJ…………………………起点到终点的方位角
竖曲线高程计算
程序名:
5.GCJS
LbIO:
“LCO”?
A:
“HO”?
B:
“R”?
R:
“I1”?
C:
“I2”?
D
LbI1:
“LP:
1,RP:
0”?
N
LbI2:
IFN=1:
ThenR(D-C)/200→T:
ElseIFN=0:
ThenR(C-D)/200→T:
IfEnd:
IfEND:
A-T→E:
A+T→F:
“DKA=”:
E◢
“DKB=”:
F◢
LbI3:
“DKI”?
G:
IfG≤A:
ThenGoto4:
IfEnd:
Goto5
LbI4:
IfG≤E:
ThenB-C(A-G)/100→H:
“H=”:
H◢
Goto3:
Else(G-E)2/(2R)→I:
C(A-G)/100→J:
IfN=1:
ThenB+I-J→H:
“H=”:
H◢
Goto3:
ElseIfN=0:
ThenB-I-J→H:
“H=”:
H◢
Goto3:
IfEnd:
IfEnd
LbI5:
IfG≥F:
ThenB+D(G-A)/100→H:
“H=”:
H◢
Goto3:
Else(F-G)2/(2R)→I:
D(G-A)/100→J:
IfN=1:
ThenB+I+J→H:
“H=”:
H◢
Goto3:
ElseIfN=0:
ThenB-I+J→H:
“H=”:
H◢
Goto3:
IfEnd:
IfEnd
使用说明:
输入部分显示部分
LCO?
…………变坡点桩号DKA=…………竖曲线起点里程
HO?
…………变坡点高程DKB=…………竖曲线终点里程
R?
…………竖曲线半径H=……………计算点高程
I1……………第一段坡度值
I2…………第二段坡度值
LP:
1,RP:
0?
……凸曲线输0
……凹曲线输1
DKI?
…………计算点里程
本程序可以计算出曲线起点到曲线终点以及下一段直线上的高程,直到下一个曲线起点为止
放样夹角计算
程序名:
6.ZBTD
“ZJX”?
X:
“ZJY”?
Y:
“HSX”?
S:
“HSY”?
T
POI(X-S,Y-T):
cls
IfJ<360:
ThenJ+180→F:
IfEnd:
cls
“HD=”:
I◢
“FWJ=”:
F◥DMS◢
LbIO:
“QSX”?
U:
“QSY”?
V
POI(X-U,Y-V):
cls
IfJ<360:
ThenJ+180→L:
IfEnd:
cls
“HD=”:
I◢
“FWJ=”:
L◥DMS◢
L-F→W
IfW<0:
ThenW+360→W:
IfEnd:
Cls
“JD=”:
W◥DMS◢
Goto1
使用说明:
输入部分显示部分
ZJX?
……置镜点X坐标第一次的HD=置镜点到后视的距离
ZJY?
……置镜点Y坐标第一次的J=置镜点到后视的方位角
HSX?
…后视点X坐标输入前视点的坐标以后
HSY?
…后视点Y的坐标HD=置镜点到前视的距离
QSX?
……前视点X坐标J=置镜点到前视的方位角
QSY?
……前视点Y坐标JD=后视点到前视点的夹角,也就是仪器要拨的夹角
第一次HD=110.952J=44-55-50.24第二次HD=85.951J=272-29-38.03
仪器所要拨的角度为JD=227-33-47.79
坐标正算
程序名:
7.ZBZS
“ZJX”?
S:
“ZJY”?
U:
“HSX”?
T:
“HSY”?
N:
“JD”?
P:
“D”?
D:
S-T→A:
U-N→B
POI(A,B)◢
IfJ/J<360:
ThenJ+180→J:
IfEnd:
J:
cls
J+P→F
S+DCOS(F)→X:
“X=”:
X◢
U+DSin(F)→Y:
“Y=”:
Y◢
使用说明:
ZJX?
………………………置镜点X坐标
ZJY………………………置镜点Y坐标
HSX………………………后视点X坐标
HSY………………………后视点Y坐标
JD…………………………置镜点到后视点拨到前视点之间的夹角
D…………………………置镜点到前视点的距离
后方交会
程序名:
8.HFJH
“XR”?
E:
“YR”?
F:
“XL”?
U:
“YL”?
V:
U-E→D:
V-F→K:
(D2+K2)→C
180-90Abs(K)/K-tan-1(D/K)→G
“DR”?
B:
“DL”?
A
Cos-1((B2+C2-A2)/2/B/C)→M
Cos-1((A2+C2-B2)/2/A/C)→N
E+BCos(G-M)→O
F+BSin(G-M)→T
U+ACos(G+N+180)→H
V+ASin(G+N+180)→I
(O+H)/2→X:
“X=”:
X◢
(T+I)/2→Y:
“Y=”:
Y◢
说明:
XR?
---------------------------输入右边X坐标
YR?
---------------------------输入右边Y坐标
XL?
---------------------------输入左边X坐标
YL?
---------------------------输入左边Y坐标
DR?
---------------------------输入置镜点到右边控制点距离
DL?
---------------------------输入置镜点到左边控制点距离
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- CASIO 计算器 程序
![提示](https://static.bdocx.com/images/bang_tan.gif)