APDL特殊弹簧实例

ET,1,PIPE59,2ET,2,link10ET,3,PIPE59,2ET,4,COMBIN14!竖向弹簧ET,5,COMBIN40！横向弹簧ET,6,COMBIN40ET,7,COMBIN40MP,DENS,1,2968MP,DENS,2,2300MP,DENS,3,100MP,EX,1,2.6E+10MP,EX,2,2.1E+11MP,EX,3,2.0E+13MP,EX,4,2.1E+11mp,damp,4,0.05KEYOPT,4,2,3！定义方向KEYOPT,5,3,2KEYOPT,6,3,3KEYOPT,7,3,2MP,PRXY,1,0.3MP,PRXY,2,0.3MP,PRXY,3,0.3TB,WATE,1,,,0TBMODIF,1,3,400TBMODIF,1,4,1080TB,WATE,2,,,0TBMODIF,1,3,400TBMODIF,1,4,1080R,1,15.95,1.32,1,2,0,0,0,R,2,0.12,!张拉预应力!R,2,0.62,0.000R,3,3,1,1,2!R,4,6E8,0.1！竖向弹簧刚度R,4,3*2*1.16e8,0.1R,5,0.9*2*2*7.8e7,0.15,10,,0.2*1.7e7,0.1*2*2*7.8e7!双线性弹簧相关参数combin40R,6,3.0e8,0.15,10,,3203000,2.373E7R,7,3.0E8,0.15,10,,3203000,2.373E7建模n,1,0,0,-30n,651,4680,0,-30n,1201,0,0,-30n,1202,4680,0,-30n,701,72,7.3,-30n,764,4608,7.3,-30n,801,72,100,-180n,864,4608,100,-180n,901,72,-7.3,-30n,964,4608,-7.3,-30n,1001,72,-100,-180n,1064,4608,-100,-180fill,1,651fill,701,764fill,801,864fill,901,964fill,1001,1064finish/prep7type,1real,1mat,1*do,i,1,650en,i,i,i+1*enddofinish!建立悬索模型/prep7type,2mat,2real,2*do,i,1,64en,700+i,700+i,800+ien,900+i,900+i,1000+i*enddofinish/prep7type,3mat,3real,3*do,i,1,64e,700+i,10*i+1e,900+i,10*i+1*enddofinish!建立弹簧模型/prep7type,4real,4mat,4en,1201,1201,1en,1202,1202,651/prep7type,5real,5mat,4en,1203,1201,1en,1204,1202,651时辰分析!分析地震载荷finish/config,nres,5000FREQ1=0.18/soluantype,transpstres,onnlgeom,on!sstif,onDAMPRATIO=0.02ALPHAD,2*DAMPRATIO*FREQ1*2*3.1415926ALPHAD,0BETAD,2*DAMPRATIO/(FREQ1*2*3.1415926)!结构阻尼*do,i,1,1000*do,k,1,2fdele,all,allkbc,0kk=i*2+k-1time,0.02*kkconvtol,f,,0.01NSUBST,10,0,0OUTRES,ERASEOUTRES,BASI,LASTacel,,acelt(kk,1)*0.001,acelv(kk,1)*0.001+10!施结构加惯性力f