CASIO4800 QXZB可计算不等缓和曲线、圆曲线上的任意中、边桩坐标:
该程序适用于计算器 CASIO fx-4800P,可计算与线路中心成任意夹角的缓和曲线、圆曲线中、边桩坐标及待测点方位角和距离。
1、DK(JD)?输入交点桩号
2、X(JD)? 输入交点坐标X
3、Y(JD)? 输入交点坐标Y
4、T1? 输入第一切线长(如果只有一条切线两者都输入一致)
5、T2? 输入第二切线长(如果只有一条切线两者都输入一致)
6、FWJ?输入直线方位角(ZH→JD)
7、A? 输入转角:左转为负,右转为正
8、R? 输入圆曲线半径
9、LS1?输入第一缓和曲线长(如果只有一条缓和曲线两者都输入一致)
10、LY?输入圆曲线长(L-LS1-LS2)
11、LS2?输入第二缓和曲线长(如果只有一条缓和曲线两者都输入一致)
12、X(ZJD)?输入置镜点坐标X
13、Y(ZJD)?输入置镜点坐标Y
14、JSDK?输入前视点里程
15、PL?输入偏距
16、PA?输入偏角
(CASIO-4850)竖曲线标高计算程序--全线贯通(CASIO-4850)竖曲线标高计算程序
1,加了水准点数据.
2,加了竖曲线数据库(实现了全线贯通)
3,加了测量仪器的选择功能
4,能进行现场高程放样工作
(能计算除了超高段以外的任意桩号的中桩及任意距离边桩高程)
[SJG]------------------主程序
E“LGP”:N“JGC”:Lbi 0:A“BM”:O“HS”: “1,SZY”: “-1,QZY”:K“SZY,QZY”:{LM}:L“K”:M“ZBJ”:Prog“SQX”⊿T=RAbs(J-I)/2:C=B-L:F=1:I>J=>F=-1←┘
L ≤0=>{AO}:Goto 0 : ≠>L<B-T=>Z=0:P=I: ≠>L<B=>Z=1:P=I :≠>L<B+T=>Z=1:P=J: ≠>Z=0:P=J⊿⊿⊿⊿ ←┘
Fix 3:G=H-N-CP+ZF(T-AbsC) 2/(2R)+ME:Goto 1←┘
Lbi 1:{D}:D“QS”:Fix 3:X=A+KO-KD:G:Pause 0:X: Pause 0:Q=G-X: “+T,-W=”:Q◢
Goto 0←┘
[SQX]------------------子程序
L≤932.25(第二竖曲线起点桩号)=>H=179.17(第一竖曲线交点高程):B=160(第一竖曲线交点桩号):R=7000(第一竖曲线半径):I=-0.003(第一竖曲线前坡度):J=0.005(第一竖曲线后坡度):Goto 1⊿
L≤1173.96(第三竖曲线起点桩号)=>H=183.17(第二竖曲线交点高程):B=960(第二竖曲线交点桩号):R=18000(第二竖曲线半径):I=0.005(第二竖曲线前坡度):J=0.00808(第二竖曲线后坡度):Goto 1⊿
Lbi 1
…………………………继续添加竖曲线要素(坡度上+下-),括号内的数据供测试程序用
说明:
选择主程序进入
1, LGP?----------输入路拱坡度,负值 (按EXE键)
2, JGC?----------输入结构层厚度(按EXE键)
3, BM?-----------输入水准点高程(按EXE键)
4, HS?------------输入后视读数(全站仪测量时带+,-号)(按EXE键)
5, 1,SZY
-1,QZY
SZY,QZY?----选择测量仪器:输入1用水准仪,输入-1用全站仪 (按EXE键)
6, K≤0 BREAK
K?--------------输入放样桩号, K值≤0时返回程序起始位置 (按EXE键)
7, ZBJ?-----------输入边桩至中桩的距离,中桩放样时输入0 (按EXE键)
8, QS?-------------输入前视读数(全站仪测量时带+,-号) (按EXE键)
显示:
9,12.3-------------设计高程
11.2-------------实测高程
+T,-W
1.1(填挖量,+填-挖)
(按EXE键 重复6,7,8,9步,进行下一个桩点的放样工作.
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)