(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