4800P实用计算程序

《4800P实用计算程序》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、公路直线段转圆曲线段放样程序右转Lbl0：{XYH}：XYH←┘X≤353.432=>Goto1ΔX≤381.585=>Goto2Δ←┘Lbl1：D=(367.55-X)×0.064502-270◢W=(H+D)×0.3◢L=Abs(Y)-(W+5.7)◢Goto0←┘Lbl2：B=Pol(X-353.432,Y-150)：J≥0=>N=J：≠>N=J+360ΔE=353.432+(N-270)×π×150÷180◢F=150-B◢D=(367.55-E)×0.064502-270◢W=(H+D)×0.3◢（适用于明挖边坡放样

2、）L=Abs(F)-(W+5.7)（适用于明挖边坡放样）◢Goto0左转Lbl0：{XYH}：XYH←┘X≤205.430=>Goto1ΔX≤234.757=>Goto2Δ←┘Lbl1：D=(367.55-X)×0.064502-270◢W=(H+D)×0.3◢L=Abs(Y)-(W+5.7)◢Goto0←┘Lbl2：B=Pol(X-205.430,Y+200)：J≥0=>N=J：≠>N=J+360ΔE=205.430+(90-N)×π×200÷180◢F=200-B◢D=(367.55-E)×0.064502-270◢W=(

3、H+D)×0.3◢（适用于明挖边坡放样）L=Abs(F)-(W+5.7)◢（适用于明挖边坡放样）Goto0方位角程序（FWJ）{PQ}：M“X1”：N“Y1”:P“X2”：Q“Y2”←┘Pol(P-M,Q-N)◢J≥0=>W=J：≠>W=J+360◢←┘大地坐标系转换施工坐标系(D-S)Lbl1：{XY}：M“X1”：N“Y1”：X：Y←┘Prog“FWJ”◢Z“XP”=（X-M）cosW+(Y-N)sinW◢Z“YP”=（Y-N）cosW-(X-M)sinW◢Goto1←┘施工坐标系转换大地坐标系(S-D)Lbl1：{XY}

4、：M“X1”：N“Y1”：X：Y←┘Prog“FWJ”◢Z“XP”=M+XcosW-YsinW◢Z“YP”=N+XsinW+YcosW◢Goto1←┘坐标正算程序（ZBZS）Lbl1：{MNSW}：M“X1”：N“Y1”：S：W←┘C“XA”=M+ScosW◢L“YA”=N+SsinW◢Goto1←┘坐标反算程序（ZBFS）Lbl1：{MN}：M“X1”：N“Y1”←┘Prog“FWJ”◢S=√((P-M)^2+（Q-N）^2)◢Goto1←┘WKZDLbl0：{MNPQ}：M“X1”：N“Y1”:P“X2”：Q“Y2”←┘W

5、=Pol(P-M,Q-N)◢J≥0=>T=J：≠>T=J+360◢I×sin(T-G)◢I×cos(T-G)◢Goto1←┘DZJCLbl0：{PQ}:P“X”：Q“Y”←┘Prog“ZBZS1”←┘W=Pol(P-C,Q-L)←┘J≥0=>T=J：≠>T=J+360△←┘G=W-45:T＜0=>G=T+360△←┘I×sin(G-T)◢I×cos(T-G)◢Abs(I×sin(G-T))-0.5◢Abs(I×cos(T-G))-1.225◢Goto1←┘←┘ZBZS1{W}:W←┘C“XA”=36.2+8.4065cosW←

6、┘L“YA”=0+8.4065sinW←┘SJJJCLbl1：{PQ}:P“X”：Q“Y”←┘Prog“ZBZS2”←┘Pol(P-C,Q-L)←┘J≥0=>T=J◢≠>T=J+360△←┘G=W-(8-sin-1（0.62÷9.8）):T＜0=>G=T+360△←┘I×sin(G-T)◢Pol(P-176.2,Q)←┘R=I◢Goto1←┘ZBZS2{W}:W←┘C“XA”=176.2+9.8cosW←┘L“YA”=0+9.8sinW←┘