显示变量 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