!Makro zur Torsionsstab

!***Standardprozeduren***
	FINI																																										!Wechsel in das Hauptmenü
	/CLEAR																																									!Löschen der vorangegangenen Datenbasis
	/CWD,'D:\users\jhaase\Ansys\Torsionsstab\Working Directory\'																	!Wechsel in das Arbeitsverzeichnis
	/DELETE,'Torsionsstab_01','log'																													!Löschen der alten LOG-Datei
	/DELETE,'Torsionsstab_01','err'																													!Löschen der alten ERR-Datei
	/Filname,Trosionsstab_01,1																															!Beginn mit neuem LOG und ERROR-Files
	/TITLE,Torsionsstab
																																													!Titel, der im Ansys-GUI angezeigt wird
	/CONFIG,NPROC,1																																					!Volle Prozessorleistung, ein Prozessor
	PI=ACOS(-1)																																							!Berechnung von Pi
	
	
	
!***Parameterdefinition***

	!---Maße---
	d_a=20																																									!Außendurchmesser
	d_i=5																																										!Innendurchmesser
	l=250
	
	!---Belastung---																																				!Länge des Stabes
	M=1000																																							    !Belastung -> Moment 
	
	
!***Preprocessing***
/PREP7																																										!Wechsel in den Preprozessor

	!---Element-Definition---																														
	ET,1,SOLID45																																						!Elementtyp für isotrope Rechnung
	KEYOPT,1,4,1																																						!Ausrichtung des Elemntkoordinatensystem an I-J-Linie	

	!---Werkstoffdefinition---                                                                                          
	MP,EX,1,206000																																					!E-Modul Federstahl N/mm^2	
	MP,NUXY,1,0.3																																						!Querkontraktion Federstahl 
			                                                                                                             
	!---Aufbau des Zylidners---
		
		!---Keypoints---
		K,,,-d_a/2,																																							
		K,,,-d_i/2,
		K,,,d_i/2,	
		K,,,d_a/2,
		
		K,,l,-d_a/2,																																							
		K,,l,-d_i/2,																			
		K,,l,d_i/2,																																							
		K,,l,d_a/2,																																								
		
		K,,,,d_a/2																																									!Orientierung für Kreisbögen
		K,,,,-d_a/2
		K,,l,,d_a/2
		K,,l,,-d_a/2																																								
			
		!---Linien---
		LARC,1,4,9,d_a/2																																						!große Kreisbögen
		LARC,5,8,11,d_a/2
		LARC,4,1,10,d_a/2
		LARC,8,5,12,d_a/2
		
		LARC,2,3,9,d_i/2																																						!kleine Kreisbögen
		LARC,3,2,10,d_i/2
		LARC,6,7,11,d_i/2
		LARC,7,6,12,d_i/2
			
		L,1,5
		L,2,6		
		L,3,7
		L,4,8
		
		L,1,2
		L,5,6
		L,3,4
		L,7,8
			
		!---Flächen---
		!---Mittelfächen
		AL,9,14,10,13
		AL,11,16,12,15
		
		!---obere Flächen---		
		AL,9,1,12,2																																									!gekrümmte Fläche außen																																			
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!		
		AL,5,10,7,11																																								!gekrümmte Fläche innen			
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!		
		AL,1,15,5,13																																								!Deckflächen
		AL,2,16,7,14
			
		!---untere Flächen
		AL,12,4,9,3
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!		
		AL,6,11,8,10
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!		
		AL,4,14,8,16
		AL,3,13,6,15		
			
  	!---Neue Volumen erzeugen---
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  	VA,4,2,3,1,5,6																																							!oberes Volumen
		VA,8,1,7,2,9,10																																							!unteres Volumen
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	!!---Vernetzung----
	VMESH,ALL																																											!alle Volumen vernetzen     	

  !!!---Elementskoordinatensystem anschalten---  	               
  /PSYMB,ESYS,1                
  /VSCALE,1,5,0  
  /REPLOT