边坡测量放样程序

边坡测量程序

U″XO″：V″YO″：A″X1″：B″Y1″：

POL（G″X2″-A,D″Y2″-B：W=J：I：

LBI1：{LKM}：X″XA="=A+LCOSW+KCOS（W+M)◢

Y"YA="=B+LSinW+Ksin（W+M）◢

POL（S-U),Y-U：J <0=>J=J+36O⊿

X″DIX=″=I◢

FiX3：O″FW=″=J◢

Goto1

5800边坡测量程序

″XO=″?U：″YO=″?V：″X1=″?A：″Y1″?B：″X2″?G:″Y2″?D↙

POL（G-A,D-B)：J→W:Fix 3:CLS↙

Lbi 1 ↙

″L=″?L:″K=″?K:″M=″?M↙

A+LCOSW+KCOS（W+M)→X↙

B+LSinW+Ksin（W+M)→Y↙

Cls↙

"XA=":Locate 5,1,X:"YA=":Locate 5,2,Y◢

Pol（X-U,Y-V)：If J <0:Then J+36O→J :Else J→J↙

Cls↙

″DIX=″:Locate 5,1,I:″FW=″:J▲DMS◢

Goto 1

CASIO标高（转自测量空间）

测量 2008-08-17 23:33 阅读44 评论1

字号：大中小

程序特点：

全线标高数据一次性程序化输入，扩充变量数据库，无需修改程序内容；全线贯通计算，标高计算时将全线数据分为4等分，首先判断待求点在哪个区间，再循环选择，提高运算时间；傻瓜操作，适用初级

用户。

一、程序：M C

W“1.BG 2.SZ ”：W=1=> Goto 1ΔO“KOU LING”：O≠12 3456=>O=0：Goto ５ΔO=0：Z[1]=0: Goto 0←┘

Lbi 0←┘

”No.”：Z[1]+1◢

{ZHPR}：Z“D0” ：H“BG” ：P“PD” ：R“R0” ：Z[Z[1]×4+3] =Z：Z[Z[1]×4+4]=H：Z[Z[1]×4+5]=P：Z[Z[1]×4+6]=R：“NEXT”

◢Isz Z[1]：Goto0←┘

Lbi 1←┘

Z[2]= Z[1]←┘

{D}：D≤Z[Int(Z [2]÷4+1)×4+3]=>Z[2]= Int(Z [2]÷4) ：Goto2ΔD ≤Z [Int (Z[2] ÷2+1)×4+3]=>Z[2]=Int(Z[2]÷2)：Goto2ΔD≤Z[Int (Z[2]×.75+1)×4+3]=>Z[2]=Int (Z[2]×.75)：Goto2ΔGoto 2←┘

Lbi 2←┘

DDsz Z[2]：Goto 2ΔGoto 3←┘

Lbi 3←┘

Z[Z[2]×4+6]≠0=>G=Z[Z[2]×4+4]+(D-Z[Z[2]×4+3])×Z[Z[2]×4+5]÷100+(D-Z[Z[2]×4+3]) ^2÷2÷Z[Z[2]×4+6]：Goto 4ΔG=Z[Z[2]×4+4]+(D-Z[Z[2]×4+3])×Z[Z[2]×4+5]÷100：Goto 4←┘

Lbi 4←┘

{Z}：Z：G=G-0.02Abs(Z):“G”: G◢（4850输出）

{Z}：Z：G=G-0.02Abs(Z): G“G”◢（4800输出）

Goto 1←┘

Lbi 5←┘

“OUT”◢

程序操作说明

程序分为两部分：1.BG为标高计算，2.SZ为参数设置。

1、首先用Shift+Defm键对计算器内存变量进行扩充，扩充变

量数为4×X+2（X为标高参数段数，变量数视内存情况尽

量大些），运行程序，选2进行标高参数设置，为防止误

操作在正确输入口令123456时方可进行设置，一组参数输

入完毕后显示“NEXT”，如输入完毕请退出，按“ＥＸ

Ｅ”继续。

2、选1.ＢＧ进行标高运算，D输入桩号，Z输入距离，程序

首先自动判断其待求点在哪一段参数内，并将参数调出进

行计算，即可对全线进行标高计算。

c、变量说明

Z“D0”―――――――起点桩号

H“BG”―――――――起点标高

P“PD”―――――――前坡度（％）

R“R0”―――――――竖曲线半径（凸曲线为负值；凹曲线为正值，

直坡为０）

SUB＋ZB(断面三维放样程序）

P=HZ中线坐标X-U

Q=HZ中线坐标Y-V

L“KQ”=HZ里程+sin √（Ｐ²＋Ｑ²）) (切线方位角-90-(180＋tanˉ1(Q÷P)))×(

1. Lb1 1

2. ｛L｝

3.S=HZ里程：M=HZ左线坐标X： N=HZ左线坐标Y；A=HZ切线方位角：R=曲线半径：C=缓和曲线长度：J=左＝１＝右０：L

4. K=L-S

5. R=0=>X“X”=M+KcosA▲

6. Y“Y”=N+KsinA▲

7. Z“FW”=A▲

8.Goto 4△R≠0=>Abs K≤C=>Goto 2△R≠0=>K＞C=>Goto 3△

R≠0=>K<0=>Abs K＞C=>Goto 1△

9. Lb1 2

10. O=90K²÷（πRC）

11. G=K³÷（6RC）-Kˆ7÷（336（RC）³＋Kˆ11÷（42240（RC）ˆ5-Kˆ15÷9676800（R C）ˆ7）＋Kˆ19÷（3530096640（RC）ˆ9）

12. F=K－Kˆ5÷（40（RC）²）－Kˆ9÷（3456（RC）ˆ4）＋Kˆ13÷（599040（RC）ˆ6）－Kˆ17÷（40320×4532（RC）ˆ8）

13. J=0=>X“X”=M＋GsinA＋FcosA▲

14. Y“Y”=N＋FsinA- Gc osA▲

15. Z“FW”=A-O▲

Goto 4△

16．J≠0=>X“X”=M＋F cosA－GsinA▲

17．Y“Y”=N＋G cosA＋F sinA▲

18．Z“FW”=A＋O▲

Goto 4△

19．LbI 3

20．B=90（2K-C）÷（лR）