FINISH

/CLEAR,nostart
/TITLE Modell 1

			!-------------------------------------------------
			! IMS-3 
			! Modell 1
			!-------------------------------------------------


!-------------------------------------------------
! PreProcessing
!-------------------------------------------------

/PREP7

!-------------------------------------------------
! Modellierung
!-------------------------------------------------

    *SET,RADIUS,5.5


		! Erzeugen der Keypoints f?r Volumen 
			k,1,0,0,0
			k,2,57.03,0,0
			k,3,85.8,45,0
			k,4,40.93,45,0
			k,5,87.39,47.49,0
			k,6,51.85,57.01,0
			k,7,98.59,65,0
			k,8,68.09,74.85,0
			k,9,111.37,85,0
			k,10,77.32,85,0
	
		! Erzeugen des Kreismittelpunktes
			k,11,77.04,61,0 		

		! Erzeugen der Keypoints f?r Extrusionslinien
			k,12,0,0,-2
			k,13,0,0,12
			k,14,0,0,16.5

		! Erzeugen eines Keypoints zur Kreisausrichtung
			k,100,86.85,45,0
	
		! Erzeugen der Kreislinien
			circle,11,RADIUS,,100,360,6		! -> Linien L1 - L6

		! Erzeugen der Linien f?r Fldchen
			l,1,2						! -> Linie L7
			l,2,3						! -> Linie L8
			l,3,4						! -> Linie L9
			l,4,1						! -> Linie L10
	
			l,3,5 						! -> Linie L11
			l,5,6 						! -> Linie L12
			l,6,4						! -> Linie L13
	
			l,5,7						! -> Linie L14
			l,7,8 						! -> Linie L15
			l,8,6 						! -> Linie L16
			
			l,7,9						! -> Linie L17
			l,9,10						! -> Linie L18
			l,10,8 						! -> Linie L19
	
			l,5,15 						! -> Linie L20
			l,7,16						! -> Linie L21
			l,8,18						! -> Linie L22
			l,6,19						! -> Linie L23

		! Erzeugen der Extrusionslinien
			l,1,12						! -> Linie L24
			l,1,13						! -> Linie L25
			l,13,14						! -> Linie L26
	
		! Verbinden von Kreissegmentlinien
			lcomb,2,3					! -> Linie L5
			lcomb,5,6					! -> Linie L27

		! Erzeugen der Fldchen
			al,7,8,9,10					! -> Fldche A1
			al,9,11,12,13					! -> Fldche A2
			al,15,17,18,19					! -> Fldche A3
			al,1,20,14,21					! -> Fldche A4
			al,2,21,15,22					! -> Fldche A5
			al,4,22,16,23					! -> Fldche A6
			al,5,23,12,20					! -> Fldche A7

		! Extrusion der Fldchen an Linien
			vdrag,1,,,,,,24					! -> Volumen V1
			vdrag,1,2,3,4,5,6,25				! -> Volumen V2 - Volumen V7
			vdrag,7,,,,,,25					! -> Volumen V8
			vdrag,17,,,,,,26				! -> Volumen V9

		! Elementtyp definieren	
			et,1,solid45  			

		! E-Modul wdhlen: 1 oder 2 (Einheit N/mm^2)
			mp,ex,1,65000	
			!mp,ex,1,73000 	
	
		! Querkontraktionszahl
			mp,prxy,1,0.35	
	
		! Elementgrf?e festlegen
		esize,3
	
!-------------------------------------------------
! Vernetzung
!-------------------------------------------------

		! Vernetzung der Volumen
			vmesh,all


		! zusammenliegende Knoten verschmelzen	
			nummrg,node

	
	
FINISH
/SOLU


!-------------------------------------------------
! Einspannung
!-------------------------------------------------


		! statische Analyse
			antype,0

		! Grundfldche auswdhlen	
			nsel,s,loc,y,0
	
		! Grundfldche einspannen
			d,all,all
	
		! Fldchenauswahl aufheben
			nsel,all



			
!-------------------------------------------------
! Zylindrisches Koordinatensystem
!-------------------------------------------------

		CLOCAL, 11, 1, 77.04, 61, 0, 0              !Neues Zylinderkoordinatensystem um 36 Grad (Kraftangriffswinkel) gedreht
		CSYS, 11  		                              !Aktivieren
		WPCSYS, 11                                    !W-Plane auf neues KOOS

!/eof
!------------------------------------------------------
! Selektieren der Knoten, der oberen Bohrungshälfte
!------------------------------------------------------

		NSEL, S, LOC, x, 5.5
		NSEL, R, LOC, y, 0, 180
		
		! Als Komponente abspeichern
			cm,Kraftangriffsflaeche,node
		
		!Schleife für Kraftbeaufschlagung
		
			*get,Knoten,node,0,mnloc,x !niedrigste Knotennummer der selektierten
			*dowhile,Knoten	
				nsel,s,,,Knoten
				f,all,fy,sin(nz(Knoten))
				cmsel,s,Kraftangriffsflaeche,node
			*get,Knoten,node,Knoten,nxth
			*enddo
			
		/psf, pres,,1
		
/eof
		
		! Knoten und Fldchenauswahl aufheben
			nsel,all
			asel,all
			
		! Zurück ins ursprüngliche Koordinatensystem
			CSYS, 1
			WPCSYS, 1 
		
/eof




        ! Kraftbetrag [N] angeben
			Kraftbetrag = 15000
				
		! Kraft angreifen lassen
		    *get,KNOTEN,node,0,count                          !selektierte Knoten Zählen
			f,all,fy,Kraftbetrag
			
		! Knoten und Fldchenauswahl aufheben
			nsel,all
			asel,all
			
		! Zurück ins ursprüngliche Koordinatensystem
			CSYS, 1
			WPCSYS, 1 

!/eof
	
!-------------------------------------------------
! Lfsung
!-------------------------------------------------
	

SOLVE
FINISH


!-------------------------------------------------
! Darstellung
!-------------------------------------------------

/POST1

		! Darstellen der Verformung
			!PLNSOL,U,SUM,0,1
	
		! Darstellen der Spannungen (von Mises)
			PLNSOL,S,EQV,0,1
	
/eof