开挖（回填）边坡放样程序

开挖（回填）边坡放样程序
作者：徐金树
已知中桩坐标、方位角、路基宽度、开挖（回填）各级边坡比，求开挖（回填）最高（低）边线的宽度及坐标。
编程：名称：B.P
（4800计算器）
Lbl 0←┚ {ABCEFGH} ◢
H“H”I“I”：

P=H÷I ◢ N=Int P ◢
A“K1”B“K2”C“K3”D“K4”E“K5”F“KX”S“S”：
L=S+2N+F(H-IN)+I(A+B+C+D+E) ◢
W“X0”V“Y0” J“F0”←┚ K“K：Z－，Y＋” ←┚
X=W＋Lcos（J＋K）◢
Y=V+Lsin(J＋K)◢

Goto 0←┚

注：A、B、C、D、E、G为第一、二、三、四、五、六级台阶边坡比值，“HT”为高差，“HN”为每级台阶高度，台阶宽“TZ”，S为半幅设计路基宽度，F0为路线方位角，L为开挖（回填）边线宽度，X0、Y0为起点中桩坐标。
（5800计算器） 

“P0”？M：：“X0”？W：“Y0”？V：“f0”？J ←┚
“H0”？R：“I：-,+”？I：“HN”？H：？S ←┚
Lbl 0←┚
“PX”？P ： P－M→U←┚
W＋U×cos（J）→X ：V＋U×sin（J）→y ←┚
R＋I U→Z←┚
Lbl 1←┚
“O：0,1”？O←┚
“HT”？T ←┚
“XN=”：
T÷H→Q ◢
“N=”：Int(Q)→N ◢
“K1”？A：“K2”？B：“K3”？C：“K4”？D：
“K5”？E：“KX”？G：“K：Z－，Y＋”？K←┚

“L=”：S+2N+G(T-HN)+H(A+B+C+D+E)→L ◢
“X=”：X＋L×cos（J＋K）→X◢
“Y=”：Y＋L×sin（J＋K）→y◢
“Z=”：Z＋T→Z◢
O＝1＝＞Goto 1 ←┚
Goto 0←┚

最后编辑：2019-08-26

作者：acer

这个作者貌似有点懒，什么都没有留下。

站内专栏