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

/* [wxMaxima: input   start ] */
orb1_1(n,f):=(s:[],t:n, for k from 1 while (not member(t,s)) do (s:append(s,[t]),t:f(t)),s:append(s,[t]),s);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
f2: lambda ([x], remainder(3*x+1,12));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
orb1_1(1,f2);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
orb1_1(2,f2);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
orb1_1(3,f2);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
f3: lambda ([x], remainder(3*x+1,109));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
orb1_1(3,f3);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
orb1_1(5,f3);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
M: matrix([41, 2, 3, 4], [1, 42, 3, 2], [1, 2, 43, 4], [1, 2, 3, 43])$
f(x, y) := float (M [?round(x), ?round(y)])$
plot3d (f, [x, 1, 4], [y, 1, 4], ['grid, 4, 4])$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
fib[0]:0; fib[1]:1; fib[n]:=fib[n-1]+fib[n-2];
for a:-3 thru 260 step 7 do ldisplay(fib(a));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
plot2d ([parametric, cos(2*t), sin(3*t), [t, -5, 5],        [nticks, 80]])$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
plot2d ([parametric, cos(2*t), sin(3*t), [t, -5, 5],[nticks, 80]])$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
plot2d ([x^3 + 2, [parametric, cos(t), sin(t), [t, -5, 5],
        [nticks, 80]]], [x, -3, 3])$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
plot2d ([parametric, cos(t), sin(t), [t, -5, 5],        [nticks, 80]])$
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
plot2d ([parametric, cos(t1), sin(t1), [t1, -5, 5],        [nticks, 80]])$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
plot2d ([parametric, cos(x), sin(x), [x, -5, 5],[nticks, 80]])$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
plot2d ([parametric, cos(2*x), sin(3*x), [x, -5, 5],[nticks, 80]])$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
plot2d ([parametric, cos(5*x), sin(3*x), [x, -5, 5],[nticks, 80]])$
/* [wxMaxima: input   end   ] */

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