1、1公路边坡放样程序：主程序 BPFYG测站 X H测站 Y N中桩 X E中桩 Y B-路肩距路中宽度C切线方位角 O控制左右 左+ 右 R设计路肩高程 Q边沟及挖方平台长度 S-移动距离 K实测高程 L控制值，当 L 在 0.05m 附近时，即可打桩，在填方时，如 L 为负，指挥移尺员向后移 1.5L，如为正，向前移 1.5L；在挖方时，如 L 为负，指挥移尺员向前移 L，如为正，向后移 L本程序的填方边坡为 1：1.5，挖方边坡为 1：1主程序 BPFYG+HLb1 0N+E+B+C+R“SJGC”+Q“BGC”Lb1 1 FixmO“O=”：OO=-1F=C-90GoTo 2F=C+90
2、Lb1 2“X=”：X=N+B COS(F)“Y=”：Y=E+B SIN(F)Prog”SUB. RD”Lb1 3FixmAA”DMGC”D=R-AD0goto 4Lb0 4Z2=B+1.5D“X=”：X=N+Z2 COS(F)“Y=”：Y=E+Z2 SIN(F)2Prog”SUB RD”：Goto5GoTo 6Lb1 5FixmKKRFixmS“X=”：X=X-SCOS(F)“Y=”：Y=Y-SSIN(F)Prog”SUB RD”：A=K：GoTo5X=N+Z2 COS(F)：Y=E+Z2 SIN(F)L=K-AM=ABS(L) M0.05GoTo 8A=K：“X=”：X=N+(B+1.5(
3、R-K)COS(F) “Y=”：Y=E+(B+1.5(R-K)SIN(F) Prog”SUB RD”GoTo 5Lb1 6QZ2=Q+B+ABS(D)“X=”：X=N+Z2 COS(F)“Y=”：Y=E+Z2 SIN(F)Prog”SUB RD”Lb1 7FirmKKRFixmS“X=”：X=X-SCOS(F)“Y=”：Y=Y-SSIN(F)3Prog”SUB RD”： A=K：GoTo 6X=N+Z2 COS(F)：Y=E+Z2 SIN(F)L=K-AM=ABS(L) M0.05GoTo8A=K：“X=”：X=N+(B+Q+K-R)COS(F) “Y=”：Y=E+(B+Q+K-R)SIN(F) Prog”SUB RD”GoTo 7Lb1 8“END”
