CASIO fx—5800计算器 工程测量与公路测量程序
1、坐标正算
”X0=〃?X:”Y0=〃?Y:”I=〃?I:”J=〃?J
X+ICos(J)→U:Y+ISin(J)→V
”X=〃:U (待求点的X坐标)
”Y=〃:V (待求点的Y坐标)
说明:X0 Y0:已知点坐标I:两点的距离J:方位角
2、坐标反算
Lbl 0
”X1=〃?X:”Y1=〃?Y:”X2=〃?U:”Y2=〃?V
Pol(U-X,V-Y):
J<0 J+360→J
”I=〃:I
”J=〃:J DMS
GOTO 0
说明:X1Y1:第一点的坐标,X2Y2第二点的坐标,I:两点的距离,J:方位角
3、圆曲线
”X0=〃?X: ”Y0=〃?Y:”FWJ=〃?D:”QDHAO=〃?G: ”ZDHAO=〃?C: ”R=〃?R
Lbl 1
”DQHAO=〃?L
L
180(L-G)÷(πR) →E
2RSin(0.5E) →F
ReC(Abs(F),D+0.5E):Cls
”X=〃:X+I+KCos(D+E+90) →A
”Y=〃:Y+J+KSin(D+E+90) →B
D+E→o:o<0 360+o→0o
”FWJ=〃:o DMS
Goto 1
Lbl 2
”END〃
说明:X0Y0:起始点的坐标,FWJ:起始点的方位角,QDHAO:起点里程,ZDHAO终点里程,R:半径,DQHAO:待求点里程,PY:偏移量
4、竖曲线
”QZHAO =〃?J: ”H+B〃=?B:”I1=〃?C:”I2=〃?D:”R=〃?R:”T=〃?T:
((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(0.5R(D-C) ÷100)→S
”T〃:S
J-T→X
J+T→Y
Lbl 0
”DQ=〃?L
If L
Goto 0
Lbl 1
”END〃
说明:QZHAO:曲中点里程,H+B:曲中点高程,I1:第一坡度,I2:第二坡度,R:半径,T:切线长,DQ:待求点里程。
5.正算偏移
”X0=〃?A: ”Y0=〃?B:”FWJ=〃?D:
Lbl 0
”LS=〃?L: ”PY=〃?C
ReC(L,D)
”X=〃:A+I+CCos(D+ 90) →X
”Y=〃:B+J+CSin(D+ 90) →Y
Goto 0
说明:X0 Y0:已知点坐标,LS:两点距离,FWJ:方位角
6.万能公式
”X0=〃?A:”Y0=〃?B:”FWJ=〃?C:”1÷R-QD〃?D:”1÷R-ZD〃?E:”QDHAO〃?F:
”ZDHAO〃?G
Lbl 1
”DQHAO=〃?H:”PY=〃?o
If H
A+Q(Cos(C) +4(Cos(M)+Cos(N))+2Cos(K)+Cos(J))÷12→U:
B+Q(Sin(C)+4(Sin(M)+Sin(N))+2Sin(K)+Sin(J))÷12→V
”X=〃:U+oCos(J+90) →X
”Y=〃:V+oSin(J+90) →Y
”FWJ=〃: J DMS
Goto 1
Lbl 2
”END〃
说明:X0Y0:起开点坐标,FWJ:起开点方位角,1÷R-QD:起开点曲率,1÷R-ZD终点曲率,QDHAO:起点里程,ZDHAO终点里程,DQHAO:待求点里程,XY:待求点坐标
6、标高计算
”QZHAO=〃?J:”QDHAO=〃?G:”ZDHAO=〃?K:”B—HB=〃?B:”SX=〃?Q:”I1=〃?C:
”I2=〃?D:”R=〃?R:”T=〃?T
(D-C)÷100→W:W÷Abs(W)→A:”T〃:0.5RAbs(W) →S
”o-YIGAO=〃?o
J-T→X:J+T→Y
Lbl 1
”L—DQHAO=〃?L:”PY=〃?U:”XIELV=〃?V
If L
”HO=〃:o-H→Z
Goto 1
Lbl 2
L
”H0=〃:o-H→H
Goto 1
Lab 3
L>K Goto 4
”HL=〃:B+0.01 (L-J)D+0.01UV+Q →H
”HO=:o-H→Z
Goto 1
Lbl 4: ”END〃
说明:QZHAO:曲中点里程(竖曲线),QDHAO:起点里程,ZDHAO:终点里程,B—HB曲中点高程,SX:上下(路面标高下多少为水稳层面),I1:第一坡度,I2:第二坡度,R:半径,T切线长,L—DQHAO:待求点里程,PY:偏移(中桩到边桩的距离),XIELV:斜率(横坡的坡度,左负右正)o-YIGAO:仪器高
huo 暖和