functions;   /* get list of function */
load(mbe5);
functions;
example();

apropos("") returns a list with all Maxima names.
apropos("gamma");

Function: demo (filename)
demo ("disol");

describe
?? Iteg

Function: example 
example("lambda");

packages: 
linearalgebra
unit
physical_constants
setunits([centigram,inch,minute]);
convert(kg*m/s^2,[g,km,s]);
setunits([dyn,eV]);
 metricexpandall (x)
X from
           0 - none. Only base units
           1 - kilo, centi, milli
(default)  2 - giga, mega, kilo, hecto, deka, deci, centi, milli,
               micro, nano
           3 - peta, tera, giga, mega, kilo, hecto, deka, deci,
               centi, milli, micro, nano, pico, femto
           4 - all
vect
Share packages


4.2 Functions and Variables for Command Line
 __
     __ is the input expression currently being evaluated. That is, while an input expression expr is being evaluated, __ is expr.

 _
     _ is the most recent input expression (e.g., %i1, %i2, %i3, $A!-(B).

 % 
     % is the output expression (e.g., %o1, %o2, %o3, $A!-(B) most recently computed by Maxima, whether or not it was displayed.
 %% 
     %% is the value of the previous statement.
 Function: %th (i)
     The value of the i-F¢th previous output expression. -A

Special symbol: ? 


(%i32) depends ([F, G], [y, z]);
(%o32)                        [F(y, z), G(y, z)]
(%i33) jacobian ([F, G], [y, z]);
                                  [ dF  dF ]
                                  [ --  -- ]
                                  [ dy  dz ]
(%o33)                            [        ]
                                  [ dG  dG ]
                                  [ --  -- ]
                                  [ dy  dz ]
================================================================================
tube(g, r, u, v) :=    g(u) + r*(cos(v)*n(u) + sin(v)*b(u));
cross (v1, v2) := determinant(matrix([[1, 0, 0], [0, 1, 0], [0, 0,1]], v1, v2));

tangent(fn, x) :=       diff(fn(x), x) / ((diff(fn(x), x) . diff(fn (x), x))^(1/2));

binormal (fn, x) := 
         cross (diff(fn(x), x), 
                diff (fn(x), x, 2)
               )  
           /(( cross(diff(fn(x), x), diff (fn(x), x, 2))
               . cross(diff(fn(x), x), diff (fn(x), x, 2))
             ) ^(1/2)
            );
binormal (fn, x) := 
         cross (diff(fn(x), x), 
                diff (fn(x), x, 2)
               )  
           /(( cross(diff(fn(x), x), diff (fn(x), x, 2))
               . cross(diff(fn(x), x), diff (fn(x), x, 2))
             ) ^(1/2)
            );
binormal (fn, x) := 
         cross (diff(fn(x), x), 
                diff (fn(x), x, 2)
               )  
           /(( cross(diff(fn(x), x), diff (fn(x), x, 2))
               . cross(diff(fn(x), x), diff (fn(x), x, 2))
             ) ^(1/2)
            );

 tubeplot1.mc
/*------------------------------
for Maxima 5.9.1
computation of a tube around a spacial curve.
This version does not simplify intermediate results.
----------------------------*/
rotateLeft(v1):= append(rest(v1, 1), cons(first(v1), []))$
cross (u, v) := rotateLeft( u * rotateLeft(v) - v * rotateLeft(u))$

tangent(fn, x) :=
       Diff(fn(x), x) / ((Diff(fn(x), x) . Diff(fn (x), x))^(1/2))$

binormal (fn, x) := 
         cross (Diff(fn(x), x), 
                 Diff (fn(x), x, 2)
                 ) / 
              (( cross(Diff(fn(x), x), Diff (fn(x), x, 2))
               . cross(Diff(fn(x), x), Diff (fn(x), x, 2))
                ) ^(1/2))$
normal (fn, x) := cross(binormal(fn, x), tangent(fn, x))$


 tube(fn, r, t, phi) :=
       fn(t) + r* (cos(phi)* normal(fn, t) + sin(phi)* binormal(fn, t))$