/Prep7

!*******************	!Geometrieparameter
dd=3			!Drahtdurchmesser
Dm=18			!mittlerer Windungsdurchmesser
Df=dd*1.05		!Durchmesser Drahtführung
n_Wrad=8		!Teilung Windefinger radial
n_Wlae=8		!Teilung Windefinger längs

pi=3.14159
radiant=pi/180

Wo_x=8.1009		!Verschiebung des Windefingers in x-Richtung, Angabe in mm
Wo_y=15.7975		!Verschiebung des Windefingers in y-Richtung, Angabe in mm
Wo_z=4			!Verschiebung des Windefingers in z-Richtung, Angabe in mm

Wo_rotx=90		!Phi13 Neigung(Steigung ohne Steigungshaken) in Grad
Wo_roty=0		!Phi33 Kippung(Korrektur Drahtberührungspunkt) in Grad

!*****************************	!Elementdefinition

ET,1,BEAM4
R,1,100,100,100,100,100,,
RMORE,,100,,,,,

MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.1e8
MPDATA,PRXY,1,,0.3

ET,2,SHELL63
R,2,.5,.5,.5,.5,,,
MPDATA,EX,2,,2.1E8
MPDATA,PRXY,2,,0.3

ET,3,Conta173
keyopt,3,1,0
keyopt,3,2,0
keyopt,3,5,0
keyopt,3,9,0
keyopt,3,10,2
R,3,0,0,100,-0.02,0.1,0.1

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

Local,18,1,(-(Df/2)/1.414214)+Wo_x,(-(Df/2)/1.414214)-Dm+Wo_y,0,135,,90

k,1,0,0,dd/2

k,2,Df/2,210,dd/2
k,3,Df/2,330,dd/2

larc,2,3,1,Df/2

k,4,0,0,-dd/2
k,5,Df/2,210,-dd/2
k,6,Df/2,330,-dd/2

larc,5,6,4,Df/2

lesize,all,,,n_Wrad

l,2,5,n_Wlae
l,3,6,n_Wlae

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

nsel,none

Type,2
Real,2
Mat,2

amesh,all

cm,Windefi_oben,node

nsel,none
n,,Df,270,0
*get,wo_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,1
Real,1
Mat,1

e,node1,wo_fest
e,node2,wo_fest
e,node3,wo_fest
e,node4,wo_fest

Type,3
Real,3

cmsel,,Windefi_oben
esurf

allsel,,all

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

csys,18

nsel,,,,Wo_fest
nrotat,all
dofsel,s,ux,uy,uz,rotx,roty,rotz
d,Wo_fest,ux,0,,,,uy,uz,rotx,roty,rotz

allsel,,all
eplo

FINISH

/SOL

ANTYPE,0
NLGEOM,1
NSUBST,50,200,20
TIME,1
pstress,on
outres,all,1
save

!d,Wo_fest,uz,(Wo_z/1.414214)
d,Wo_fest,uy,(-Wo_z/1.414214)

d,Wo_fest,rotx,radiant*Wo_rotx
d,Wo_fest,roty,radiant*Wo_roty

allsel,,all

SOLVE
FINISH