歡迎來到http://www.tljciu.live !
當前位置:六六工程資料網建筑課堂工程資料工程測量CASIO x4850 公路高程計算程序(三維版)

CASIO x4850 公路高程計算程序(三維版)

08-22 13:45:24  瀏覽次數:182次  欄目:工程測量
標簽:工程測量規范,工程測量技術, CASIO x4850 公路高程計算程序(三維版),http://www.tljciu.live
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,CASIO x4850 公路高程計算程序(三維版)
22选五的开奖公告