[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 !
;
[wxMaxima: comment end ] */
/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$