Question: How to perform Single Point Response Spectrum analysis on model with superelement
Answer: The following commands will perform the spectrum analysis and combine results for the superelement and the rest of the model onto a single rst file.
FINISH
/CLEAR
!
! PARAMETER NUMMODE - MAX NUMBER OF MODES
!
NUMMODE=10 ! NUMBER OF MODES TO EXPAND
*SET,MODEDATA
*DIM,MODEDATA,,NUMMODE,4 ! LOAD STEP, ITERATION, FREQUENCY, MODE COEF
!
! GENERATE TUNNING FORK ON BEAM MODEL
!
/FILNAM,TUNNINGFORK
/PREP7
ET,1,45
ET,2,45
!
EX,1,30E6
DENS,1,0.289/386.4
NUXY,1,.3
!
K,1,0
K,2,5.5
K,3,6.5
K,4,12
KGEN,2,1,4,1,,1
KGEN,2,6,7,1,,4
KGEN,2,9,10,1,,1
K,13,KX(11),KY(11)+2
K,14,KX(12),KY(12)+2
K,15,KX(13)-3,KY(13)
K,16,KX(13)-2,KY(13)
KGEN,2,15,16,1,,4
K,19,KX(14)+2,KY(13)
K,20,KX(14)+3,KY(13)
KGEN,2,19,20,1,,4
!
LARC,10,20,14,3
LARC,12,19,14,2
LARC,15,9,13,3
LARC,16,11,13,2
!
A,1,2,6,5
A,2,3,7,6
A,3,4,8,7
VEXT,ALL,,,0,0,1
VATT,1,1,1
ASEL,NONE
VSEL,NONE
A,6,7,10,9
A,9,10,12,11
A,9,11,16,15
A,15,16,18,17
A,10,20,19,12
A,19,20,22,21
VEXT,ALL,,,0,0,1
VATT,1,1,2
ALLSEL
ESIZE,.25
NUMMRG,KP
VMESH,ALL
!
! APPLY BOUNDARY CONSTRAINTS - SIMPLY SUPPORTED BEAM
!
KSEL,,KP,,1,23,22
DK,ALL,UX
KSEL,A,KP,,4,29,25
DK,ALL,UY
DK,ALL,UZ
ALLSEL
FINISH
!
! SUPERELEMENT GENERATION PASS
!
!
/SOLUTION
ANTYPE,SUBST
EMATWRITE,YES ! FORCE WRITTING OF EMAT - NEEDED FOR EXPANSION PASS
SEOPT,TUNNINGFORK,2
CMSOPT,FIX,NUMMODE ! COMPONENT MODE SYNTHESIS OPTIONS - 10 MODES
!
! WE ARE USING COMPONENT MODE SYNTHESIS METHOD FOR SUPERELEMENT
! TO RETAIN THE DYNAMIC BEHAVIOR OF THE TUNNING FORK
!
! SET MASTER DEGREES OF FREEDOM AT INTERFACE
!
ASEL,,AREA,,12 ! INTERFACE BETWEEN MODEL AND SUPERELEMENT
NSLA,,1
M,ALL,ALL
!
! SELECT TUNNING FORK ONLY
!
ESEL,,TYPE,,2
NELEM
SOLVE
FINISH
SAVE
!
! MODAL ANALYSIS - USE PASS
!
/CLEAR
RESU,TUNNINGFORK,DB
/FILNAM,USEPASS
/PREP7
ALLSEL
ET,3,MATRIX50
ESEL,,TYPE,,1
NELEM
TYPE,3
SETRAN,TUNNINGFORK
SE,TUNNINGFORK
FINISH
!
/SOLUTION
ANTYPE,MODAL
MODOPT,LA
Question: How to perform Single Point Response Spectrum analysis on model with superelement Answer: The following commands will perform the spectrum analysis and combine results for the superelement and the rest of the model onto a single rst file. FINISH /CLEAR ! ! PARAMETER NUMMODE - MAX NUMBER OF MODES ! NUMMODE=10 ! NUMBER OF MODES TO EXPAND *SET,MODEDATA *DIM,MODEDATA,,NUMMODE,4 ! LOAD STEP, ITERATION, FREQUENCY, MODE COEF ! ! GENERATE TUNNING FORK ON BEAM MODEL ! /FILNAM,TUNNINGFORK /PREP7 ET,1,45 ET,2,45 ! EX,1,30E6 DENS,1,0.289/386.4 NUXY,1,.3 ! K,1,0 K,2,5.5 K,3,6.5 K,4,12 KGEN,2,1,4,1,,1 KGEN,2,6,7,1,,4 KGEN,2,9,10,1,,1 K,13,KX(11),KY(11)+2 K,14,KX(12),KY(12)+2 K,15,KX(13)-3,KY(13) K,16,KX(13)-2,KY(13) KGEN,2,15,16,1,,4 K,19,KX(14)+2,KY(13) K,20,KX(14)+3,KY(13) KGEN,2,19,20,1,,4 ! LARC,10,20,14,3 LARC,12,19,14,2 LARC,15,9,13,3 LARC,16,11,13,2 ! A,1,2,6,5 A,2,3,7,6 A,3,4,8,7 VEXT,ALL,,,0,0,1 VATT,1,1,1 ASEL,NONE VSEL,NONE A,6,7,10,9 A,9,10,12,11 A,9,11,16,15 A,15,16,18,17 A,10,20,19,12 A,19,20,22,21 VEXT,ALL,,,0,0,1 VATT,1,1,2 ALLSEL ESIZE,.25 NUMMRG,KP VMESH,ALL ! ! APPLY BOUNDARY CONSTRAINTS - SIMPLY SUPPORTED BEAM ! KSEL,,KP,,1,23,22 DK,ALL,UX KSEL,A,KP,,4,29,25 DK,ALL,UY DK,ALL,UZ ALLSEL FINISH ! ! SUPERELEMENT GENERATION PASS ! ! /SOLUTION ANTYPE,SUBST EMATWRITE,YES ! FORCE WRITTING OF EMAT - NEEDED FOR EXPANSION PASS SEOPT,TUNNINGFORK,2 CMSOPT,FIX,NUMMODE ! COMPONENT MODE SYNTHESIS OPTIONS - 10 MODES ! ! WE ARE USING COMPONENT MODE SYNTHESIS METHOD FOR SUPERELEMENT ! TO RETAIN THE DYNAMIC BEHAVIOR OF THE TUNNING FORK ! ! SET MASTER DEGREES OF FREEDOM AT INTERFACE ! ASEL,,AREA,,12 ! INTERFACE BETWEEN MODEL AND SUPERELEMENT NSLA,,1 M,ALL,ALL ! ! SELECT TUNNING FORK ONLY ! ESEL,,TYPE,,2 NELEM SOLVE FINISH SAVE ! ! MODAL ANALYSIS - USE PASS ! /CLEAR RESU,TUNNINGFORK,DB /FILNAM,USEPASS /PREP7 ALLSEL ET,3,MATRIX50 ESEL,,TYPE,,1 NELEM TYPE,3 SETRAN,TUNNINGFORK SE,TUNNINGFORK FINISH ! /SOLUTION ANTYPE,MODAL MODOPT,LANB,NUMMODE ! BLOCK LANCZOS - 10 MODES MXPAND,NUMMODE,,,YES SOLVE FINISH ! ! SPECTRUM ANALYSIS ! /SOLUTION ANTYPE,SPECTR SPOPT,SPRS ! SINGLE POINT SPECTRUM SED,,1 SVTYPE,3 ! SEISMIC DISPLACEMENT SPECTRUM FREQ,.1,1500 SV,,0.010,0.010 SOLVE FINISH ! ! MODE FREQUENCY ANALYSIS ! /SOLUTION ANTYPE,MODAL EXPASS,ON MXPAND,NUMMODE,,,YES,0.005 SOLVE FINISH ! ! LIST SIGNIFICANT MODES ! /POST1 SET,LIST FINISH *CREATE,GETMODALDATA *GET,MODEDATA(ARG1,1),ACTIVE,0,SET,LSTP *GET,MODEDATA(ARG1,2),ACTIVE,0,SET,SBST *GET,MODEDATA(ARG1,3),ACTIVE,0,SET,FREQ *GET,MODEDATA(ARG1,4),MODE,MODEDATA(ARG1,2),MCOEF *END ! ! AT THIS STAGE, ONLY SIGNIFICANT MODES HAVE BEEN WRITTEN TO RST FILE ! ! GET LOAD STEP, SUBSTEP NUMBERS, FREQUENCIES, AND MODE COEFFICIENTS ! /POST1 SET,FIRST *USE,GETMODALDATA,1 *GET,NUMSET,ACTIVE,0,SET,NSET *DO,I,2,NUMSET SET,NEXT *USE,GETMODALDATA,I *ENDDO *STAT,MODEDATA ! ! MODE COMBINATION ! /SOLUTION ANTYPE,SPECTR SRSS,0.001,DISP ! WRITE MCOM FILE SOLVE FINISH PARSAV,ALL,PARAMETERS,PARM ! SAVE PARAMETERS ! ! SUPERELEMENT EXPANSION PASS ! /CLEAR RESU,TUNNINGFORK,DB PARRES,CHANGE,PARAMETERS,PARM /FILNAM,TUNNINGFORK ! /SOLUTION EXPASS,ON SEEXP,TUNNINGFORK,USEPASS ! SUPERELEMENT NAME,JOB NAME DURING USE PASS *DO,I,1,NUMSET ! NUMSET NUMBER OF SIGNIFICANT MODES EXPSOL,MODEDATA(I,1),MODEDATA(I,2) SOLVE *ENDDO FINISH ! ! WE NOW HAVE THE EXPANDED DATA FOR THE SUPERELEMENT (TUNNINGFORK.RST) AND ! REST OF MODEL (USEPASS.RST) ! ! COMBINE THE SUPERELEMENT DATA WITH THE REST OF THE MODEL ! /POST1 *DO,I,1,NUMSET LCOPER,ZERO ! CLEAR DATABASE FILE,TUNNINGFORK SET,I,1 ! RESULTS FROM EXPANSION PASS ! FILE,USEPASS SET,MODEDATA(I,1),MODEDATA(I,2) ! RESULTS FROM USE PASS (REST OF MODEL) ! RESWRITE,COMBINED ! WRITE COMBINED (SUPERELEMENT+REST OF MODEL) TO RESULTS FILE ! THE BEAUTY OF THIS COMMAND IS THAT IT WILL WRITE OUT RESULTS ! WHOES LOAD STEP NUMBERING MATCHES THE NUMBERING ON THE MCOM FILE *ENDDO ! FINISH ALLSEL ! ! WE NOW HAVE A COMBINED RESULTS FILE ! THIS FILE WILL HAVE SAME LOAD STEP, ITERATION NUMBERING AS USEPASS MCOM ! /POST1 FILE,COMBINED /INP,USEPASS,MCOM /SHOW,JPEG ALLSEL /VIEW,1,1,1,1 PLNS,SI FINISH |
||
|