Riccardo Petrelli
Subscriber

 

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