!===================================
!fatigue erstes Bsp
!===================================

fini   $   /cle

/title, fatigue einer normalzugprobe

!-------------Geometriedaten

!MP fuer Stahl
e2=210000000000 !E-Modul
nu2=0.3	!Querdehnung

!--------------------PREP7----------------------
/prep7	!Preprocessor starten

!---Materialvereinbarung----

mp, ex,1,E2	!E-Modul für Material 1
mp, nuxy,1,nu2	!Querdehnung für Material 1

!---Elementvereinbarung---

rectgn,0,0.1,0,0.1
rectgn,0,0.1,0.5,0.6
rectgn,0.03,0.07,0.15,0.45
rectgn,0,0.1,0.1,0.15
rectgn,0,0.1,0.45,0.5

wpave,0,0.15
pcirc,0,0.03
wpave,0,0.45
pcirc,0,0.03
wpave,0.1,0.15
pcirc,0,0.03
wpave,0.1,0.45
pcirc,0,0.03
asba,5,7
asba,10,9
asba,4,6
asba,7,8
aglue,all
et,1,200,6
mshkey,2
mat,1
esize,0.005
amesh,all


allsel
et,2,solid45
csys
type,1
mat,1
esize,,4
asel,all
vext,all,,,,,0.02


fini		!Verlassen des Preprozessors

!--------------------SOLU----------------------
/solu		!Solutionsprocessor starten mit event 1


antype,trans
tintp,,,,1
timint,on
time,1
nsel,s,loc,y,0
d,all,all
allsel

nsel,s,loc,y,0.6,0.6
*get,nanz,node,0,count    !105 stück
f,all,fy,100000/nanz
allsel
!nlgeom,on
solve

time,2
nsel,s,loc,y,0
d,all,all
allsel

nsel,s,loc,y,0.6,0.6
*get,nanz,node,0,count    !105 stück
f,all,fy,200000/nanz
allsel
!nlgeom,on
solve

time,3
nsel,s,loc,y,0
d,all,all
allsel

nsel,s,loc,y,0.6,0.6
*get,nanz,node,0,count    !105 stück
f,all,fy,300000/nanz
allsel
!nlgeom,on
solve

time,4
nsel,s,loc,y,0
d,all,all
allsel

nsel,s,loc,y,0.6,0.6
*get,nanz,node,0,count    !105 stück
f,all,fy,400000/nanz
allsel
!nlgeom,on
solve

save,zugprobe,db,all

/post1
!ab hier beginnt fatigue berechnung
! Define the S-N table:
FP,1,10,30,100,300,1000,10000   			 ! Allowable Cycles, N
FP,7,100000,1000000             			 !          "
FP,21,650E+6,390E+6,240E+6,161E+6,109E+6,59E+6 		 ! Alternating Stress-
FP,27,37E+6,26E+6            			         ! Intensity Range, S, ksi

PATH,Name,2        ! Define the path using the two surface nodes
PPATH,1,7398
PPATH,2,7388	
SET,1
FSSECT,,1,1        ! Store stresses at nodes 7398 and 7388

!  Event Repetitions and Scale Factors
FE,1,-1         ! Erase all parameters and fatigue stresses formerly          
                !  used for event 1.
FE,2,300,1.2    ! Assign 100 occurrences to events 2 and 3 
*REPEAT,2,1     !  and scale by 1.2.
FE,4,100        ! Assign 500 occurrences to event 4.

!  Activate the Fatigue Calculations
FTCALC,,7388
!  Review the Results (List the output file)
FINISH