/FILNAM, Aufgabe_1				! Dateiname
/title, Aufgabe_1

!########################################################
!#	Beginn des Preprocessings			#
!########################################################

/PREP7						! Wechsel in den Preprocessor

!########################################################
!#	Parameterdefinition				#
!########################################################

*set,E_Modul,70000			        ! Definition E-Modul (70000[MPa])
*set,Querkontraktionszahl,0.34			! Definition Querkontraktionszahl (0.34[-])

*set,Dmon,3000					! Durchmesser Montagekreis (3000[mm])
*set,Dfla,500			            	! Durchmesser Flansch (500[mm])			
*set,Hstu,1000		            		! Höhe der Stützen (1000[mm])
*set,Hebe,2250					! Höhe einer Ebene (2250[mm])
*set,Hges,10000					! Höhe Gesamt (10000[mm])
*set,Fp,930					! Gewichtskraft der Panele auf dem Mars (930[N])

!########################################################
!#	Definition des Elementtyps			#
!########################################################

ET,1,Link8					! Elementtyp Nr. 1 ist LINK1

!########################################################
!#	Definition des Rohrquerschnitts			#
!########################################################

R,1,549.78					! Querschnittsfläche Rohr (549.78[mm^2])

!########################################################
!#	Definition des Materials			#
!########################################################

mp,ex,1,E_Modul
mp,prxy,1,Querkontraktionszahl

!########################################################
!#	Fachwerksknoten					#
!########################################################

N,1,0,0,0				    
N,2,Dmon,0,0				   
N,3,Dmon,0,Dmon				
N,4,0,0,Dmon
N,5,Dmon/2,Hstu*2/3,Dmon/2
N,6,(Dmon-Dfla)/2,Hstu,Dmon/2
N,7,Dmon/2,Hstu,(Dmon-Dfla)/2
N,8,Dmon-((Dmon-Dfla)/2),Hstu,Dmon/2
N,9,Dmon/2,Hstu,Dmon-((Dmon-Dfla)/2)
N,10,(Dmon-Dfla)/2,Hstu+Hebe,Dmon/2
N,11,Dmon/2,Hstu+Hebe,(Dmon-Dfla)/2
N,12,Dmon-((Dmon-Dfla)/2),Hstu+Hebe,Dmon/2
N,13,Dmon/2,Hstu+Hebe,Dmon-((Dmon-Dfla)/2)
N,14,(Dmon-Dfla)/2,Hstu+2*Hebe,Dmon/2
N,15,Dmon/2,Hstu+2*Hebe,(Dmon-Dfla)/2
N,16,Dmon-((Dmon-Dfla)/2),Hstu+2*Hebe,Dmon/2
N,17,Dmon/2,Hstu+2*Hebe,Dmon-((Dmon-Dfla)/2)
N,18,(Dmon-Dfla)/2,Hstu+3*Hebe,Dmon/2
N,19,Dmon/2,Hstu+3*Hebe,(Dmon-Dfla)/2
N,20,Dmon-((Dmon-Dfla)/2),Hstu+3*Hebe,Dmon/2
N,21,Dmon/2,Hstu+3*Hebe,Dmon-((Dmon-Dfla)/2)
N,22,(Dmon-Dfla)/2,Hges,Dmon/2
N,23,Dmon/2,Hges,(Dmon-Dfla)/2
N,24,Dmon-((Dmon-Dfla)/2),Hges,Dmon/2
N,25,Dmon/2,Hges,Dmon-((Dmon-Dfla)/2)

/REPLOT						! Darstellung wird regeneriert / aktualisiert

!########################################################
!#	Rohre			    			#
!########################################################

MAT,1						! Definition des Materials für Vernetzung
TYPE,1   					! Definition des Elementtyps für Vernetzung
REAL,1						! Definition der Querschnittsflaeche des Elements
        
EN,1,1,5					! Element 1 zwischen Knoten 1 und 5   
EN,2,2,5					! Element 2 zwischen Knoten 2 und 5
EN,3,3,5					! Und so weiter...
EN,4,4,5
EN,5,1,6
EN,6,1,7
EN,7,2,7
EN,8,2,8
EN,9,3,8
EN,10,3,9
EN,11,4,9
EN,12,4,6
EN,13,5,6
EN,14,5,7
EN,15,5,8
EN,16,5,9
EN,17,6,7
EN,18,7,8
EN,19,8,9
EN,20,9,6
EN,21,6,10
EN,21,7,11
EN,22,8,12
EN,23,9,13
EN,24,6,12
EN,25,10,11
EN,26,11,12
EN,27,12,13
EN,28,13,10
EN,29,10,14
EN,30,11,15
EN,31,12,16
EN,32,13,17
EN,33,12,14
EN,34,14,15
EN,35,15,16
EN,36,16,17
EN,37,17,14
EN,38,14,18
EN,39,15,19
EN,40,16,20
EN,41,17,21
EN,42,14,20
EN,43,18,19
EN,44,19,20
EN,45,20,21
EN,46,21,18
EN,47,20,22
EN,48,18,22
EN,49,19,23
EN,50,20,24
EN,51,21,25
EN,52,6,10
EN,53,22,23
EN,54,23,24
EN,55,24,25
EN,56,25,22


/PNUM,NODE,1					! Darstellen der Knotennummern
/PNUM,ELEM,1					! Darstellen der Elementnummern
GPLOT  						! Aktivierung Multiplotmodus
/REPLOT						! Darstellung wird regeneriert / aktualisiert

!########################################################
!#	Randbedingungen - Lagerungen			#
!########################################################

d,1,ALL,0					! Verschiebung am Knoten 1 beträgt 0[mm] (X-Richtung)
d,2,ALL,0					! Verschiebung am Knoten 2 beträgt 0[mm] (X-Richtung)
d,3,ALL,0					! Verschiebung am Knoten 3 beträgt 0[mm] (X-Richtung)
d,4,ALL,0					! Verschiebung am Knoten 4 beträgt 0[mm] (X-Richtung)

!########################################################
!#	Randbedingungen - Kraefte			#
!########################################################

f,22,fy,-Fp/4					! Kraftkomponente in (negative) Y-Richtung am Knoten 22
f,23,fy,-Fp/4					! Kraftkomponente in (negative) Y-Richtung am Knoten 23
f,24,fy,-Fp/4					! Kraftkomponente in (negative) Y-Richtung am Knoten 24
f,25,fy,-Fp/4					! Kraftkomponente in (negative) Y-Richtung am Knoten 25
f,10,fx,-700
f,10,fy,-700
f,11,fz,-700
f,11,fy,-700
f,12,fx,700
f,12,fy,-700
f,13,fz,700
f,13,fy,-700
 
/REPLOT						! Darstellung wird regeneriert / aktualisiert

!########################################################
!#	Ende des Proprocessings				#
!########################################################

finish

!########################################################
!#	Processing					#
!########################################################

allsel,all					! Alles selektieren
/solu						! Wechsel ins Solvermodul
solve						! Start der Berechnung

!########################################################
!#	Postprocessing					#
!########################################################

/post1						! Wechsel in den Postprozessor