- 积分
- 1
- 注册时间
- 2006-8-22
- 仿真币
-
- 最后登录
- 1970-1-1
|
发表于 2006-8-27 12:42:24
|
显示全部楼层
来自 四川成都
def slope_angle ;定义边坡倾角函数
flag=0
loop while flag=0
theta=in('Please input slope angle between 15.0 and 90.0 degree:')
if theta<=15
flag=0
wrongmsg=out('Wrong Angle! Please input again!')
else
if theta>90
flag=0
wrongmsg=out('Wrong Angle! Please input again!')
else
flag=1
rightmsg=out('You have input '+string(theta)+' degree!')
xl=20.0+10.0*tan((90.0-theta)*pi/180.0)
il=int((40.0+20.0*tan((90.0-theta)*pi/180.0))*10+0.5)/10+1
end_if
end_if
endloop
end
slope_angle
gr 120,40
gen 0,0 0,20 60,20 60,0
m mohr
prop s=0.3e8 b=1e8 d=1500 fri=20 coh=1e10
gen line 20,20 xl,10
mark i=il,121 j=21
plo hold grid mark
copy mark.dxf
fix x i=1 j=1,41
fix x i=121 j=1,41
fix y j=1 i=1,121
plo hold grid fix
copy fix.dxf
set grav=9.81
solve
plo hold sig1 yellow sig2 white bou green
copy ini1.dxf
mod null region=120,40
gen adjust
plo hold grid
copy modnull.dxf
solve
plo hold sig1 yellow sig2 white bou green
copy ini2.dxf
输入坡角后为什么说“丢失参数3” |
|