(defun trigo(x)
 (setq k(/ 3.14 180))
 (setq radianti(* x k))
 (setq seno(sin radianti))
 (setq coseno(cos radianti))
 (setq tangente(tan radianti))
 (print seno)(terpri)
 (print coseno)(terpri)
 (print tangente)(terpri)
)
;funzione per calcolare valori trigonometrici di angolo dato in gradi
;e trasformato in radianti

(defun trigo1(x)
 (defvar k)(defvar radianti)(defvar seno)(defvar coseno)
 (defvar tangente)
 (setq k(/ 3.14 180))
 (setq radianti(* x k))
 (setq seno(sin radianti))
 (setq coseno(cos radianti))
 (setq tangente(tan radianti))
 (print seno)(terpri)
 (print coseno)(terpri)
 (print tangente)(terpri)
)
;funzione per calcolare valori trigonometrici di angolo dato in gradi
;e trasformato in radianti

ritorna