
FINISH
/CLEARALL

*DO, it, 1, 5

/UIS, MSGPOP, 3		! Turns off note and warning messages
/UIS, ABORT, OFF	! Turns off status and cancellation messages
/KEYW, PR_SGUI, 1	! Prevent Solution done message - affects image plotting
/WINDOW, 1, OFF		! Turn graphics window off while running iterations
/PNUM, MAT, 1
/NUMBER, 1


max_elem = 6791
n = max_elem + 2
mesh_size = 21
meshdivs = 21
pole_volt = 20e5
W = 14853.44828

/INPUT, '2. start_script', 'txt', '', , 0
/INPUT, 'materials_90_2', 'txt', '', , 0
/INPUT, '3. geom', 'txt', '', , 0
/INPUT, 'assign_90_2', 'txt', '', , 0
/INPUT, '4. boundary_conditions', 'txt', '', , 0
/INPUT, '5. determine_res', txt, '', , 0
/INPUT, '8. perm_analysis', txt, '', , 0
ESEL,U,MAT,,1  
/REPLOT 


/INPUT, '6. write_res', txt, '', , 0
/INPUT, '7. shear_analysis', txt, '', , 0
/INPUT, '8. perm_analysis', txt, '', , 0
ESEL,U,MAT,,1  
/REPLOT 

/VIEW,1,,1  
/ANG,1  
/REP,FAST   
/ANG,1,-30,YS,1 
/REP,FAST   
/ANG,1,30,XS,1  
/REP,FAST   


/VIEW,1,,1  
/ANG,1  
/REP,FAST   
/ANG,1,30,YS,1 
/REP,FAST   
/ANG,1,-30,XS,1  
/REP,FAST


FINISH
/CLEARALL

*ENDDO




