---

Hallo zusammen,

ich möchte in Lisp eine Rechnung ausführen lassen, in der der umgekehrte cos von z.B. 0.85 berechnet wird. Also cos^-1 0.85). Diese Möglichkeit gibt es aber scheinbar nicht.
Ich könnte ja über -sin,... auch daran kommen, aber den kann ich so ja auch nicht berechnen.

Was für eine Möglichkeit gibt es denn noch?

Viele Grüße
Andrea

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andrea,

Arcustangens ist eine von AUTOLISP unterstützte Funktion

(aus der VLIDE-Hilfe
...
(atan num1 [num2])

Arguments

num1

A number.

num2

A number.

Return Values

The  arctangent of num1, in radians, if only num1 is supplied. If you supply both num1 and num2 arguments, atan returns the arctangent of num1/
num2, in radians. If num2 is zero, it returns an angle of plus or minus 1.570796 radians (+90 degrees° or -90 degrees), depending on the sign of num1. The range of angles returned is -pi/2 to +pi/2 radians.
...

Aus der Trigonometrie ist bekannt:

tan(alpha) = sin(alpha)/cos(alpha)

    alpha  = arctan[sin(alpha)/cos(alpha)]    (1)

sin(alpha) = sqrt[1-cos(alpha)*cos(alpha)]      (2)

Mit cos(alpha) = a

wird so aus (1) und (2)

    alpha  = actan{ (sqrt[1-a*a])/a }

und alpha ist ja auch arccos(a)

(Hoffentlich habe ich mich nicht vertippt...)

Beste Grüße
Jochen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Jochen,

aber jetzt habe ich das Problem, dass bei mir Cosinus und Sinus eh nicht richtig berechnet werden.

z.B.:
(cos 1.0) => 0.540302  (LISP)
cos 1.0  => 0.999847 (Taschenrechner)

Bin ich zu blöd, oder rechnet der PC wirklich falsch?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andrea,

das hängt damit zusammen, dass du in Lisp den Winkel in Bogenmaß an die Funktion geben musst. Dein Taschenrechner rechnet eben mit Grad.

360Grad=2Pi
180Grad=Pi
...

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
Irgendwann muß man schlafen, deshalb:
+!+!+Urlaub vom 01.08.-30.08.2003+!+!+

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andrea!

Autolisp verwendet RADIANT! Daher ist cos(pi/2)= 0 und  der Cosinus von 45° ergibt sich als (cos (/ (* 45 pi) 180)) = 0.707107

------------------
Grüße aus Linz

Willi Klemens
MCDS Datensystem GmbH

www.mcds.net

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Oh ja, da fällt mir ja ein Stein vom Herzen.

Danke schön.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP