- #1

- 6

- 0

Hi,

could you help me with my parametric model please? I have a problem with the end of spring. At the end of load (displacement) is problem with solve stress because there is concentrated stress and it shouldn't be. I didn't define contact between coils yet. I need to repair this fail at first. So if you could help me with to solve this problem it will be fine.

Here is the code of the spring:

!-----------------------

! 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

could you help me with my parametric model please? I have a problem with the end of spring. At the end of load (displacement) is problem with solve stress because there is concentrated stress and it shouldn't be. I didn't define contact between coils yet. I need to repair this fail at first. So if you could help me with to solve this problem it will be fine.

Here is the code of the spring:

!-----------------------

! 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