接上篇:
- !施加移动荷载激励
- *if,i,eq,1,then !若力作用在最左端,单独定义荷载
- nsel,s,loc,x,-348
- nsel,r,loc,y,0
- nsel,r,loc,z,0
- f,all,fz,-fcar(j)
- allsel
- *else !若不是作以下循环
- *do,j,2,M
- nsel,s,loc,x,-248+(j-1)*6
- nsel,r,loc,y,0
- nsel,r,loc,z,0
- f,all,fz,-fcar(j)
- allsel
- nsel,s,loc,x,-348+(j-2)*6
- nsel,r,loc,y,0
- nsel,r,loc,z,0
- fdele,all,fz
- allsel
- *enddo
- *endif
- !施加风荷载
- *do,j,1,N !选择有风作用一侧
- nsel,s,loc,y,-14
- nsel,s,loc,x,-348+(j-1)*6
- f,all,fy,fwind(j,1)
- allsel
- *enddo
- lswrite,i !写数据到荷载文件i
- *enddo
复制代码 我是在一本书上看到这样做的,大家帮我看下,到底应该怎么做呢,做不出结果啊
很着急的,快来帮我啊,谢谢大家! |