richardG Mitglied Ingenieur
 Beiträge: 5 Registriert: 25.06.2007
|
erstellt am: 25. Jul. 2011 16:04 <-- editieren / zitieren --> Unities abgeben:          Nur für magerhirn
Hallo, also ich würde die 50 Substeps als einzelne Timesteps behandeln. Dann kann man mit einer Do-Schleife bei Bedarf 'rausspringen. Zum Überprüfen der Dehnung bietet sich dann der *get-Befehl an. Hier mal der Code: Code: /solu ANTYPE,stat,new !static analysis NLGEOM,ON !Nonlinear geometry on solcontrol,on !solution control ein NSUBST,1,1,1,off !20 load steps KBC,0 !schrittweises Aufbringen der Last NROPT,FULL pred,off OUTRES,ALL,ALL !Output all data for all load steps AUTOTS,ON !Auto time-search on LNSRCH,ON !Line search onNLDIAG,MAXF,10 !zur besseren Auswertung bei Nichtkonvergenz NLDIAG,NRRE,ON abbruch = 1 zaehler = 0 *dowhile,abbruch zaehler = zaehler+1 lsel,s,loc,x,200+D0/2 dl,all,all,ux,WegLS1*zaehler/50 !Weggröße aufbringen solve /post1 *get,dehngx,NODE,refknotnr,EPTO,X *get,dehngy,NODE,refknotnr,EPTO,Y *get,dehngz,NODE,refknotnr,EPTO,Z dehng = (dehngx**2+dehngy**2+dehngz**2)**(1/2) *if,dehng,ge,0.001,or,zaehler,eq,50,then abbruch = 0 *endif /solu parsav,all antype,stat,rest parres *enddo
Ich habe ihn nicht überprüft - es kann sein, dass da noch ein paar Fehler drin sind. Aber prinzipiell sollte er das machen, was Du möchtest - sofern wir nicht aneinander vorbeireden.Viele Grüße, Richard Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |