Hallo Heer JPietsch,
Ich ahbe hier meine Rechnung, die noch nicht richtig funktioniert. Können Sie mir bitte helfen, wenn Sie mal bisschen Zeit haben?
finish
/clear
/FILNAME,Deep-Drawing-18-05-05
! Körperdemensionen in mm
!(Ein Block mit den Abmessungen 10µm*10µm*10µm)
/COM,ANSYS RELEASE 7.0 UP20021010 16:35:31 10/29/2004
RESUME,mat,db,G:\users\nguyenc\FIB !(Materialdatei laden)
/COM,ANSYS RELEASE 7.0 UP20021010 16:35:31 10/29/2004
/PREP7
!Axisymmetric-Harmonic 4-Node Structural Solid
ET,1,PLANE182
KEYOPT,1,1,0
KEYOPT,1,3,1
KEYOPT,1,6,0
KEYOPT,1,10,0
!ET,1,PLANE42
!oder auch Shell43
!(Materialdaten eingeben)
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,168000
MPDATA,PRXY,1,,0.3
eps=1e-7
!KOntaktelement
ET,2,CONTA171
!Targetelement
ET,3,TARGE169
!*******************************************************************************!
!Definition der Varialbe!
Rp=50e-3
Rh=56.25e-3
R1=13e-3
R2=5e-3
Rd=51.25e-3
Rb=100e-3
tz=0.82e-3
!Breite der Volumen
Yv=2e-3
!Höhe der Volumendes beweglichen Elements
h1=44e-3
!*******************************************************************************!
!Volumen erzeugen.
!!(Elementtyp definieren)
Type,1
!Real,2
!(BlÖck erzeugen --Hier sind äußere Blöcke )
!Volumen des zu ziehenden Elements
RECTNG,0,Rb,0,tz
asel,all
lsel,s,line,,2
lsel,a,line,,4
LESIZE,ALL,,,1
asel,all
lsel,s,line,,1
lsel,a,line,,3
LESIZE,ALL,,,40
Amesh,all
Alls
save
!*******************************************************************************!
!Knoten der unteren Fläche
N,173,0.5125E-01,-0.44e-1,0.
N,188,0.5125E-01,-0.216058382634E-01,0
N,191, 0.5125E-01,-0.830595960508E-02,0
N,88,Rd,-R2,0
N,85,Rh,-0,0
N,185,0.596981744733E-01,0.00000000000,0.00000000000
N,184,0.627855124426E-01,0.00000000000,0.00000000000
N,178,0.10000,0.0000,0.0000
N,182,0.74295E-01,0.0000,0.0000
!Mittlerer Knoten des unteren Kreises
N,100,rh,-R2,0
!Verbinden der Knoten zu Targetelementen
!Definition der Targetelemente
type,3
TSHAP,LINE
E,173,188,191
E,191,88
E,178,182,184,
E,184,185,85
Type,3
TSHAP,ARC
R,3,R2
E,88,85,100
!Definition des Kontaktelements zwischen unterem Target und Ziehelement
type,2,
Lsel,s,line,,1
NSLL,s,1
type,2,
esurf
!*******************************************************************************!
!Knoten der rechten Fläche
N,215,0.5625E-01,0.820000000000E-03,0.0
N,222,0.562500000000E-01,0.4482E-01,0
N,219,0.1,0.448200000000E-01,0.0
N,216,0.1,0.82E-03,0.0
!*******************************************************************************!
!Knoten definieren für das linke Targetelement
N,500,0,0.82e-3,0
N,501,18.5e-3,0.82e-3,0
N,502,37e-3,0.82e-3,0
!N,503,46.192e-3,4.62761184681e-3 ,0
!N,504,40.3646475864e-3,1.26296425825e-3,0
N,505,50.e-3, 13.82e-3,0
N,506,50.e-3, 21.4721429403e-3,0
N,507,50.e-3, 44.82e-3,0
N,508,37e-3,13.82e-3,0
!*******************************************************************************!
!Hier wird die Pilotknoten definiert.
Local,11,0,37e-3,-20e-3,0,
N,1000
!*******************************************************************************!
type,3
TSHAP,LINE
E,215,222,
E,222,219,
E,219,216
E,215,216
!Definition der Targetelemente
type,3
TSHAP,LINE
E,500,501
E,501,502
!E,502,504
!E,503,504
!E,503,505
E,505,506
E,506,507,
!KMESH, all,
!LMESH,all
Type,3
TSHAP,ARC
R,3,13e-3
E,505,502,508
!*******************************************************************************!
!Definition der Piloknoten
TSHAP,PILo
E,1000
!*******************************************************************************!
!Definition des Kontaktelements zwischen den linken Targetelementen und Ziehelement
type,2,
Lsel,s,line,,3
NSLl,s,1
type,2,
esurf
ALLS
save
!*******************************************************************************!
!Festhalten der Knoten
Nsel,s,node,,43
Nsel,a,node,,1
!Nsel,a,node,,23
!Nsel,a,node,,12
D,all, ,0, , , ,UX, , , , ,
!*******************************************************************************!
!Lösung
/solu
NLGEO,on
SOLCON,ON
NEQIT,50
EQSLV,FRont
NSUB,50,200
OUTRES,ALL,-5
Nsel,s,NOde,,1000
D,1000,Uy,-4e-3
allsel
solve
Vielen Dank im Voraus.
Nguyenc
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP