FINISH															!Alle laufenden Prozesse beenden*

/CLEAR,start		!											!Arbeitsbereich bereinigen*

!*-*Erstellung des Superelementes A*-!*

/FILNAME,GENa,0 		!											!Separaten Jobnamen (Dateinamen) "GEN" für das Superelement erstellen*
/PREP7 				!											!Start Preprozessor*
	BLC4,0,40,50,100												!Modell aufbauen*
	!BLC4,0,40,50,50												!Modell aufbauen*
	!BLC4,50,40,50,50											
	!BLC4,0,90,50,50
	!BLC4,50,90,50,50*
	ET,1,plane42												!Ellementtyp festlegen (2D struct solid)*

	!Materialparameter*
	d1=19320e-18												!Dichte [kg/(µm^3)]*
	c1=149e12													!spezifische Waermekapazitaet [µm²/(s²K)]*
	k1=301e-6													!Waermeleitfaehigkeit [W/(µmK)]*
	w1=14.4e-6													!CTE/ Waermeausdehnungskoeffizient [1/K]*
	e1=77.2e3													!E-Modul [kg/(µms^2)]*
	q1=0.42														!Poisson-/ Querkontraktionszahl [1]*

	d2=9320e-18													!Dichte [kg/(µm^3)]*
	c2=49e12													!spezifische Waermekapazitaet [µm²/(s²K)]*
	k2=31e-6													!Waermeleitfaehigkeit [W/(µmK)]*
	w2=4.4e-6													!CTE/ Waermeausdehnungskoeffizient [1/K]*
	e2=7.2e3													!E-Modul [kg/(µms^2)]*
	q2=0.12														!Poisson-/ Querkontraktionszahl [1]*
	
	mp,dens,1,d1												!1*
	mp,ex,1,e1
	mp,prxy,1,q1
	mp,c,1,c1
	mp,kxx,1,k1
	mp,alpx,1,w1

	mp,dens,2,d2												!2*
	mp,ex,2,e2
	mp,prxy,2,q2
	mp,c,2,c2
	mp,kxx,2,k2
	mp,alpx,2,w2

	ASEL,all													!Zuweisung Materialparameter*		
	!ASEL,S,LOC,Y,40,90*
		AATT,1	
	
	!AGLUE,all*													!Teilmodelle zu einem zusammenfügen*

	AESIZE,all,10,	 											!Festlegung Netzgröße (x Elemente pro Fläche)*
	AMESH,all													!Gewählten Bereich vernetzen*
FINISH															!Alle laufenden Prozesse beenden*

/SOL				!											!Start Lösungsprozessor*
	ANTYPE,7													!Definition des Analysetyps "Unterstrukturierung"*
	SEOPT,GENa,1,0,0,0   										!Eigenschaften der Superelement- Matrix festlegen*
	LUMPM,0 
	SEGEN,off
	NSEL,s,loc,y,40												!Randknoten wählen*   
		NSEL,a,loc,y,140	
		NSEL,a,loc,x,0 
		NSEL,a,loc,x,50
			M,all,all,,, 										!Feste Einbindung des Superelementes in Hauptmodell*
	NSEL,all													!Alle Knoten wählen*
	SAVE,'GENa','db','\\...\...' 		!Modell "GENA" speichern*
	SOLVE 														!Modell lösen*
FINISH															!Alle laufenden Prozesse beenden*	

!*-*Erstellung des Superelementes B*-!*

