---

Hey Leute
Bräuchte ganz dringend eure Hilfe um einen Arcussinus zu berechnen.
Hab alle möglichen abkürzungen dafür in lisp ausprobiert aber find keine passende.
Ich weiß nicht; gibs sowas nicht oder find ich die Funktion einfach nicht?

könnt mir da vielleicht jemand helfen?
wäre sehr dankbar.

Lg lisphead

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

---

Hallo lisphead,

die funktion gibt es nicht und brauch man ja auch nicht, da man das ja mit dem arctan abbilden kann und die funktion gibt es.

Code:

---

(defun arccos (wbm)
  (cond
    ((> (abs wbm) 1.0)
    (prompt " ARCCOS-FEHLER")
    )
    ((equal wbm 1.0 0.000000001)
    0.0
    )
    ((equal wbm -1.0 0.000000001)
    pi
    )
    (t
    (-
      (/ pi 2)
      (atan (/ wbm (sqrt (- 1 (* wbm wbm)))))
      )
    )
    )
  )

---

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

Ja schon. aber leider übersteigt das meine Kompetenzen.
kann ich deinen Code nur so in ein bestehndes Programm einfügen?
und wie komm ich jetzt vom arccos zum arcsin?
  Dumme Frage aber ich hab keine ahnung.

Schreie um Hilfe
hoffentlich hört mich jemand

lg lisphead

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

---

Hier ne Funktion, um den arcsinus zu berechen. Sollte eigentlich mit jedem Tafelwerk herzuleiten sein.

(defun DT:ASIN ( SINUS / WINKEL )
  (if (numberp SINUS)
    (cond
      ((= SINUS  1) (* PI  0.5))
      ((= SINUS -1) (* PI -0.5))
      ((and(<= SINUS  1.0)(>= SINUS -1.0))
        (atan (/ SINUS (sqrt (- 1.0 (* SINUS SINUS)))))
      )
    )  
  )
)

------------------
       - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Sry aber wie bau ich das in ein Program ein? mit dem DT:ASIN?
SINUS ist doch die Eingangsvariable oder?
Ich habs versucht, nur leider wenn ich die Varaible WINKEL abrufen möcht -> NIL
???

*verständnissvoll fragend*
:S

Grüße lisphead

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

---

Hat sich erledigt.

Nochmals Danke vielmals.

Grüße Lisphead

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