多谢大侠指导
一个很简单的模型,我用其他的模态法都试算了,结果都是希望的那样,前面6阶为零,只有Lanczos方法很奇怪。但是我matlab程序是用Lanczos方法写的,偏偏就是要用这个,简直是没办法。不然要重新写程序了
/PREP7
PI=3.14159265
ET,1,BEAM4
ET,2,SHELL63
!/config,nres,1130
*DIM,BNODE,,161,4, , , ,
*CREATE,ansuitmp
*VREAD,BNODE(1,1),'NODE','txt',,JIK,4 ,161, , , , , ,
(F5.0, 3F14.8)
*END
/INPUT,ansuitmp
!*
!*STATUS,NODE,1,,1,,1,,
NNODE=161
*DO,INODE,1,NNODE
N,BNODE(INODE,1),BNODE(INODE,2),BNODE(INODE,3),BNODE(INODE,4)
*ENDDO
R,1,0.14
R,2,1.8e-6,0.00012,0.00012
R,3,0.318
*DIM,MAT,ARRAY,3,3, , , ,
*SET,MAT(1,1) , 3.15e10
*SET,MAT(1,2) , 0.2
*SET,MAT(1,3) , 3000
*SET,MAT(2,1) , 2e11
*SET,MAT(2,2) , 0.3
*SET,MAT(2,3) , 7810
*SET,MAT(3,1) , 3.15e10
*SET,MAT(3,2) , 0.2
*SET,MAT(3,3) , 2450
*do,IMAT,1,3
MPTEMP,1,0
MPDATA,EX,IMAT,,MAT(IMAT,1)
MPDATA,PRXY,IMAT,,MAT(IMAT,2)
MPDATA,DENS,IMAT,,MAT(IMAT,3)
*enddo
!/config,nres,1130
*DIM,BELEMENT,,132,8, , , ,
*CREATE,ansuitmp
*VREAD,BELEMENT(1,1),'ELEMENT','txt',,JIK,8 ,132, , , , , ,
(5F4.0, 3F14.8)
*END
/INPUT,ansuitmp
RI=1
!SHELL63 1~36 ELEMENTS
TYPE, 2
MAT, 1
Real,1
*do,IELEM,1,36
E,BELEMENT(IELEM,2),BELEMENT(IELEM,3),BELEMENT(IELEM,4),BELEMENT(IELEM,5)
*ENDDO
TYPE, 1
MAT, 2
Real,2
*do,IELEM,37,78
E,BELEMENT(IELEM,2),BELEMENT(IELEM,3)
*ENDDO
TYPE, 2
MAT, 3
Real,3
*do,IELEM,79,132
E,BELEMENT(IELEM,2),BELEMENT(IELEM,3),BELEMENT(IELEM,4),BELEMENT(IELEM,5)
*ENDDO |