Argument ist nicht optional
25.08.2020 10:42:12
Alex
Die Formel Skalarprodukt könnte ich zwar auch mit Summenprodukt in der Excel-Arbeitsmappe lösen, würde jedoch gerne alles einmal in VBA einheitlich haben, damit ich die Funktion für vWinkel nutzen kann.
Function Betrag(r As Range)
'Vektorlänge
b = WorksheetFunction.Index(r, 1, 1)
c = WorksheetFunction.Index(r, 2, 1)
d = WorksheetFunction.Index(r, 3, 1)
e = Sqr(b ^ 2 + c ^ 2 + d ^ 2)
Betrag = e
End Function
Function sProdukt(r As Range, n As Variant)
'Skalarprodukt
b = WorksheetFunction.Index(r, 1, 1)
c = WorksheetFunction.Index(r, 2, 1)
d = WorksheetFunction.Index(r, 3, 1)
e = WorksheetFunction.Index(n, 1, 1)
f = WorksheetFunction.Index(n, 2, 1)
g = WorksheetFunction.Index(n, 3, 1)
h = b * e + c * f + d * g
Betrag = h
End Function
Function vWinkel(r As Range, n As Range)
'kleinster Winkel zweier Vektoren
b = WorksheetFunction.Index(r, 1, 1)
c = WorksheetFunction.Index(r, 2, 1)
d = WorksheetFunction.Index(r, 3, 1)
e = WorksheetFunction.Index(n, 1, 1)
f = WorksheetFunction.Index(n, 2, 1)
g = WorksheetFunction.Index(n, 3, 1)
h = WorksheetFunction.Acos((Modul1.sProdukt(r, n)) / ((Modul1.Betrag(r)) * (Modul1.Betrag(n))))
Betrag = h
End Function
Anzeige