Problemzyklus im

[carry]

nicht funktioniert
Danke.

(Defun tan)
(cond (cos x) 0.0 1.0e-16)
(falls (minusp x)-1.0e200 1.0e200) (t(/ (sin x)))))

(setq a (getreal "\niser sideÿege a= : ")
b (getreal "\niser side minor rectangle b= : ")
c (getreal "\niser side minor rectangle cracked c= :")
;d (getreal "\ni geben sie mehr rechteck gekrackt d= :")
)

(setq ang 0,001
und (* c (sin ang)
f (- a e)
(a) (c) (c) (c)) (tan ang)
h (* c (cos ang)
x (+ g h))

(while (= x b))
(setq ang (+ ang 0.001)
und (* c (sin ang)
f (- a e)
(a) (c) (c) (c)) (tan ang)
h (* c (cos ang)
x (+ g h)

(princ (angtos ang)

 

[carry]

gelöst
während der zyklus funktioniert, bis der test gleich ist
so müssen sie "=" mit "/=" ersetzen
danke.

 

[GP.]

ich habe verstanden, dass die beiden werte gleich sein mussten, hatte ich hier bereits reagiert:
http://www.cad3d.it/forum1/showpost.php?p=93491&postcount=56