Learning Forum

[Riccardo Petrelli]

 

I tried to improve the mesh and increase substeps and steps, but it doesn't solve much. Thank you all. SCRIPT:

 

total_steps=20

subst_int=10

subst_max=18

subst_min=10

neqit, 500 !numero massimo di iterazioni di default è impostato su 15

 

*do,i,1,total_steps

  /gopr

  time_step=i/total_steps

  time,time_step

  nsubst,subst_int,subst_max,subst_min

  outres,all,all

  esel,all

  solve

  finish

 

  /post1

    set,last

    

!    esel,s,live

!    *get,live_count%i%,elem,0,count

!    esel,inve,live

!    *get,dead_count%i%,elem,0,count

             

    esel,all

    etable,stress,s,eqv

    esel,s,etab,stress,ARG1

!    *get,stress_ecount%i%,elem,0,count

    cm,kill_stress%i%,elem

    cmsel,s,kill_stress%i%,elem

!    *get,stress_ecount%i%,elem,0,count

 

 

    

    allsel

    cmwrite,kill_list,cm

    parsav,all

  finish

  

  /solu

    antype,,restart

    parres

!    *status   

      /input,kill_list,cm

    *do,k,1,i

      ekill,kill_stress%k%

      estif, 0.9

    

!      *status

    *enddo              

*enddo

finish