/PREP7  
!* 
!*******************	!Geometrieparameter
dd=3			!Durchmesser
Dm=18			!mittlerer Durchmesser
Ra=Dm/2+dd/2		!Au?enradius
Alpha_D=180		!Ausgangsbogen
L_gerad=10		!gerade Einzugsl?nge
Df=dd*1.05		!Durchmesser Drahtf?hrung
L_Df=6			!L?nge Drahtf?hrung
Start_Df=0		!Beginn Drahtf?hrung (muss negativ sein!)
n_Dfrad=5		!Elementteilung Drahtf?hrung radial (x4)
n_Dflae=12		!Elementteilung Drahtf?hrung l?ngs
alpha_Wu=45		!Winkel unten
n_Wrad=8		!Teilung radial
n_Wlae=8		!Teilung l?ngs
alpha_Wo=130		!Winkel oben
alpha_Haken=225		!Winkel Haken
teilvoranf=1.1*3.1416*Dm*(alpha_Haken-180)/360	!erster Drahtvorschub
Gesamtvor=L_Gerad-2+Start_Df-teilvoranf
teilvor=Gesamtvor/10		!Teilvorschub Draht

!*****************************	!Elementdefinition
ET,1,SOLID185

MPTEMP,,,,,,,,  
MPTEMP,1,20 
MPDATA,EX,1,,203715 
MPDATA,PRXY,1,,0.285
TB,MISO,1,1,9,0

TBTEMP,20   
TBPT,,0.006,1222  
TBPT,,0.008,1578  
TBPT,,0.0095,1724 
TBPT,,0.012,1832  
TBPT,,0.015,1902  
TBPT,,0.02,1958
TBPT,,0.03,2019
TBPT,,0.04,2049
TBPT,,0.05,2070


ET,2,200,6		!mit Mittelknoten Keyopt 1=7, ohne 6

ET,3,BEAM4 
!*  
R,3,100,100,100,100,100, , 
RMORE, ,100, , , , , 
!*  
!MPTEMP,,,,,,,,  
!MPTEMP,1,0  
!MPDATA,EX,3,,210000000 
!MPDATA,PRXY,3,,0.3


MPDATA,EX,3,,2.1E+008   
MPDATA,PRXY,3,,0.3  

ET,4,SHELL63
  
R,4,.5,.5,.5,.5, , ,
MPDATA,EX,4,,2.1E+008   
MPDATA,PRXY,4,,0.3  
!*  
 
 

ET,5,Conta173			!Drahtf?hrung
keyopt,5,1,0			!Selects degrees of freedom
keyopt,5,2,0			!Contact algorithm
keyopt,5,5,0			!CNOF/ICONT automated adjustment
keyopt,5,9,0			!Effect of initial penetration or gap
keyopt,5,10,2			!updata contact stiffness
R,5,0,0,10,-0.02,0.1,0.1 	!R1,R2,FKN,FTOLN,ICONT,PINB

ET,6,Targe170,, 		!Draht in F?hrung


ET,7,Conta173			!Windefinger unten
keyopt,7,1,0			!Selects degrees of freedom
keyopt,7,2,0			!Contact algorithm
keyopt,7,5,0			!CNOF/ICONT automated adjustment
keyopt,7,9,0			!Effect of initial penetration or gap
keyopt,7,10,2			!updata contact stiffness
R,7,0,0,10,-0.02,0.1,0.1 	!R1,R2,FKN,FTOLN,ICONT,PINB

ET,8,Targe170,1,1 		!Draht unten

ET,9,Conta173			!Windefinger oben
keyopt,9,1,0			!Selects degrees of freedom
keyopt,9,2,0			!Contact algorithm
keyopt,9,5,0			!CNOF/ICONT automated adjustment
keyopt,9,9,0			!Effect of initial penetration or gap
keyopt,9,10,2			!updata contact stiffness
R,9,0,0,10,-0.02,0.1,0.1	!R1,R2,FKN,FTOLN,ICONT,PINB

ET,10,Targe170,1,1 		!Draht oben

ET,11,Conta173			!Steigungskeil
keyopt,11,1,0			!Selects degrees of freedom
keyopt,11,2,0			!Contact algorithm
keyopt,11,5,0			!CNOF/ICONT automated adjustment
keyopt,11,9,0			!Effect of initial penetration or gap
keyopt,11,10,2			!updata contact stiffness
R,11,0,0,10,-0.02,0.1,0.1		!R1,R2,FKN,FTOLN,ICONT,PINB

ET,12,Targe170,1,1 		!Draht gegen Steigungskeil


!***************************	!Drahtmodellierung
*set,d,Df,   
*set,radius,Dm/2, 
*set,w_thxy,Alpha_D,
*set,w_thyz,180, 

*IF,INDEX,NE,1,THEN		! Makro d_bog
	nz=1
	pi=3.14159
	k,1,0,0,0
	hoehe=0
	hoehe1=0
*ENDIF
!*
*if,GRAD,eq,0,then
	meshfact=0.5
*elseif,GRAD,eq,1,then
	meshfact=1
*elseif,GRAD,eq,2,then
	meshfact=2
*endif
!*
laenge=radius*w_thxy*PI/180
eanz=nint(meshfact*8*laenge/d)		!Teilung verringert (alt 3, danach 5)
*IF,eanz,EQ,0,THEN
	eanz=1
*ENDIF
/PSYMB,CS,1 
!/VIEW, 1 ,1,1,1 
!/ANG, 1 
/REP
!*  
csys,4 
wpoff,0,cos(w_thyz*PI/180)*radius,sin(w_thyz*PI/180)*radius
wprot,0,w_thyz,0
wpstyle,,,,,,1,
laenge=laenge/eanz
*DO,NZAHL,nz,nz+eanz-1,1
	KGEN,2,NZAHL,,,0,w_thxy/eanz,
	L,NZAHL,NZAHL+1
*ENDDO
!*
nz=NZAHL+1
INDEX=1  
wpstyle,,,,,,0,
*get,x0,KP,nz,loc,x
*get,y0,KP,nz,loc,y
*get,z0,KP,nz,loc,z
wpoff,x0,y0,z0
wprot,w_thxy,0,0
!*  
/PNUM,NODE,1
LPLOT 
/rep				!Ende Makro d_bog

!
*set,d,Df,   
*set,laenge,l_gerad,  
*set,w_thxy,0,

!21.01.02			!Makro d_gerad
*IF,INDEX,NE,1,THEN
	nz=1
	pi=3.14159
	hoehe=0
	hoehe1=0
*ENDIF
eanz=nint(6*laenge/d-0.01)	!Teilung verfeinert (alt 3 danach 4)
*IF,eanz,EQ,0,THEN
	eanz=1
*ENDIF
/PSYMB,CS,1 
!/VIEW, 1 ,1,1,1 
!/ANG, 1 
/REP
!*  
/PREP7
!*activate wp tracking 
csys,4 
!* 
!*working plane
wpoff,0,0,0
wprot,w_thxy,0,0
*IF,INDEX,NE,1,THEN
	K,nz,0,0,0
*ENDIF
laenge1=laenge/eanz
x0=0
nz=nz+1
*DO,NZAHL,nz,nz+eanz-1,1
	x0=x0+laenge1
	K,NZAHL,x0,0,0,
	L,NZAHL-1,NZAHL
*ENDDO

lesize,all,,,1
!*
nz=NZAHL
!*  
/PNUM,NODE,1
!*
INDEX=1  
*stat
wpoff,laenge,0,0
wprot,0,0,0
/pnum,kp,1
lplot
/rep				!Ende Makro d_gerad

!*  
/PNUM,KP,0  
/PNUM,NODE,0
/PNUM,ELEM,0 

csys,0
*get,linemax,line,0,num,max 
k,900,0,0,-5
k,950,0,5,0

cskp,11,1,1,900,950	!Vernetzung Drahtquerschnitt

k,1000,dd/2,0,0		!Au?enkreis
k,1001,dd/2,15,0
k,1002,dd/2,30,0
k,1003,dd/2,45,0
k,1004,dd/2,60,0
k,1005,dd/2,75,0
k,1006,dd/2,90,0
k,1007,dd/2,105,0
k,1008,dd/2,120,0
k,1009,dd/2,135,0
k,1010,dd/2,150,0
k,1011,dd/2,165,0
k,1012,dd/2,180,0
k,1013,dd/2,195,0
k,1014,dd/2,210,0
k,1015,dd/2,225,0
k,1016,dd/2,240,0
k,1017,dd/2,255,0
k,1018,dd/2,270,0
k,1019,dd/2,285,0
k,1020,dd/2,300,0
k,1021,dd/2,315,0
k,1022,dd/2,330,0
k,1023,dd/2,345,0

larc,1000,1001,1,Df/2
larc,1001,1002,1,Df/2
larc,1002,1003,1,Df/2 
larc,1003,1004,1,Df/2
larc,1004,1005,1,Df/2
larc,1005,1006,1,Df/2
larc,1006,1007,1,Df/2
larc,1007,1008,1,Df/2
larc,1008,1009,1,Df/2
larc,1009,1010,1,Df/2
larc,1010,1011,1,Df/2
larc,1011,1012,1,Df/2
larc,1012,1013,1,Df/2
larc,1013,1014,1,Df/2
larc,1014,1015,1,Df/2 
larc,1015,1016,1,Df/2
larc,1016,1017,1,Df/2
larc,1017,1018,1,Df/2
larc,1018,1019,1,Df/2
larc,1019,1020,1,Df/2
larc,1020,1021,1,Df/2
larc,1021,1022,1,Df/2
larc,1022,1023,1,Df/2
larc,1023,1000,1,Df/2

cskp,12,0,1,900,950

ekl=dd/8

k,1030,0,0,0


k,1031,ekl,0,0
k,1032,0.9*ekl,0.9*ekl,0
k,1033,0,ekl,0
k,1034,-0.9*ekl,0.9*ekl,0
k,1035,-ekl,0,0
k,1036,-0.9*ekl,-0.9*ekl,0
k,1037,0,-ekl,0
k,1038,0.9*ekl,-0.9*ekl,0

k,1039,2*ekl,0,0
k,1040,1.9*ekl,0.9*ekl,0
k,1041,1.7*ekl,1.7*ekl,0
k,1042,0.9*ekl,1.9*ekl,0
k,1043,0,2*ekl,0
k,1044,-0.9*ekl,1.9*ekl,0
k,1045,-1.7*ekl,1.7*ekl,0
k,1046,-1.9*ekl,0.9*ekl,0
k,1047,-2*ekl,0,0
k,1048,-1.9*ekl,-0.9*ekl,0
k,1049,-1.7*ekl,-1.7*ekl,0
k,1050,-0.9*ekl,-1.9*ekl,0
k,1051,0,-2*ekl,0
k,1052,0.9*ekl,-1.9*ekl,0
k,1053,1.7*ekl,-1.7*ekl,0
k,1054,1.9*ekl,-0.9*ekl,0


k,1055,3*ekl,0,0
k,1056,2.9*ekl,0.9*ekl,0
k,1057,2.6*ekl,1.7*ekl,0
k,1058,2.4*ekl,2.4*ekl,0
k,1059,1.7*ekl,2.6*ekl,0
k,1060,0.9*ekl,2.9*ekl,0
k,1061,0,3*ekl,0
k,1062,-0.9*ekl,2.9*ekl,0
k,1063,-1.7*ekl,2.6*ekl,0
k,1064,-2.4*ekl,2.4*ekl,0
k,1065,-2.6*ekl,1.7*ekl,0
k,1066,-2.9*ekl,0.9*ekl,0
k,1067,-3*ekl,0,0
k,1068,-2.9*ekl,-0.9*ekl,0
k,1069,-2.6*ekl,-1.7*ekl,0
k,1070,-2.4*ekl,-2.4*ekl,0
k,1071,-1.7*ekl,-2.6*ekl,0
k,1072,-0.9*ekl,-2.9*ekl,0
k,1073,0,-3*ekl,0
k,1074,0.9*ekl,-2.9*ekl,0
k,1075,1.7*ekl,-2.6*ekl,0
k,1076,2.4*ekl,-2.4*ekl,0
k,1077,2.6*ekl,-1.7*ekl,0
k,1078,2.9*ekl,-0.9*ekl,0

l,1030,1033,1   
l,1033,1034,1   
l,1034,1035,1   
l,1035,1030,1
l,1035,1036,1
l,1036,1037,1
l,1037,1030,1
l,1037,1038,1
l,1038,1031,1   
l,1031,1030,1   
l,1031,1032,1   
l,1032,1033,1
 
l,1033,1043,1  
l,1043,1044,1  
l,1044,1034,1  
l,1044,1045,1  
l,1045,1046,1  
l,1046,1034,1 
l,1046,1047,1  
l,1047,1035,1  
l,1047,1048,1 
l,1048,1036,1  
l,1048,1049,1  
l,1049,1050,1 
l,1050,1036,1  
l,1050,1051,1  
l,1051,1037,1
l,1051,1052,1 
l,1052,1038,1  
l,1052,1053,1  
l,1053,1054,1
l,1054,1038,1  
l,1054,1039,1
l,1039,1031,1
l,1039,1040,1
l,1040,1032,1
l,1040,1041,1
l,1041,1042,1
l,1042,1032,1
l,1042,1043,1

l,1043,1061,1
l,1061,1062,1
l,1062,1044,1
l,1062,1063,1
l,1063,1045,1
l,1063,1064,1
l,1064,1065,1
l,1065,1045,1
l,1065,1066,1
l,1066,1046,1
l,1066,1067,1
l,1067,1047,1
l,1067,1068,1
l,1068,1048,1
l,1068,1069,1
l,1069,1049,1
l,1069,1070,1
l,1070,1071,1
l,1071,1049,1
l,1071,1072,1
l,1072,1050,1
l,1072,1073,1
l,1073,1051,1
l,1073,1074,1
l,1074,1052,1
l,1074,1075,1
l,1075,1053,1
l,1075,1076,1
l,1076,1077,1
l,1077,1053,1
l,1077,1078,1
l,1078,1054,1
l,1078,1055,1
l,1055,1039,1
l,1055,1056,1
l,1056,1040,1
l,1056,1057,1
l,1057,1041,1
l,1057,1058,1
l,1058,1059,1
l,1059,1041,1
l,1059,1060,1
l,1060,1042,1
l,1060,1061,1

start=1000
ende=1055

*DO,j,1,24,1   
l,start,ende,1

start=start+1
ende=ende+1
 
*ENDDO

al,linemax+25,linemax+26,linemax+27,linemax+28 	!Innenring 
al,linemax+28,linemax+29,linemax+30,linemax+31 
al,linemax+31,linemax+32,linemax+33,linemax+34  
al,linemax+34,linemax+35,linemax+36,linemax+25
  
al,linemax+37,linemax+38,linemax+39,linemax+26 	!Zweiter Ring
al,linemax+39,linemax+40,linemax+41,linemax+42  
al,linemax+42,linemax+43,linemax+44,linemax+27  
al,linemax+44,linemax+45,linemax+46,linemax+29  
al,linemax+46,linemax+47,linemax+48,linemax+49  
al,linemax+49,linemax+50,linemax+51,linemax+30
 
al,linemax+51,linemax+52,linemax+53,linemax+32  
al,linemax+53,linemax+54,linemax+55,linemax+56
al,linemax+56,linemax+57,linemax+58,linemax+33  
al,linemax+58,linemax+59,linemax+60,linemax+35
al,linemax+60,linemax+61,linemax+62,linemax+63  
al,linemax+63,linemax+64,linemax+37,linemax+36
  
al,linemax+65,linemax+66,linemax+67,linemax+38  !Dritter Ring
al,linemax+67,linemax+68,linemax+69,linemax+40  
al,linemax+69,linemax+70,linemax+71,linemax+72  
al,linemax+72,linemax+73,linemax+74,linemax+41
al,linemax+74,linemax+75,linemax+76,linemax+43

al,linemax+76,linemax+77,linemax+78,linemax+45
al,linemax+78,linemax+79,linemax+80,linemax+47  
al,linemax+80,linemax+81,linemax+82,linemax+83  
al,linemax+83,linemax+84,linemax+85,linemax+48
al,linemax+85,linemax+86,linemax+87,linemax+50
  
al,linemax+87,linemax+88,linemax+89,linemax+52
al,linemax+89,linemax+90,linemax+91,linemax+54  
al,linemax+91,linemax+92,linemax+93,linemax+94  
al,linemax+94,linemax+95,linemax+96,linemax+55
al,linemax+96,linemax+97,linemax+98,linemax+57

al,linemax+98,linemax+99,linemax+100,linemax+59
al,linemax+100,linemax+101,linemax+102,linemax+61  
al,linemax+102,linemax+103,linemax+104,linemax+105  
al,linemax+105,linemax+106,linemax+107,linemax+62
al,linemax+107,linemax+108,linemax+65,linemax+64

al,linemax+115,linemax+7,linemax+116,linemax+66	!Au?enring
al,linemax+116,linemax+8,linemax+117,linemax+68  
al,linemax+117,linemax+9,linemax+118,linemax+70  
al,linemax+118,linemax+10,linemax+119,linemax+71
al,linemax+119,linemax+11,linemax+120,linemax+73
al,linemax+120,linemax+12,linemax+121,linemax+75

al,linemax+121,linemax+13,linemax+122,linemax+77  
al,linemax+122,linemax+14,linemax+123,linemax+79  
al,linemax+123,linemax+15,linemax+124,linemax+81
al,linemax+124,linemax+16,linemax+125,linemax+82  
al,linemax+125,linemax+17,linemax+126,linemax+84  
al,linemax+126,linemax+18,linemax+127,linemax+86

al,linemax+127,linemax+19,linemax+128,linemax+88  
al,linemax+128,linemax+20,linemax+129,linemax+90  
al,linemax+129,linemax+21,linemax+130,linemax+92
al,linemax+130,linemax+22,linemax+131,linemax+93  
al,linemax+131,linemax+23,linemax+132,linemax+95  
al,linemax+132,linemax+24,linemax+109,linemax+97

al,linemax+109,linemax+1,linemax+110,linemax+99  
al,linemax+110,linemax+2,linemax+111,linemax+101  
al,linemax+111,linemax+3,linemax+112,linemax+103
al,linemax+112,linemax+4,linemax+113,linemax+104  
al,linemax+113,linemax+5,linemax+114,linemax+106  
al,linemax+114,linemax+6,linemax+115,linemax+108

lesize,all,,,1

type,2
amesh,all

csys,0

type,1
mat,1

volumen=1
*DO,j,1,60,1   
	vdrag,volumen,,,,,,1 
	volumen=volumen+1
 
*ENDDO

VPLOT   


	linelong=2
	atotrack=65

*DO,j,1,linemax-1,1
!*DO,j,1,5,1		!Zum Probieren

	*Do,atr,1,60,1
		VDRAG,atotrack,,,,,,linelong, 
		atotrack=atotrack+5
	*ENDDO

	linelong=linelong+1
 
*ENDDO


allsel,,all
MODMESH,DETACH
nummrg,node,0.05

