fini
/clear
/filname,Biegeversuch,1
/color,pbak,1,3,5
/device,font,1,Calibri
/device,font,2,Calibri,,,22
/device,font,3,Calibri
/replot
/facet,normal
/graphics,full

/PREP7
cntr,revision,110 	!Berechnung wie mit ANSYS 11

!*******************	!Geometrieparameter
dd=6			!Drahtdurchmesser
L_gerad=22		!gerade Einzugslänge

rl=2.5			!Radius Lagerstellen
ab=20			!Abstand Lagerstellen

!Stempel
rs=2.5			!Radius Stempel
Hakenvor=5		!Vorschub Stempel (0.02 mm Leerweg)

!*******************
Mue=0.0			!Reibwert

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

MPTEMP,,,,,,,,
MPTEMP,1,20 
MPTEMP,2,300
MPTEMP,3,450
MPDATA,EX,1,,203715
MPDATA,EX,1,,196352
MPDATA,EX,1,,188045
MPDATA,PRXY,1,,0.285
MPDATA,PRXY,1,,0.285
MPDATA,PRXY,1,,0.285
TB,MISO,1,3,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
TBTEMP,300
TBPT,,0.00498,978
TBPT,,0.00664,1262
TBPT,,0.00789,1379
TBPT,,0.00996,1465
TBPT,,0.01245,1522
TBPT,,0.0166,1567
TBPT,,0.0249,1615
TBPT,,0.0332,1639
TBPT,,0.0415,1656
TBTEMP,450
TBPT,,0.0039,733
TBPT,,0.0052,947
TBPT,,0.00618,1035
TBPT,,0.0078,1099
TBPT,,0.00975,1141
TBPT,,0.013,1175
TBPT,,0.0195,1211
TBPT,,0.026,1229
TBPT,,0.0325,1242

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

ET,3,SHELL63
  
R,3,.5,.5,.5,.5, , ,
MPDATA,EX,3,,2.1E+008
MPDATA,PRXY,3,,0.3

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

MP,MU,3,Mue 
RMODIF,4,7, 
RMODIF,4,8, 

ET,5,Targe170,, 		!Draht

ET,6,BEAM4 
!*  
R,6,100,100,100,100,100, , 
RMORE, ,100, , , , , 

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

ET,7,SHELL63			!Shells auf Draht
  
R,7,.005,.005,.005,.005, , ,

MPTEMP,,,,,,,,
MPTEMP,1,20 
MPTEMP,2,300
MPTEMP,3,450
MPDATA,EX,7,,203715
MPDATA,EX,7,,196352
MPDATA,EX,7,,188045
MPDATA,PRXY,7,,0.285
MPDATA,PRXY,7,,0.285
MPDATA,PRXY,7,,0.285
TB,MISO,7,3,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
TBTEMP,300
TBPT,,0.00498,978
TBPT,,0.00664,1262
TBPT,,0.00789,1379
TBPT,,0.00996,1465
TBPT,,0.01245,1522
TBPT,,0.0166,1567
TBPT,,0.0249,1615
TBPT,,0.0332,1639
TBPT,,0.0415,1656
TBTEMP,450
TBPT,,0.0039,733
TBPT,,0.0052,947
TBPT,,0.00618,1035
TBPT,,0.0078,1099
TBPT,,0.00975,1141
TBPT,,0.013,1175
TBPT,,0.0195,1211
TBPT,,0.026,1229
TBPT,,0.0325,1242

ET,8,Conta173			!Kontakte zwischen Shell und Solid
keyopt,8,1,0			!Selects degrees of freedom
keyopt,8,2,0			!Contact algorithm
keyopt,8,5,0			!CNOF/ICONT automated adjustment
keyopt,8,9,0			!Effect of initial penetration or gap
keyopt,8,10,2			!updata contact stiffness
R,8,0,0,10,-0.04,0.1,0.1 	!R1,R2,FKN,FTOLN,ICONT,PINB


ET,9,Targe170,, 		!Draht


!***************************	!Drahtmodellierung
*set,d,Dd,   
*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.25,0,0		!Außenkreis
k,1001,dd/2-0.25,15,0
k,1002,dd/2-0.25,30,0
k,1003,dd/2-0.25,45,0
k,1004,dd/2-0.25,60,0
k,1005,dd/2-0.25,75,0
k,1006,dd/2-0.25,90,0
k,1007,dd/2-0.25,105,0
k,1008,dd/2-0.25,120,0
k,1009,dd/2-0.25,135,0
k,1010,dd/2-0.25,150,0
k,1011,dd/2-0.25,165,0
k,1012,dd/2-0.25,180,0
k,1013,dd/2-0.25,195,0
k,1014,dd/2-0.25,210,0
k,1015,dd/2-0.25,225,0
k,1016,dd/2-0.25,240,0
k,1017,dd/2-0.25,255,0
k,1018,dd/2-0.25,270,0
k,1019,dd/2-0.25,285,0
k,1020,dd/2-0.25,300,0
k,1021,dd/2-0.25,315,0
k,1022,dd/2-0.25,330,0
k,1023,dd/2-0.25,345,0

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

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

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

k,800,dd/2-0.1,0,0		!Außenkreis
k,801,dd/2-0.1,15,0
k,802,dd/2-0.1,30,0
k,803,dd/2-0.1,45,0
k,804,dd/2-0.1,60,0
k,805,dd/2-0.1,75,0
k,806,dd/2-0.1,90,0
k,807,dd/2-0.1,105,0
k,808,dd/2-0.1,120,0
k,809,dd/2-0.1,135,0
k,810,dd/2-0.1,150,0
k,811,dd/2-0.1,165,0
k,812,dd/2-0.1,180,0
k,813,dd/2-0.1,195,0
k,814,dd/2-0.1,210,0
k,815,dd/2-0.1,225,0
k,816,dd/2-0.1,240,0
k,817,dd/2-0.1,255,0
k,818,dd/2-0.1,270,0
k,819,dd/2-0.1,285,0
k,820,dd/2-0.1,300,0
k,821,dd/2-0.1,315,0
k,822,dd/2-0.1,330,0
k,823,dd/2-0.1,345,0

larc,800,801,1,dd/2-0.1
larc,801,802,1,dd/2-0.1
larc,802,803,1,dd/2-0.1
larc,803,804,1,dd/2-0.1
larc,804,805,1,dd/2-0.1
larc,805,806,1,dd/2-0.1
larc,806,807,1,dd/2-0.1
larc,807,808,1,dd/2-0.1
larc,808,809,1,dd/2-0.1
larc,809,810,1,dd/2-0.1
larc,810,811,1,dd/2-0.1
larc,811,812,1,dd/2-0.1
larc,812,813,1,dd/2-0.1
larc,813,814,1,dd/2-0.1
larc,814,815,1,dd/2-0.1
larc,815,816,1,dd/2-0.1
larc,816,817,1,dd/2-0.1
larc,817,818,1,dd/2-0.1
larc,818,819,1,dd/2-0.1
larc,819,820,1,dd/2-0.1
larc,820,821,1,dd/2-0.1
larc,821,822,1,dd/2-0.1
larc,822,823,1,dd/2-0.1
larc,823,800,1,dd/2-0.1

cskp,12,0,1,900,950

start=1000
ende=800

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

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

