! Schreibt alle Befehle in die Datenbank
	/pmacro

! Leeren der Datenbasis
	finish
	/clear,start

!------------PARAMETER-----------------------------------------------------

! Parameter aus MATLAB (Material, Element- und Systemlänge)
	E1=35000.000000   	!E-Modul Material 1
	E2=210000.000000   	!E-Modul Material 2
	NU1=0.200000   		!Querdehnzahl Material 1
	NU2=0.300000   		!Querdehnzahl Material 2
	NELX=20.000000   	!Anzahl Elemente in x
	NELY=20.000000   	!Anzahl Elemente in y
	SYSX=10.000000   	!Länge Entwurfsraum in x
	SYSY=10.000000   	!Länge Entwurfsraum in y
	ELA=0.500000   		!Elementlänge x
	ELB=0.500000   		!Elementlänge y
	ELH=1.000000   		!Elementdicke (z)

! Zusatzparameter für thermische Dehnung
	ALPHA_T1 = 10E-6	! Wärmedehnzahl von Material 1
	ALPHA_T2 = 10E-6	! Wärmedehnzahl von Material 2 

!-----------------------PREPROCESSOR-----------------------------------------

! Starten Preprozessor
   	/prep7

! Erzeugen der Knoten
N,1,0.000000,10.000000
N,2,0.000000,9.500000
N,3,0.000000,9.000000
N,4,0.000000,8.500000
N,5,0.000000,8.000000
N,6,0.000000,7.500000
N,7,0.000000,7.000000
N,8,0.000000,6.500000
N,9,0.000000,6.000000
N,10,0.000000,5.500000
N,11,0.000000,5.000000
N,12,0.000000,4.500000
N,13,0.000000,4.000000
N,14,0.000000,3.500000
N,15,0.000000,3.000000
N,16,0.000000,2.500000
N,17,0.000000,2.000000
N,18,0.000000,1.500000
N,19,0.000000,1.000000
N,20,0.000000,0.500000
N,21,0.000000,0.000000
N,22,0.500000,10.000000
N,23,0.500000,9.500000
N,24,0.500000,9.000000
N,25,0.500000,8.500000
N,26,0.500000,8.000000
N,27,0.500000,7.500000
N,28,0.500000,7.000000
N,29,0.500000,6.500000
N,30,0.500000,6.000000
N,31,0.500000,5.500000
N,32,0.500000,5.000000
N,33,0.500000,4.500000
N,34,0.500000,4.000000
N,35,0.500000,3.500000
N,36,0.500000,3.000000
N,37,0.500000,2.500000
N,38,0.500000,2.000000
N,39,0.500000,1.500000
N,40,0.500000,1.000000
N,41,0.500000,0.500000
N,42,0.500000,0.000000
N,43,1.000000,10.000000
N,44,1.000000,9.500000
N,45,1.000000,9.000000
N,46,1.000000,8.500000
N,47,1.000000,8.000000
N,48,1.000000,7.500000
N,49,1.000000,7.000000
N,50,1.000000,6.500000
N,51,1.000000,6.000000
N,52,1.000000,5.500000
N,53,1.000000,5.000000
N,54,1.000000,4.500000
N,55,1.000000,4.000000
N,56,1.000000,3.500000
N,57,1.000000,3.000000
N,58,1.000000,2.500000
N,59,1.000000,2.000000
N,60,1.000000,1.500000
N,61,1.000000,1.000000
N,62,1.000000,0.500000
N,63,1.000000,0.000000
N,64,1.500000,10.000000
N,65,1.500000,9.500000
N,66,1.500000,9.000000
N,67,1.500000,8.500000
N,68,1.500000,8.000000
N,69,1.500000,7.500000
N,70,1.500000,7.000000
N,71,1.500000,6.500000
N,72,1.500000,6.000000
N,73,1.500000,5.500000
N,74,1.500000,5.000000
N,75,1.500000,4.500000
N,76,1.500000,4.000000
N,77,1.500000,3.500000
N,78,1.500000,3.000000
N,79,1.500000,2.500000
N,80,1.500000,2.000000
N,81,1.500000,1.500000
N,82,1.500000,1.000000
N,83,1.500000,0.500000
N,84,1.500000,0.000000
N,85,2.000000,10.000000
N,86,2.000000,9.500000
N,87,2.000000,9.000000
N,88,2.000000,8.500000
N,89,2.000000,8.000000
N,90,2.000000,7.500000
N,91,2.000000,7.000000
N,92,2.000000,6.500000
N,93,2.000000,6.000000
N,94,2.000000,5.500000
N,95,2.000000,5.000000
N,96,2.000000,4.500000
N,97,2.000000,4.000000
N,98,2.000000,3.500000
N,99,2.000000,3.000000
N,100,2.000000,2.500000
N,101,2.000000,2.000000
N,102,2.000000,1.500000
N,103,2.000000,1.000000
N,104,2.000000,0.500000
N,105,2.000000,0.000000
N,106,2.500000,10.000000
N,107,2.500000,9.500000
N,108,2.500000,9.000000
N,109,2.500000,8.500000
N,110,2.500000,8.000000
N,111,2.500000,7.500000
N,112,2.500000,7.000000
N,113,2.500000,6.500000
N,114,2.500000,6.000000
N,115,2.500000,5.500000
N,116,2.500000,5.000000
N,117,2.500000,4.500000
N,118,2.500000,4.000000
N,119,2.500000,3.500000
N,120,2.500000,3.000000
N,121,2.500000,2.500000
N,122,2.500000,2.000000
N,123,2.500000,1.500000
N,124,2.500000,1.000000
N,125,2.500000,0.500000
N,126,2.500000,0.000000
N,127,3.000000,10.000000
N,128,3.000000,9.500000
N,129,3.000000,9.000000
N,130,3.000000,8.500000
N,131,3.000000,8.000000
N,132,3.000000,7.500000
N,133,3.000000,7.000000
N,134,3.000000,6.500000
N,135,3.000000,6.000000
N,136,3.000000,5.500000
N,137,3.000000,5.000000
N,138,3.000000,4.500000
N,139,3.000000,4.000000
N,140,3.000000,3.500000
N,141,3.000000,3.000000
N,142,3.000000,2.500000
N,143,3.000000,2.000000
N,144,3.000000,1.500000
N,145,3.000000,1.000000
N,146,3.000000,0.500000
N,147,3.000000,0.000000
N,148,3.500000,10.000000
N,149,3.500000,9.500000
N,150,3.500000,9.000000
N,151,3.500000,8.500000
N,152,3.500000,8.000000
N,153,3.500000,7.500000
N,154,3.500000,7.000000
N,155,3.500000,6.500000
N,156,3.500000,6.000000
N,157,3.500000,5.500000
N,158,3.500000,5.000000
N,159,3.500000,4.500000
N,160,3.500000,4.000000
N,161,3.500000,3.500000
N,162,3.500000,3.000000
N,163,3.500000,2.500000
N,164,3.500000,2.000000
N,165,3.500000,1.500000
N,166,3.500000,1.000000
N,167,3.500000,0.500000
N,168,3.500000,0.000000
N,169,4.000000,10.000000
N,170,4.000000,9.500000
N,171,4.000000,9.000000
N,172,4.000000,8.500000
N,173,4.000000,8.000000
N,174,4.000000,7.500000
N,175,4.000000,7.000000
N,176,4.000000,6.500000
N,177,4.000000,6.000000
N,178,4.000000,5.500000
N,179,4.000000,5.000000
N,180,4.000000,4.500000
N,181,4.000000,4.000000
N,182,4.000000,3.500000
N,183,4.000000,3.000000
N,184,4.000000,2.500000
N,185,4.000000,2.000000
N,186,4.000000,1.500000
N,187,4.000000,1.000000
N,188,4.000000,0.500000
N,189,4.000000,0.000000
N,190,4.500000,10.000000
N,191,4.500000,9.500000
N,192,4.500000,9.000000
N,193,4.500000,8.500000
N,194,4.500000,8.000000
N,195,4.500000,7.500000
N,196,4.500000,7.000000
N,197,4.500000,6.500000
N,198,4.500000,6.000000
N,199,4.500000,5.500000
N,200,4.500000,5.000000
N,201,4.500000,4.500000
N,202,4.500000,4.000000
N,203,4.500000,3.500000
N,204,4.500000,3.000000
N,205,4.500000,2.500000
N,206,4.500000,2.000000
N,207,4.500000,1.500000
N,208,4.500000,1.000000
N,209,4.500000,0.500000
N,210,4.500000,0.000000
N,211,5.000000,10.000000
N,212,5.000000,9.500000
N,213,5.000000,9.000000
N,214,5.000000,8.500000
N,215,5.000000,8.000000
N,216,5.000000,7.500000
N,217,5.000000,7.000000
N,218,5.000000,6.500000
N,219,5.000000,6.000000
N,220,5.000000,5.500000
N,221,5.000000,5.000000
N,222,5.000000,4.500000
N,223,5.000000,4.000000
N,224,5.000000,3.500000
N,225,5.000000,3.000000
N,226,5.000000,2.500000
N,227,5.000000,2.000000
N,228,5.000000,1.500000
N,229,5.000000,1.000000
N,230,5.000000,0.500000
N,231,5.000000,0.000000
N,232,5.500000,10.000000
N,233,5.500000,9.500000
N,234,5.500000,9.000000
N,235,5.500000,8.500000
N,236,5.500000,8.000000
N,237,5.500000,7.500000
N,238,5.500000,7.000000
N,239,5.500000,6.500000
N,240,5.500000,6.000000
N,241,5.500000,5.500000
N,242,5.500000,5.000000
N,243,5.500000,4.500000
N,244,5.500000,4.000000
N,245,5.500000,3.500000
N,246,5.500000,3.000000
N,247,5.500000,2.500000
N,248,5.500000,2.000000
N,249,5.500000,1.500000
N,250,5.500000,1.000000
N,251,5.500000,0.500000
N,252,5.500000,0.000000
N,253,6.000000,10.000000
N,254,6.000000,9.500000
N,255,6.000000,9.000000
N,256,6.000000,8.500000
N,257,6.000000,8.000000
N,258,6.000000,7.500000
N,259,6.000000,7.000000
N,260,6.000000,6.500000
N,261,6.000000,6.000000
N,262,6.000000,5.500000
N,263,6.000000,5.000000
N,264,6.000000,4.500000
N,265,6.000000,4.000000
N,266,6.000000,3.500000
N,267,6.000000,3.000000
N,268,6.000000,2.500000
N,269,6.000000,2.000000
N,270,6.000000,1.500000
N,271,6.000000,1.000000
N,272,6.000000,0.500000
N,273,6.000000,0.000000
N,274,6.500000,10.000000
N,275,6.500000,9.500000
N,276,6.500000,9.000000
N,277,6.500000,8.500000
N,278,6.500000,8.000000
N,279,6.500000,7.500000
N,280,6.500000,7.000000
N,281,6.500000,6.500000
N,282,6.500000,6.000000
N,283,6.500000,5.500000
N,284,6.500000,5.000000
N,285,6.500000,4.500000
N,286,6.500000,4.000000
N,287,6.500000,3.500000
N,288,6.500000,3.000000
N,289,6.500000,2.500000
N,290,6.500000,2.000000
N,291,6.500000,1.500000
N,292,6.500000,1.000000
N,293,6.500000,0.500000
N,294,6.500000,0.000000
N,295,7.000000,10.000000
N,296,7.000000,9.500000
N,297,7.000000,9.000000
N,298,7.000000,8.500000
N,299,7.000000,8.000000
N,300,7.000000,7.500000
N,301,7.000000,7.000000
N,302,7.000000,6.500000
N,303,7.000000,6.000000
N,304,7.000000,5.500000
N,305,7.000000,5.000000
N,306,7.000000,4.500000
N,307,7.000000,4.000000
N,308,7.000000,3.500000
N,309,7.000000,3.000000
N,310,7.000000,2.500000
N,311,7.000000,2.000000
N,312,7.000000,1.500000
N,313,7.000000,1.000000
N,314,7.000000,0.500000
N,315,7.000000,0.000000
N,316,7.500000,10.000000
N,317,7.500000,9.500000
N,318,7.500000,9.000000
N,319,7.500000,8.500000
N,320,7.500000,8.000000
N,321,7.500000,7.500000
N,322,7.500000,7.000000
N,323,7.500000,6.500000
N,324,7.500000,6.000000
N,325,7.500000,5.500000
N,326,7.500000,5.000000
N,327,7.500000,4.500000
N,328,7.500000,4.000000
N,329,7.500000,3.500000
N,330,7.500000,3.000000
N,331,7.500000,2.500000
N,332,7.500000,2.000000
N,333,7.500000,1.500000
N,334,7.500000,1.000000
N,335,7.500000,0.500000
N,336,7.500000,0.000000
N,337,8.000000,10.000000
N,338,8.000000,9.500000
N,339,8.000000,9.000000
N,340,8.000000,8.500000
N,341,8.000000,8.000000
N,342,8.000000,7.500000
N,343,8.000000,7.000000
N,344,8.000000,6.500000
N,345,8.000000,6.000000
N,346,8.000000,5.500000
N,347,8.000000,5.000000
N,348,8.000000,4.500000
N,349,8.000000,4.000000
N,350,8.000000,3.500000
N,351,8.000000,3.000000
N,352,8.000000,2.500000
N,353,8.000000,2.000000
N,354,8.000000,1.500000
N,355,8.000000,1.000000
N,356,8.000000,0.500000
N,357,8.000000,0.000000
N,358,8.500000,10.000000
N,359,8.500000,9.500000
N,360,8.500000,9.000000
N,361,8.500000,8.500000
N,362,8.500000,8.000000
N,363,8.500000,7.500000
N,364,8.500000,7.000000
N,365,8.500000,6.500000
N,366,8.500000,6.000000
N,367,8.500000,5.500000
N,368,8.500000,5.000000
N,369,8.500000,4.500000
N,370,8.500000,4.000000
N,371,8.500000,3.500000
N,372,8.500000,3.000000
N,373,8.500000,2.500000
N,374,8.500000,2.000000
N,375,8.500000,1.500000
N,376,8.500000,1.000000
N,377,8.500000,0.500000
N,378,8.500000,0.000000
N,379,9.000000,10.000000
N,380,9.000000,9.500000
N,381,9.000000,9.000000
N,382,9.000000,8.500000
N,383,9.000000,8.000000
N,384,9.000000,7.500000
N,385,9.000000,7.000000
N,386,9.000000,6.500000
N,387,9.000000,6.000000
N,388,9.000000,5.500000
N,389,9.000000,5.000000
N,390,9.000000,4.500000
N,391,9.000000,4.000000
N,392,9.000000,3.500000
N,393,9.000000,3.000000
N,394,9.000000,2.500000
N,395,9.000000,2.000000
N,396,9.000000,1.500000
N,397,9.000000,1.000000
N,398,9.000000,0.500000
N,399,9.000000,0.000000
N,400,9.500000,10.000000
N,401,9.500000,9.500000
N,402,9.500000,9.000000
N,403,9.500000,8.500000
N,404,9.500000,8.000000
N,405,9.500000,7.500000
N,406,9.500000,7.000000
N,407,9.500000,6.500000
N,408,9.500000,6.000000
N,409,9.500000,5.500000
N,410,9.500000,5.000000
N,411,9.500000,4.500000
N,412,9.500000,4.000000
N,413,9.500000,3.500000
N,414,9.500000,3.000000
N,415,9.500000,2.500000
N,416,9.500000,2.000000
N,417,9.500000,1.500000
N,418,9.500000,1.000000
N,419,9.500000,0.500000
N,420,9.500000,0.000000
N,421,10.000000,10.000000
N,422,10.000000,9.500000
N,423,10.000000,9.000000
N,424,10.000000,8.500000
N,425,10.000000,8.000000
N,426,10.000000,7.500000
N,427,10.000000,7.000000
N,428,10.000000,6.500000
N,429,10.000000,6.000000
N,430,10.000000,5.500000
N,431,10.000000,5.000000
N,432,10.000000,4.500000
N,433,10.000000,4.000000
N,434,10.000000,3.500000
N,435,10.000000,3.000000
N,436,10.000000,2.500000
N,437,10.000000,2.000000
N,438,10.000000,1.500000
N,439,10.000000,1.000000
N,440,10.000000,0.500000
N,441,10.000000,0.000000


