- #1
Radek Vobejda
- 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
/clearRADIUS=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
/clearRADIUS=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