在横截面上自由划分四边形网格,然后在体内扫掠成六面体单元。在扫掠前可对四边形网格加密(如需要)。确认加密后生产的单元保持四边形以保证扫掠成六面体单元。(ANSYS5.6/FLOTRAN 支持锲形单元,所以无此要求。)
set,1,1
etabl,kene,kene
ssum
*get,keneval1,ssum,,item,kene
*get,freqval1,mode,1,freq
eigen1=(2*3.14159*freqval1)**2
pmass1=2*keneval1/eigen1
set,1,2
etabl,kene,kene
ssum
*get,keneval2,ssum,,item,kene
*get,freqval2,mode,2,freq
eigen2=(2*3.14159*freqval2)**2
pmass2=2*keneval2/eigen2