/*
Prove varie
*/

/*
Provo a realizzare un documento wxm per fare sperimentazioni
di vario tipo.
*/

(if atom(path_iniziale) then path_iniziale:file_search_maxima)$

path_iniziale;

/*
Amplio il path di ricerca ... Ovviamente per trovare poi qualcosa
devo avere creato la cartella zmaxima o Windows che però ci dovrebbe
già essere se sto lavorando con un sistema operativo come il mio,
Windows 7 e contenere file .exe
*/

file_search_maxima : cons( 
sconcat("/{zmaxima,Windows}/###.{lisp,mac,mc,jpg,exe}"), path_iniziale);

/*
Se mi sono dimenticato di mettere da qualche parte un file di nome
purotesto.mac il risultato sarà false, altrimenti mi dice dove
lo ha trovato.
*/

file_search("purotesto");

/*
Questa ricerca dovrebbe avere successo ossia dovrebbe esistere
sicuramente il file notepad.exe
*/

file_search("notepad");

array(a3d,flonum,2,2,2);

arrayinfo(a3d);

arrays;

arrays[1];

arrayinfo(a3d);

arrayinfo(a3d)[1];

arrayinfo(a3d)[2];

arrayinfo(a3d)[3];

/*
Faccio una array a tre indici
*/

z: make_array(fixnum,2,3,3);

/*
Se chiedo informazioni sulla array non me la stampa ma mi dice che
ha il numero di indici che ha
*/

z;

/*
Attenzione che, a differenza delle matrici, la numerazione
degli indici delle array parte da 0 e non da 1.
*/

z[0,0,0]:"zeri";

z[1,1,1]:111;

/*
Con il comando listarray() mi stampa la lista completa della
array 
*/

comelista:listarray(z);

/*
La numerazione delle liste parte da 1 per cui...
*/

comelista[1];

/*
AMEN
*/

/*
Utili le array per definire i tensori che sono delle ipermatrici ossia
matrici di vettori o matrici di matrici etc...
*/