vdele,all,,,1
ldele,all,,,1
kdele,all

numcmp,kp
numcmp,line
numcmp,area
numcmp,volu
numcmp,node
numcmp,elem

cm,Draht,elem

!*************************** Werkzeuge

Local,15,1,0,-Dm,0,,,90		!Drahtf?hrung
k,1,0,0,0

k,10,Df/2,5,0
k,11,Df/2,95,0
k,12,Df/2,185,0
k,13,Df/2,275,0

larc,10,11,1,Df/2
larc,11,12,1,Df/2
larc,12,13,1,Df/2 
larc,13,10,1,Df/2

k,2,0,0,-L_Df
k,20,Df/2,5,-L_Df
k,21,Df/2,95,-L_Df
k,22,Df/2,185,-L_Df
k,23,Df/2,275,-L_Df

larc,20,21,2,Df/2
larc,21,22,2,Df/2
larc,22,23,2,Df/2
larc,23,20,2,Df/2
lesize,all,,,n_Dfrad

l,10,20
l,11,21
l,12,22
l,13,23
lesize,all,,,n_Dflae

al,1,9,5,10
al,2,10,6,11
al,3,11,7,12
al,4,12,8,9

nsel,none
n,,Df/2,275,0

Type,4
Real,4
Mat,4

amesh,all
nummrg,node,0.1

cm,Drahtfuehrung,node

			!Kontakte auf Drahtf?hrung
Type,5
Real,5

esurf

csys,0
cmsel,,draht		!Targets auf Draht
nsle
nsel,r,loc,x,-1000,-0.05
esln

Type,6
Real,5

esurf



xunten=Dm/2*sin(alpha_Wu*PI/180)		!Windefinger unten
yunten=-Dm/2*(1+cos(alpha_Wu*PI/180))
Local,16,1,xunten,yunten,0,alpha_Wu,,90

k,29,0,0,dd/2

k,30,Df/2,210,dd/2
k,31,Df/2,330,dd/2

larc,30,31,29,Df/2

k,39,0,0,-dd/2
k,40,Df/2,210,-dd/2
k,41,Df/2,330,-dd/2


larc,40,41,39,Df/2

lesize,all,,,n_Wrad

l,30,40,n_Wlae
l,31,41,n_Wlae

asel,none
al,13,16,14,15

nsel,none
!n,,Df/2,275,0									!neu

Type,4
Real,4
Mat,4

amesh,all
nummrg,node,0.1									!neu

!nsel,u,,,primnode								!test

cm,Wunten,node									!neu

nsel,none		! Balken als Festhaltung
n,,Df,270,0
*get,wu_fest,node,0,num,min

nsel,,loc,x,Df/2-0.05,Df/2+0.05
nsel,r,loc,y,209,211
nsel,r,loc,z,Dd/2-0.05,Dd/2+0.05
*get,node1,node,0,num,max

nsel,,loc,x,Df/2-0.05,Df/2+0.05
nsel,r,loc,y,329,331
nsel,r,loc,z,Dd/2-0.05,Dd/2+0.05
*get,node2,node,0,num,max

nsel,,loc,x,Df/2-0.05,Df/2+0.05
nsel,r,loc,y,209,211
nsel,r,loc,z,-Dd/2-0.05,-Dd/2+0.05
*get,node3,node,0,num,max

nsel,,loc,x,Df/2-0.05,Df/2+0.05
nsel,r,loc,y,329,331
nsel,r,loc,z,-Dd/2-0.05,-Dd/2+0.05
*get,node4,node,0,num,max

allsel,,all

Type,3
Real,3
Mat,3

e,node1,wu_fest
e,node2,wu_fest
e,node3,wu_fest
e,node4,wu_fest

Type,7			!Kontakte auf Windefinger unten
Real,7

cmsel,,Wunten										!neu
esurf

cmsel,,draht		!Targets auf Draht
nsle

