PC-E500公路中线BASIC程序.docVIP

PC－E500公路中线BASIC程序PC－E500公路中线BASIC程序摘?要：公路的线形由路线的中桩坐标决定并体现，针对这一特点编写该中桩坐标计算程序，从而方便施工放样工作。关键词：公路，程序，BASIC语言一：说明该程序运行前先建立数据库文件，运行时只需输入曲线交点号和桩号即可，程序自动判断所求桩号所在曲线类型并计算出其中桩坐标，之后询问是否需要计算其边桩坐标，如是输入宽度即可得边桩坐标，为方便还显示中桩的切线方位角。该程序在PC-E500袖珍电脑PRO状态下写入，在RUN状态下运行。如有条件还可与全站仪直接交换数据。二：程序流程图三：程序清单JN－交点序号JD—交点桩号A?—转角R?—交点半径S1—第一缓和曲线长度S2—第二缓和曲线长度T1?—第一切线长度T2?—第二切线长度L?—曲线总长度P?—转角符号，右转P=1，左转P=?-1F?—交点方位角，按顺序方向XJ—交点X坐标值YJ—交点Y坐标值主程序：10：DEGREE20：INPUT?″PN=？″；PN21：OPEN″E：SJK″FOR?INPUT?AS#130：INPUT#1，JN，JD，A，R，S1，S2，T1，T2，L，P，F，XJ，YJ40：IF?PN=JN??THEN?50??ELSE?3050：CLOSE#160：ZH=JD-T170：HY=ZH+S180：QZ=HY+(L-S1-S2)/290：YH=ZH+(L-S2)100：HZ=ZH+L110：USING″######?###″120：PRINT″ZH=″；MDF?ZH，″HY=″；MDF?HY，″QZ=″；MDF?QZ，″YH=″；MDF?YH，″HZ=″；MDF?HZ130：INPUT?″zhuang?hao=？″；Z：IF?Z0?INPUT″do?you?want?to?exit??″；A$:IF?A$=?????″1″?THEN?190?ELSE?IF?A$=″0″?THEN?20140：IF?Z=ZH?GOSUB?200150：IF?ZZH?AND?Z=HY?GOSUB?400160：IF?ZHY?AND?ZYH?GOSUB?600170：IF?Z=YH?AND?ZHZ?GOSUB?500180：IF?Z=HZ?GOSUB?300190：END前直线中桩坐标子程序200：REM?SUBROUTINE?FOR?CALCULATING?QZXZB210：X=XJ+（T1+ZH-Z）*COS（F+180）220：Y=YJ+（T1+ZH-Z）*SIN（F+180）230：GOSUB?1500240：INPUT″calculating　border　coordinates?″；Ｒ$：ＩＦ　Ｒ$＝″０″THEN?130??ELSE?IF?R$=″1″GOSUB?700250:RETURN后直线中桩坐标子程序300：REM?SUBROUTINE?FOR?CALCULATING?ＨZXZB310：X=XJ+（T2+Z-HZ）*COS（F+Ｐ*A）320：Y=YJ+（T2+Z-HZ）*SIN（F+Ｐ*A）330：GOSUB?1500340：INPUT″calculating　border　coordinates?″；Ｒ$：ＩＦ　Ｒ$＝″０″THEN?130??ELSE?IF?R$=″1″GOSUB?800350:RETURN第一缓和曲线中桩坐标子程序400：REM?SUBROUTINE?FOR?CALCULATING?ＺＨ－ＨＹ410：Ｎ＝Ｚ－ＺＨ420：K=N-N^5/(40*R^2*S1^2)+N^9/(3456*R^4*S1^4)430：XZH=AER1440：YZH=AER2450：X=XZH+K/COS(30*N^2/(PI*R*S1))*COS(F+P*30*N^2/(PI*R*S1))460：Y=YZH+K/COS(30*N^2/(PI*R*S1))*SIN(F+P*30*N^2/(PI*R*S1))470：GOSUB1500480：INPUT″calculating　border　coordinates?″；Ｒ$：ＩＦ　Ｒ$＝″０″THEN?130??ELSE?IF?R$=″1″GOSUB?1100490：RETURN第二缓和曲线中桩坐标子程序500：REM?SUBROUTINE?FOR?CALCULATING?YH－ＨＺ510：N=HZ-Z520：K=N-N^5/(40*R^2*S2^2)+N^9/(3456*R^4*S2^4)530：XHZ=AER3540：YHZ=AER4550：X=XHZ+K/COS(30*N^2/(PI*R*S2))*C