Knotenkopplungen und Laufrichtungen erkennen

Hi Leute,
Ich schreibe derzeit meine Abschlußarbeit fürs Studium und benutze hierbei MS Excel 2013. ich habe hier im Forum schon viele interessante Sachen gefunden, nur leider hänge ich jetzt an einem Punkt, bei dem ich nicht weiter weiß und bitte euch um eure hilfe. Dabei geht es in erster Linie un ein Mathematisches Problem.
Mein Abschlußarbeit behandelt sogenannte Querschnittskennwerte von Bauteilen, die der Benutzer frei gewählt über gekoppelte linien mittels anfangs und endkoordinaten eingeben soll. es können also auch mehrere kopplungen im gleichen knoten sein.
zum Beispiel:
ein Querschnitt darf aus 5 miteinander gekoppelten linien bestehen
LinieNR | x-An | y-An | x-En | y-En
........1 | 0,00 | 0,00 | 3,00 | 0,00
........2 | 3,00 | 0,00 |10,00 | 0,00
........3 | 3,00 | 0,00 | 3,00 | 7,00
........4 | 2,00 | 7,00 | 3,00 | 7,00
........5 | 3,00 | 7,00 | 5,00 | 7,00
so, im grundriss sieht das dann wie ein unsymmetrischer doppel-T Querschnitt aus.
für weitere Berechnungen müsste ich Excel jetzt beibringen zwischenwerte der einzelnen Linien für die punkte die mehrfach verwendet werden (hier also punkte x=3,00 y=0,00 und x=3,00 y=7,00) zu addieren.
und gleichzeitig die sogenannten freien Ränder ( also die koordinaten, die nur einmal vorkommen) für die weitere berechnung auf "0" zu setzen.
zu guter letzt muss Excel jetzt auch noch für eine weitere Integration der Querschnittswerte unabhängig von der eingabe erkennen wo ein freier Rand ist, und die Integrationsrichtung vom freien Rand zum Kopplungspunkt selber erkennen und das ergebnis dann quasi auch vorzeichenrichtig ausgeben.
leider schaffe ich das irgendwie nicht..
ich hoffe ich konnte mein Problem einigermaßen gut schildern.
ich bin für jede anregung, anmerkung und hilfestellung dankbar!!!
Vielen Dank im Voraus...
^^da Michl

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub zeichnen() Dim i, faktor, x_rechts, y_runter As Long x_rechts = 200 y_runter = 200 faktor = 100 For i = 2 To 6 ActiveSheet.Shapes.AddLine(Cells(i, 3), Cells(i, 4), _ Cells(i, 5) * faktor, Cells(i, 6) * faktor).Select Next i End Sub

Hallo Michl,
mein "kluger Freund" ist in Urlaub und hat keinen Bock, aber...
... wenn ich Dein Problem richtig interpretiere, sollte Dir die nachfolgende Lösung weiterhelfen.
Der Knackpunkt ist die Winkelberechnung, die Dir nur Werte zwischen 0 und 90 Grad liefert, gell.
Ich habe den Tangens durch einen sin ersetzt (dann mußte die Division durch 0 nicht abfangen) und erst Mal gestaunt, daß der auch kaum besser tut.
Mit a bissala Rumprobieren und Wissensauffrischung kommt ne Fallunterscheidung raus, die Dir letztlich den passenden Winkel von 0 bis (knapp) 360 Grad auswirft, die Du aber auch direkt für die Ermittlung der "Richtung" einsetzen kannst. Die gelesenen Links findest Du im Tabellenblatt "Herleitung"; Grafikausgabe mit Pfeilen in einem kleinen Makro; einzelne Pfeile kannst in der Grafik anklicken, dann siehst Du die Nr. oben im Namensfenster und kannst sie mit den Werte im Blatt "Daten" vergleichen.
Datei: https://www.herber.de/bbs/user/95758.xls
Aus "mal schnell ne halbe Stunde" vorm (geplanten Einschalten des) Fernsehen(s) sind nun doch wieder 4 Stunden geworden, aber gut, wieder nicht verblödet...
Mathematiker mußt halt sein, deshalb konnte ich mir das q.e.d. auch net verkneifen.
Viel Spaß und schreib bitte, ob es das war.
Schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

Knotenkopplungen und Laufrichtungen erkennen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread