!************************************************************
!*															*
!*   Makro na vygenerování globálních matic M, B, a K		*
!*															*
!************************************************************


/SOL
!*  
M,ALL,ALL, , , 			!*  všechny nody v modelu jsou považovány za master
ANTYPE,SUBSTR			!*  Vygenerování substruktury modelu

ALPHAD,5
BETAD,0.0001

SEOPT,matKMB,3,1,0,0   !*  Nastavení parametrů výpočtu: všechny matice, superelem-vč. zatížení, stiffening
LUMPM,0 
SEGEN,OFF

FINISH  
/AUX2   
FILE,'dp','full',' '
HBMAT,'tuhost','bin ',' ',ASCII,STIFF,YES,YES 
FINISH  

/AUX2   
FILE,'dp','full',' '
HBMAT,'hmotnost','bin ',' ',ASCII,MASS,YES,YES 
FINISH  

!*********************************
!*  V připadě, že chci pracovat i s maticí tlumení definovanou pomocí alphad a betad
!*  musím použít modální analýzu
!*********************************

/SOL
M,ALL,ALL, , , 			!*  všechny nody v modelu jsou považovány za master
ANTYPE,MODAL   
ALPHAD,5
BETAD,0.0001
MODOPT,QRDAMP,14  
EQSLV,SPAR  
MXPAND,14, , ,1 

/STATUS,SOLU
SOLVE
wrfull,  

/AUX2   
FILE,'dp','full',' '
HBMAT,'tlumeni','bin ',' ',ASCII,DAMP,YES,YES 
FINISH  

FINISH  
/AUX2   
FILE,'dp','full',' '
HBMAT,'tuhost','bin ',' ',ASCII,STIFF,YES,YES 
FINISH  

/AUX2   
FILE,'dp','full',' '
HBMAT,'hmotnost','bin ',' ',ASCII,MASS,YES,YES 
FINISH  

