Il sorgente di wxMaxima lo posso scrivere qua sotto
Con estensione HTML posso fare scritte rosse!*/ /* Qua sopra ho scritto, come commento per wxMaxima , le marche HTML invisibili in HTML, necessarie per fare accettare da un browser tipo Firefox, questo documento come di tipo HTML. */ print("Attenzione: per controllare se il file e' ben scritto", "in XHTML bisogna salvarlo con estensione .mac e non ", "con estensione .wxm ed inoltre eliminare le righe ", "scritte prima di <?xml e alla fine dopo la ", "marca <html>" )$ print("Fatte queste modifiche il file e' inutilizzabile", "da wxMaxima ma si puo' controllare se l'XHTML e' ben fatto.")$ /* Definisco versione ossia una lista e la variabile attualeversione ossia una stringa */ attualeversione:20160613$ versione:["fasullo.mac.html :", "versione mascherata da documento html",20160613]$ print("fasullo.mac attualeversione : ",attualeversione)$ /* Notare che, per poter essere caricato tramite la load(...) da wxMaxima, questo file DEVE avere estensione .mac mentre per potere essere letto da un Browser come file HTML deve avere estensione .html */ /* Uso xwMaxima per visualizzare le prime 48 cifre di pi_greco. */ if(48>fpprec) then ( print("Modifico fpprec che ora vale: ",fpprec),fpprec:48 ) else print("fpprec ora vale :",fpprec)$ print("Dunque ecco %pi : ",bfloat(%pi))$ /* Ecco una funzione per caricare file andandoli a cercare in una serie di cartelle specificate. Posso anche indicare una lista di vari file alternativamene caricabili e messi...chissa' dove...*/ loadmia20140308(filechevogliousare,archiviomio):= block([limite,lovedo,tentativo,jj], tentativo:"tentativo_fallito!", limite:length(filechevogliousare), for jj:1 step 1 while limite>=jj do( print("Tento con ",filechevogliousare[jj]), lovedo:file_search(filechevogliousare[jj],archiviomio), if stringp(lovedo) then( load(lovedo),tentativo:lovedo,limite:0, print("Trovato !"))), print("Se trova il file cercato,", " fa vedere le print che contiene..."), print("Se NON LO TROVA stampa tentativo_fallito! :",tentativo), return(tentativo))$ /*
Avverto che loadmia20140308 esiste */ print("Disponibile : ", "loadmia20140308(filechevogliousare,archiviomio)")$ /* Ecco la funzione che mi consente di ampliare il numero di cartelle esplorate da wxMaxima per cui posso fare una load di un file senza dovere indicare tutte le volte le cartelle dove cercare il file.*/ dovemaximacerca20140308(cartellemie):=block([k,carte], carte:makelist(sconcat(cartellemie[k],"###.{mc,mac}"), k, 1, length(cartellemie)), if atom(path_iniziale) then ( writefile("zero-va-eliminato.mc"), path_iniziale: file_search_maxima, print("INIZIA ! ", "Il path iniziale era : ",path_iniziale)) else print("Prosegue !"), print("Amplia il path_iniziale "), file_search_maxima: append(carte,path_iniziale), print("Il path attuale : ",file_search_maxima), return (carte))$ /*
Avverto che dovemaximacerca20140308(cartellemie) esiste */ print("Disponibile : ", "dovemaximacerca20140308(cartellemie)")$ /* Perche' questo file funzioni da file HTML devo scrivere come commenti le marche ossia i tag di chiusura dell' HTML. In questo modo </pre> </body> </html> ( che in HTML diventa invisibile )... Qui, inoltre, voglio mostrare che e' possibile aggiungere marche della grafica SVG in modo che questo documento, quando ha estensione .html puo' mostrare persino disegni animati... */ /*