! Elementtyp definieren
	et,1,plane182	

! Ebener Spannungszustand mit Elementdicke
	keyopt,1,3,3

!---Materialeigenschaften deklarieren
!--"Normale" Materialien
	mp,ex,1,E1		! E-Modul Material 1
	mp,prxy,1,NU1		! Querdehnzahl Material 1
	/color,num,red,1	! Material 1 = Farbe ROT

	mp,ex,2,E2		! E-Modul Material 2
	mp,prxy,2,NU2		! Querdehnzahl Material 2
	/color,num,blue,2	! Material 2 = Farbe BLAU

!--"Kambium" Materialien
	mp,ex,3,E1		! E-Modul Material 1
	mp,prxy,3,NU1		! Querdehnzahl Material 1
	mp,alpx,3,ALPHA_T1	! Wärmedehnzahl Material 1
	/color,num,mred,3	! Material 3 = Farbe MAGENTA-ROT

	mp,ex,4,E2		! E-Modul Material 2
	mp,prxy,4,NU2		! Querdehnzahl Material 2
	mp,alpx,4,ALPHA_T2	! Wärmedehnzahl Material 2
	/color,num,bmag,4	! Material 20 = Farbe MAGENTA-BLAU

	/pnum,mat,1
!--------------------------------------

! Elementkonstanten übergeben // Elementdicke
	r,1,ELH

! Material 1 aktiv schalten
	mat,1

! Initialnetz erzeugen
E,2,23,22,1     !Element-Nr. 1
E,3,24,23,2     !Element-Nr. 2
E,4,25,24,3     !Element-Nr. 3
E,5,26,25,4     !Element-Nr. 4
E,6,27,26,5     !Element-Nr. 5
E,7,28,27,6     !Element-Nr. 6
E,8,29,28,7     !Element-Nr. 7
E,9,30,29,8     !Element-Nr. 8
E,10,31,30,9     !Element-Nr. 9
E,11,32,31,10     !Element-Nr. 10
E,12,33,32,11     !Element-Nr. 11
E,13,34,33,12     !Element-Nr. 12
E,14,35,34,13     !Element-Nr. 13
E,15,36,35,14     !Element-Nr. 14
E,16,37,36,15     !Element-Nr. 15
E,17,38,37,16     !Element-Nr. 16
E,18,39,38,17     !Element-Nr. 17
E,19,40,39,18     !Element-Nr. 18
E,20,41,40,19     !Element-Nr. 19
E,21,42,41,20     !Element-Nr. 20
E,23,44,43,22     !Element-Nr. 21
E,24,45,44,23     !Element-Nr. 22
E,25,46,45,24     !Element-Nr. 23
E,26,47,46,25     !Element-Nr. 24
E,27,48,47,26     !Element-Nr. 25
E,28,49,48,27     !Element-Nr. 26
E,29,50,49,28     !Element-Nr. 27
E,30,51,50,29     !Element-Nr. 28
E,31,52,51,30     !Element-Nr. 29
E,32,53,52,31     !Element-Nr. 30
E,33,54,53,32     !Element-Nr. 31
E,34,55,54,33     !Element-Nr. 32
E,35,56,55,34     !Element-Nr. 33
E,36,57,56,35     !Element-Nr. 34
E,37,58,57,36     !Element-Nr. 35
E,38,59,58,37     !Element-Nr. 36
E,39,60,59,38     !Element-Nr. 37
E,40,61,60,39     !Element-Nr. 38
E,41,62,61,40     !Element-Nr. 39
E,42,63,62,41     !Element-Nr. 40
E,44,65,64,43     !Element-Nr. 41
E,45,66,65,44     !Element-Nr. 42
E,46,67,66,45     !Element-Nr. 43
E,47,68,67,46     !Element-Nr. 44
E,48,69,68,47     !Element-Nr. 45
E,49,70,69,48     !Element-Nr. 46
E,50,71,70,49     !Element-Nr. 47
E,51,72,71,50     !Element-Nr. 48
E,52,73,72,51     !Element-Nr. 49
E,53,74,73,52     !Element-Nr. 50
E,54,75,74,53     !Element-Nr. 51
E,55,76,75,54     !Element-Nr. 52
E,56,77,76,55     !Element-Nr. 53
E,57,78,77,56     !Element-Nr. 54
E,58,79,78,57     !Element-Nr. 55
E,59,80,79,58     !Element-Nr. 56
E,60,81,80,59     !Element-Nr. 57
E,61,82,81,60     !Element-Nr. 58
E,62,83,82,61     !Element-Nr. 59
E,63,84,83,62     !Element-Nr. 60
E,65,86,85,64     !Element-Nr. 61
E,66,87,86,65     !Element-Nr. 62
E,67,88,87,66     !Element-Nr. 63
E,68,89,88,67     !Element-Nr. 64
E,69,90,89,68     !Element-Nr. 65
E,70,91,90,69     !Element-Nr. 66
E,71,92,91,70     !Element-Nr. 67
E,72,93,92,71     !Element-Nr. 68
E,73,94,93,72     !Element-Nr. 69
E,74,95,94,73     !Element-Nr. 70
E,75,96,95,74     !Element-Nr. 71
E,76,97,96,75     !Element-Nr. 72
E,77,98,97,76     !Element-Nr. 73
E,78,99,98,77     !Element-Nr. 74
E,79,100,99,78     !Element-Nr. 75
E,80,101,100,79     !Element-Nr. 76
E,81,102,101,80     !Element-Nr. 77
E,82,103,102,81     !Element-Nr. 78
E,83,104,103,82     !Element-Nr. 79
E,84,105,104,83     !Element-Nr. 80
E,86,107,106,85     !Element-Nr. 81
E,87,108,107,86     !Element-Nr. 82
E,88,109,108,87     !Element-Nr. 83
E,89,110,109,88     !Element-Nr. 84
E,90,111,110,89     !Element-Nr. 85
E,91,112,111,90     !Element-Nr. 86
E,92,113,112,91     !Element-Nr. 87
E,93,114,113,92     !Element-Nr. 88
E,94,115,114,93     !Element-Nr. 89
E,95,116,115,94     !Element-Nr. 90
E,96,117,116,95     !Element-Nr. 91
E,97,118,117,96     !Element-Nr. 92
E,98,119,118,97     !Element-Nr. 93
E,99,120,119,98     !Element-Nr. 94
E,100,121,120,99     !Element-Nr. 95
E,101,122,121,100     !Element-Nr. 96
E,102,123,122,101     !Element-Nr. 97
E,103,124,123,102     !Element-Nr. 98
E,104,125,124,103     !Element-Nr. 99
E,105,126,125,104     !Element-Nr. 100
E,107,128,127,106     !Element-Nr. 101
E,108,129,128,107     !Element-Nr. 102
E,109,130,129,108     !Element-Nr. 103
E,110,131,130,109     !Element-Nr. 104
E,111,132,131,110     !Element-Nr. 105
E,112,133,132,111     !Element-Nr. 106
E,113,134,133,112     !Element-Nr. 107
E,114,135,134,113     !Element-Nr. 108
E,115,136,135,114     !Element-Nr. 109
E,116,137,136,115     !Element-Nr. 110
E,117,138,137,116     !Element-Nr. 111
E,118,139,138,117     !Element-Nr. 112
E,119,140,139,118     !Element-Nr. 113
E,120,141,140,119     !Element-Nr. 114
E,121,142,141,120     !Element-Nr. 115
E,122,143,142,121     !Element-Nr. 116
E,123,144,143,122     !Element-Nr. 117
E,124,145,144,123     !Element-Nr. 118
E,125,146,145,124     !Element-Nr. 119
E,126,147,146,125     !Element-Nr. 120
E,128,149,148,127     !Element-Nr. 121
E,129,150,149,128     !Element-Nr. 122
E,130,151,150,129     !Element-Nr. 123
E,131,152,151,130     !Element-Nr. 124
E,132,153,152,131     !Element-Nr. 125
E,133,154,153,132     !Element-Nr. 126
E,134,155,154,133     !Element-Nr. 127
E,135,156,155,134     !Element-Nr. 128
E,136,157,156,135     !Element-Nr. 129
E,137,158,157,136     !Element-Nr. 130
E,138,159,158,137     !Element-Nr. 131
E,139,160,159,138     !Element-Nr. 132
E,140,161,160,139     !Element-Nr. 133
E,141,162,161,140     !Element-Nr. 134
E,142,163,162,141     !Element-Nr. 135
E,143,164,163,142     !Element-Nr. 136
E,144,165,164,143     !Element-Nr. 137
E,145,166,165,144     !Element-Nr. 138
E,146,167,166,145     !Element-Nr. 139
E,147,168,167,146     !Element-Nr. 140
E,149,170,169,148     !Element-Nr. 141
E,150,171,170,149     !Element-Nr. 142
E,151,172,171,150     !Element-Nr. 143
E,152,173,172,151     !Element-Nr. 144
E,153,174,173,152     !Element-Nr. 145
E,154,175,174,153     !Element-Nr. 146
E,155,176,175,154     !Element-Nr. 147
E,156,177,176,155     !Element-Nr. 148
E,157,178,177,156     !Element-Nr. 149
E,158,179,178,157     !Element-Nr. 150
E,159,180,179,158     !Element-Nr. 151
E,160,181,180,159     !Element-Nr. 152
E,161,182,181,160     !Element-Nr. 153
E,162,183,182,161     !Element-Nr. 154
E,163,184,183,162     !Element-Nr. 155
E,164,185,184,163     !Element-Nr. 156
E,165,186,185,164     !Element-Nr. 157
E,166,187,186,165     !Element-Nr. 158
E,167,188,187,166     !Element-Nr. 159
E,168,189,188,167     !Element-Nr. 160
E,170,191,190,169     !Element-Nr. 161
E,171,192,191,170     !Element-Nr. 162
E,172,193,192,171     !Element-Nr. 163
E,173,194,193,172     !Element-Nr. 164
E,174,195,194,173     !Element-Nr. 165
E,175,196,195,174     !Element-Nr. 166
E,176,197,196,175     !Element-Nr. 167
E,177,198,197,176     !Element-Nr. 168
E,178,199,198,177     !Element-Nr. 169
E,179,200,199,178     !Element-Nr. 170
E,180,201,200,179     !Element-Nr. 171
E,181,202,201,180     !Element-Nr. 172
E,182,203,202,181     !Element-Nr. 173
E,183,204,203,182     !Element-Nr. 174
E,184,205,204,183     !Element-Nr. 175
E,185,206,205,184     !Element-Nr. 176
E,186,207,206,185     !Element-Nr. 177
E,187,208,207,186     !Element-Nr. 178
E,188,209,208,187     !Element-Nr. 179
E,189,210,209,188     !Element-Nr. 180
E,191,212,211,190     !Element-Nr. 181
E,192,213,212,191     !Element-Nr. 182
E,193,214,213,192     !Element-Nr. 183
E,194,215,214,193     !Element-Nr. 184
E,195,216,215,194     !Element-Nr. 185
E,196,217,216,195     !Element-Nr. 186
E,197,218,217,196     !Element-Nr. 187
E,198,219,218,197     !Element-Nr. 188
E,199,220,219,198     !Element-Nr. 189
E,200,221,220,199     !Element-Nr. 190
E,201,222,221,200     !Element-Nr. 191
E,202,223,222,201     !Element-Nr. 192
E,203,224,223,202     !Element-Nr. 193
E,204,225,224,203     !Element-Nr. 194
E,205,226,225,204     !Element-Nr. 195
E,206,227,226,205     !Element-Nr. 196
E,207,228,227,206     !Element-Nr. 197
E,208,229,228,207     !Element-Nr. 198
E,209,230,229,208     !Element-Nr. 199
E,210,231,230,209     !Element-Nr. 200
E,212,233,232,211     !Element-Nr. 201
E,213,234,233,212     !Element-Nr. 202
E,214,235,234,213     !Element-Nr. 203
E,215,236,235,214     !Element-Nr. 204
E,216,237,236,215     !Element-Nr. 205
E,217,238,237,216     !Element-Nr. 206
E,218,239,238,217     !Element-Nr. 207
E,219,240,239,218     !Element-Nr. 208
E,220,241,240,219     !Element-Nr. 209
E,221,242,241,220     !Element-Nr. 210
E,222,243,242,221     !Element-Nr. 211
E,223,244,243,222     !Element-Nr. 212
E,224,245,244,223     !Element-Nr. 213
E,225,246,245,224     !Element-Nr. 214
E,226,247,246,225     !Element-Nr. 215
E,227,248,247,226     !Element-Nr. 216
E,228,249,248,227     !Element-Nr. 217
E,229,250,249,228     !Element-Nr. 218
E,230,251,250,229     !Element-Nr. 219
E,231,252,251,230     !Element-Nr. 220
E,233,254,253,232     !Element-Nr. 221
E,234,255,254,233     !Element-Nr. 222
E,235,256,255,234     !Element-Nr. 223
E,236,257,256,235     !Element-Nr. 224
E,237,258,257,236     !Element-Nr. 225
E,238,259,258,237     !Element-Nr. 226
E,239,260,259,238     !Element-Nr. 227
E,240,261,260,239     !Element-Nr. 228
E,241,262,261,240     !Element-Nr. 229
E,242,263,262,241     !Element-Nr. 230
E,243,264,263,242     !Element-Nr. 231
E,244,265,264,243     !Element-Nr. 232
E,245,266,265,244     !Element-Nr. 233
E,246,267,266,245     !Element-Nr. 234
E,247,268,267,246     !Element-Nr. 235
E,248,269,268,247     !Element-Nr. 236
E,249,270,269,248     !Element-Nr. 237
E,250,271,270,249     !Element-Nr. 238
E,251,272,271,250     !Element-Nr. 239
E,252,273,272,251     !Element-Nr. 240
E,254,275,274,253     !Element-Nr. 241
E,255,276,275,254     !Element-Nr. 242
E,256,277,276,255     !Element-Nr. 243
E,257,278,277,256     !Element-Nr. 244
E,258,279,278,257     !Element-Nr. 245
E,259,280,279,258     !Element-Nr. 246
E,260,281,280,259     !Element-Nr. 247
E,261,282,281,260     !Element-Nr. 248
E,262,283,282,261     !Element-Nr. 249
E,263,284,283,262     !Element-Nr. 250
E,264,285,284,263     !Element-Nr. 251
E,265,286,285,264     !Element-Nr. 252
E,266,287,286,265     !Element-Nr. 253
E,267,288,287,266     !Element-Nr. 254
E,268,289,288,267     !Element-Nr. 255
E,269,290,289,268     !Element-Nr. 256
E,270,291,290,269     !Element-Nr. 257
E,271,292,291,270     !Element-Nr. 258
E,272,293,292,271     !Element-Nr. 259
E,273,294,293,272     !Element-Nr. 260
E,275,296,295,274     !Element-Nr. 261
E,276,297,296,275     !Element-Nr. 262
E,277,298,297,276     !Element-Nr. 263
E,278,299,298,277     !Element-Nr. 264
E,279,300,299,278     !Element-Nr. 265
E,280,301,300,279     !Element-Nr. 266
E,281,302,301,280     !Element-Nr. 267
E,282,303,302,281     !Element-Nr. 268
E,283,304,303,282     !Element-Nr. 269
E,284,305,304,283     !Element-Nr. 270
E,285,306,305,284     !Element-Nr. 271
E,286,307,306,285     !Element-Nr. 272
E,287,308,307,286     !Element-Nr. 273
E,288,309,308,287     !Element-Nr. 274
E,289,310,309,288     !Element-Nr. 275
E,290,311,310,289     !Element-Nr. 276
E,291,312,311,290     !Element-Nr. 277
E,292,313,312,291     !Element-Nr. 278
E,293,314,313,292     !Element-Nr. 279
E,294,315,314,293     !Element-Nr. 280
E,296,317,316,295     !Element-Nr. 281
E,297,318,317,296     !Element-Nr. 282
E,298,319,318,297     !Element-Nr. 283
E,299,320,319,298     !Element-Nr. 284
E,300,321,320,299     !Element-Nr. 285
E,301,322,321,300     !Element-Nr. 286
E,302,323,322,301     !Element-Nr. 287
E,303,324,323,302     !Element-Nr. 288
E,304,325,324,303     !Element-Nr. 289
E,305,326,325,304     !Element-Nr. 290
E,306,327,326,305     !Element-Nr. 291
E,307,328,327,306     !Element-Nr. 292
E,308,329,328,307     !Element-Nr. 293
E,309,330,329,308     !Element-Nr. 294
E,310,331,330,309     !Element-Nr. 295
E,311,332,331,310     !Element-Nr. 296
E,312,333,332,311     !Element-Nr. 297
E,313,334,333,312     !Element-Nr. 298
E,314,335,334,313     !Element-Nr. 299
E,315,336,335,314     !Element-Nr. 300
E,317,338,337,316     !Element-Nr. 301
E,318,339,338,317     !Element-Nr. 302
E,319,340,339,318     !Element-Nr. 303
E,320,341,340,319     !Element-Nr. 304
E,321,342,341,320     !Element-Nr. 305
E,322,343,342,321     !Element-Nr. 306
E,323,344,343,322     !Element-Nr. 307
E,324,345,344,323     !Element-Nr. 308
E,325,346,345,324     !Element-Nr. 309
E,326,347,346,325     !Element-Nr. 310
E,327,348,347,326     !Element-Nr. 311
E,328,349,348,327     !Element-Nr. 312
E,329,350,349,328     !Element-Nr. 313
E,330,351,350,329     !Element-Nr. 314
E,331,352,351,330     !Element-Nr. 315
E,332,353,352,331     !Element-Nr. 316
E,333,354,353,332     !Element-Nr. 317
E,334,355,354,333     !Element-Nr. 318
E,335,356,355,334     !Element-Nr. 319
E,336,357,356,335     !Element-Nr. 320
E,338,359,358,337     !Element-Nr. 321
E,339,360,359,338     !Element-Nr. 322
E,340,361,360,339     !Element-Nr. 323
E,341,362,361,340     !Element-Nr. 324
E,342,363,362,341     !Element-Nr. 325
E,343,364,363,342     !Element-Nr. 326
E,344,365,364,343     !Element-Nr. 327
E,345,366,365,344     !Element-Nr. 328
E,346,367,366,345     !Element-Nr. 329
E,347,368,367,346     !Element-Nr. 330
E,348,369,368,347     !Element-Nr. 331
E,349,370,369,348     !Element-Nr. 332
E,350,371,370,349     !Element-Nr. 333
E,351,372,371,350     !Element-Nr. 334
E,352,373,372,351     !Element-Nr. 335
E,353,374,373,352     !Element-Nr. 336
E,354,375,374,353     !Element-Nr. 337
E,355,376,375,354     !Element-Nr. 338
E,356,377,376,355     !Element-Nr. 339
E,357,378,377,356     !Element-Nr. 340
E,359,380,379,358     !Element-Nr. 341
E,360,381,380,359     !Element-Nr. 342
E,361,382,381,360     !Element-Nr. 343
E,362,383,382,361     !Element-Nr. 344
E,363,384,383,362     !Element-Nr. 345
E,364,385,384,363     !Element-Nr. 346
E,365,386,385,364     !Element-Nr. 347
E,366,387,386,365     !Element-Nr. 348
E,367,388,387,366     !Element-Nr. 349
E,368,389,388,367     !Element-Nr. 350
E,369,390,389,368     !Element-Nr. 351
E,370,391,390,369     !Element-Nr. 352
E,371,392,391,370     !Element-Nr. 353
E,372,393,392,371     !Element-Nr. 354
E,373,394,393,372     !Element-Nr. 355
E,374,395,394,373     !Element-Nr. 356
E,375,396,395,374     !Element-Nr. 357
E,376,397,396,375     !Element-Nr. 358
E,377,398,397,376     !Element-Nr. 359
E,378,399,398,377     !Element-Nr. 360
E,380,401,400,379     !Element-Nr. 361
E,381,402,401,380     !Element-Nr. 362
E,382,403,402,381     !Element-Nr. 363
E,383,404,403,382     !Element-Nr. 364
E,384,405,404,383     !Element-Nr. 365
E,385,406,405,384     !Element-Nr. 366
E,386,407,406,385     !Element-Nr. 367
E,387,408,407,386     !Element-Nr. 368
E,388,409,408,387     !Element-Nr. 369
E,389,410,409,388     !Element-Nr. 370
E,390,411,410,389     !Element-Nr. 371
E,391,412,411,390     !Element-Nr. 372
E,392,413,412,391     !Element-Nr. 373
E,393,414,413,392     !Element-Nr. 374
E,394,415,414,393     !Element-Nr. 375
E,395,416,415,394     !Element-Nr. 376
E,396,417,416,395     !Element-Nr. 377
E,397,418,417,396     !Element-Nr. 378
E,398,419,418,397     !Element-Nr. 379
E,399,420,419,398     !Element-Nr. 380
E,401,422,421,400     !Element-Nr. 381
E,402,423,422,401     !Element-Nr. 382
E,403,424,423,402     !Element-Nr. 383
E,404,425,424,403     !Element-Nr. 384
E,405,426,425,404     !Element-Nr. 385
E,406,427,426,405     !Element-Nr. 386
E,407,428,427,406     !Element-Nr. 387
E,408,429,428,407     !Element-Nr. 388
E,409,430,429,408     !Element-Nr. 389
E,410,431,430,409     !Element-Nr. 390
E,411,432,431,410     !Element-Nr. 391
E,412,433,432,411     !Element-Nr. 392
E,413,434,433,412     !Element-Nr. 393
E,414,435,434,413     !Element-Nr. 394
E,415,436,435,414     !Element-Nr. 395
E,416,437,436,415     !Element-Nr. 396
E,417,438,437,416     !Element-Nr. 397
E,418,439,438,417     !Element-Nr. 398
E,419,440,439,418     !Element-Nr. 399
E,420,441,440,419     !Element-Nr. 400


! Material 2 aktiv schalten
	mat,2

! Material 2 Elemente erzeugen
E,2,23,22,1
E,3,24,23,2
E,4,25,24,3
E,6,27,26,5
E,11,32,31,10
E,12,33,32,11
E,13,34,33,12
E,14,35,34,13
E,15,36,35,14
E,16,37,36,15
E,23,44,43,22
E,24,45,44,23
E,25,46,45,24
E,26,47,46,25
E,27,48,47,26
E,28,49,48,27
E,32,53,52,31
E,33,54,53,32
E,44,65,64,43
E,45,66,65,44
E,46,67,66,45
E,47,68,67,46
E,48,69,68,47
E,49,70,69,48
E,50,71,70,49
E,51,72,71,50
E,52,73,72,51
E,53,74,73,52
E,54,75,74,53
E,65,86,85,64
E,66,87,86,65
E,67,88,87,66
E,68,89,88,67
E,69,90,89,68
E,70,91,90,69
E,71,92,91,70
E,72,93,92,71
E,73,94,93,72
E,74,95,94,73
E,86,107,106,85
E,87,108,107,86
E,88,109,108,87
E,89,110,109,88
E,90,111,110,89
E,91,112,111,90
E,92,113,112,91
E,93,114,113,92
E,94,115,114,93
E,95,116,115,94
E,107,128,127,106
E,108,129,128,107
E,109,130,129,108
E,110,131,130,109
E,111,132,131,110
E,112,133,132,111
E,113,134,133,112
E,114,135,134,113
E,115,136,135,114
E,128,149,148,127
E,129,150,149,128
E,130,151,150,129
E,131,152,151,130
E,132,153,152,131
E,133,154,153,132
E,134,155,154,133
E,135,156,155,134
E,136,157,156,135
E,149,170,169,148
E,150,171,170,149
E,151,172,171,150
E,152,173,172,151
E,153,174,173,152
E,154,175,174,153
E,155,176,175,154
E,156,177,176,155
E,170,191,190,169
E,171,192,191,170
E,172,193,192,171
E,173,194,193,172
E,174,195,194,173
E,175,196,195,174
E,176,197,196,175
E,177,198,197,176
E,191,212,211,190
E,192,213,212,191
E,193,214,213,192
E,194,215,214,193
E,195,216,215,194
E,196,217,216,195
E,197,218,217,196
E,198,219,218,197
E,212,233,232,211
E,213,234,233,212
E,214,235,234,213
E,215,236,235,214
E,216,237,236,215
E,217,238,237,216
E,218,239,238,217
E,219,240,239,218
E,233,254,253,232
E,234,255,254,233
E,235,256,255,234
E,236,257,256,235
E,237,258,257,236
E,238,259,258,237
E,239,260,259,238
E,240,261,260,239
E,241,262,261,240
E,254,275,274,253
E,255,276,275,254
E,256,277,276,255
E,257,278,277,256
E,258,279,278,257
E,259,280,279,258
E,260,281,280,259
E,261,282,281,260
E,262,283,282,261
E,275,296,295,274
E,276,297,296,275
E,277,298,297,276
E,278,299,298,277
E,279,300,299,278
E,280,301,300,279
E,281,302,301,280
E,282,303,302,281
E,283,304,303,282
E,296,317,316,295
E,297,318,317,296
E,298,319,318,297
E,299,320,319,298
E,300,321,320,299
E,301,322,321,300
E,302,323,322,301
E,303,324,323,302
E,304,325,324,303
E,317,338,337,316
E,318,339,338,317
E,319,340,339,318
E,320,341,340,319
E,321,342,341,320
E,322,343,342,321
E,323,344,343,322
E,324,345,344,323
E,325,346,345,324
E,338,359,358,337
E,340,361,360,339
E,341,362,361,340
E,342,363,362,341
E,343,364,363,342
E,344,365,364,343
E,345,366,365,344
E,346,367,366,345
E,359,380,379,358
E,360,381,380,359
E,362,383,382,361
E,363,384,383,362
E,364,385,384,363
E,365,386,385,364
E,366,387,386,365
E,367,388,387,366
E,380,401,400,379
E,381,402,401,380
E,382,403,402,381
E,383,404,403,382
E,384,405,404,383
E,385,406,405,384
E,386,407,406,385
E,387,408,407,386
E,388,409,408,387
E,389,410,409,388
E,401,422,421,400
E,402,423,422,401
E,403,424,423,402
E,404,425,424,403
E,405,426,425,404
E,406,427,426,405
E,407,428,427,406
E,408,429,428,407
E,409,430,429,408
E,410,431,430,409
E,411,432,431,410


! Lösche doppelten Elemente (durch Mat2 Überlappung) und behalte diejenigen mit der höchsten Nr.
edele,1
edele,2
edele,3
edele,5
edele,10
edele,11
edele,12
edele,13
edele,14
edele,15
edele,21
edele,22
edele,23
edele,24
edele,25
edele,26
edele,30
edele,31
edele,41
edele,42
edele,43
edele,44
edele,45
edele,46
edele,47
edele,48
edele,49
edele,50
edele,51
edele,61
edele,62
edele,63
edele,64
edele,65
edele,66
edele,67
edele,68
edele,69
edele,70
edele,81
edele,82
edele,83
edele,84
edele,85
edele,86
edele,87
edele,88
edele,89
edele,90
edele,101
edele,102
edele,103
edele,104
edele,105
edele,106
edele,107
edele,108
edele,109
edele,121
edele,122
edele,123
edele,124
edele,125
edele,126
edele,127
edele,128
edele,129
edele,141
edele,142
edele,143
edele,144
edele,145
edele,146
edele,147
edele,148
edele,161
edele,162
edele,163
edele,164
edele,165
edele,166
edele,167
edele,168
edele,181
edele,182
edele,183
edele,184
edele,185
edele,186
edele,187
edele,188
edele,201
edele,202
edele,203
edele,204
edele,205
edele,206
edele,207
edele,208
edele,221
edele,222
edele,223
edele,224
edele,225
edele,226
edele,227
edele,228
edele,229
edele,241
edele,242
edele,243
edele,244
edele,245
edele,246
edele,247
edele,248
edele,249
edele,261
edele,262
edele,263
edele,264
edele,265
edele,266
edele,267
edele,268
edele,269
edele,281
edele,282
edele,283
edele,284
edele,285
edele,286
edele,287
edele,288
edele,289
edele,301
edele,302
edele,303
edele,304
edele,305
edele,306
edele,307
edele,308
edele,309
edele,321
edele,323
edele,324
edele,325
edele,326
edele,327
edele,328
edele,329
edele,341
edele,342
edele,344
edele,345
edele,346
edele,347
edele,348
edele,349
edele,361
edele,362
edele,363
edele,364
edele,365
edele,366
edele,367
edele,368
edele,369
edele,370
edele,381
edele,382
edele,383
edele,384
edele,385
edele,386
edele,387
edele,388
edele,389
edele,390
edele,391

