(prog1 funzioni trigonometriche
(setq cw3(oneof *color-window* ))
(ask(front-window)
(setq angolo 0)
(setq valori 240)
(setq x 10)
(dotimes(conta valori 0)
 (setq radiante(* angolo 3.14 1/90))
 (setq seno(sin radiante))
 (setq pseno(* 100 seno))
 (setq sinintero(truncate pseno))
 (setq coseno(cos radiante))
 (setq pcoseno(* 100 coseno))
 (setq cosintero(truncate pcoseno))
 (setq y (+ 150 sinintero))
 (move-to x y)
(set-pen-rgb-pat(random 62000)(random 62000)(random 62000))
 (line 0 1)
 (move-to x 150)
 (line 0 cosintero)
 (setq x(+ x 2))
 (setq angolo(+ angolo 1))
(set-pen-rgb-pat(random 62000)(random 62000)(random 62000))
)))
;grafico funzione sinusoide e cosinusoide

(

(prog1
(setq cw3(oneof *color-window* ))
(ask(front-window)
(setq angolo 0)
(setq valori 300)
(setq x 10)
(dotimes(conta valori 0)
 (setq radiante(* angolo 3.14 1/180))
 (setq seno(sin radiante))
 (setq prodotto(* 100 seno))
 (setq intero(truncate prodotto))
(set-pen-rgb-pat(random 62000)(random 62000)(random 62000))
 (move-to x 150)
 (line 0 intero)
 (setq x(+ x 1))
 (setq angolo(+ angolo 5))
)))
;grafico funzione sinusoidale

ritorna