Senkrechte in 3D-Grafik

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Beverly, ich kann's nicht in Excel umsetzen, allenfalls math. erklären. Alle Eingangs- Ausgangswerte sind numerisch, integer, single oder double ! Ich hab's mal bunt gemacht. Du siehst oben links A1 bis I9, hellgrau unterlegt. Die exakten Zahlen finden sich auch auf ein, zwei NK-Stellen gekürzt in der Rechenvorschrift ab etwa N37 bis ca. S42 unter der eigebetten Grafik wieder. Schau bitte immer noch auf die Eingebette Grafik ! Dort ist die Regel : für ein einzelnes w, etwa Spalte S45 bis S53 gilt das Trum aus der Formel (rote 8) ab ca. N8 bis zum Ende ca. S43. All dies hilft mir doch immer nur für ein einziges ! z, hier also w, das ich nur als Funktion der Hilfsfunktionen zeta und psi (have a look at das gelbe, das Makro und die Pfeile !) errechnen konnte. Mir scheint, da müssen noch zwei weitere For-Next-Schleifen über x bzw xi und y bzw psi her, die's richten. Das kann sich in Breite, Höhe x = 2a/2, y = 2b/2 oder Schrittweite von x und y heftig ändern. Gibt in diesem Beispiel zumindest aus einer A1-I9 Matrix eine 30 mal 20 Tabelle und sollte graf. einen 3D-Sattel geben. https://www.herber.de/bbs/user/153209.xlsm. So long, Klaus

Nun Karin, ich hab's wohl schlecht erklärt : "meine Formel" ist das Makro Schaltfläche 2, die für nur ! einen einzigen Punkt mit 'nem Trum aus 81 Faktoren und xi ^ 0 bis xi ^ 8, sowie psi^0 bis psi ^8 nur das w in mm nur (!) an der Stelle x / y (wieder nunmerisch, double) bzw. mit den Hilfsvariablen xi und psi als Propotionen von x und a und y und b errechnet. Diese Verhältnisse laufen so beide immer von -1 ... +1. Mein Ziel war nun, zwei weitere Schleifen mit laufenden xi und psi um dieses Einzelpunkt-w (mathematisch also z) zu legen, um damit alle w im gesamten Bereich -a/2 ... -a/2 [mm] in x und - b/2 ... + b/2 in y in einer 2 Tabelle anzuzeigen, aus der ich eine Grafik erzeugen kann. Bislang festes xi und psi müssen nun zu Laufvariablen werden. Maybe so ? :
Sub Schaltfläche2_Klicken()
Dim z, s As Integer
Dim xi, psi, pab64d, w As Double
Dim w_im_punkt As Double
xi = Range("G68").Value
psi = Range("H68").Value
pab64d = Range("C45").Value
w = 0
For s = 1 To 9
For z = 1 To 9
' hier müßten wohl die xi- und psi-Schleife ...
w = w + Cells(s, z) * xi ^ (s - 1) * psi ^ (z - 1)
' ... herum, oder ? Und dann jeweils mit pab64d multipliziert werden (bevor sie nach E86 bis AI106 geschrieben werden oder auch nachträglich ?)
Next
Next
w = w * pab64d
MsgBox "xi = " & xi & " " & vbCrLf & "psi = " & psi & vbCrLf & " w = " & Format(w, "0.00")
Besten Dank, Klaus

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread