[wxMaxima: comment end ] */ /* [wxMaxima: title start ]

Esempio n.0 d'uso della libreria libtensori.mc

[wxMaxima: title end ] */ /* [wxMaxima: comment start ]

Ricopiare questo documento per poi ampliarlo con la sperimentazione voluta.

[wxMaxima: comment end ] */ /* [wxMaxima: subsect start ]

Premessa: carico la libreria

   [wxMaxima: subsect end   ] */

/* [wxMaxima: comment start ]
Utilizza la libreria tensoriale. Deve dunque caricarla...
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
load_questo:"libtensori.mc";
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
salvoqui:"c:/xmaxima/tensori_x.mc";
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Dato che nel file che voglio rileggere con una load(...) ci
puo' essere una closefile(), per non avere segnalazioni di
errore apro un file detto di dribbling il cui contenuto
non mi interessa e dunque non importa se lo sovrascrivero'.
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
if atom(path_iniziale) then writefile("eliminando.mc");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Ora amplia il path usando /xmaxima/

Attenzione: bisogna che esista la cartella C:/xmaxima/ oltre alla cartella /zmaxima/ che e' una mia convenzione piu' recente

   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
altracartella:"C:/xmaxima/###.{mc,mac}";
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
E' consigliabile, prima di modificare il path standard, di salvare 
il valore del path di default di Maxima.
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
( if atom(path_iniziale) then (path_iniziale: file_search_maxima) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Ora amplio il path iniziale aggiungendogli la cartella. Con questo 
trucco posso ricaricare varie volte questo documento senza il 
problema di modificare ogni volta il path di ricerca. 
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
file_search_maxima: cons(altracartella,path_iniziale);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Dopo avere ampliato il path, cerco di caricare la libreria tensoriale.
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
load(load_questo);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Ora salva su un nuovo file ossia salvoqui...
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
writefile(salvoqui);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Guardo i nomi delle funzioni della libreria.
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
print("Le funzioni usabili : ",libmia)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Alcune funzioni della libreria sono queste:
Si ottengono visualizzando la variabile libmia:

["ada(la,per)","commentalo(tn,comme)","commento(tn)",
"diffcov(tn,metrica,nome)","dimensione(tn)","divergenza(tn,ki,metrica)",
"fa_ch122(g22,listavariabili)","fa_ch222(g220)",
"fa_diff(tn,variabili,comme)","fa_metrica(mg,listavariabili)",
"fa_r1222(t22,listavariabili)"
,"fa_r22(t22,listavariabili)","fa_r2222(t22,listavariabili)",
"indici(tn)","listadatensore(tn)","ordine(tn)","permuta(tn,per,com)",
"riemann_1222(t22,variabili)",
"riemann_2222(t22,variabili)","scala(ta,ia,tb,ib)","tassegna(tn,val,p)",
"tcontrov(lv,metrica)","tcov(lv,metrica)",
"tensoredalista(lista,tipi,comme,ndim)",
"tensorp(tn)","tmat11(mat,metrica)","tmat12(mat,metrica)",
"tmat21(mat,metrica)",
"tmat22(mat,metrica)","tmeno(tena,tenb)","tprod(tscala,tenb)",
"traccia(tn,ih,ik)",
"tsca(sc,metrica)","tsomma(tena,tenb)","tvale(tn,p)",
"zerotensor(tipi,comme,ndim)"]

   [wxMaxima: comment end   ] */

/* [wxMaxima: section start ]

Inizio della sperimentazione

   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
...da qui...
   [wxMaxima: comment end   ] */

/* [wxMaxima: comment start ]

Per usare questo file con http://maxima.sourceforge.net/ cancellare l'estensione .html e lasciargli l'estensione .wxm

Amen e buon ampliamento di questo file !