;gestione matrici
;estrazione elementi da matrice
;matrix5
;-------------------------
(prog1
(print "")
(setq mat1(make-array '(3 3):initial-contents'((1 2 3)(4 5 6)(7 8 9))))
(print mat1)

(setq riga 0)
(setq col  0)
(dotimes(conta 3 0)
    (print(aref mat1 riga col ))
    (setq col(+ col 1)))
(print "-----------")

(setq riga 1)
(setq col 0)    
    (dotimes(conta 3 0)
    (print(aref mat1 riga col ))
    (setq col(+ col 1)))
(print"--------")

(setq riga 2)
(setq col 0)
    (dotimes(conta 3 0)
    (print(aref mat1 riga col ))
    (setq col(+ col 1)))
  (print"---------")  
  (terpri) 
)

;gestione matrici
;estrazione elementi da matrice
;matrix6
;-------------------------
(prog1
(print "")


(setq matrice(make-array'(3 3):initial-contents'
((rosso verde nero)(alto basso corto)(rossi verdi bianchi))))

(print matrice)

(setq riga 0)
(setq col  0)
(dotimes(conta 3 0)
    (print(aref matrice riga col ))
    (setq col(+ col 1)))
(print "-----------")

(setq riga 1)
(setq col 0)    
    (dotimes(conta 3 0)
    (print(aref matrice riga col ))
    (setq col(+ col 1)))
(print"--------")

(setq riga 2)
(setq col 0)
    (dotimes(conta 3 0)
    (print(aref matrice riga col ))
    (setq col(+ col 1)))
  (print"---------")  
  (terpri) 
)

;gestione matrici
;estrazione elementi da matrice
;matrix8
;-------------------------
(prog1
(print "")

(setq matrice(make-array'(3 3):initial-contents'
((rosso verde nero)(alto basso corto)(rossi verdi bianchi))))
(print matrice)

(defun legge(riga col)
(dotimes(conta 3 0)
    (print(aref matrice riga col ))
    (setq col(+ col 1)))
(print "-----------"))

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

(terpri)
)

ritorna