! Lösche "Void-Elemente"
allsel
nsel,inve
nsel,a,node,,4
nsel,a,node,,5
nsel,a,node,,6
nsel,a,node,,7
nsel,a,node,,8
nsel,a,node,,9
nsel,a,node,,10
nsel,a,node,,11
nsel,a,node,,12
nsel,a,node,,13
nsel,a,node,,14
nsel,a,node,,15
nsel,a,node,,16
nsel,a,node,,25
nsel,a,node,,26
nsel,a,node,,27
nsel,a,node,,28
nsel,a,node,,29
nsel,a,node,,30
nsel,a,node,,31
nsel,a,node,,32
nsel,a,node,,33
nsel,a,node,,34
nsel,a,node,,35
nsel,a,node,,36
nsel,a,node,,47
nsel,a,node,,48
nsel,a,node,,49
nsel,a,node,,50
nsel,a,node,,51
nsel,a,node,,52
nsel,a,node,,53
nsel,a,node,,54
nsel,a,node,,55
nsel,a,node,,56
nsel,a,node,,57
nsel,a,node,,68
nsel,a,node,,69
nsel,a,node,,70
nsel,a,node,,71
nsel,a,node,,72
nsel,a,node,,73
nsel,a,node,,74
nsel,a,node,,75
nsel,a,node,,76
nsel,a,node,,77
nsel,a,node,,90
nsel,a,node,,91
nsel,a,node,,92
nsel,a,node,,93
nsel,a,node,,94
nsel,a,node,,95
nsel,a,node,,96
nsel,a,node,,97
nsel,a,node,,98
nsel,a,node,,107
nsel,a,node,,111
nsel,a,node,,112
nsel,a,node,,113
nsel,a,node,,114
nsel,a,node,,115
nsel,a,node,,116
nsel,a,node,,117
nsel,a,node,,118
nsel,a,node,,128
nsel,a,node,,133
nsel,a,node,,134
nsel,a,node,,135
nsel,a,node,,136
nsel,a,node,,137
nsel,a,node,,138
nsel,a,node,,139
nsel,a,node,,147
nsel,a,node,,149
nsel,a,node,,150
nsel,a,node,,154
nsel,a,node,,155
nsel,a,node,,156
nsel,a,node,,157
nsel,a,node,,158
nsel,a,node,,159
nsel,a,node,,168
nsel,a,node,,170
nsel,a,node,,171
nsel,a,node,,175
nsel,a,node,,176
nsel,a,node,,177
nsel,a,node,,178
nsel,a,node,,179
nsel,a,node,,188
nsel,a,node,,189
nsel,a,node,,191
nsel,a,node,,192
nsel,a,node,,197
nsel,a,node,,198
nsel,a,node,,199
nsel,a,node,,200
nsel,a,node,,209
nsel,a,node,,210
nsel,a,node,,212
nsel,a,node,,213
nsel,a,node,,214
nsel,a,node,,218
nsel,a,node,,219
nsel,a,node,,220
nsel,a,node,,229
nsel,a,node,,230
nsel,a,node,,231
nsel,a,node,,233
nsel,a,node,,234
nsel,a,node,,235
nsel,a,node,,240
nsel,a,node,,241
nsel,a,node,,250
nsel,a,node,,251
nsel,a,node,,252
nsel,a,node,,254
nsel,a,node,,255
nsel,a,node,,256
nsel,a,node,,257
nsel,a,node,,261
nsel,a,node,,262
nsel,a,node,,270
nsel,a,node,,271
nsel,a,node,,272
nsel,a,node,,273
nsel,a,node,,275
nsel,a,node,,276
nsel,a,node,,277
nsel,a,node,,278
nsel,a,node,,282
nsel,a,node,,283
nsel,a,node,,291
nsel,a,node,,292
nsel,a,node,,293
nsel,a,node,,294
nsel,a,node,,296
nsel,a,node,,297
nsel,a,node,,298
nsel,a,node,,299
nsel,a,node,,304
nsel,a,node,,312
nsel,a,node,,313
nsel,a,node,,314
nsel,a,node,,315
nsel,a,node,,317
nsel,a,node,,318
nsel,a,node,,319
nsel,a,node,,320
nsel,a,node,,321
nsel,a,node,,325
nsel,a,node,,332
nsel,a,node,,333
nsel,a,node,,334
nsel,a,node,,335
nsel,a,node,,336
nsel,a,node,,338
nsel,a,node,,339
nsel,a,node,,340
nsel,a,node,,341
nsel,a,node,,342
nsel,a,node,,353
nsel,a,node,,354
nsel,a,node,,355
nsel,a,node,,356
nsel,a,node,,357
nsel,a,node,,359
nsel,a,node,,360
nsel,a,node,,361
nsel,a,node,,362
nsel,a,node,,363
nsel,a,node,,364
nsel,a,node,,373
nsel,a,node,,374
nsel,a,node,,375
nsel,a,node,,376
nsel,a,node,,377
nsel,a,node,,378
nsel,a,node,,380
nsel,a,node,,381
nsel,a,node,,382
nsel,a,node,,383
nsel,a,node,,384
nsel,a,node,,385
nsel,a,node,,386
nsel,a,node,,393
nsel,a,node,,394
nsel,a,node,,395
nsel,a,node,,396
nsel,a,node,,397
nsel,a,node,,398
nsel,a,node,,399
nsel,a,node,,401
nsel,a,node,,402
nsel,a,node,,403
nsel,a,node,,404
nsel,a,node,,405
nsel,a,node,,406
nsel,a,node,,407
nsel,a,node,,408
nsel,a,node,,414
nsel,a,node,,415
nsel,a,node,,416
nsel,a,node,,417
nsel,a,node,,418
nsel,a,node,,419
nsel,a,node,,420
nsel,a,node,,37
nsel,a,node,,46
nsel,a,node,,78
nsel,a,node,,89
nsel,a,node,,119
nsel,a,node,,132
nsel,a,node,,160
nsel,a,node,,180
nsel,a,node,,196
nsel,a,node,,221
nsel,a,node,,239
nsel,a,node,,303
nsel,a,node,,346
nsel,a,node,,422
nsel,a,node,,423
nsel,a,node,,424
nsel,a,node,,425
nsel,a,node,,426
nsel,a,node,,427
nsel,a,node,,428
nsel,a,node,,429
nsel,a,node,,435
nsel,a,node,,436
nsel,a,node,,437
nsel,a,node,,438
nsel,a,node,,439
nsel,a,node,,440
nsel,a,node,,441
nsel,a,node,,24
nsel,a,node,,45
nsel,a,node,,67
nsel,a,node,,88
nsel,a,node,,110
nsel,a,node,,127
nsel,a,node,,131
nsel,a,node,,148
nsel,a,node,,153
nsel,a,node,,167
nsel,a,node,,169
nsel,a,node,,174
nsel,a,node,,190
nsel,a,node,,195
nsel,a,node,,208
nsel,a,node,,211
nsel,a,node,,217
nsel,a,node,,232
nsel,a,node,,238
nsel,a,node,,249
nsel,a,node,,253
nsel,a,node,,260
nsel,a,node,,274
nsel,a,node,,281
nsel,a,node,,290
nsel,a,node,,295
nsel,a,node,,302
nsel,a,node,,311
nsel,a,node,,316
nsel,a,node,,324
nsel,a,node,,337
nsel,a,node,,345
nsel,a,node,,352
nsel,a,node,,358
nsel,a,node,,379
nsel,a,node,,400
nsel,a,node,,413
nsel,a,node,,421
nsel,a,node,,434
nsel,a,node,,3
nsel,a,node,,106
nsel,a,node,,146
nsel,a,node,,187
nsel,a,node,,228
nsel,a,node,,269
nsel,a,node,,331
nsel,a,node,,372
nsel,a,node,,392
esln,s,1,all
edele,all
allsel


