fini

RESUME,'System','db'	! Einlesen der Geometrie aus einer gespeicherten Databas

!/output,ausgabe,txt

/prep7

mkin355   !einlesen eines Materials aus externem Script


! AUSGABE VON SYSTEMINFORMATIONEN	!!! optional, ziegt evtl. Berechnungsdauer und Speicherbedarf etc an
/status					!!!
/runst					!!!
					!!!
rall					!!!
					!!!
! ENDE AUSGABE VON SYSTEMINFORMATIONEN	!!!

/solu

	Weg=50	! Weggesteuerte Belastung Endweg

!	ddele,all,all
!	lsclear,all
!	cpdele,all
	acel,0,0,0
	fdele,all,all
	
	ANTYPE,0,new	! quasi-statische Berechnung, sonst antype,trans fuer Berücksichtigung der Massentraegheiten
	
	nlgeom,on	! Threorie II-Ordnung aktivieren
	
	solc,on				! -> main menu, solu, load step options
	! Berechnungsoptionen:
	SSTIF,ON			! -> main menu, analysis options
	kbc,0				! Loads are linearly interpolated (ramped) for each substep from the values 
					! of the previous load step to the values of this load step.
	autots,on			! -> main menu, solu, load step options, time/frequenc
	lnsrch,auto			! geht nur, wenn SOLC,ON
	pred,off
	CUTCONTROL,PLSLIMIT,0.05	! Plastic strain Limit 5% 
	EQSLV,SPAR  		
	RESCONTROL,define,last,2,	! RESCONTROL, Action, Ldstep, Frequency, MAXFILES 
		!				! - Controls file writing for multiframe restarts
	NCNV,2,,,800000,0 

	outres,all,last		! Am Ende jedes Loadsteps alle Infos rausschreiben
	!outres,basic,last

alls

	NLDIAG,MAXF,10	! zur besseren Auswertung bei Nichtkonvergenz
	NLDIAG,NRRE,ON


	! Ausgabe der KV als ASCII-Datei waehrend der Berechnung
	cmsel,s,loady
		*GET,knoten,NODE,,NUM,MIN, , , ,  
	alls
	NLHIST,NSOL,Weg,u,y,knoten
	NLHIST,NSOL,Kraft,f,y,knoten



*DO,i,1,Weg

	time,i
	
!	d,cpmin,uy,-i
	d,loady,uy,-i

!/eof

	solve

*ENDDO


/post26

kv

fini


/OUTPUT, TERM