5800交点法正反算的程序
1.JD-JS（主程序）
7→DimZ
”1.2.3..”?U:”1=SL,2=XY，3=SA”?H:        “1.2.3”：为选择路线    输入1，正算，2，反算  3，手动输入`
If H=1: Then Goto1: ifend←┘
if H=2:ThenGoto3: ifend←┘
ifH=3:Then”JD”?Z:”JDX”?N:”JDY"?E:”F1”?F:”F2”?V:?R:”L1”?C:”L2”?K: Goto1: ifend←┘
Lb1 1:”K+000”?D:”X0”?P:”Y0”?Q   “K+00”：为批量放样：如 20，-20    输入测站`X，Y，坐标
If H=1:Then Goto2 :ifend←┘
If H=3:Then GotoA :ifend←┘
Lb1 2:
IF U=1: Then Prog “ 1” GotoA :ifend←┘
IF U=2 :Then Prog “ 2” GotoA : ifend←┘
Lb1 A：
“S=”?S：“L=”?L
Prog “ PQX”：0→A：“+-90”？A←┘
X=X+Lcos（O+A）
Y=Y+Lsin（O+A）
“X=”:X◢ “Y=”:Y◢ “FA=”:O→DMS◢          得出X，Y，坐标。  方位角
0→I:0→J:POI(X-P,Y-Q):IFJ<0:ThenJ+360→J:ifend←┘
”RH=”:J→DMS◢ ”RD=”:I◢                        得出放样角度和距离
D+S→S：If H=1:Then Goto2 :ifend←┘
If H=3:Then Goto1 :ifend←┘
Lb1 3: ←┘
?X:?Y:”S=”?S←┘                     输入X，Y，坐标，和大概桩号
IF U=1:Then Prog “ 1” :ifend←┘
IF U=2:Then Prog “ 2” : ifend←┘
Prog “FS”: ←┘
“ S=”:S▲                              得出测点桩号            
“ L= “ : L▲                           测点距中距离
Goto 3
2.PQX（平曲线）（子程序）
IF C< 1: Then 0.000000001 :ifend←┘
IF K< 1:Then 0.000000001 :ifend←┘
V－F→A ←┘
C2÷(24R)-C＾(4)÷(2688R＾(3))→Z[2]←┘
C÷2-C＾(3)÷(240R2) →Z[3]
（C2-K2）÷(24R)÷Sin( Abs( A)) →G ←┘
(R+ Z[2]) tan (Abs( A)÷2)+Z[3]-G→Z[7] ←┘
(R+K2÷(24R)-K＾(4)÷(2688R＾（3）)) tan (Abs (A)÷2)+K÷2-K＾(3)÷(240R2)+G→Z[1]←┘
Abs (A)πR÷180+(C+K) ÷2→Z[4]←┘
tan-1（（R+ Z[2]）÷（Z[7]- Z[3]））→J
Lb1 1
F→J:C→G←┘
N- Z[7] Cos (F)→X
E- Z[7] Sin (F)→Y
IF S≤Z- Z[7]:Then Z- Z[7]- S→I:-I→M:0→B: O→F：Goto 6←┘
Eise IF S≤Z- Z[7]+C: Then S-Z+ Z[7]→I：90I2 ÷(RCπ)→O：IF A< 0:Then - O→O :ifend:O+F→O：Goto 3←┘
Eise IF S≤Z- Z[7]+ Z[4]-K:Then S-Z+ Z[7]-C→I:Goto 4: Eise  Goto 2: ifend←┘:ifend←┘
Lb1 2 ←┘
N+ Z[1] Cos (V)→X ←┘
E+ Z[1] Sin( V)→Y  ←┘
V-180→J:K→G←┘
IF S≤Z-Z[7]+ Z[4] :Then Z- Z[7]+ Z[4]-S→I: 90I2÷(RKπ) →O: IF A＞0:Then - O→ O :ifend；O+V→ O:Goto 3←┘
Eise S-Z+ Z[7]-Z[4] →I:-I→M:0→B: V→O:Goto 5←┘
Lb1 3←┘
I-I＾（5）÷（40RRGG) →M:
I＾（3）÷(6GR)-I＾（7）÷(336RRRGGG)→B:Goto 5←┘
Lb1 4 ←┘
90(C+2I)÷(Rπ) →O ←┘
R Sin (O) + Z[3] →M←┘
R(1-Cos (O))+ Z[2] →B←┘
IF A＜0:Then -O→O :ifend←┘
J+O→O:Goto 5←┘
Lb1 5 ←┘
IF S＜Z- Z[7]+ Z[4]-K:Then IF A＜0:Then -B→B :ifend：Eise IF A＞0:Then -B→B :ifend:ifend:Goto 6←┘
Lb1 6: ←┘
X+M cos (J)-B sin (J)+0 cos(90+O) →X ←┘
Y+M sin (J)+B cos (J)+0 sin(90+ O) →Y
3.FS(反算) （子程序）
X→Z[5]←┘www.tmgc8.com
Y→Z[6]:0→L←┘
Z+（Y-E）cos (F)-(X-N) sin (F) →S: ←┘
Lb1 1: ←┘
Prog ”PQX” : ←┘
(Z[6]-Y) cos (O-90)-( Z[5]-X) sin (O-90) →P:Abs (P)＜0.000000001:Then Goto 2: Eise D+P→S:Goto 1 :ifend←┘
Lb1 2: ←┘
(Z[6]-Y) ÷sin(O+90) →L←┘
简要说明:
Z交点桩号
N交点X
E交点Y
F1交点前方位角
F2交点后方位角
R圆半径
L1第一缓长
L2第二缓长

 

上一篇：建筑物表面泛白的原因分析