1÷P→C:(P-R)÷(2HPR) →D: 180÷π→E←┚
0.1739274226→A: 0.3260725774→B: 0.0694318442→K: 0.3300094782→L: 1-L→F: 1-K→M:U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→X: V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))→Y: G+QEW(C+WD)+90→F: X+ZcosF→X: Y+ZsinF→Y
3反算子程序(FS)(不运行)
G-90→T: Abs((Y-V))cos(T)-(X-U)sin(T)→W: 0→Z←┚
Lbl 0←┚
prog"ZS":T+QEW(C+WD)→L:(J-Y)cosL-(I-X)sinL→Z:If Abs(Z)<0.001: Then Goto1:Else W+Z→W:IfEnd :Goto 0←┚
Lbl 1: 0→Z:Prog"ZS":(J-Y)÷sinF→Z
ZX-WN(运行主程序,该程序适用于匝道,对全段完整非对称曲线计算太过麻烦)
"CZX"?S(仪站X坐标):"CZY"?W(仪站Y坐标)
LbI 0: "K"?K: If K≤126.9(第1条单一曲线的终点下面同上): Then Goto A:Else If K≤176.9 And K>126.9: Then Goto B:Else If K≤259.562 And K>176.9: Then Goto C:Else If K≤309.562 And K>259.562: Then Goto D: IfEnd:IfEnd:IfEnd:IfEnd←┚
LbI A:92094.336(起点X坐标)→U:8287.962(起点Y坐标)→V:0起点桩号→O:145°11'54"(方位角)→G:126.9(曲线长度)→H:10^(45) (起点半径)→P:10^(45) (止点半径)→R:+1(路线左右偏,左负右正,直线输0)→Q:Prog "WN":Goto W
LbI B:91990.134→U:8360.388→V:126.9→O:145°11'54"→G:50→H:10^(45) →P:150 →R:+1→Q:Prog "WN":Goto W
LbI C:91947.609→U:8386.570→V:176.9→O:154°44'51"→G:82.662→H:150 →P:150 →R:+1→Q:Prog "WN":Goto W
LbI D:91867.101→U:8399.992→V:259.562→O:186°19'19"→G:50→H:150 →P: 10^(45) →R:+1→Q:Prog "WN":Goto W
LbI W:"PJ1"?T←┚(该项是只左右边桩再左右偏距,输0为不再左右偏,可以直接出方位角、距离,适用于桥梁桥台、盖梁、涵洞八字墙等放样,以路线前进方向,前-,后+)
If T=0:Then Z[3]→Z: Z[4]→M: Goto P: Else Goto V: IfEnd←┚
LbI V:"JJ1"? O←┚(左右边桩再偏夹角,用180°减去路线夹角)
"X1=": Z[3]+Tcos(F+N+ O)→U◢
"Y1=" :Z[4]+Tsin(F+N+ O)→V◢
U→Z: V→M: GotoP←┚
LbI P:Pol(Z-S,M-W): If J≤0:Then J+360°→J: IfEnd←┚
"JL=":I◢(仪站至测点的距离)
"FWJ=":J DMS◢(仪站至测点的方位角)
Goto0
备注:
1. 规定以道路中线前进方向(即里程增大的方向)区分左右;当线元往左偏时Q=-1;当元线往右偏时,Q=1:当元线为直线时,Q=0。
2. 当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次方代替。
3. 当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于
这两个都是算三角形的,直角三角形,\x0d\x0aPOL(3,4)=5 其中3和4属于直角三角形的两个直边长度,得出来的5是直角三角形的斜长。\x0d\x0aREC(1,90)= X=0\x0d\x0a Y=1 这个是坐标增量,1等于增量的斜边长度(其实和上面的三角形斜长一个道理),90代表角度,也就是坐标中的方位角,当角度等于0~90的时候为第一象限角,这个测量书上面说的很详细,的出来的结果X、Y是三角形的增量值,其实POL是对应于REC的,你可以拿计算器按一下就知道了,在5800里面显示X= Y= 好像是显示的 I= J= 你提取下就知道,直角三角形公式你必须得懂!\x0d\x0aPOL(3,4)=5 =√(3²+4²)=5\x0d\x0aREC(1,90)= X=0=1*cos(90°)=0\x0d\x0a Y=1 =1*sin(90°)=1工程测量(1)小写o为大写字母“O”,与零区分。(2)程序中没有空格符号。 1、坐标正算 〝X0=〞?X:〝Y0=〞?Y:〝I=〞?I:〝J=〞?J X+ICos(J)→U:Y+ISin(J)→V 〝X=〞:U◢ 〝Y=〞:V◢ 说明:X0 Y0:已知点坐标,I:两点的距离,J:方位角 2、坐标反算 Lbl 0 〝X1=〞?X:〝Y1=〞?Y:〝X2=〞?U:〝Y2=〞?V Pol(U-X,V-Y): J<0J+360→J 〝I=〞:I◢ 〝J=〞:JDMS◢ Goto 0 说明:X1Y1:第一点的坐标,X2Y2第二点的坐标,I:两点的距离,J:方位角 3、圆曲线 〝X0=〞?X:〝Y0=〞?Y:〝FWJ=〞?D:〝QDHAO=〞?G:〝ZDHAO=〞?C:〝R=〞?R Lbl 1 〝DQHAO=〞?L L<G Or L﹥CGoto 2 〝PY=〞?K 180(L-G)÷(πR)→E 2Rsin(0.5E)→F Rec(Abs(F),D+0.5E) 〝X=〞:X+I+Kcos(D+E+90)→A◢ 〝Y=〞:Y+J+Ksin(D+E+90)→B◢ D+E→o:o<0360+o→o 〝FWJ=〞:oDMS◢ Goto 1 Lbl 2 〝END〞 说明:X0Y0:起始点的坐标,FWJ:起始点的方位角,QDHAO:起点里程,ZDHAO终点里程,R:半径,DQHAO:待求点里程,PY:偏移量 4、竖曲线 〝QZHAO =〞?J:〝HB〞=?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<X:Then Goto1:Else If L﹥Y:Then Goto1:If End:If End 〝GC=〞:B+C(L-J)÷100+A(L-J+T)2÷(2R)→H◢ Goto 0 Lbl 1 〝END〞 说明:QZHAO:竖曲线中点里程,HB:交点高程(不是交点路面高),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<F:Then Goto 2:Else If H﹥G:Then Goto 2:If End:IfEnd (E-D)÷Abs(G-F)→P:Abs(H-F)→Q:PQ→I:C+90Q(I+2D)÷π→J:C+45Q(I÷8+D)÷π→M:C+135Q(3I÷8+D)÷π→N:C+45Q(I÷2+2D)÷π→K 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=〞:JDMS◢ Goto 1 Lbl 2 〝END〞 说明:X0Y0:起始点坐标,FWJ:起始点方位角,1÷R-QD:起始点曲率,1÷R-ZD终点曲率,QDHAO:起点里程,ZDHAO终点里程,DQHAO:待求点里程,XY:待求点坐标欢迎分享,转载请注明来源:内存溢出
评论列表(0条)