/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created with wxMaxima version 0.8.7 ] */

/* [wxMaxima: input   start ] */
kill(all);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
definizione in forma di espressione associata a variabile

fun : sin(x)+x;
ev(fun, x=1);
   [wxMaxima: comment end   ] */

/* [wxMaxima: comment start ]
definisco una funzione
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
a:1/%pi;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
fun(y) := sin(y)+a*y;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
fun(1);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
define ( stessafun(y) , sin(y)+a*y ) ;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
stessafun(1);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
grafici di funzioni
   [wxMaxima: comment end   ] */

/* [wxMaxima: comment start ]
definisco tre funzioni
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
fun(x);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
define (t1fun(x) , taylor(fun(x), x , %pi/6 , 1 ) );
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
define (t2fun(x) , taylor(fun(x), x , %pi/6 , 2 ) );
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
grafico le funzioni
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(
[fun(x), t1fun(x), t2fun(x)] ,
[ x , -2*%pi , 2*%pi ],
[ legend , "fun" , "t1fun" , "t2fun" ]
);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
blocchi di istruzioni e ciclo for
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
plottami : [ fun(x) ] ;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
legendami : [ legend, "fun" ] ;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
i : 3 ;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
for i : 0 thru 8 step 1 do ( 
  tmp : taylor(fun(x), x , %pi/6 , i ),
  plottami  : append ( plottami   , [ tmp ] ),
  legendami : append ( legendami  , [i] )

);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
plottami;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
legendami;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(  

plottami , 
[ x , -2*%pi , 2*%pi ] , 
legendami ,
[ y , -10 , 10 ]

);
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$