csys,0
nsel,r,loc,x,-1000,0.05
nsel,r,loc,y,-Dm-dd,-Dm+0.05
cm,Draht_gerade,node

cmsel,,draht		!Targets auf Draht
nsle
Local,17,1,0,-Dm/2,0,-90,,0
nsel,r,loc,y,-0.1,alpha_Wu+20
nsel,u,loc,x,0,Dm/2+0.1
cm,Drahtbog_unten,node

cmsel,,Draht_gerade
cmsel,a,Drahtbog_unten

Type,8
Real,7

esurf



allsel,,all


!*************************  Randbedingungen

cmsel,,Drahtfuehrung
cp,,all,all
*get,primnode,node,0,num,min	! neu mit coupled degreesm of freedom
d,primnode,all

allsel,,all							!neu

cmsel,,Wunten
cp,,all,all
*get,primnode_Wunten,node,0,num,min	! neu mit coupled degreesm of freedom		!neu
d,primnode_Wunten,all									!neu


!nsel,,,,wu_fest		! hier Befestigungsknoten
!nsel,a,,,wo_fest
!d,all,all

!cmsel,,steighaken
!cp,,all,all
!*get,primnode_Haken,node,0,num,min
!d,primnode_Haken,ux,0,,,,uy,rotx,roty,rotz
!allsel,,all

nsel,,loc,x,-L_gerad-0.1,-L_gerad+0.1		!Definition Komponenten Vorschubknoten
d,all,uy,0,,,,uz

cmsel,,draht
nsle
nsel,r,loc,x,-teilvoranf-2-0.5,-teilvoranf-2+0.5
cm,teilvor1,node

nsel,,loc,x,-teilvoranf-teilvor-2-0.7,-teilvoranf-teilvor-2+0.7
cm,teilvor2,node

nsel,,loc,x,-teilvoranf-2*teilvor-2-0.7,-teilvoranf-2*teilvor-2+0.7
cm,teilvor3,node

nsel,,loc,x,-teilvoranf-3*teilvor-2-0.7,-teilvoranf-3*teilvor-2+0.7
cm,teilvor4,node

nsel,,loc,x,-teilvoranf-4*teilvor-2-0.7,-teilvoranf-4*teilvor-2+0.7
cm,teilvor5,node

nsel,,loc,x,-teilvoranf-5*teilvor-2-0.7,-teilvoranf-5*teilvor-2+0.7
cm,teilvor6,node

nsel,,loc,x,-teilvoranf-6*teilvor-2-0.7,-teilvoranf-6*teilvor-2+0.7
cm,teilvor7,node

nsel,,loc,x,-teilvoranf-7*teilvor-2-0.7,-teilvoranf-7*teilvor-2+0.7
cm,teilvor8,node

nsel,,loc,x,-teilvoranf-8*teilvor-2-0.7,-teilvoranf-8*teilvor-2+0.7
cm,teilvor9,node

nsel,,loc,x,-teilvoranf-9*teilvor-2-0.7,-teilvoranf-9*teilvor-2+0.7
cm,teilvor10,node

nsel,,loc,x,-teilvoranf-10*teilvor-2-0.7,-teilvoranf-10*teilvor-2+0.7
cm,teilvor11,node

allsel,,all
eplo


FINISH

/SOL

ANTYPE,0
NLGEOM,1
NSUBST,50,200,20
TIME,1				!LS 1: erster Vorschub Draht
pstress,on
outres,all,20
!save

d,primnode_Wunten,roty,3.6

cmsel,,teilvor1
cmsel,a,teilvor2
cmsel,a,teilvor3
cmsel,a,teilvor4
cmsel,a,teilvor5
cmsel,a,teilvor6
cmsel,a,teilvor7
cmsel,a,teilvor8
cmsel,a,teilvor9
cmsel,a,teilvor10
cmsel,a,teilvor11

d,all,ux,teilvoranf

allsel,,all

Tunif,20

SOLVE   
FINISH