Sponsored links: Algebra eBooks
 

Related

load-tanh

load(solve_rec);

-- a1: t[n-1] = t[n] ...

-- solve_rec(a1, t[n]);

Calculate

load-numer-solve

load(functs);

solve(geosum(1,1/3,n)...

Calculate

load-sqrt

/* [wxMaxima batch fi...

/* [wxMaxima: input ...

B:[0,4,1];

Calculate

load-true

load("simplex") ;

obj: x+y-2*z ;

eq1: x+y+z <= 8 ;

Calculate

load-plot2d-unit_step
plot2d(f(x),[x,0,3],[y,0,100]);

load(orthopoly) ;

f(x):= 20*unit_step(x...

plot2d(f(x),[x,0,3],[...

Calculate

load

load(fourier_elim) ...

fourier_elim([x**2+2*...

Calculate

load-max

/* input number n */l...

n:11;

b1:2;

Calculate

load-matrix-rank-ratsubst

load(linearalgebra);

m: matrix([a,1,1],[1,...

rank(ratsubst(0,a,m));

Calculate

load-true

load(ctensor);

cframe_flag:true;

cmetric(a,b);

Calculate

load-tanh

load(solve_rec);

a1: t[n-1] = t[n] * 2;

solve_rec(a1, t[n]);

Calculate

load

Run Example
(%i1)plot2d(1/3*x^2-8,[x,-10,10],[y,-10,10]);
plotplot2d(1/3*x^2-8,[x,-10,10],[y,-10,10]);load(implicit_plot);
(%o2)      /usr/share/maxima/5.21.1/share/contrib/implicit_plot.lisp
(%i3) implicit_plot((x-0)^2+(y-0)^2=8^2,[x,-10,10],[y,-10,10],[gnuplot_preamble,"set size square"]);
plotimplicit_plot((x-0)^2+(y-0)^2=8^2,[x,-10,10],[y,-10,10],[gnuplot_preamble,"set size square"]);load(implicit_plot);
(%o4)      /usr/share/maxima/5.21.1/share/contrib/implicit_plot.lisp
(%i5) implicit_plot((1*x-0)^2+(3*y-0)^2=8^2,[x,-10,10],[y,-10,10],[gnuplot_preamble,"set size square"]);
plotimplicit_plot((1*x-0)^2+(3*y-0)^2=8^2,[x,-10,10],[y,-10,10],[gnuplot_preamble,"set size square"]);load(implicit_plot);
(%o6)      /usr/share/maxima/5.21.1/share/contrib/implicit_plot.lisp
(%i7) implicit_plot((2*x-0)^2-(3*y-0)^2=8^2,[x,-10,10],[y,-10,10],[gnuplot_preamble,"set size square"]);
plotimplicit_plot((2*x-0)^2-(3*y-0)^2=8^2,[x,-10,10],[y,-10,10],[gnuplot_preamble,"set size square"]);
Run Example
load(draw);
(%o1)            /usr/share/maxima/5.21.1/share/draw/draw.lisp
(%i2) Po:[-5,-8];
(%o2)                             [- 5, - 8]
(%i3) P:[4,3];
(%o3)                               [4, 3]
(%i4) m:(P[2]-Po[2])/(P[1]-Po[1]);
                                      11
(%o4)                                 --
                                      9
(%i5) y-Po[2]=m*(x-Po[1]);
                                      11 (x + 5)
(%o5)                         y + 8 = ----------
                                          9
(%i6) b:m*(-Po[1])+Po[2];
                                       17
(%o6)                                - --
                                       9
(%i7) f(x):=m*x+b;
(%o7)                           f(x) := m x + b
(%i8) draw2d(explicit(f(x),X,-6,6),color="red",vector(Po,[9,0]),vector([4,-8],[0,11]));
plotdraw2d(explicit(f(x),X,-6,6),color="red",vector(Po,[9,0]),vector([4,-8],[0,11]));
Run Example
load("diag");
(%o1)           /usr/share/maxima/5.21.1/share/contrib/diag.mac
(%i2) a1:matrix([1,2,3],[0,4,5],[0,0,6]);
                                  [ 1  2  3 ]
                                  [         ]
(%o2)                             [ 0  4  5 ]
                                  [         ]
                                  [ 0  0  6 ]
(%i3) diag([a1]);
                                  [ 1  2  3 ]
                                  [         ]
(%o3)                             [ 0  4  5 ]
                                  [         ]
                                  [ 0  0  6 ]
(%i4) 

Related Help

Help for Load