CASIO5800计算器公路竖曲线全线高程计算程序Word格式.docx
《CASIO5800计算器公路竖曲线全线高程计算程序Word格式.docx》由会员分享，可在线阅读，更多相关《CASIO5800计算器公路竖曲线全线高程计算程序Word格式.docx（10页珍藏版）》请在冰豆网上搜索。
66.8→交点高程G:
100000→曲率半径R:
………
依次类推，计算原始数据完成输入，坡度换算成小数。
2↙
S-K→L：
A-B→W:
Abs（R*W/2）→T:
S-T→C:
S+T→D↙
K≤C:
Then
G-L*B→H:
Goto5:
Else
If
K≤S:
Goto3:
K≤D:
Goto4
:
IfEnd:
W>
0:
G+（C-K）^2/2/R-L*B→H
IfW<
G-（C-K）^2/2/R-L*B→H
4↙
G+（K-D）^2/2/R-L*A→H
G-（K-D）^2/2/R-L*A→H
1
5↙
H-0.304→H↙
（0.304为中心~路肩高差）
“H=”：
H◢
Goto1↙
Norm1:
50→C:
12345→J
"
RESETPW"
?
I:
I=J=>
500→DimZ
为数据库增加额外变量500个，在SET、SETPFDYS程序根据实际再增减变量
50→Z[C+22]
PASSWORDS"
I→Z[C+39]
重设要素保护密码
Cls:
Stop
FileName:
DATLOCK
要素保护密码确定认程序
50→C
J:
J≠Z[C+39]=>
Stop
2008-08-07修改
SHELL（外壳程序）
50→C
;
在扩充变量预留前50个给别的程序用。
如不够就适量加大。
RESET，SHELL，SET，SETPFDYS，这几个程序中C值必需一致
Z[C+35]→I:
STATION-N"
I→Z[C+35]
设置测站N坐标
Z[C+36]→I:
STATION-E"
I→Z[C+36]
设置测站E坐标
Z[C+44]→I:
STATION-Z"
I→Z[C+44] 设置测站Z坐标
Z[C+45]→I:
STATION-HI"
I→Z[C+45]
设置仪高
Z[C+41]→I:
GC-DH"
I→Z[C+41]
放样点高差常数
Norm1
Z[C+23]→N 当前分段要素N坐标
Z[C+24]→E 当前分段要素E坐标
Z[C+25]→M 当前分段要素起点桩号
Z[C+26]→H 当前分段要素起点方位角（正北）单位：
弧度
Z[C+27]→A 当前分段要素起点曲率有左偏负右偏正（注意不半径）
Z[C+28]→R 当前分段要素终点曲率有左偏负右偏正（注意不半径）
Z[C+29]→L 当前分段要素长度
Z[C+3]→W
Z[C+32]→I:
DAT123"
I→Z[C+32]
平曲线要素数库类型选择1为内置式，2文件式，3实时输入（查看当前要素值）
0→I
Z[C+4]→I:
123"
I→Z[C+4]
选择本程序模式默认为坐标正算，1坐标反算，2横向边仰坡放样，3，纵向边仰坡放样（隧道进出口用到）
Lbi1
Z[C+4]→I
I=1=>
Prog"
TURNZH"
I=2=>
HXBYP"
I=3=>
ZXBYP"
LbiA
Deg:
Cls
Z[C+1]→G:
ZH"
G:
G→Z[C+1] ;
G桩求桩号
Z[C+2]→B:
JL"
B:
B→Z[C+2] ;
B横向距离，左正右负
LbiB
Prog"
ZBJS"
坐标正算
GCJS"
高程计算
Fix3:
Cls
;
设置三位小数
ZH＝"
:
Locate4,1,G
;
第一行显示桩号
X＝"
Locate3,2,X
第二行显示X（N）坐标
Y＝"
Locate3,3,Y ；
第三行显示Y（E）坐标
Z"
Locate2,4,Z+Z[C+41]
；
第四行显示Z坐标
Locate10,4,Z[C+2]
；
第四行显示横向距离
Do:
I+1→I:
I=1000=>
Goto1:
LpWhileNot（Getkey=57OrGetkey=27）;
锁定键盘，并在几十秒后自动返回
Getkey=57=>
Goto1
Z+Z[C+41]+Z[C+49]-Z[C+44]-Z[C+45]→Z[C+48]
Pol（Z[C+35]-X,Z[C+36]-Y）
DL"
Locate3,1,I:
Locate12,1,Z[C+45]
DH"
Locate3,2,Z[C+48]:
Locate12,2,Z[C+49]
FWJ"
J<
0=>
J+360→J:
J◤DMS◢
2008-08-07修改
J→Z[C+46]
I→Z[C+47]
Goto1
FileName：
ZBJS
坐标计算程序
READDAT"
Rad
G-M→Q
IFAR=0:
ThenIfA=R:
Then1→J:
Else3→J:
IfEnd:
ElseIfA=R:
Then2→J:
Else3→J:
IfEnd
IfJ=1:
ThenH→F:
N+QCos（H）→X:
E+QSin（H）→Y:
IfEnd
直线段直接计算
IfJ=2:
ThenH+QR→F:
Rec（Abs（2Sin（Abs（0.5QR））÷
R）,H+QR÷
2）:
N+I→X:
E+J→Y:
圆弧段直接计算
IfJ=3:
ThenGoto5:
X+BCos（F+W）→X
Y+BSin（F+W）→Y
Return
Lbi5
用五点通用坐标计算计算缓和段
0.5（R-A）÷
L→K
AQ→I
KQ2→J
0.00→P:
H+IP+JP2→U
0.49→P:
H+IP+JP2→V
0.5→P
H+IP+JP2→D
0.51→P:
H+IP+JP2→F
0.30→P:
H+IP+JP2→T
0.25→I
0.52→J
0.44→O
N+Q（ICos（U）+JCos（V）+OCos（D）+JCos（F）+ICos（T））→X
E+Q（ISin（U）+JSin（V）+OSin（D）+JSin（F）+ISin（T））→Y
H+AQ+KQ2→F
TURNZH（坐标反算）
Z[C+37]→I:
DQD-N"
I→Z[C+37]
输入待求点N坐标
I=-1=>
INFWJDLDH"
Z[C+38]→I:
DQD-E"
I→Z[C+38]
输入待求点E坐标
0→B：
M+L÷
2→G：
LbiS:
Z[C+37]-X→I:
Z[C+38]-Y→J
IfI=0AndJ=0:
ThenGotoA:
Pol（I,J）
LbiA:
Rec（I,J-F）:
J→Z[C+2]
G+I→G:
IFAbs（I）>
0.0001:
ThenProg"
GotoS↙
G→Z[C+1]
INFWJDLDH 实测坐标（用方位角，距离，高差）输入程序
Z[C+46]→J:
DQD-FWJ"
Z[C+47]→I:
DQD-DL"
Z[C+48]→K:
DQD-DZ"
K:
K→Z[C+48]
Z[C+49]→P:
RHT"
P:
P→Z[C+49]
Rec（I,J）
Z[C+35]+I→Z[C+37]
Z[C+36]+J→Z[C+38]
Z[C+44]+Z[C+45]+K-P→Z[C+43]
HXBYP
横向边仰坡放样程序
Z[C+40]→I:
QPD-DL"
I→Z[C+40]
输入起坡点与中桩距离常数
QPD-DZ"
输入起坡点与中桩高差常数
Z[C+42]→I:
i"
I→Z[C+42]
输入边仰坡坡度，左仰坡（路堑）为正，右仰坡（路堑）为负，左边坡为负，右边坡为正
Z[C+43]→I:
DQD-Z"
I→Z[C+43]
输入实测高程
（Z[C+43]-Z-Z[C+41]）Z[C+42]+Z[C+40]→B
B-Z[C+2]◢显示与上一次测点的偏差
B→Z[C+2]
ZXBYP
纵向仰坡放样程序（隧道进口使用）
Z[C+33]→I:
QPD-ZH"
I→Z[C+33]
输入起坡点桩号
Z[C+34]→I:
QPD-Z"
I→Z[C+34]
输入起坡点高程
仰坡时（隧道进出口仰坡），进口为正，出口为负）
Z[C+42]（Z[C+43]-Z[C+34]）+Z[C+33]→G
G-Z[C+1]◢显示与上一次测点的偏差
SET设置程序
1\LbiS
2\Norm1
3\50→C
4\50→Z[C+22]
5\0→K
6\Z[C+5]→I:
1Or2"
I→Z[C+5]
选择1线或者2线
7\180Z[C+3]÷
π→J:
XZJJ"
Jπ÷
180→Z[C+3] ;
斜桩夹角
8\IfI=1:
ThenZ[C+8]→Z[C+6]:
Z[C+9]→Z[C+7]
9\Z[C+12]→Z[C+16]:
Z[C+1
升级会员 