CASIO x4850 公路高程计算程序(三维版）

CASIO x4850 公路高程计算程序(三维版）,工程测量,工程测量规范,工程测量技术, CASIO x4850 公路高程计算程序(三维版） CASIO x4800 公路高程计算程序(三维版）（作者：chen  he  ming ）
先发.

主程序1
ZDGC
1  V “Change 0-Only One:1-Auto Next One”
2  V=1=> F=1000K+N “M”-20: ≠>V﹥1=>Prog “ZDGC” ⊿⊿
3  Lbl 0
4  V=1 =>F=F+20:Goto 1⊿
5  {K，N}
6  F=1000K+N “M”
7  Lbl 1
8  Prog “G”
9  Prog “SQX”
10  Prog “G1”
11  Prog “PQX-H”
12  Goto 0


主程序2
SQX
1  M=A-O
2  W=A+O
3  U=Abs (A-F)
4  F≤M=>Z=H-JU:Goto 1 ⊿
5  F≤A=>Z=H-JU+(F-M)2/(2R):Goto 1 ⊿
6  F≤W=>Z=H+IU+(W-F)2/(2R):Goto 1 ⊿
7  F >W=>Z=H+IU ⊿
8  Lbl 1


主程序3
PQX-H

1 F≤S=>E=0.02:G=E:Goto 1 ⊿
2 F≤(S+B)=>E=0.02-(F-S)/B (0.02+C):G= -E:Abs (E) ≤0.02=>G=0.02: ⊿Goto 1:⊿
3 F≤(S+Q-B)=>E= -C:G= -E:Goto 1 ⊿
4 F≤(S+Q)=>E=0.02-(S+Q-F)/B (0.02+C):G= -E:Abs (E) ≤0.02=>G=0.02: ⊿Goto 1:⊿
5 F＞(S+Q)=>E=0.02:G=E⊿
6 Lbl 1
7 Z[10]=2=> Prog “P1:” Goto 6:⊿
8 D:V=1=>Goto 3⊿
9 {D} :Lab 3
11 L=1=>Z[8]=Z-(D-1)E:Z[9]=Z-(D-1)G: ≠>L=-1=> Z[8]=Z-(D-1)G: Z[9]=Z-(D-1)E⊿ ⊿

12 Prog “XSH”
13 Lbl 6
子程序1（竖曲线引导程序）
G
1 F ≤123456=>Prog “1”:Goto 1: ⊿ （123456 为第一竖曲线终点桩号）
2 F≤123457=>Prog “2”:Goto 1: ⊿ （123457 为第二竖曲线终点桩号）
3 ***************
4 F≤123458=> Prog “3” ⊿ （123458 为公路终点桩号）
5 F＞123458=>“INPUTF≤123458”： Prog “ZDGC” ⊿
6 Lbl1
子程序2 （平曲线引导程序）
G1
1 F ≤123456=>Prog “4”:Goto 1: ⊿ （123456 为第一平曲线终点桩号）
2 F≤123457=>Prog “5”:Goto 1: ⊿ （123457 为第二平曲线终点桩号）
3 ***************
4 F≤123458=>Prog “6” ⊿ （123458 为公路终点桩号）
5  Lbl 1
子程序3 （竖曲线要素）
1
1 R= -18000 (竖曲线半径，凸取负，凹取正)
2 O=81 （竖曲线切线长）
3 A=330 （竖曲线中心桩号）
4 H=8.98 (变坡点高程)
5 J=0.006 （变坡点前纵坡）
6 I= -0.003 （变坡点后纵坡）
子程序4 （平曲线要素）
4
1 B=148 (缓和曲线长度)
2 Q=532.29 (曲线全长度)
3 C=0.04 (超高值)
4 L=1 （参数）
5 S=223.24 （ZH 点桩号）
子程序5
XSH
1 Z“ H1” ：Z ◢
2 V=0=>Goto0⊿
3 F◢
4 Lbl0
5 D=0=>Goto1 ⊿
6 “H1L”：Z[8]◢
7P “H1R”：Z[9]◢
8 Lbl1 工程测量