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 （原 复化辛朴生公式）改版加数据库

Lbl 0:“DKI”?HProg“SJK”

(E-D)/Abs(G-F) →P:Abs(H-F) →Q:P*Q→I:D+I→TC+(I+2D)Q*90/π→J

C+(I/4+2D)Q*45/(2π) →M:C+(3I/4+2D)Q*135/(2π) →NC+(I/2+2D)Q*45/π→K

A+Q(cos(C)+4( cos(M)+ cos(N))+2 cos(K)+ cos(J))/12→X:“X=”:X◢

B+Q(sin(C)+4(sin(M)+ sin(N))+2 sin(K)+ sin(J))/12→Y:“Y=”:Y◢

Goto 0

说明：直接输入中桩里程出坐标 如果这步C+(I+2D)Q*90/π→J“FWJ=”:J◆DMS◢ 能显示中桩的方位角

改成C+(I+2D)Q*90/π→J：

数 据 库

程序名：SJK

If H≥起点里程and H≤终点里程：Then起点X坐标→A:起点Y坐标→B：起点方位角→C：起点曲率→D:终点曲率→E：起点里程→F:终点里程→G:Return:IfEnd

…………把每一段的数据全部输入进去。

说明：曲率 直线输入0，线路左偏输 -1／半径，线路右偏输 1／半径

坐 标 计 算（左中右3桩）

程序名：2.ZBJS.3

（原 复化辛朴生公式）改版加数据库

Lbl 0:“DKI”?H:“JD”?S:“DL”?O:“DR”?RProg“SJK”

(E-D)/Abs(G-F) →P:Abs(H-F) →Q:PQ→I:D+I→TC+(I+2D)Q*90/π→J

C+(I/4+2D)Q*45/(2π) →M:C+(3I/4+2D)Q*135/(2π) →NC+(I/2+2D)Q*45/π→K

A+Q(cos(C)+4(cos(M)+ cos(N))+2 cos(K)+ cos(J))/12→X:“X=”:X◢

B+Q(sin(C)+4(sin(M)+ sin(N))+2 sin(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◢ Goto 0

坐 标 计 算（任意桩）

程序名：3.ZBJS.RYZ （原 复化辛朴生公式）改版加

数据库

Lbl 0:“DKI”?H:“JD”?S:“HD”?OProg“SJK”

(E-D)/Abs(G-F) →P:Abs(H-F) →Q:PQ→I:D+I→TC+(I+2D)Q*90/π→J

C+(I/4+2D)Q*45/(2π) →M:C+(3I/4+2D)Q*135/(2π) →NC+(I/2+2D)Q*45/π→K

A+Q(cos(C)+4(cos(M)+ cos(N))+2cos(K)+ cos(J))/12→UB+Q(sin(C)+4(sin(M)+ sin(N))+2sin(K)+ sin(J))/12→VU+Ocos((J+S) →X:“X=”:X◢ V+Osin(J+S) →Y:“Y=”:Y◢ Goto 0

坐 标 反 算

程序名：4.ZBFS

LbIO：“QDX”?X：“QDY”?Y：“ZDX”?S：“ZDY”?T POI（X-S，Y-T）:cls

if J＜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：IF N=1:Then R(D-C)/200→T:Else IF N=0:Then R(C-D)/200→

T:IfEnd:IfEND:A-T→E:A+T→F:“DKA=”:E◢ “DKB=”:F◢

LbI3:“DKI”？G：If G≤A:Then Goto4: If End:Goto5

LbI4:If G≤E:Then B-C(A-G)/100→H:“H=”:H◢ Goto3: Else (G-E)2/（2R）→I：C（A-G）/100→J：If N=1:Then B+I-J→H:“H=”:

H◢

Goto3:Else If N=0:Then B-I-J→H:“H=”:H◢ Goto3:If End: If End

LbI5:If G≥F:Then B+D(G-A)/100→H: “H=”:H◢

Goto3: Else (F-G)2/(2R)→I:D(G-A)/100→J:If N=1:Then B+I+J→H:“H=”：H

◢

Goto3: Else If N=0:Then B-I+J→H:“H=”： H◢ Goto3: If End: If End

使用说明：

输入部分 显示部分

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

If J＜360:Then J+180→F:IfEnd :cls “HD=”:I◢ “FWJ=”:F◥DMS◢ LbIO：“QSX”?U：“QSY”?V POI（X-U，Y-V）:cls

If J＜360:Then J+180 → L:IfEnd :cls “HD=”:I◢ “FWJ=”:L◥DMS◢ L-F→W

If W<0:Then W+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=后视点到前视点的夹角，也就是仪器要拨

的夹角

后视点 1前视点 2置仪点 0

第一次HD=110.952 J=44-55-50.24 第二次HD=85.951 J=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）◢

If J/J＜360:Then J+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)→C180-90Abs(K)/K-tan-1（D/K）→G“DR”？B：“DL”？A

Cos-1((B2+C2-A2)/2/B/C)→MCos-1((A2+C2-B2)/2/A/C)→NE+BCos(G-M)→OF+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?---------------------------输入置镜点到左边控制点距离