H. Huhn / Diplomarbeit / Anhang
120
alpha2=(sfelmH2-0.5*sfelmH1)/(sfelmH1-0.5*sfelmH2) !der Anf. -dehn.
alpha3=-alpha1-alpha2
*IF,I,GE,3,THEN !Prüfung ob Element zu plastischen
UIMP,EL+1,EX,,,Et !Volumen tendiert
UIMP,EL+1,ALPX,,,alpha3 !Wenn ja, dann modifizierte
UIMP,EL+1,ALPY,,,alpha1 !Materialparameter definieren
UIMP,EL+1,ALPZ,,,alpha2
UIMP,EL+1,NUXY,,,0.5-(0.5-QDZahl)*Et/E
UIMP,EL+1,NUXZ,,,0.5-(0.5-QDZahl)*Et/E
UIMP,EL+1,NUYZ,,,0.5-(0.5-QDZahl)*Et/E
MPCHG,EL+1,EL !neue Materialparameter zuweisen
LOCAL,EL+10,,,,,,PHIm,, !def. neues lok. kart. Koord.-syst.
ESYS,EL+10
EMODIF,EL,ESYS,EL+10
BFE,EL,TEMP,1,ts1,ts2,ts3,ts4 !Zuweisen des Koord. -syst.
*ENDIF !Wenn el. Vol., dann norm. Material
*ENDDO !Ende der Hauptschleife (Elemente)
FINISH !Beendet Preprozessor
/SOLU !Aufruf des Solution Prozessors
SOLVE !Kommando zum Loesen
FINISH !Beendet Solution Prozessor
/POST1 !Aufruf des Postprozessors
*DO,EL,1,Elemente,1 !Hauptschleife (ueber Elemente)
*DO,K,1,4,1 !Unterschleife (ueber Knoten)
*GET,rhoy,NODE,M_El_Kno(EL,K),S,y !Holt Restspannungskomp. des
*GET,rhoz,NODE,M_El_Kno(EL,K),S,z !Knoten K im Element
*GET,rhoyz,NODE,M_El_Kno(EL,K),S,yz
M_RHO(EL,K,1)=rhoy !schreibt Restspannungskomp.
M_RHO(EL,K,2)=rhoz !des Knoten K in Mat. M_RHO
M_RHO(EL,K,3)=rhoyz
M_Sigma(EL,K,1)=M_S_f_el(EL,K,1)+M_RHO(EL,K,1) !Add. fikt. el. Sp.
M_Sigma(EL,K,2)=M_S_f_el(EL,K,2)+M_RHO(EL,K,2) !und Restspannung u.
M_Sigma(EL,K,3)=M_S_f_el(EL,K,3)+M_RHO(EL,K,3) !schr. nach M_Sigma
*ENDDO !Ende der Unterschleife (Knoten)
*ENDDO !Ende der Hauptschleife (Elemente)
STATUS,M_Sigma(1,1,1) !Schr. Mat. M_Sigma in Datei *.out
NITER=NITER+1 !zaehlt die Iterationen
*GET,EPSelast,NODE,201,EPEL,Z !Holt Komp. fuer Epsilon Stern in
*GET,EPStherm,NODE,201,EPTH,Z !Umfangsrichtung
EPSStern=EPSelast+EPStherm !Berechnung Epsilon Stern
C*** Ausgabeteil *****************************************************
:AUSGABE
Sigma_Y=M_Sigma(200,2,1) !Holt Spannungskomp. des Kn. 201
Sigma_Z=M_Sigma(200,2,2)
EPS_el=(-QDZahl*Sigma_Y+Sigma_Z)/E !Ber. der elast Dehnung in U.-rich.
RHO_Y=M_RHO(200,2,1) !Holt Restspannungskomp. des
RHO_Z=M_RHO(200,2,2) !Knoten 201
EPS_pl=EPSStern-(-QDZahl*RHO_Y+RHO_Z)/E !Ber. d. pl. Deh. in U.-rich.
EPSelpl=EPS_el+EPS_pl !el.-pl. Dehnung in Umfangsrichtung
*VWRITE,NITER,EPSelpl !schreibt Iterationsnr. U. Dehnung
(F5.2,2X,F15.10) !in Datei mit angegebenen Format
*IF,NITER,EQ,0,THEN !Wenn 0. Iteration, dann zu 1. mod.
*GO,:WEITER !elastischer Analyse (:WEITER)
*ENDIF !Wenn nein, dann hier weiter
FINISH !Beendet Postprozessor
*IF,NITER,LT,Itr_step,THEN !Wenn kleiner als vorgeg. Iteration
*GO,:ITERATIV !dann nächste Iteration
*ENDIF !Wenn nein, dann hier weiter
C*** Ende der Schleife ueber Sekundaerspannung ***********************