al,linemax+1,linemax+157,linemax+133,linemax+158
al,linemax+2,linemax+158,linemax+134,linemax+159
al,linemax+3,linemax+159,linemax+135,linemax+160
al,linemax+4,linemax+160,linemax+136,linemax+161
al,linemax+5,linemax+161,linemax+137,linemax+162
al,linemax+6,linemax+162,linemax+138,linemax+163
al,linemax+7,linemax+163,linemax+139,linemax+164
al,linemax+8,linemax+164,linemax+140,linemax+165
al,linemax+9,linemax+165,linemax+141,linemax+166
al,linemax+10,linemax+166,linemax+142,linemax+167
al,linemax+11,linemax+167,linemax+143,linemax+168
al,linemax+12,linemax+168,linemax+144,linemax+169
al,linemax+13,linemax+169,linemax+145,linemax+170
al,linemax+14,linemax+170,linemax+146,linemax+171
al,linemax+15,linemax+171,linemax+147,linemax+172
al,linemax+16,linemax+172,linemax+148,linemax+173
al,linemax+17,linemax+173,linemax+149,linemax+174
al,linemax+18,linemax+174,linemax+150,linemax+175
al,linemax+19,linemax+175,linemax+151,linemax+176
al,linemax+20,linemax+176,linemax+152,linemax+177
al,linemax+21,linemax+177,linemax+153,linemax+178
al,linemax+22,linemax+178,linemax+154,linemax+179
al,linemax+23,linemax+179,linemax+155,linemax+180
al,linemax+24,linemax+180,linemax+156,linemax+157

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

k,755,dd/2-0.01,0,0
k,756,dd/2-0.01,15,0
k,757,dd/2-0.01,30,0
k,758,dd/2-0.01,45,0
k,759,dd/2-0.01,60,0
k,760,dd/2-0.01,75,0
k,761,dd/2-0.01,90,0
k,762,dd/2-0.01,105,0
k,763,dd/2-0.01,120,0
k,764,dd/2-0.01,135,0
k,765,dd/2-0.01,150,0
k,766,dd/2-0.01,165,0
k,767,dd/2-0.01,180,0
k,768,dd/2-0.01,195,0
k,769,dd/2-0.01,210,0
k,770,dd/2-0.01,225,0
k,771,dd/2-0.01,240,0
k,772,dd/2-0.01,255,0
k,773,dd/2-0.01,270,0
k,774,dd/2-0.01,285,0
k,775,dd/2-0.01,300,0
k,776,dd/2-0.01,315,0
k,777,dd/2-0.01,330,0
k,778,dd/2-0.01,345,0


larc,761,762,1,dd/2-0.01
larc,762,763,1,dd/2-0.01
larc,763,764,1,dd/2-0.01
larc,764,765,1,dd/2-0.01
larc,765,766,1,dd/2-0.01
larc,766,767,1,dd/2-0.01
larc,767,768,1,dd/2-0.01
larc,768,769,1,dd/2-0.01
larc,769,770,1,dd/2-0.01
larc,770,771,1,dd/2-0.01
larc,771,772,1,dd/2-0.01
larc,772,773,1,dd/2-0.01
larc,773,774,1,dd/2-0.01
larc,774,775,1,dd/2-0.01
larc,775,776,1,dd/2-0.01
larc,776,777,1,dd/2-0.01
larc,777,778,1,dd/2-0.01
larc,778,755,1,dd/2-0.01
larc,755,756,1,dd/2-0.01
larc,756,757,1,dd/2-0.01
larc,757,758,1,dd/2-0.01
larc,758,759,1,dd/2-0.01
larc,759,760,1,dd/2-0.01
larc,760,761,1,dd/2-0.01

cskp,12,0,1,900,950

start=800
ende=755

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

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

