[vobera]

Hi all,
I would like to ask you for advice about a parametric model.I need help with generate mesh because when i tried to generate it so it was so rough. I didn't try to set contact because the first I need to have a good mesh. I have a problem with stress around the place of load.

!-----------------------
! POCATECNI PODMINKY
!-----------------------
finish
/clear


RADIUS=5 !Polomer pruziny [mm]
ELEV=3 !Stoupani pruziny [mm]
D=1.2 !Prumer dratu [mm]
DIV=150 !Deleni pri sweepu
YOUNG=210000 !Modul pruznosti v tahu [MPa]
G=81500 !Modul pruznosti ve smyku [MPa]
PI=3.141592653589793
n=5 !Pocet cinnych zavitu [-]
POSUV=500 !Stlaceni pruziny [mm]
!FORCE=100 !Zatizeni pruziny [N]

P=ELEV/(2*PI) !Stoupani na 1 rad
P2=D/(2*PI)
FI=atan(ELEV/(2*PI*RADIUS)) !Uhel stoupani pruziny [rad]
PSI=atan(D/(2*PI*RADIUS)) !Uhel natoceni prurezu [rad]
/prep7
!--------------------
! PRVEK A MATERIAL
!--------------------
et,1,solid186 !Definuje prvni element
et,2,plane183 !Definuje druhy element
et,3,solid187 !Definuje treti element
mp,ex ,1,YOUNG !Younguv modul
mp,prxy,1,(YOUNG-2*G)/(2*G) !Poisson
!---------------------------------------------------------------------------------------------------------
! TVORBA TELESA
!---------------------------------------------------------------------------------------------------------
!---------------------------------------
!TVORBA POCATECNIHO ZAVERNEHO ZAVITU
!---------------------------------------
local,11,cylin,0,0,0,0,0,0,0,0 !Vytvori valcovy souradnicovy system pruziny
csys,11 !Prepnuti do souradnicoveho systemu pruziny
wpcsys,1,11 !Posune pracovni rovinu do souradneho systemu pruziny

*do,i,1,8 !Vytvori body pro pocatecni uzavreny zavit
k,i,RADIUS,(i-1)*45,P2*((i-1)/4)*PI
*enddo

*do,i,1,7 !Pospojuje body do sroubovice
l,i,i+1
*enddo

lcomb,all !Vytvori strednici zaverneho zavitu

local,12,cart,,,,,PSI*(180/PI)+90 !Vytvori system pro prurez dratu
wpcsys,1,12 !Vytvori system pro prurez dratu

cyl4,RADIUS,0,D/2 !Vytvori kruhovy prurez
extopt,attr,0,0,1 !Zpusobi ze prurez se potahne kolmo ke strednici
vdrag,1,,,,,,1 !Potahne prurez po sroubovici

local,13,cart,0,0,(D/4)*cos(PSI) !Vytvori system pro srazeni zavitu
wpcsys,1,13 !Vytvori system pro srazeni zavitu
cyl4,0,0,RADIUS+D, , , ,-D !Vytvori valec

vsbv,1,2, ,DELETE,DELETE !Provede rozdil teles
ldele,1 !Odstrani puvodni strednici
!---------------------------------------
!TVORBA CINNYCH ZAVITU
!---------------------------------------
local,14,cylin,0,0,P2*(7/4)*PI,-45,0,0,0,0 !Vytvori valcovy souradnicovy system pruziny
wpcsys,1,14 !Posune pracovni rovinu do souradneho systemu pruziny

*do,i,1,2 !Vytvori body pro dokonceni zaverneho zavitu
k,i+20*(n+3),RADIUS,(i-1)*45,P2*((i-1)/4)*PI
*enddo

*do,i,1,(n*8) !Vytvori body tvorici cinne zavity
k,20*(n+3)+2+i,RADIUS,(i+1)*45,P*((i)/4)*PI+P2*(1/4)*PI
*enddo

k,20*(n+3)+3+n*8,RADIUS,(n*8+2)*45,P*(2*n)*PI+P2*( 2/4)*PI

*do,i,20*(n+3)+1,20*(n+3)+2+n*8 !Pospojuje body tvorici sroubovici
l,i,i+1
*enddo

lsla,u !Odstrani z vyberu cary lezici na carach
lcomb,all !Vytvori jednu sroubovici

extopt,attr,0,0,1
vdrag,6,,,,,,1 !Vytvori cinne zavity pruziny
ldele,1 !Odstani puvodni strednici
!---------------------------------------
!TVORBA KONCOVEHO ZAVERNEHO ZAVITU
!---------------------------------------
local,15,cylin,0,0,n*ELEV+4*P2*PI,0,180,0,0,0 !Vytvori valcovy souradnicovy system pruziny
csys,15 !Prepnuti do souradnicoveho systemu pruziny
wpcsys,1,15 !Posune pracovni rovinu do souradneho systemu pruziny

*do,i,1,8 !Vytvori body pro pocatecni uzavreny zavit
k,i+30*(n+3),RADIUS,(i-1)*45,P2*((i-1)/4)*PI
*enddo

*do,i,1+30*(n+3),30*(n+3)+7 !Pospojuje body do sroubovice
l,i,i+1
*enddo

lsla,u !Odstrani z vyberu cary lezici na carach
lcomb,all !Vytvori jednu sroubovici

local,16,cart,0,0,n*ELEV+4*P2*PI,180,-PSI*(180/PI)+90,180,0,0
wpcsys,1,16
cyl4,RADIUS,0,D/2 !Vytvori kruhovy prurez
extopt,attr,0,0,1 !Zpusobi ze prurez se potahne kolmo k sroubovici
vdrag,7,,,,,,1 !Potahne prurez po sroubovici

local,17,cart,0,0,n*ELEV+4*P2*PI-(D/4)*cos(PSI),0,,180,0,0
wpcsys,1,17 !Vytvori SS pro dokonceni zakonceni
cyl4,0,0,RADIUS+(D), , , ,-D !Vytvori valec
vsbv,2,4, ,DELETE,DELETE !Provede rozdil teles
nummrg,kp,1e-5 !Pospojuje keypointy
!-------------------
! ZESITOVANI
!-------------------
vsel,s,,,1 !Vybere cinne zavity
latt,1,,2
extopt,esize,DIV,0 !Nastavi velikost elementu
vsweep,1,6,5 !Provede sweep cinnymi zavity

vsel,inve !Vybere zaverne zavity
vatt,1,,3
mopt,tetexpnd,1 !Definuje podminky pro mesh
desize,3,1,50,8,13 !Nastavi velikosti
vmesh,all !Provede zesitovani zavernych zavitu

!-------------------
! KONTAKT
!-------------------

!-------------------
! OKRAJOVE PODMINKY
!-------------------
da,28,all,0 !Na konec pruziny definuje vetknuti
da,16,uz,-POSUV !Na konec pruziny definuje deformacni podminku
!-------------------
! RESENI
!-------------------
csys,1 !Prepnuti do cylindrickeho SS
wpcsys,1,1 !Prepnuti do cylindrickeho SS
/solu
antype,static !Definice analyzy
allsel,all !Vybere vsechno
solve !Spusti reseni
finish
/post1

plnsol,s,eqv,0,1.0 !Vykresli napeti podle podminky HMH