随机振动分析实例(5)

显示变量 2：

附录： 输入文件 wing.inp 的内容

! Modal analysis exercise for Dynamics Seminar ! Model airplane wing ! finish /clear

/udoc,1,date,off

complete=0 ! 如果将此句改为 complete = 1，将会执行完整的分析，否则只是生成模型 /filnam,wing

/title,Modal analysis of a model airplane wing ! Element types and materials /prep7 et,1,82 et,2,95

*if,complete,eq,1,then mp,ex,1,38000

mp,dens,1,1.033e-3/12 mp,prxy,1,0.3 *endif

! Create and mesh the area k,1 k,2,2 k,3,2.3,0.2 k,4,1.9,0.45 k,5,1,0.25 l,1,2 l,1,5

bspline,2,3,4,5,,,-1,0,0, -1,-0.25,0 al,all esize,0.13 amesh,all

! Extrude volume mesh from the area type,2

extopt,esize,10 extopt,aclear,1 vext,all,,,0,0,10 /view,,1,1,1

eplot save

! Analysis type and options *if,complete,eq,1,then /solu

antype,modal modopt,lanb,15 mxpand,15,,,yes ! Constraints asel,,loc,z,0 da,all,all asel,all !* solve finish /solution

/title, Random Vibrations analysis (PSD) of an airplane wing antype,spectrum spopt,psd,15,yes psdunit,1,accg,386.4

psdfrq

psdfrq,1,,20,100,400,600 psdval,1,0.075,0.1,0.1,0.025 asel,s,loc,z,0

da,all,uy,1 ! apply excitation in UY direction asel,all outre,nsol,all

! compute participation factors pfact,1,base psdout,disp,rel psdout,velo,abs psdout,acel,abs psdcom solve finish /post1 set,3,1

ntip=node(0,0,10) uytip=uy(ntip) plns,u,y finish

*vwrite

(/,5x,' UY displacement at node located at (0,0,10)') *vwrite

(/,5x,' Expected results ', ' ANSYS results') *vwrite,0.0499349,uytip (7x,f12.7,10x,f12.7) *endif ! if complete=1 !/exit,nosa

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库随机振动分析实例(5)在线全文阅读。