lsel,u,loc,x,l-150 lsel,u,loc,x,1050 lsel,u,loc,x,l-1050 cm,gs1,line latt,3,3,2
lesize,all,elemsiz
lsel,s,loc,z,w-(p+r_ts/2) lsel,r,loc,y,h/2 lsel,u,loc,x,150 lsel,u,loc,x,l-150 lsel,u,loc,x,1050 lsel,u,loc,x,l-1050 cm,gs2,line latt,3,3,2
lesize,all,elemsiz lsel,s,loc,y,p+r_ts/2 lsel,r,loc,z,w/2 lsel,u,loc,x,150 lsel,u,loc,x,l-150 lsel,u,loc,x,1050 lsel,u,loc,x,l-1050 cm,gs3,line latt,3,3,2
lesize,all,elemsiz
lsel,s,loc,y,h-(p+r_ts/2) lsel,r,loc,z,w/2 lsel,u,loc,x,150 lsel,u,loc,x,l-150 lsel,u,loc,x,1050 lsel,u,loc,x,l-1050 cm,gs4,line latt,3,3,2
lesize,all,elemsiz cmsel,s,ts1 cmsel,a,ts2 cmsel,a,ps1 cmsel,a,ps2 cmsel,a,gs1 cmsel,a,gs2 cmsel,a,gs3 cmsel,a,gs4 lmesh,all lsel,all
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!划分混凝土及垫板并赋予属性 vsel,s,loc,y,-h/20 vatt,4,,1 mshkey,1 esize,elesiz vsel,all
vsel,u,loc,y,-h/20 vatt,1,,1 mshkey,1 esize,elesiz vsel,all vmesh,all
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!施加荷载与约束
asel,s,loc,y,h
asel,r,loc,x,1000,1100 sfa,all,1,pres,q asel,s,loc,y,h
asel,r,loc,x,2100,2200 sfa,all,1,pres,q asel,all sftran
lsel,s,loc,x,l-150 lsel,r,loc,y,-h/10 dl,all,,uy
lsel,s,loc,x,150 lsel,r,loc,y,-h/10 dl,all,,uy dl,all,,ux dl,all,,uz lsel,all dtran asel,all lsel,all asel,all vsel,all
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!求解!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! /solu
antype,0 !静力分析
nlgeom,1 !打开几何大变形 nropt,modi !用修正法进行求解 eqslv,spar,,0 nsubst,200,200,50,1
kbc,0 !使用线性荷载 cnvtol,u,,0.05,0, !指定收敛值
neqit,50 !最大平衡迭代次数 outres,all,all solve finish