文档介绍：:..一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算,设计任意点高程及横坡计算,桥涵放样,路基开挖口及填方坡脚线放样。:一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离;②反算桩号及距中距离)程序名:1ZD-XYLbl0:Norm2F=1:(正反算判别,F=1正算,F=2反算,也可以改F前加?,改F为变量)Z[l]=90(与路线右边夹角)Prog”THB“:F=l=>Gotol:F=2=>Goto2Lbl1:Fix3:"X=":Locate6,4,X/"Y=":Locate6,4,Y/Prog"引S":Goto0:Lbl2:Fix3:HKM=H:Locate6,4,Z/"D=H:Locate64D/:高程序横坡程序(设计任意点高程及横坡)程序名:2GCLbl0:Norm2"KM"?Z:?D:Prog"H":Fix3:"H二":Locate6,4,H,“I二":Locate6,4,:极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名:3JSX:Y:-K(置仪点X坐标)->L(置仪点Y坐标,都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦)Y-L E: X-K F: Pol(F,E):IFJ<0:ThenJ+360 ->川nt(J)+(60Frac(J))+(60Frac(J))T:(不****惯小数点后四位为角度显示的,也可以用命令“DMS,来直接显示)Fix4:"FWJ二":Locate6,4/(不****惯小数点后四位为角度显示的,也可以用命令"DMS,来直接显示)Fix3:MS=w:Locate6,4,I,4•主程序4:涵洞放样程序(由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名:4JH-XYLbl0:Norm290-Z⑴(涵洞中心桩与右边夹角,手工输入,也可以修改成前面加?后变为变量)l-*F:ProgMTHB":?L:Z[2]-Z[l]->E:X+Lcos(E)->X:Y+Lsin(E)-Y:Fix3:”X=":Locate6,4,XProg"引S":Goto0:5•主程序5:路基开挖边线及填方坡脚线放样程序(输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度)程序名:5FBXLbl0:Norm2:18-*DimZ:2->F:90->Z[l]:Prog"THB":Z:D:"MO"?M:M-*Z[4]:D->Z[3]:Prog,#6GD":L->Z[6]:IfD<0:・L->D:GotoH:ElseL-->D:GotoH:IfEndLbIH:Prog"H":H--Z[4]->Z[5]:Z[6]->L:IfZ[5]<0:Then-z[5]->G:GotoW:ElseZ[5]-*G:GotoT:LblWProg"W0":Z[10]+Z[:L:L]->A:IfG>A:ThenGotol:ElseIfG>Z[10]:ThenGoto2:ElseGoto3:IfEnd:Lbll:L+Z[12]+Z[13]+Z[14]+(G-A)xZ[9]+Z[ll]xZ[8]+Z[10]xZ[7]:GotoZ:Lbl2:L+Z[12]+Z[13]+(G-Z[10])xZ[8]+Z[10]xZ[刀:GotoZ:Lbl3:L+Z[12]+GxZ⑺:Gotoz:LblT:L+-*N:IfG>Z[17]:Then(N+Z[18]+(G-Z[17])xZ[16]+Z[17]xZ[15])-*S:GotoZ:Else(N+GxZ[15])-*S:Gotoz:LblZ:Z[3]->D:Fix2:Abs(D)-S->T:ML0二":LLocate6,4,T," KM=H:Locate6,4,Z/"D=H:Locate64D/“TW二":Locate6,4,Z[5卜Goto06•主程序6:路基标准半幅宽度计算程序(对于设计有加宽渐变的有用,如路基宽度无变化,则把此程序直接输入半幅宽度值至L)程序名:6GDProg"GO"Z-C->E:(B-A)xE/S+A-*L:L:7・坐标计算次程序(THB)程序名:THB18-*DimZ:"KM"?Z:Prog"X0""P->C:(P-R)^(2HPR)S:180^n->E : F=l=>Goto1 : F=2=>Goto2-」Lbl1:?D:Abs(Z・O)—W:Prog"A":X : Y:Goto3Lbl2:X