!---------Randbedingungen----------------------------------------------

! Auflagerbedingungen
	
! Sperre Freiheitsgrade in x-Richtung
d,1,ux,0
d,2,ux,0
d,3,ux,0
d,16,ux,0
d,17,ux,0
d,18,ux,0
d,19,ux,0
d,20,ux,0
d,21,ux,0
! Sperre Freiheitsgrade in y-Richtung
d,1,uy,0
d,2,uy,0
d,3,uy,0
d,16,uy,0
d,17,uy,0
d,18,uy,0
d,19,uy,0
d,20,uy,0
d,21,uy,0

!-----------------------------------------------------------------------
! Preprocessor beenden
	finish

! Schreibt alle Befehle in die Datenbank
	/pmacro

!-----------------Materialbezogene Grenzspannungen---

!---Beton (mittlere charakt. Zugfestigkeit nach EC2)---
	FCK = -40	! [MN/m²] charakt. Druckfestigkeit
	FCTM = 	3.5	! [MN/m²] charakt. mittlere Zugfestigkeit

!---Stahl (charakt. Fließspannung)---
	FYK = 500	! [MN/m²]

!-Verhältnis der Grenzwerte
	sratio = FCK/FCTM			! Verhältnis s

!------------------------------------------------------------------------
	

!------------------------Preprocessor---

! Starten Preprocessor
	/prep7

!------------------------Definiere Kambium-Elemente---

! Selektiere Kambium-Elemente
esel,s,elem,,20
esel,a,elem,,40
esel,a,elem,,60
esel,a,elem,,80
esel,a,elem,,100
esel,a,elem,,119
esel,a,elem,,120
esel,a,elem,,139
esel,a,elem,,158
esel,a,elem,,159
esel,a,elem,,178
esel,a,elem,,197
esel,a,elem,,198
esel,a,elem,,217
esel,a,elem,,236
esel,a,elem,,237
esel,a,elem,,256
esel,a,elem,,276
esel,a,elem,,295
esel,a,elem,,296
esel,a,elem,,315
esel,a,elem,,334
esel,a,elem,,335
esel,a,elem,,353
esel,a,elem,,354
esel,a,elem,,373
esel,a,elem,,392
esel,a,elem,,393
esel,a,elem,,401
esel,a,elem,,411
esel,a,elem,,419
esel,a,elem,,430
esel,a,elem,,440
esel,a,elem,,441
esel,a,elem,,451
esel,a,elem,,460
esel,a,elem,,461
esel,a,elem,,470
esel,a,elem,,478
esel,a,elem,,486
esel,a,elem,,487
esel,a,elem,,495
esel,a,elem,,503
esel,a,elem,,504
esel,a,elem,,513
esel,a,elem,,522
esel,a,elem,,531
esel,a,elem,,532
esel,a,elem,,541
esel,a,elem,,549
esel,a,elem,,550
esel,a,elem,,558
esel,a,elem,,559
esel,a,elem,,568
esel,a,elem,,569
esel,a,elem,,579
esel,a,elem,,580
esel,a,elem,,581
	

! Manuell selektierte Elemente als Komponente "Kambium" definieren
	cm,KAMBIUM,elem
	!/color,cm,lgra,kambium	! Komponenten-Farbe: hellgrau
	allsel			! Selektiere wieder alles

! Weise Wärmedehnzahlen den Kambium-Elementen zu (nur Einfluss auf Temp-Berechnung)
	allsel
	cmsel,s,KAMBIUM		! Selektiere alle Kambium-Elemente (Beton & Stahl)
	esel,r,mat,,1		! Selektiere Beton-Kambium-Elemente
	emodif,all,mat,3	! Weise Beton-Kambium Elementen alpha_t,c zu
	
	allsel
	cmsel,s,KAMBIUM		! Selektiere alle Kambium-Elemente (Beton & Stahl)
	esel,r,mat,,2		! Selektiere Stahl-Kambium-Elemente
	emodif,all,mat,4	! Weise Stahl-Kambium Elementen alpha_t,s zu

	allsel
! Definiere Referenztemperatur für biol. Wachstumsregel
	tref,0

! Beende Preprocessor
	finish

!*************************************************************************************************!
!-------------------------------------------------------------------------------------------------!
!-------------------------------------------------------------------------------------------------!
!--------------------------AB HIER FUNKTIONIERT ES NICHT------------------------------------------!
!-------------------------------------------------------------------------------------------------!
!-------------------------------------------------------------------------------------------------!
!*************************************************************************************************!

!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
!-----------------------1) FE-Berechnung der statischen Last--------------------------------------!
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!

! Starte Lösungsteil
	/solu

! statische Lasten ansetzen
	f,431,fy,-150.000000

! Load Step File schreiben
	lswrite,1

!---Zurücksetzen der E-Moduli im Kambium auf ursprünglichen Wert
	mp,ex,3,E1
	mp,ex,4,E2

! Löse Load Step Last
	lssolve,1

! Lasten löschen
	allsel
	fdele,all	! Knotenlasten
	bfdele,all,all	! Knotentemperaturen

! Beende Lösungsteil
	finish

!---Postprocessor - Auslesen, Berechnen und Speichern der äq. Spannungen---
! Starte Postprocessor
	/post1

!----------------------------------------------

!---Beton-Elemente - Drucker-Prager-Spannungen
!--Spannungen auslesen aus Postproc
	allsel					! Alles selektieren

	*get,NUMCOUNT,node,,count		! Speichere Anzahl an Knoten in Variable NOUMCOUNT

	esel,s,mat,,1				! Alle Elemente mit Material 1 (Beton) selektieren
	esel,a,mat,,3				! Zusätzlich alle Elemente mit Material 3 (Beton-Kambium) selektieren
	nsle,s,all				! Alle zugehörigen Knoten selektieren

	*del,NMASK				! Lösche NMASK array, falls existiert
	*del,SARRAYC				! Lösche SARRAYC array, falls existiert
	
	*dim,NMASK,array,NUMCOUNT		! Erstelle NMASK array mit NUMCOUNT Zeilen (also so viele wie es Knoten gibt)
	*dim,SARRAYC,array,NUMCOUNT,4		! Erstelle SARRAYC array mit NUMCOUNT Zeilen und 4 Spalten
	
	*vget,NMASK(1),node,1,nsel		! Speichere Selektierstatus aller Knoten in Array NMASK
						! 1 = selektiert
						! 0 = nicht definiert, -1 = nicht selektiert

	*vmask,NMASK(1)				! Aktiviere NMASK als masking array (nur aktiv für die direkt darauffolgende Operation)
	*vget,SARRAYC(1,1),node,1,s,x		! Speichere alle Knotenspannungen Sigma_x der selektierten Knoten in Spalte 1 von SARRAYC
	
	*vmask,NMASK(1)				! Reaktiviere NMASK als masking array
	*vget,SARRAYC(1,2),node,1,s,y		! Speichere Sigma_y in Spalte 2

	*vmask,NMASK(1)				! Reaktiviere NMASK als masking array
	*vget,SARRAYC(1,3),node,1,s,z		! Speichere Sigma_z in Spalte 3

	*vmask,NMASK(1)				! Reaktiviere NMASK als masking array
	*vget,SARRAYC(1,4),node,1,s,xy		! Speichere Tau_xy in Spalte 4

	allsel					! Alles selektieren

!--Berechne DP-Spannungen der Beton-Elemente


!-1. Invariante
	*voper,INV1,SARRAYC(1,1),add,SARRAYC(1,2)	! J1=sx+sy

!-2. Invariante
	*voper,SXQUA,SARRAYC(1,1),mult,SARRAYC(1,1)	! sx^2
	*voper,SYQUA,SARRAYC(1,2),mult,SARRAYC(1,2)	! sy^2
	*voper,SXSY,SARRAYC(1,1),mult,SARRAYC(1,2)	! sx*sy
	*voper,TAUQUA,SARRAYC(1,4),mult,SARRAYC(1,4)	! txy^2
	*voper,TAUQUA3,3,mult,TAUQUA(1)			! 3*txy^2
	*voper,J2Dx3_1,SXQUA(1),add,SYQUA(1)		! sx^2+sy^2
	*voper,J2Dx3_2,J2Dx3_1(1),sub,SXSY(1)		! (sx^2+sy^2)-sx*sy

	*voper,J2Dx3,J2Dx3_2(1),add,TAUQUA3(1)		! 3*J2D, 2. dev. Invariante MAL 3

