---

Hallo,

ich habe mittels Flotran Drücke für bestimmte Knoten ermittelt, die ich anschließend in einen array schreiben möchte, allerdings sortiert:

Das Array soll folgendermaßen aussehen:
Druck1 Druck2 Druck3 ... Druckn

Dabei sollen die Drücke 1 bis n nach aufsteigender z-Knotenkoordinate geordnet werden.

Unsortiert funktioniert das Ganze so:
 
  *GET,Anz_Knoten,NODE,0,COUNT
  *DIM,Knoten,ARRAY,1,Anz_Knoten
  nakt=ndnext(0)
  *DO,jj,1,Anz_Knoten
    *GET,Knoten(1, jj),NODE,nakt,PRES
    nakt=ndnext(nakt)
  *ENDDO

Wenn ich zum sortieren nsort verwende, brauche ich dann in der Schleife eine Funktion die zum nächsten Knoten springt:

  NSORT,LOC,Z
  *GET,Anz_Knoten,NODE,0,COUNT
  *DIM,Knoten,ARRAY,1,Anz_Knoten
  -> Funktion die den ersten Knoten in der Liste auswählt
  *DO,jj,1,Anz_Knoten
    *GET,Knoten(1, jj),NODE,nakt,PRES
    -> Funktion die den nächsten Knoten in der Liste auswählt
  *ENDDO

Hat dafür jemand eine Lösung?

Gruß
Tom

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo
also ich hatte einmal ein ähnliches Problem. Es gibt bei den *get-Befehlen eine Option nxth, da spring der Zähler zum nächstgrößeren in der Liste. Wenn du mit dem ersten anfangen willst musst du den also kennen und die anderen gehen dann von selbst. Kennst du den ersten in der Liste nicht kann man das umgehen indem man zu beginn den Zähler der Nodenummer auf 0 setzt und dann den Befehl mit nxth ausführt.
Ich hoffe ich konnte dir helfen

Gruß Sören

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@ Sören24:
Genau das macht der ndnext Befehl, den ich im oberen Beispiel verwendet habe. Da ich aber leider auf unsortierte Knotennummern zugreifen möchte funktioniert das nicht.

@ all:
Habe das Problem soeben gelöst.

Lösung 1)
Ich habe das Problem eben umgangen und einen Sortierungsalgorithmus geschrieben, jedoch ist der recht umständlich:

!* Knotendrücke in Array schreiben
*GET,Anz_Linien,LINE,0,COUNT
*DIM,Linetable,ARRAY,ANZ_Linien,ElementsValuePerLine+1
*DIM,Zkoordinaten,ARRAY,ANZ_Linien,ElementsValuePerLine+1
lakt=lsnext(0)
*DO,ii,1,Anz_Linien
  LSEL,R,LINE,,lakt
  NSLL,S,1
  *GET,Anz_Knoten,NODE,0,COUNT
  nakt=ndnext(0)
  *DO,jj,1,Anz_Knoten
    *GET,Linetable(ii,jj),NODE,nakt,PRES
    *GET,Zkoordinaten(ii,jj),NODE,nakt,LOC,Z
    nakt=ndnext(nakt)
  *ENDDO
  *DO,jj,1,2*Anz_Knoten
    *DO,kk,1,Anz_Knoten-1
      *IF,Zkoordinaten(ii,kk),GT,Zkoordinaten(ii,kk+1),THEN
        koord_temp=Zkoordinaten(ii,kk)
        Zkoordinaten(ii,kk)=Zkoordinaten(ii,kk+1)
        Zkoordinaten(ii,kk+1)=koord_temp
        druck_temp=Linetable(ii,kk)
        Linetable(ii,kk)=Linetable(ii,kk+1)
        Linetable(ii,kk+1)=druck_temp
      *ENDIF
    *ENDDO
  *ENDDO
  LSLA,S,1
  lakt=lsnext(lakt)
*ENDDO

Lösung 2)
Ich lasse diesen Umstand mit den Arrays einfach weg und greife direkt auf das Resultfile von Flotan zu, indem ich mit dem Befehl

ldread,pres,last,,,2,,rfl

die Drücke auslese und gleichzeitig auf meine Struktur (in einer neuen Solution) aufbringe.

Gruß
Tom

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP