5800测量程序仿真版.docVIP

elywood 2009-08-03 17:09 分得很详细 DYk-   ?N5]68Fu -36- [/^g ^s: ?覃辉 qh-506@163.com bbA Zp ?-37- IN*Z__l8j` ?If Z[8] 0:Then Z[8]+360 Z[8]:IfEnd判断JD HZ的方位角 9Z7 If Z[8] 360:Then Z[8]-360 Z[8]:IfEnd判断JD HZ的方位角  E_zW. ! ?D Z[6]:Abs D D保存转角及符号 [qo* ,CRz ?Fix 3 K]4j]yU
?R m ?R输入圆曲线半径 @g?z n n ?Lh m ?H输入缓和曲线长 S
!bv
U2d ?If R 30:Then 5 I:Else If R 60:Then 10 I:Else 20 I:IfEnd:IfEnd确定整桩间距 [#V! XdQ, ?H2÷ 24R P:0.5H-H^ 3 ÷ 240R2 Q计算切线增量与内移值 + #-52br\ ? R+P tan 0.5D +Q T计算切线长 HxA a,+k ?90H÷ πR B计算缓和曲线偏角 F U%bgP^ ?πR D-2B ÷180 A计算圆曲线长 d DTt_B ?A+2H L计算曲线长 Z H*?~ # ? R+P cos 0.5D -1-R E计算外距 m[rJFSpef ?2T-L J计算切曲差 fz\Az- ?T m :T显示切线长 _t7A`Dh] ?LY m :A显示圆曲线长 \qPrY.- ?L m :L显示曲线长 e78 ?E m :E显示外距 ?6
gI8K6X ?J m :J显示切曲差 hvwr! |W ?Z-T Z[1]计算ZH点桩号1 01b0;| ?Z[1]+H Z[2]计算HY点桩号2 |H0 X# ?Z[2]+0.5A Z[3]计算QZ点桩号3 DPSM?]fA ?Z[3]+0.5A Z[4]计算YH点桩号4 n/-I7Q!;u ?Z[4]+H Z[5]计算HZ点桩号5 YR xh2 9 ?ZH m :Z[1]显示ZH点桩号1 lnhZ!_ ?HY m :Z[2]显示HY点桩号2 3UEh%Ho ?QZ m :Z[3]显示QZ点桩号3 6 [IiJhVL ?YH m :Z[4]显示YH点桩号4 _?8T?-1 ?HZ m :Z[5]显示HZ点桩号5 M~v \!S ?ZH m :Z[1]List X[1]显示ZH点的桩号 $K hc?v ?X m :U-Tcos Z[7] List Y[1]显示ZH点的X坐标 i4l?q#X ?Y m :V-Tsin Z[7] List Freq[1]显示ZH点的Y坐标 -7u4f y T ?U+Tcos Z[8] Z[15]计算HZ点的X坐标 7f:hg ?V+Tsin Z[8] Z[16]计算HZ点的Y坐标 W,vb7v ?2 K为计数变量赋初值 i;cqKP;] ?H Z[10]:ProgZ[10]-XY调子程序计算HY或YH点的独立坐标 
_2~8w ?Z[13]Z[11]:Z[14]Z[12]存储HY点的独立坐标 %@LVoP!@! ?Int Z[1]÷I I+I List X[K]计算并存储从ZH点开始的第一个整桩号 zg|]Ic ?ProgX[K]-HOXY调子程序计算测量坐标 / ,]J ?0 F清除HY点计算标记 JoVJKv ?Do计算ZH点至QZ点 r@ ] `qA ?K+1 K计数变量计数 TRa| JaI ?List X[K-1]+I List X[K]计算并存储整桩号 ^+I *0 /[ ?If List X[K] Z[2]ZH~HY点间 :\ @yCD ?Then ProgX[K]-HOXY调子程序计算ZH~HY点间的点 C/!kMMh vV ?Else If F 0:Then List X[K]List X[K+1] dG\dGSZ\ h ?Z[2]List X[K]覃辉 qh-506@163.com re: fC:t5A ?-38- i.Yz Bw  ?ProgX[K]-HOXY调子程序计算HY点 !c
/Gse ?1 F:K+1 K标记HY点已完成，计数变量计数，再计算逐桩点 Lp+wNw ?ProgX[K]-HOXY调子程序计算HY点后的第一个整桩点 c%;Lo ?Else ProgX[K]-H