!-Drucker-Prager Spannungen der Beton-Elemente
	*vfun,WURZ,sqrt,J2Dx3(1)			! sqrt(3*J2D)
	HW1DP = (sratio+1)/(2*sratio)			! Hilfswert1, Drucker-Prager
	HW2DP = (sratio-1)/(2*sratio)			! Hilfswert2, Drucker-Prager

	*voper,SDP_1,HW1DP,mult,WURZ(1)			! (s+1)/(2*s)*sqrt(3*J2D)
	*voper,SDP_2,HW2DP,mult,INV1(1)			! (s-1)/(2*s)*J1
	
	*voper,S_DP,SDP_1(1),add,SDP_2(1)		! ÄQUIVALENTE DRUCKER-PRAGER SPANNUNGEN DER KNOTEN VON BETON-ELEMENTEN

!--------------------------------------------

! Lösche wieder alle Hilfs-Arrays
	*del,INV1
	*del,J2DX3
	*del,J2DX3_1
	*del,J2DX3_2
	*del,NMASK
	!*del,SARRAYC
	*del,SDP_1
	*del,SDP_2
	*del,SXQUA
	*del,SXSY
	*del,SYQUA
	*del,TAUQUA
	*del,TAUQUA3
	*del,WURZ
	*del,HW1DP
	*del,HW2DP		

!--------------------------------------------

!---Stahl-Elemente - von-Mises Spannungen
!--Spannungen auslesen aus Postproc
	allsel					! Alles selektieren
	esel,s,mat,,2				! Alle Elemente mit Material 2 selektieren
	esel,a,mat,,4				! Zusätzlich alle Elemente mit Material 4 (Kambium-Stahl) selektieren
	nsle,s,all				! Alle zugehörigen Knoten selektieren

	*del,NMASK				! Lösche NMASK array, falls existiert
	*del,SARRAYS				! Lösche SARRAYS array, falls existiert

	*dim,NMASK,array,NUMCOUNT		! Erstelle NMASK array mit NUMCOUNT Zeilen (also so viele wie es Knoten gibt)
	*dim,SARRAYS,array,NUMCOUNT,4		! Erstelle SARRAYS array mit NUMCOUNT Zeilen und 4 Spalten

	*vget,NMASK(1),node,1,nsel		! Speichere Selektierstatus aller Knoten in Array NMASK
						! 1 = selektiert
						! 0 = nicht definiert, -1 = nicht selektiert

	*vmask,NMASK(1)				! Aktiviere NMASK als masking array für die folgende Operation
	*vget,SARRAYS(1,1),node,1,s,x		! Speichere alle Knotenspannungen Sigma_x der selektierten Knoten in Spalte 1 von SARRAYS
	
	*vmask,NMASK(1)				! Reaktiviere NMASK als masking array
	*vget,SARRAYS(1,2),node,1,s,y		! Speichere Sigma_y in Spalte 2

	*vmask,NMASK(1)				! Reaktiviere NMASK als masking array
	*vget,SARRAYS(1,3),node,1,s,z		! Speichere Sigma_z in Spalte 3

	*vmask,NMASK(1)				! Reaktiviere NMASK als masking array
	*vget,SARRAYS(1,4),node,1,s,xy		! Speichere Tau_xy in Spalte 4

	allsel					! Alles selektieren

!--Berechne vM-Spannungen der Stahl-Elemente
	*voper,SXQUA,SARRAYS(1,1),mult,SARRAYS(1,1)	! sx^2
	*voper,SYQUA,SARRAYS(1,2),mult,SARRAYS(1,2)	! sy^2
	*voper,SXSY,SARRAYS(1,1),mult,SARRAYS(1,2)	! sx*sy
	*voper,TAUQUA,SARRAYS(1,4),mult,SARRAYS(1,4)	! txy^2
	*voper,TAUQUA3,3,mult,TAUQUA(1)			! 3*txy^3
	
	*voper,HW1VM,SXQUA(1),add,SYQUA(1)		! sx^2+sy^2
	*voper,HW2VM,HW1VM(1),sub,SXSY(1)		! (sx^2+sy^2)-sx*sy
	*voper,HW3VM,HW2VM(1),add,TAUQUA3(1)		! (sx^2+sy^2)-sx*sy+3*txy^2

	*vfun,S_VM,sqrt,HW3VM(1)			! ÄQUIVALENTE VON-MISES SPANNUNGEN DER KNOTEN VON STAHL-ELEMENTEN

!--------------------------------------------

! Lösche wieder alle Hilfs-Arrays
	*del,HW1VM
	*del,HW2VM
	*del,HW3VM
	*del,NMASK
	!*del,SARRAYS
	*del,SXQUA
	*del,SXSY
	*del,SYQUA
	*del,TAUQUA
	*del,TAUQUA3		

!--------------------------------------------------------------------------------------------------

!-----ÜBERPRÜFE SPANNUNGSÜBERSCHREITUNGEN IM KAMBIUM-----

!---Beton-Elemente
	allsel						! Selektiere alles
	!cmsel,s,KAMBIUM				! Selektiere alle Kambium-Elemente (Beton & Stahl) über Komponente "KAMBIUM"
	esel,s,mat,,3					! Selektiere alle Beton-Elemente im Kambium
	nsle,s,all					! Selektiere die zugehörigen Knoten dieser Elemente

	*del,NCMASKKAMB					! Lösche NCMASKKAMB, falls exisitiert
	*dim,NCMASKKAMB,array,NUMCOUNT			! Erstelle Masking Array "Beton-Kambium-Knoten"

	*vget, NCMASKKAMB(1),node,1,nsel		! Speichere Selektierstatus der Knoten in NCMASKKAMB

	*vmask,NCMASKKAMB(1)				! Aktiviere Masking Array NCMASKKAMB
	*voper,DELTASDP,S_DP(1),sub,FCTM		! Speichere Spannungsdifferenz der Kambium-Beton-Knoten
	allsel

!---Stahl-Elemente
	allsel
	!cmsel,s,KAMBIUM				! Selektiere alle Kambium-Elemente (Beton & Stahl) über Komponente "KAMBIUM"
	esel,s,mat,,4					! Selektiere alle Stahl-Elemente im Kambium
	nsle,s,all					! Selektiere die zugehörigen Knoten dieser Elemente
	
	*del,NSMASKKAMB					! Lösche NSMASKKAMB, falls existiert
	*dim,NSMASKKAMB,array,NUMCOUNT			! Erstelle Masking Array "Stahl-Kambium-Knoten"

	*vget,NSMASKKAMB,node,1,nsel			! Speichere Selektierstatus der Knoten in NSMASKKAMB

	*vmask,NSMASKKAMB(1)				! Aktiviere Masking Array NSMASKKAMB
	*voper,DELTASVM,S_VM,sub,FYK			! Speichere Spannungsdifferenz der Kambium-Stahl-Knoten
	allsel
	
! Beende Postprocessor	
	finish

!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!
!-------2) FE-Berechnung der Temperaturlasten (Simulation des biol. Wachstums)--------------------!
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++!

!---Starte Solution-Teil
	/solu

!---Speichere alle bisherigen Parameter in "savedpar.parm"
	parsav,all,savedpar

!---Resete Datenbank zum Punkt vor dem ersten Solution-Processor
	antype,static,rest

!---Wiedereinlesen der gespeicherten Parameter "savedpar.parm"
	parres,new,savedpar

!---Lösche Lasten
	allsel
	fdele,all
	bfdele,all,all

!---Setze Delta_Sigma = Delta_Temperatur für jeden Knoten im Kambium
	
	*do,i,1,NUMCOUNT,1			! NUMCOUNT = Gesamtanzahl der Knoten
		
          DELTA_DP=DELTASDP(i)			! Drucker-Prager Spannungsdifferenz am Knoten i
	  DELTA_VM=DELTASVM(i)			! von-Mises Spannungsdifferenz am Knoten i

  	  DELTAMAX=max(DELTA_DP,DELTA_VM)
	  DELTAMIN=min(DELTA_DP,DELTA_VM)
	
	  *if,DELTAMAX,ge,0,then		! If DELTAMAX >= 0, dann...
	    bf,i,temp,DELTAMAX			! Temperatur_i = Max. Spannungsdifferent am Knoten i (postiv)
	  *elseif,DELTAMAX,lt,0,then		! Elseif DELTAMAX < 0, dann...
	    bf,i,temp,DELTAMIN			! Temperatur_i = Min. Spannungsdifferenz am Knoten i (negativ oder 0)
	  *endif	
		
	*enddo
!-------------------------------------------------------------------------------------

!---Schreibe Load Step File Temperatur
	lswrite,2

!---Absenken der E-Moduli im Kambium für biol. Wachstums
	mp,ex,3,E1/400				! Absenken des E-Moduls der Beton-Kambium-Elemente auf 1/400E1
	mp,ex,4,E2/400				! Absenken des E-Moduls der Stahl-Kambium-Elemente auf 1/400E2

!---Löse Gleichungssystem
	lssolve,2

!---Lösche Lasten
	allsel
	fdele,all
	bfdele,all,all

!---Beende Solution-Teil
	finish

!---Postprocessor
	/post1
	eplot
	finish