-
Forum: Sonstige Fragen zu Delphi
Delphi
by Bjoerk,
26. Jun 2015
Durch den Kontakt zu meinen Kunden (sind auch so 30 Prüfingenieure darunter) oder zu zwei Statik-Profs (die ich gelegentlich um Rat frage) oder durch Gespräche auf Fachseminaren (meistens an der TU Karlsruhe) weiß ich eigentlich ganz gut Bescheid. Das Star2/ Star3 von Sofistik und übrigens auch der DLT9 von Friedrich & Lochner wurden stets als äußerst zuverlässig eingestuft. Anyway. Kein Bock...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Bjoerk,
26. Jun 2015
Ein komplexes Softwareprodukt ohne Fehler zu erstellen ist nicht möglich. Mein Software Service Vertrag beinhaltet neben allen Updates deshalb natürlich auch die Wartung. Wenn ich in meinem Lizenzbedingen schreibe, daß die Software durch wirksame Kontrollmaßnahen geprüft wurde, dann ist das auch so. Das Stabwerk z.B. wurde mit dem Star2/ Star3 von Fides (heute Sofistik) gegengerechnet. Kannst...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Bjoerk,
26. Jun 2015
Robert, das bringt echt unheimlich viel. Beispiel Kreis (als N-Eck), kommt öfter mal vor. Den gibt man bequemerweise meistens so ein:
Line 1: Node 1 - Node 2
Line 2: Node 2 - Node 3
Line 3: Node 3 - Node 4
Line 4: Node 4 - Node 5
Line 5: Node 5 - Node 6
Line 6: Node 6 - Node 7
Line 7: Node 7 - Node 8
Line 8: Node 8 - Node 9
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Bjoerk,
25. Jun 2015
Kommando zurück, ist doch korrekt. Sorry. Ich habe die Ergebnisse falsch interpretiert. Die neuen Knotennummern liegen ja auf NewLabel. Die Solutionmatrix brauch ich gar nicht, die stimmt aber auch.
1 1 0 0 0
1 1 1 0 0
0 1 1 1 0
0 0 1 1 1
0 0 0 1 1
Nochmals mega Thanx für deine Unterstützung, es läuft jetzt. :-D
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Bjoerk,
25. Jun 2015
Damit verdien' ich (seit ca. 20 Jahren) meine Brötchen.
// Edit:
Robert, ich bekomm als Ergebnis immer meinen Input? Kann das sein daß der Algo nicht richtig funzt bzw. die Elemente nicht die Kanten sind? Als Ergebnis müßte hier 1 2 3 4 5 o.ä. rauskommen, also ein Knotenabstand von 1.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Bjoerk,
24. Jun 2015
Ich hab den Code jetzt erst mal auf Standard gebracht. Morgen bau ich ihn noch in meine Software ein. Der Aufbau der InitialMatrix und das Auslesen der SolutionMatrix für meine Software fehlen noch. Melde mich dann nochmal.
unit uCuthillMcKee;
interface
uses
SysUtils, Dialogs, Classes, Contnrs;
type
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Bjoerk,
24. Jun 2015
Dann wär es ja doch nicht so schwer, also nur Dank deiner Ausführungen. :thumb: Ich schau mir den Algo der zip näher an (kann etwas dauern) und teste ein paar Beispiele. Melde mich nochmal.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Bjoerk,
24. Jun 2015
Ja, hatte ich gelesen. Ich hab aber leider keine Ahnung von solchen Grafen, sprich, wie man die Matrix für den Cuthill-McKee-Algorithmus erstellen muß? Wenn du magst, kannst das anhand des Beispiels von Post # 9 kurz erläutern? Der Input soll rein aus den Linken und Rechten Knotenzuordnungen der Stäbe erfolgen. Das Beispiel verwendet 5 Knoten und 4 Stäbe.
Stab 1: von Knoten 1 nach Knoten 2...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Bjoerk,
24. Jun 2015
Kannst du mir sagen was der Autor hier macht? Und wie ich das ggf. auf mein Problem übertragen kann? Nur falls du Zeit und Lust hast.. In FormCreate ist übrigens Decimalseparator := '.' zu ergänzen.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Bjoerk,
23. Jun 2015
Ja, der letzte Link sieht gut aus. Vielen Dank Robert. Ich denke was man auf jeden Fall sagen kann, daß die Bandbreite proportional dem max. Knotenabstand ist. Mir fällt halt keine "SortByKnotenabstand" ein und einen Baum wollte ich vermeiden (weil ich da keine Plan von hab. )
@Bcvs, bei Stabwerken geht das gerade noch so. Würde das dann aber auch bei meinen FE (Platten/Scheiben) einbauen.
...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Bjoerk,
23. Jun 2015
Ja, nur daß es mal leicht 1000 Knoten sein können. Deshalb scheidet Permutation eigentlich aus.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Bjoerk,
23. Jun 2015
Am besten, ich mach ein Beispiel. Das Beispiel verwendet 5 Knoten und 4 Stäbe. Ein Knoten hat hier 3 Freiheitsgrade, eine Verschiebung in X-Richtung, eine Verschiebung in Y-Richtung und eine Verdrehung in Z-Richtung (Verdrehung um die Z-Achse). Man gibt die Koordinaten der Knoten vor und man gibt Stäbe an.
Ein Stab hat einen linken und einen rechten Anschlußknoten (FElements.Item.Left,...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Bjoerk,
22. Jun 2015
Ich habe eine Indextabelle (IndexOfU), die folgendermaßen aufgebaut wird:
procedure TFrame.GrowNU(const Index: integer); // Anzahl Unbekannte;
begin
Inc(FNU);
FIndexOfU := FNU;
end;
procedure TFrame.GrowNV(const Index: integer); // Anzahl Auflagergleichungen;
begin
