Hallo,
ich führe eine parametrisierte statisch-mechanische Rechnung durch und möchte mir für jeden Parameterschritt die Ergebnisse in eine Text-Datei Schreiben lassen.
Ich möchte die Koordinaten, Spannungen und Dehnungen einzelner Knoten an einer Kante wissen. Dafür habe ich eine Komponente "Kante" erstellt.
Mit Hilfe des folgenden Befehls möchte ich die Ergebnisse ausgeben, doch Ergebnisdatei.txt erscheint nirgends, aber es gibt auch keine Fehlermeldung.
Kann mir jemand sagen, wo das Problem liegt?
*CREATE,Ergebnisexport2,mac !Macro erzeugen
cmsel,s,Kante !Komponenten von Kante wählen und ein set anlegen
nsle,r,corner !Eckknoten aus dem gewählten set auswählen
nsle,u,inactive !Unselect Zwischenknoten
*get,n_select,node,,count !Knoten des betrachteten Elements zählen
*DIM,Daten2,ARRAY,n_select,9,1, , , !Arrey mit Namen Daten anlegen für n_select
*get,nmin,node,,num,min !Niedrigster Knotennummer den Namen nmin geben
nn = nmin !Laufvariable nn mit nmin belegen
*do,j,1,n_select !Schleife für Knotenergebnisse
*get,Daten2(j,1),node,nn,loc,x !1.Eintrag Globale X-Koord
*get,Daten2(j,2),node,nn,loc,y !2.Eintrag Globale Y-Koord
*get,Daten2(j,3),node,nn,loc,z !3.Eintrag Globale Z-Koord
*get,Daten2(j,4),node,nn,epel,x
*get,Daten2(j,5),node,nn,epel,y
*get,Daten2(j,6),node,nn,epel,z
*get,Daten2(j,7),node,nn,s,x
*get,Daten2(j,8),node,nn,s,y
*get,Daten2(j,9),node,nn,s,z
nn = ndnext(nn) !Nächster Knoten in nn schreiben
*enddo
*mwrite,Daten2,Ergebnisdatei,txt, ,
(15F18.12) !Arrey Daten in Textdatei schreiben
*end
resume,file,db
/post1
set,1
Ergebnisexport2
Mit freundlichen Grüßen und vielen Dank im Vorraus
Lukel
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP