;GESTIONE MATRICI

;ASSEGNAZIONE CONTENUTO CON READ-LINE
;MAT3

(progl
(print "")
(setq matrice(make-array’(3 3):initial-element 0))
(print matrice)

(defun legge(riga colonna)
(dotimes(conta 3 0)
(print"scrivi FRASE+return")
(setq x(read-LINE))
(setf(aref matrice riga colonna)x)
(setq colonna(+ colonna 1))))

(setq riga 0)
(setq colonna 0)
(dotimes(conta 3 0)
(legge riga colonna)
(setq riga(+ riga 1)))

(print matrice)
(terpri)
)





;esempiO funzioni grafiche con LISP ;grafical su marmO14
(progl
(ask(front-Window)
(move-to 10 10)(line-to 90 10)(line-tO 90 100)(line-to 10 10)
;disegna triangolo
(move-to 110 10)
(line 100 0)(line O 100)(lifle -100 0)(line 0 -100) 
;disegna quadrato
(move-to 300 10)(line 100 0)(move 5 0)(line 20) 
;disegna segmentO
;funzioni usate (ASK(front-Window)) :disegna su finestra corrente
;MOVE-TO colonna riga:sposta cursore da posizione corrente a col riga
;MOVE dc dc dr :sposta cursore verso destra,Sinistra,basso,
alto colonna riga:disegna linea da posizione corrente a nuova
;LINE dc dr:disegna segmento verso destra,Sinistra,basso,alto))




esempio funzioni matematiche con LISP
(progl
(defvar x 100)
(setq radice(sqrt x))
(setq quadrato (expt x 2))
(setq ln (log x))
(setq log10(log x 10))
(setq esponenziale(exp 3))
(prinl "numero	")(prinl x)(terpri)
(prinl "quadrato... ")(prinl quadrato)(terpri)
(prinl "neperiano. . ")(prinl ln)(terpri)
(prinl "decimale... ")(prinl log10)(terpri)
(prinl "esponenz... ")(printl esponenziale)(terpri)
(prinl "radice ... . ")(prinl radice)(terpri)
(terpri)
(print " fine"))



ritorna