CASIO计算器程序集Word文件下载.docx
《CASIO计算器程序集Word文件下载.docx》由会员分享，可在线阅读，更多相关《CASIO计算器程序集Word文件下载.docx（7页珍藏版）》请在冰豆网上搜索。
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（原复化辛朴生公式）改版加数据库
H:
“JD”?
S:
“DL”?
O:
“DR”?
R
PQ→I:
A+Q（cos（C）+4（cos（M）+cos（N））+2cos（K）+cos（J））/12→X:
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◢
坐标计算（任意桩）
3.ZBJS.RYZ（原复化辛朴生公式）改版加数据库
“HD”?
O
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:
V+Osin（J+S）→Y:
坐标反算
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◢
J◥DMS◢
Goto0
使用说明：
QDX………………………方向起点的X坐标
QDY………………………方向起点的Y坐标
ZDX………………………方向终点的X坐标
ZDY………………………方向终点的Y坐标
HD…………………………起点到终点的距离
FWJ…………………………起点到终点的方位角
竖曲线高程计算
5.GCJS
“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◢
ElseIfN=0:
ThenB-I-J→H:
IfEnd:
IfEnd
LbI5:
IfG≥F:
ThenB+D（G-A）/100→H:
“H=”:
Else（F-G）2/（2R）→I:
D（G-A）/100→J:
ThenB+I+J→H:
“H=”：
ElseIfN=0:
ThenB-I+J→H:
输入部分显示部分
LCO？
…………变坡点桩号DKA=…………竖曲线起点里程
HO？
…………变坡点高程DKB=…………竖曲线终点里程
R？
…………竖曲线半径H=……………计算点高程
I1……………第一段坡度值
I2…………第二段坡度值
LP：
1，RP：
0？
……凸曲线输0
……凹曲线输1
DKI？
…………计算点里程
本程序可以计算出曲线起点到曲线终点以及下一段直线上的高程，直到下一个曲线起点为止
放样夹角计算
6.ZBTD
“ZJX”?
“ZJY”?
“HSX”?
“HSY”?
IfJ＜360:
ThenJ+180→F:
F◥DMS◢
“QSX”?
U：
“QSY”?
V
POI（X-U，Y-V）:
ThenJ+180→L:
L◥DMS◢
L-F→W
IfW<
0:
ThenW+360→W:
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
T：
N:
P:
“D”?
D:
S-T→A:
U-N→B
POI（A，B）◢
IfJ/J＜360:
ThenJ+180→J:
J:
J+P→F
S+DCOS（F）→X:
U+DSin（F）→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”？
“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?
---------------------------输入置镜点到左边控制点距离
升级会员 