/CLEAR,start	
/FILNAME,GENb,0 		!										!Separaten Jobnamen (Dateinamen) "GEN" für das Superelement erstellen*
/PREP7 				!											!Start Preprozessor*
	BLC4,50,40,50,100												!Modell aufbauen*
	!BLC4,0,40,50,50												!Modell aufbauen*
	!BLC4,50,40,50,50											
	!BLC4,0,90,50,50
	!BLC4,50,90,50,50*
	ET,1,plane42												!Ellementtyp festlegen (2D struct solid)*

	!Materialparameter*
	d1=19320e-18												!Dichte [kg/(µm^3)]*
	c1=149e12													!spezifische Waermekapazitaet [µm²/(s²K)]*
	k1=301e-6													!Waermeleitfaehigkeit [W/(µmK)]*
	w1=14.4e-6													!CTE/ Waermeausdehnungskoeffizient [1/K]*
	e1=77.2e3													!E-Modul [kg/(µms^2)]*
	q1=0.42														!Poisson-/ Querkontraktionszahl [1]*

	d2=9320e-18													!Dichte [kg/(µm^3)]*
	c2=49e12													!spezifische Waermekapazitaet [µm²/(s²K)]*
	k2=31e-6													!Waermeleitfaehigkeit [W/(µmK)]*
	w2=4.4e-6													!CTE/ Waermeausdehnungskoeffizient [1/K]*
	e2=7.2e3													!E-Modul [kg/(µms^2)]*
	q2=0.12														!Poisson-/ Querkontraktionszahl [1]*
	
	mp,dens,1,d1												!1*
	mp,ex,1,e1
	mp,prxy,1,q1
	mp,c,1,c1
	mp,kxx,1,k1
	mp,alpx,1,w1

	mp,dens,2,d2												!2*
	mp,ex,2,e2
	mp,prxy,2,q2
	mp,c,2,c2
	mp,kxx,2,k2
	mp,alpx,2,w2

	ASEL,all													!Zuweisung Materialparameter*		
	!ASEL,S,LOC,Y,40,90*
		AATT,1	
	
	!AGLUE,all*													!Teilmodelle zu einem zusammenfügen*

	AESIZE,all,10,	 											!Festlegung Netzgröße (x Elemente pro Fläche)*
	AMESH,all													!Gewählten Bereich vernetzen*
FINISH															!Alle laufenden Prozesse beenden*

/SOL				!											!Start Lösungsprozessor*
	ANTYPE,7													!Definition des Analysetyps "Unterstrukturierung"*
	SEOPT,GENb,1,0,0,0   										!Eigenschaften der Superelement- Matrix festlegen*
	LUMPM,0 
	SEGEN,off
	NSEL,s,loc,y,40												!Randknoten wählen*   
		NSEL,a,loc,y,140	
		NSEL,a,loc,x,50 
		NSEL,a,loc,x,100
			M,all,all,,, 										!Feste Einbindung des Superelementes in Hauptmodell*
	NSEL,all													!Alle Knoten wählen*
	SAVE,'GENb','db','\\...\...' 		!Modell "GENB" speichern*
	SOLVE 														!Modell lösen*
FINISH															!Alle laufenden Prozesse beenden*	

!*-*Modellaufbau mit Verwendung des Superelementes*-!*

/CLEAR,start		!											!Arbeitsbereich bereinigen*
/FILNAME,USE,0 		!											!Separaten Jobnamen (Dateinamen) für das Hauptmodell erstellen*
/PREP7 				!											!Start Preprozessor*
	ET,1,matrix50 												!Ellementtyp 1 festlegen (Superelementmatrix)*
	BLC4,0,0,100,40												!Modell aufbauen*
	ET,2,plane42												!Ellementtyp  2 festlegen (2D struct solid)*  

	!Materialparameter*
	d1=19320e-18												!Dichte [kg/(µm^3)]*
	c1=149e12													!spezifische Waermekapazitaet [µm²/(s²K)]*
	k1=301e-6													!Waermeleitfaehigkeit [W/(µmK)]*
	w1=14.4e-6													!CTE/ Waermeausdehnungskoeffizient [1/K]*
	e1=77.2e3													!E-Modul [kg/(µms^2)]*
	q1=0.42														!Poisson-/ Querkontraktionszahl [1]*

	d2=9320e-18													!Dichte [kg/(µm^3)]*
	c2=49e12													!spezifische Waermekapazitaet [µm²/(s²K)]*
	k2=31e-6													!Waermeleitfaehigkeit [W/(µmK)]*
	w2=4.4e-6													!CTE/ Waermeausdehnungskoeffizient [1/K]*
	e2=7.2e3													!E-Modul [kg/(µms^2)]*
	q2=0.12														!Poisson-/ Querkontraktionszahl [1]*
	
	mp,dens,1,d1												!1*
	mp,ex,1,e1
	mp,prxy,1,q1
	mp,c,1,c1
	mp,kxx,1,k1
	mp,alpx,1,w1

	mp,dens,2,d2												!2*
	mp,ex,2,e2
	mp,prxy,2,q2
	mp,c,2,c2
	mp,kxx,2,k2
	mp,alpx,2,w2

	ASEL,all	
		AATT,2
	ASEL,all	
	


	AESIZE,aLL,10,												!Festlegung Netzgröße (x Elemente pro Fläche)* 
	AMESH,all													!Gewählten Bereich vernetzen*
	*GET,MaxNode,node,,num,max,,,,								!Knotennummern löschen, damit keine Überschneidung beim Wiedereinführen des Superelementes auftritt)*



	SETRAN,GENa,0,MaxNode,'GEN2a','','',,,,0						!Einlesen der Superelementematrix + Umbenennung in "GEN2"*	
	SE,GEN2a, , ,0.0001, 										!Superelement einfügen*

	*GET,MaxNode,node,,num,max,,,,								!Knotennummern löschen, damit keine Überschneidung beim Wiedereinführen des Superelementes auftritt)*


	
	SETRAN,GENb,0,MaxNode,'GEN2b','','',,,,0						!Einlesen der Superelementematrix + Umbenennung in "GEN2"*	
	SE,GEN2b, , ,0.0001, 										!Superelement einfügen*

	NSEL,s,loc,y,40 											!Kopplungsknoten wählen*	
	NSEL,a,loc,x,50 											!Kopplungsknoten wählen*
	NSEL,r,loc,y,40,140
	CPINTF,all,0.0001,											!Modelle koppeln*
	
	NSEL,all													!Alle Knoten wählen*
	NSEL,s,loc,x,0												!Knoten für anliegende Kraft definieren*  
		NSEL,r,loc,y,140
			F,all,fx,5											!Anliegende Kraft definieren*
	NSEL,all
FINISH															!Alle laufenden Prozesse beenden*

!*-*Zuweisung der Kräfte und Lösung*-!*

/SOL				!											!Start Lösungsprozessor*
	ANTYPE,0													!Definition des Analysetyps "statische Analyse"*
	LSEL,S,loc,y,0 												!Bereich für Randbedingung (feste Einspannung) festlegen*
	DL,all,,all,												!Feste Einspannung definieren*
	LSEL,all
	/PNUM,elem,1	!											!Elementnummern anzeigen*
	
	
	!ASEL,s,loc,y,0,40*											!Bereich der nicht relevanten Elemente auswählen*
		!ESLA,S	*												!Elemente dieses Bereiches wählen*
		!ESEL,inve * 												!Auswahl umkehren, damit relevante Elemente gewählt*
			SFE,41,1,selv,,1,									!Koppeln der Superelement- Vektoren mit Hauptmodell- Vektoren*
			SFE,42,1,selv,,1,	
	!FEHLERMELDUNG Elementtypwechsel*
	ESEL,all													!Auswahleinschränkung aufheben*
	ASEL,all
	NSEL,all
	
SFE,41,1,selv,,1,		
	
	SAVE,'USE','db','\\...\...' 		!Modell "USE" speichern*
	SOLVE 														!Modell lösen*
FINISH															!Alle laufenden Prozesse beenden*	

/POST1				!
	PLNSOL,u,sum,0,1											!Darstellung der Lösung*
FINISH