al,linemax+205,linemax+206,linemax+133,linemax+199
al,linemax+206,linemax+207,linemax+134,linemax+200
al,linemax+207,linemax+208,linemax+135,linemax+201
al,linemax+208,linemax+209,linemax+136,linemax+202
al,linemax+209,linemax+210,linemax+137,linemax+203
al,linemax+210,linemax+211,linemax+138,linemax+204
al,linemax+211,linemax+212,linemax+139,linemax+181
al,linemax+212,linemax+213,linemax+140,linemax+182
al,linemax+213,linemax+214,linemax+141,linemax+183
al,linemax+214,linemax+215,linemax+142,linemax+184
al,linemax+215,linemax+216,linemax+143,linemax+185
al,linemax+216,linemax+217,linemax+144,linemax+186
al,linemax+217,linemax+218,linemax+145,linemax+187
al,linemax+218,linemax+219,linemax+146,linemax+188
al,linemax+219,linemax+220,linemax+147,linemax+189
al,linemax+220,linemax+221,linemax+148,linemax+190
al,linemax+221,linemax+222,linemax+149,linemax+191
al,linemax+222,linemax+223,linemax+150,linemax+192
al,linemax+223,linemax+224,linemax+151,linemax+193
al,linemax+224,linemax+225,linemax+152,linemax+194
al,linemax+225,linemax+226,linemax+153,linemax+195
al,linemax+226,linemax+227,linemax+154,linemax+196
al,linemax+227,linemax+228,linemax+155,linemax+197
al,linemax+228,linemax+205,linemax+156,linemax+198

lesize,all,,,1

type,2
amesh,all

csys,0

type,1
mat,1

volumen=1
*DO,j,1,108,1   
	vdrag,volumen,,,,,,1
	volumen=volumen+1

*ENDDO

VPLOT   

	linelong=2
	atotrack=113

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

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

	linelong=linelong+1
 
*ENDDO

allsel,,all
MODMESH,DETACH
nummrg,node,0.005

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

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

cm,Draht,elem

/inp

!***************************	!2 Schichten Shells um den Draht (je 5µm dick)

csys,11	

k,1300,dd/2-0.0075,0,0
k,1306,dd/2-0.0075,90,0
k,1312,dd/2-0.0075,180,0
k,1318,dd/2-0.0075,270,0

larc,1300,1312,1318,dd/2-0.0075
larc,1300,1312,1306,dd/2-0.0075

k,1301,dd/2-0.0075,0,L_gerad
k,1307,dd/2-0.0075,90,L_gerad
k,1313,dd/2-0.0075,180,L_gerad
k,1319,dd/2-0.0075,270,L_gerad

larc,1301,1313,1319,dd/2-0.0075
larc,1301,1313,1307,dd/2-0.0075

lesize,all,,,12

l,1300,1301,eanz
l,1312,1313,eanz

asel,none
al,1,6,3,5
al,2,6,4,5

Type,7
Real,7
Mat,7

amesh,all

Type,4			!Kontakte auf Windefinger unten
Real,4

esurf
esurf,,bott

k,1302,dd/2-0.0025,0,0
k,1308,dd/2-0.0025,90,0
k,1314,dd/2-0.0025,180,0
k,1320,dd/2-0.0025,270,0

larc,1302,1314,1320,dd/2-0.0025
larc,1302,1314,1308,dd/2-0.0025

k,1303,dd/2-0.0025,0,L_gerad
k,1309,dd/2-0.0025,90,L_gerad
k,1315,dd/2-0.0025,180,L_gerad
k,1321,dd/2-0.0025,270,L_gerad

larc,1303,1315,1321,dd/2-0.0025
larc,1303,1315,1309,dd/2-0.0025

lesize,all,,,12

l,1302,1303,eanz
l,1314,1315,eanz

asel,none
al,7,12,9,11
al,8,12,10,11

Type,7
Real,7
Mat,7

amesh,all

Type,4			!Kontakte auf Windefinger unten
Real,4

esurf
esurf,,bott

Local,18,1,L_gerad/2-ab/2,0,rl+dd/2+0.01,180,90			!neu

k,29,0,0,dd/2						!neu

k,30,rl,210,dd/2					!neu
k,31,rl,330,dd/2					!neu

larc,30,31,29,rl

k,39,0,0,-dd/2						!neu
k,40,rl,210,-dd/2					!neu
k,41,rl,330,-dd/2					!neu

larc,40,41,39,rl

lesize,all,,,8

l,30,40,1.5*9
l,31,41,1.5*9

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

