Arccos

Forumthread: Arccos

Arccos

12.08.2005 13:43:30

Wetzlich

Es funktioniert immer noch nicht!
Ich hab den tip bekommen es mit = WorksheetFunction.Acos(0.32)
zu probieren, aber es klappt nicht! Die Funktion wird ausgeführt, aber die Werte sind falsch. Was soll ich tun?
Liebe Grüße

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Arccos

12.08.2005 14:13:55

IngGi
AW: Arccos

12.08.2005 15:00:03

wetzlich
AW: Arccos

12.08.2005 15:53:32

ingoG
AW: Arccos

12.08.2005 16:25:01

Wetzlich
AW: Arccos

13.08.2005 19:18:57

ingoG

AW: Arccos

12.08.2005 14:13:55

IngGi

Hallo Wetzlich,
der Excel-Hilfe entnehmen wir, dass die Funktion Arccos den Winkel in Bogenmaß zurückgibt, und nicht in Grad, also:
= WorksheetFunction.Degrees(Acos(0.32))
Ich kann aber natürlich nur ins Blaue hineinraten, ob dass dein Problem war. Entschuldige die Spitzfindigkeit, aber deine Frage hängt ziemlich in der Luft. Offenbar ist dein Originalthread abgelaufen. Dann solltest du dein Problem aber nochmal umfassend beschreiben.
Gruß Ingolf

AW: Arccos

12.08.2005 15:00:03

wetzlich

Also, mein problem sieht folgendermaßen aus:
Range("E33").Value = Application.Run("Trend2k.xla!Integration_2", _
"-(" & G17 & "/(3,14159*(" & G17 & "^2+x^2)))" & _
"*((WorksheetFunction.Degrees(Acos((" & I17 & "^2-" & _
G17 & "^2-x^2+1)/(" & G17 & "^2+" & I17 & "^2+x^2-1))))" & _
"", _
"0", obergrenze)
G17 =1,6666
I17 =2,3333
H17 =1,6666
obergrenze = H17/2
Das Ergebnis ist 0, aber im TI berechne ich -9,19!
Was habe ich falsch gemacht?

AW: Arccos

12.08.2005 15:53:32

ingoG

Hallo,
versuchs mal so:
Range("E33").Value = Application.Run("Trend2k.xla!Integration_2", _
"-(" & G17 & "/(3,14159*(" & G17 & "^2+x^2)))" & _
"*((WorksheetFunction.Acos((" & I17 & "^2-" & _
G17 & "^2-x^2+1)/(" & G17 & "^2+" & I17 & "^2+x^2-1))/pi()*180)" & _
"", _
"0", obergrenze)
wenn er pi() nicht kennt, dann worksheetfunction.pi() dafür einsetzen...
Sollte eigentlich so funzen
Gruß Ingo
PS eine Rückmeldung wäre nett...

AW: Arccos

12.08.2005 16:25:01

Wetzlich

hat leider nicht funktioniert!

AW: Arccos

13.08.2005 19:18:57

ingoG

Hallo nochmal,
dann versuch doch mal:
Range("E33").Value = Application.Run("Trend2k.xla!Integration_2", _
-G17 / (Pi() * (G17 ^ 2 + x ^ 2)) * _
((WorksheetFunction.Acos((I17 ^ 2 - G17 ^ 2 - x ^ 2 + 1) / G17 ^ 2 + I17 ^ 2 + x ^ 2 - 1)) / Pi() * 180), _
0, obergrenze)
die Klammersetzung müsstest Du noch mal überprüfen...
hier werden im unterschied zu deinem Ansatz der Function Zahlen und nicht text übergeben
da ich die Function selbst nicht kenne, weiss ich auch nicht, wie er auf Dein x reagiert
Gruß Ingo
PS eine Rückmeldung wäre nett...

Forumthread: Arccos

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread