;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