! Berechnung des Plattformmodels
! mit Ansysversion 12.1
finish				! Beenden aller Prozessoren
/clear				! Ruecksetzen der Ansys Datenbank

/units,mks 			! Einheiten: Meter, Kilogramm, Sekunde, Celsius

/filname, Balken
/title, Balken

/prep7	

BLC4,0,0,0.5,0.015,0.01			! Preprozessor starten

!Materialeigenschaften
ESt = 1				! Variable fuar Materialnummer erstellen
et,ESt,SOLID187 	 	! Definition des Elementtyps
MP,EX,Est,2.1e11 		! Definition E-Modul
MP,nuxy,ESt,0.28		! Definition Poissons Ratio
MP,dens,ESt,7700e-9		! Definition Dichte
TYPE,ESt
MAT,ESt				! Zeiger auf Material-Eigenschaften
SMRTSIZE, 5
VMESH,1				! generiert Knoten und Volumen innerhalb von Volumen (Vernetzung)

allsel
N,1000001,0  ,0.0075,0.005
N,1000002,0.5,0.0075,0.005
allsel				! Alles Selektieren

et, 2, mass21
KEYOPT,2,2,0
KEYOPT,2,3,0
R,2,0
MP,dens,2,0
Type,2
MAT,2
REAL,2

E,1000001
E,1000002

ASEL,s,area,,5
NSLA,s,1
NSEL,a,node,,1000001
CERIG,1000001,all,uxyz

ASEL,s,area,,6
NSLA,s,1
NSEL,a,node,,1000002
CERIG,1000002,all,uxyz

allsel

/solu				! Loesungsprozessor starten
antype,substr			! Analysetyp statisch
seopt, substr_file, 1, 1, 0	! generieren der Steifigkeitsmatrix mit Name Superlement
NSEL, s, node,,1000001,1000002
M, all, all

allsel

solve				! loesen

/post1
*SMAT,SE_Matrix,D,import,sub,substr_file.sub,stiff
*PRINT,SE_Matrix,SEM_neu.txt