nsel,none
n,,rl,270,0

Type,3
Real,3
Mat,3

amesh,all
nummrg,node,0.01

cm,Windefi_unten,node

Type,4			!Kontakte auf Windefinger unten
Real,4

esurf,,bott

Local,19,1,L_gerad/2+ab/2,0,rl+dd/2+0.01,180,90				!neu

k,49,0,0,dd/2						!neu

k,50,rl,210,dd/2					!neu
k,51,rl,330,dd/2					!neu

larc,50,51,49,rl

k,59,0,0,-dd/2						!neu
k,60,rl,210,-dd/2					!neu
k,61,rl,330,-dd/2					!neu

larc,60,61,59,rl

lesize,all,,,8

l,50,60,1.5*9
l,51,61,1.5*9

asel,none
al,17,20,18,19

nsel,none
n,,rl,270,0

Type,3
Real,3
Mat,3

amesh,all
nummrg,node,0.01

cm,Windefi_oben,node

Type,4			!Kontakte auf Windefinger unten
Real,4

esurf,,bott

Local,20,1,L_gerad/2,0,-rs-dd/2-0.01,180,-90

k,69,0,0,dd/2

k,70,rs,210,dd/2
k,71,rs,330,dd/2

larc,70,71,69,rs

k,79,0,0,-dd/2
k,80,rs,210,-dd/2
k,81,rs,330,-dd/2

larc,80,81,79,rs

lesize,all,,,8

l,70,80,1.5*9
l,71,81,1.5*9

asel,none
al,21,24,22,23

nsel,none
n,,rs,270,0

Type,3
Real,3
Mat,3

amesh,all
nummrg,node,0.01

cm,Steighaken,node

Type,4			!Kontakte auf Steigungshaken
Real,4

esurf,,bott

csys,0

cmsel,,draht		!Targets auf Draht
nsle

cm,Draht_gerade,node

cmsel,,Draht_gerade

Type,5
Real,4

esurf

allsel,,all

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

cmsel,,Windefi_unten					!neu
cp,,all,all
*get,primnode_Windefin,node,0,num,min
d,primnode_Windefin,ux,0,,,,uy,rotx,roty,rotz

cmsel,,Windefi_oben					!neu
cp,,all,all
*get,primnode_Windefi,node,0,num,min
d,primnode_Windefi,ux,0,,,,uy,rotx,roty,rotz

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,-0.1,0.1		!Definition Komponenten Vorschubknoten
d,all,uy,0,,,,,rotx,roty,rotz

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

allsel,,all
eplo

FINISH

/SOL

ANTYPE,0
NLGEOM,1
NSUBST,50,1000,40
TIME,1				!LS 1: Vorschub Steighaken
pstress,on
outres,all,1
!save

d,primnode_Windefin,uz,0
d,primnode_Windefi,uz,0
d,primnode_Haken,uz,0.02+Hakenvor

allsel,,all

Tunif,20

SOLVE
FINISH

/inp

/SOL

ANTYPE,,Rest,1,last,0
NLGEOM,1
NSUBST,50,1000,20
TIME,2				!LS 2: Steighaken zurückfahren
pstress,on
outres,all,20
save

d,primnode_Haken,uz,-0.02-Hakenvor

allsel,,all

Tunif,20

SOLVE   
FINISH

/inp

/SOL
ANTYPE,,Rest,2,last,0
NLGEOM,1
NSUBST,50,200,20
pstress,on
OUTRES,ERASE
OUTRES,ALL,10
TIME,3				!LS 3: Anlassen
save

allsel,,all
Tunif,450

SOLVE
FINISH

/SOL
ANTYPE,,Rest,3,last,0
NLGEOM,1
NSUBST,50,200,20
pstress,on
OUTRES,ERASE
OUTRES,ALL,10
TIME,4				!LS 3: Anlassen
save

allsel,,all
Tunif,20

SOLVE
FINISH