(提示:转换为Fx4800的程序时,需要注意变换变量)
| 名 |
代码 |
变 量 与 说明 |
| 2 |
曲线要素：
P=I^2/24R-I^4/2688R^3
M=I/2-I^3/240R^2
T=(R+P)Tan(A/2)+M
L=A/180×πR+I
B=I/R×90/π |
A,R,I,m,p,B,T,L
|
本系统的变量是统一的，代表特定含义，在各段代码中通用，不宜更改。
A:曲线转角
R:曲线半径
I:缓和曲线长
T:切线长
L:曲线长
m,p,B:曲线要素 |
| 3 |
直线相交（四点）点:
NSOTPUQV
Pol(Q-P,V-U)
Q=U-P*tanW
U=W
Pol(O-N,T-S)
N=T-O*tanW
O=W▲ U▲
A=U-O:Pol(cosA,sinA):A=AbsW▲ K=W/A▲
J=(Q-N)/(tanO-tanU) ▲
D=J*tanO+N▲ |
O,U,J,D
连续输入四点坐标
两条直线方位
转角
交点坐标 |
O,U:第一、第二条直线的方位（计算后）
J,D:交点坐标 （计算后） |
| 31 |
交点方位:
JDOU
A=U-O
Pol(cosA,sinA)
A=AbsA
K=W/A |
J,D,O,U
输入交点坐标与切线方位
转角转向 |
K:曲线转向,右转为正 |
| 4 |
任意点坐标：
Lbl 2:{S}
S≤0→G=S:H=0:C=0:Goto 4△
S≥L→G=L-S:H=0:C=0: Goto 3△
S→Prog 5: Goto 4△
S→C=B+180(S-I)/Rπ
G=RsinC+M:H=R-RcosC+P: Goto 4
≠>S=L-S:Prog 5
Lbl 3
X=J-KhsinU+cosU(T-G) ▲
Y=D+KhcosU+sinU(T-G) ▲
Z=U-KC:Goto 5
Lbl 4
X=J-KhsinO-cosO(T-G) ▲
Y=D+KhcosO-sinO(T-G) ▲
Z=O+KC
Lbl 5:{N}:
G=X+KNsinZ▲ H=Y-KNcosZ▲
Goto 2 |
S,X,Y,G,H,N
输入到曲线起点的弧长
坐标
坐标
方向距离（外侧为正）
法线点坐标 |
S:距曲线起点的弧长,S可用到曲线起点的里程差得到
N:法向距离(曲线外侧为正)
X,Y:中线点坐标
Z:切线方位
G,H:法向点坐标
|
| 41 |
程序连接:
Prog 31:Prog 2:Prog 4 |
|
|
| 48 |
曲线长反算:
Z=O+(90+A/2)K
S=(R+P)/cos(A/2)
G=J+ScosZ
H=D+SsinZ
Lbl 8:{XY}
Pol(X-G,Y-H)
Z=K(W-O)+90
S=RZ×/180+I/2▲
Goto 8
|
X,Y,S
OAKRPJD为曲线变量
法向点坐标XY
曲线长S |
由法向点坐标反算成对应曲线长 |
| 49 |
缓和曲线段的反算
E=G+G^5/40Q^2-G^9/3456Q^4
F=H-E^3/6Q+E^7/336Q^3
E2/2Q×F/(1-EF/Q)+E |
|
缓和曲线段的反算 |
| 5 |
缓和曲线:
Q=RI
G=S-S^5/40Q^2+S^9/3456Q^2Q^2
H=S^3/6Q-S^7/336Q^3+S^11/42240Q^5
C=S2/RI×90/π |
G,H,C |
 |
| 6 |
放样:
Defm 2
Z[1] ▲ Z[1]=Ans:Z[2] ▲ Z[2]=Ans
EF
Pol(Z[1]-E,Z[2]-F)
Q=W
Lbl 0:{XY}
Pol(X-E,Y-F) ▲
W-Q
Ans<0→Ans+360△”B=”▲Goto 0 |
输入后视点坐标输入测站坐标EF
放样点坐标
放样距离V
放样顺拨角度(度) |
Z[1],Z[2]:后视点坐标
E,F: 测站点坐标
Q:后视方位
X,Y: 放样点坐标 |
| 8 |
单导线:
K
LbL 1:{AS}
Prog A:S
B=B+180-KA▲
X=X+ScosB▲ Y=Y+SsinB▲ Goto 1
|
A,S,B,X,Y
输入左角右角
输入角度距离
前视方位
前视点坐标 |
连续计算单导线坐标，角度按度.分秒输入
左角K=-1,右角K=1 |
| 81 |
支导线:
ZS
Z=Z+Q
X=E+ScosZ▲ Y=F+SsinZ▲ |
Z,S,Q,X,Y
前视角度(度),距离
前视方位
前视坐标 |
放样时计算前视点的坐标,以便反算 |
| A |
角度转换:
A=IntA+Int(100FracA)/60+Frac(100A)/36
|
A |
输入度.分秒(dd.mmss)，转换成度deg
| |
