---

Vielleicht klappts diesmal...

Hallo,

ich versuche im 2D einen Körner in Stahl eindringen zu lassen. Der Körner (aus Symmetriegründen nur ein halber Körner) besteht in dem Fall aus einem Radius als Spitze und einer Geraden als Kante. (Details SIehe Unten). mal nur den Radius als Target definiere dann dringt dieser in das Material ein aber deformiert es nicht. Wenn ich beide (Radius und Gerade) als Target definiere dann klappt es zwar aber es scheint mit als würde der Radius garnicht beachtet, sondern nur die Gerade. Irgendwas habe ich wohl falsch gemacht.
Muss ich irgendwo festlegen, dass die Targetoberfläche aus zwei elementen (hier Radius und Gerade) besteht? Oder muss ich daraus zwei Kontaktpaare machen.
Währe nett wenn mal jemand irgendwas dazu sagen könnte denn ich steh kurz vorm ausrasten und wenn ich das heutre nicht hinbekomme hau ich den laptop kurz und klein und geh mich mit spiritus betrinken.

Mitch

p.s. das ganze soll noch mit einem zugversuch überprüft werden der da schon mit reingefriemelt ist... aber darum kümmer ich mich später also einfach ignorieren

hoz=40 !Kantenlänge Zylinder
reib1=0 !Reibungskoeffizient Material1
abst=0 !Abstand Indenter zu  Oberfläche
bweg=1.7 !Bewegung des Indenters
weg=bweg-abst !Eindringweg
fink=1 !Feinheit des Netzes um Eindringpunkt
fdge=5 !Feinheit des Netzes

/PREP7 !Preprocessor

!---Elementtypen---
ET,1, plane182,,, 2

ET,2,CONTA171 !,,,1,,,,,,1,,,2
KEYOPT, 2, 3, 1
KEYOPT, 2, 5, 1
KEYOPT, 2, 9, 1
KEYOPT, 2, 12, 2

ET,3,TARGE169

!---Materialkennwert Stahl---
MP,EX,1,2.1E5 !E-Modul
MP,NUXY,1,0.3 !Querkontraktionszahl
MP, MU, 1, reib1, !Reibungskoeffizient

!Spannungs-DehnungsDiagramm
TB,MISO,1,1,7                ! Activate a data table
TBTEMP,20                ! Temperature = 20
TBPT,DEFI,1E-3, 210    ! Strain, stress at temperature = 20
TBPT,DEFI,2E-3, 235   
TBPT,DEFI,2.6E-2, 236
TBPT,DEFI,5E-2, 260
TBPT,DEFI,10E-2, 310
TBPT,DEFI,15E-2, 350
TBPT,DEFI,17.5E-2, 360
TBPLOT,MISO,1

!---Geometrie----
!---Keypoints---
K, 1, 4.195, 4.85+abst,
K, 2, -4.195, 4.85+abst,
K, 3, -0.20977, 0.1+abst,
K, 4, 0.20977, 0.1+abst,

!---Lines
LSTR, 1, 2
LSTR, 2, 3
LSTR, 3, 4
LSTR, 4, 1

AL, 1, 2, 3, 4,
K, 5, 0, abst,
BSPLIN, 3, 5, 4,
AL, 3, 5, 
AADD, ALL, , , , , , , ,

!----------Teilen der Indenterfläche---
K, 100, , 4.85+abst,
LSTR, 5, 100
ASBL, 3, 3, --, KEEP, KEEP

!--------Subtraktion der geteilten Fläche
ADELE, 1, , , 1
ADELE, 3, , , 1

!---Rechteck---
rectng,0,hoz,0,-hoz

!---Zugstab---
rectng,-20 ,-15,50,25

!----Vernetzung------
KESIZE, 7, fink
esize, fdge
type,1
mat,1
amesh,1

!----Vernetzung------Zugstab---
esize, zst
type,1
mat,1
amesh,3

!---Kontakte----
type,3
TSHAP,ARC !Bogen
LREVERSE, 9, 0 !Umkehrung der Normale
lmesh,9
TSHAP, LINE !Gerade
lmesh, 4

*GET,NMAX,NODE,,NUM,max
Pilot1= NMAX+1
n, Pilot1,, 0.25
TSHAP,PILOT
e,Pilot1

!-------------------sel line4, sel nodes, overlais elements over sel line
type,2
lsel,s,,,5
nsll,s,1
esurf

!----Randbedingung-----

!----Randbedingung-----Zugstab
nsel,s,loc,y,50
d,all,uy,0
d,all,ux,0

!----Randbedingung-----Rest

nsel,s,loc,y,-hoz
d,all,uy,0
d,all,ux,0
nsel,s,loc,x,0
d,all,ux,0

!---Lasten-----
d,pilot1,uy,-weg
ALLSEL, ,

!---Lasten----- Zugstab
nsel,s,loc,y,25
F, all, FY, -800,

/SOLU !Solution
CNCHECK, detail, 1

SOLCON,ON

CUTCONTROL, PLSLIMIT  , 0.15,

EQSLV,FRONT ! Frontal direct equation solver
NSUBST, 1000, ! Specifies the number of substeps to be taken this load step.

OUTRES,ALL,all
CSYS
ALLSEL, ,
SOLVE

/POST1 !Postprocessor
/EDGE,,1
/DSCA,,1
PLNSOL,S,EQV

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP