卡西欧5800基本测量程序(完整版)

1、卡西欧5800计划(完整版本)描述：此程序适用于快速公路、桥梁、隧道测量。此程序简单、方便、快速、可扩展，每个曲线图征表格仅输入一次，即可计算整条直线(包括高程、超高线段横断面)，可以正向、逆向计算，也可以从已知座标逆向计算点桩号和相对宽度，延伸功能包括边缘配置、向下、隧道横断面测量和挖方轮廓线等。主程序：main章() f (1)？m(0表示正数，1表示倒数)if m=: then zuang hao ？答：“库安杜”？w : else“x=”？h: y=？w : z=？问：ifend (第一个交点参数)(交点桩号)p:(切线长度)t:(曲线总长度)s:(圆半径)r=:(缓和曲线长度)l:(

2、第一条方位角). z 8 :(第一个坡度)z8:(第二个坡度) z 9 :(螺旋线超高线段长度)z103360 k if m=: then if ap-t s d : then goto 1 : ifend : ifend！prog“zfxz”if k= : then goto 2 : ifend、lb1:“no task”lb1 2:if m=1: then if a=1: then zhuang hao : z“sj kuan du”: bifend:ifend、-end -kuan du(逆向计算扩展程序)1m : prog main |z a : w e : w，prog“过切”e w

3、！q-f p，if p .(从小到大): then. d : goto 1: ifend、.(ibid .)lb1、“”:d(ibid.) -结束-尤安k (b (2r) f，2r sin (k fr) c、j fr j，progxzbh hhqxb-b 5(9(rl)2)cc梅kb2 (6rl) f，j fr j，progxzbh pyjsif o=: then yuan :j frj : ifend，if o=1: then hhqx :j 2frj : ifend，if o=23360 then line :j 18j : ifend、w c！if ap-t s-l : then j-9

4、j : else j 9j : ifend、prog“xzbh”x= : xy= :y96qxcs(有更改)prog“qdzb”if ap-t l : then a-p tb : uj 33601o : prog hhqx : goto 1 3360 ifend，if ap-t s-l : then a-p t-lb :0: l-l 3(90r 2)c : kl(6r)f : u frj : progif ap-t s : then p-t s-ab :1o :-kk :v 180j 3360 prog hhqx : goto 1 :if ap-t s d : then 2o : a-p t-

5、sc : prog“xzbh”3360 ifend、lb1:prog“pyjs”prog“ga0 cheng”qdzbn x : e y : t c、if ap-t s-l : then vj : else u 18j 3360 ifend、prog“xzbh”x z 5 : y z 6jdtzif z1: then z136z1: ifend！if z 1，363360 then z1-36z1: ifend！if z2: then z236z2: ifend！if z 2，363360 then z2-36z2: ifend！fwj i : j，保罗(h-g，w-z) 859j j 36

6、j，jf多特线保罗(h-x，w-y) : i n，保罗(g-h，z-w) : i e，保罗(x-g，y-z) : i d，(n e d) 2 i， (i (i-n) (i-e) (i-d) i，2id i、zspif ap-t s d : then prog“qxcs”:k : ifend、fspdif k=-1: then if z1z2: then if fz1: then goto 1 3360 ifend : ifz2if k=13360 then if z1z2: then if f fz1: then goto 1 3360 ifend : ifz2 a : goto 2，lb1、

7、if o=: then prog“fs yuan”: ifend、if o=1: then prog fsh hqx : ifend，1 a，lb1 2fstju-90k z 1 85kiv-90k z 2 85kiprog“jdtz”p-t a，-1 o！prog“jdzb”prog“fspd”if a= : then goto 1 : ifend z1z1: z1k(l(2r)rz233601o，prog“jdtz”prog“jdzb”prog“fspd”if a=1: thenk : goto 2 : ifend、z5x : z6y :(kl)(6r)f : l-l 3(90r 2)c

8、3360 u frjprog“xzbh”u 3fr90k j : r c、prog“xzbh”x g : y z，prog“fwj”z2z1: z1k(s-2l)r)rz233600 prog“jdtz”prog“fspd”if a=1: thenk : goto 2: ifend、-kk :v 9kz1: z1k(l(2r)rz233601o，prog“jdtz”p-t s a，prog“jdzb”prog“fspd”if a=1: thenk : goto 2: ifend、lb1、if d: then p-t sa : prog fs line : if a=1: thenk : ife

9、nd : ifend、lb1 2fs尤安“有安”36 k (f-z 1) f，f36f-36f、p-t lrf 18z : if k=1: then r-ib : else i-rb : ifend、fshhqx“hhqx”z5x 3360 z6y，z 1 18 j : r c，prog“xzbh”x g : y z，z5x 3360 z6y，prog“dotline”if i 1: thenb : goto 3: else ib : prog fsh hqx 1 : iz7: b i10b : prog lb1、b- i2b : prog“fsh hqx 1”if i 1: then-ii

10、: goto 33: else goto 1: ifend、lb1 2！b i2b : prog“fsh hqx 1”if i 1: then goto : else goto 2: ifend、lb1 3！if ap-t l : then p-t s-b- iz : else p-t b iz 3360 ifend if k=1: then if ap-t s-l : then p-t s gz : isian(f)b : else p-t-gz :-isian()xzbhx ccos(j)xy csin(j)y安格坡if ap-t l-z10: then z8v : goto 13360

11、ifend、if ap-t l 3360 then(z9-z8)z10e 3360 z8(a-p t-l z10)eif ap-t s-l : then z9v 3360 goto 13360 ifend、if ap-t s-l z10: then(z8-z9)z10e 3360 z9(a-p t-s l)z 8 v lb1 1高雄市.(交点桩号) o :(交点高程) d :(小桩号坡度) n :(切线长度) g :(圆曲线半径) r if ao-g 3360 thenk : goto 13360 ifend、if ao g : then 1k : goto 13360 ifend(k=0是直线，k=1是凸面圆，k=-1是凹面圆).(ibid .)lb1 13360 prog“heng po”k (a-o g) 2 (2r) p，d n (a-o)-p wv f，dm“: f”fwjjs(反向方法坐标测量)a xa : b ya : c xb :d yb :