4800缓与曲线测量程序.docVIP

缓和曲线测量程序4800和4850主程序 DANQUXIAN (文件名) Defm 2θ R :T:P！！Lθ！！:K！！L:-1 ;R：1！！：｛X，Y，N，E，L ，U，V，A，Q，M｝：S=Z[ 1]：｛S｝：Z[1]=S ！！ZH 空一格LICHEN= ！！ S=Z[2]：｛S｝：Z[2]= S！！QZ 空一格 LICHEN ！！ S=Z[5]：｛S｝：Z[5] = S！！JD（X）！！ S=Z[6]：｛S｝：Z[6]= S！！JD（Y）！！ S=Z[4]：｛S｝：Z[4]= S！！ZH－JDA=！！ B！！ZHUANJIAO=！！ LbI 0 S=Z[3]：｛S｝：Z[3]= S！！JSLICHEN！！ Z[3]＜ Z[1]= ！！ERROR ！！ ：Goto4⊿ Z[3] ＜Z[1]＋ P=L =Z[ 3] -Z[1]：F=Z[4]＋K ×L2×90÷（R×P×Л）：P rog！！HUANHE！！：Y=K Y：Goto 2⊿ Z[3]≤Z [ 2] =L=Z[3]-Z[1]：F =Z[4]+ （P÷（2R）＋（L -P）÷R）×180×K÷Л：P rog！！YUAN！！：Y=KY： Goto 2⊿ Z[3] ≤2Z[2 ]-Z[1]-P=L=2Z[2] -Z[1]-Z[3]：O=Z[3 ]-Z[1]：F=Z[4]＋（P ÷（2R）＋（O-P）÷R）×1 80×K÷Л：！！ X-HZ-Y！！： Prog〝YUAN〞：Goto 1⊿Z[3] ≤2Z[2]-Z[ 1] =L=2Z[2]-Z[1]- Z[3]：F=Z[4]＋KB-K ×L2×90÷（RPЛ）：Pro g！！HUANHE！！：Goto 1⊿ Z[3]2×Z[2]-Z[1] =！！ERROR！！ ：Goto 4⊿ 回车 LbI 1 C！！X1！！= T（1+CosB） -XCos B-YSin B：D ！！Y1！！=TSinB-XSin B+YCosB：X=C：Y= KD Goto 2 LbI 2 A=Z[4]：W=A+180：P rog！！FUNCTION1！！ N=Z[5]+T×CosW：E =Z[6]+T×SinW：Pr og！！ZUOBIAOHS！！： N▲ E▲ Goto 3 LbI 3 ｛Q，M｝：Q！！Q=（L：-1; R：1）！！：M！！D=！！ X=N-Q M SinF▲ Y=E+Q M CosF▲ LbI 4 Coto 0 缓和曲线测量程序4800和4850子程序 H U A N H E(文件名) X=L-L∧5÷（40×R2×P2） +L∧9÷（3456×R∧4 ×P∧4） Y=L∧3÷（6×R×P）-L∧ 7÷（336×R∧3×P∧3）＋ L∧11÷（42240×R∧5× P∧5） Y U A N(文件名) X=R×Sin(((L-0.5 P)÷R)×180÷Л)+P÷2 -P∧3÷(240×R2) Y=R×(1-Cos(((L- 0.5P)÷R)×180÷Л)) +P2÷(24×R) Z U O B I A O H S(文件名) N=N+X×CosA-Y×Si nA：E=E+X×SinA+ Y×CosA F U N C T I O N1(文件名) W360=W=W-360：≠＞ W＜θ=W=W+360：Prog ！！FUNCTION1！！ R-------- 输 曲线半径 T------- 输曲线切线长 L0------ 输 缓和曲线长 L：-1；R：1-----曲线偏向：输（-1）代表左：输（1）代表右 ZHLICHEN---输曲线直缓（ZH）里程 QZLICHEN-----输曲线曲中（QZ）里程 JD（X） JD（Y）-----输曲线交点坐标 ZH-JDA-----输曲线切线方位角 ZHUANJIAO--------输曲线转角 JSLICHEN-------输入待算点里程 N--------待算点（X）坐标 E--------待算点（Y）坐标 Q=（L：-1；R：1）-------待算点左边桩输（-1）；右边桩输（1） D--------输待算点里程向左；向右边桩的距离 X--------待算点里程向（左；右）的（X）坐标 Y-----待算点里程向（左；右）的待算（Y）坐标 (输完主程序后再分别从头建4个子程序名输入各程序)