Sponsored links: Algebra eBooks
 

Related

load

load(vect);

s:[sx,sy,sz];

n:[nx,ny,nz];

Calculate

load

load(fourier_elim) ;

fourier_elim([((x-2)*...

Calculate

load-true

load("simplex");

obj : -2*x1+x2;

cnst : [x1-3*x2<=-...

Calculate

load-solve

load("simplify_sum");

solve(simplify_sum(su...

Calculate

load-matrix

load(gf);

gf_set(3);

E:matrix([1,0,0],[0,1...

Calculate

load-true

load("simplex");

obj :6*x1+5*x2;

cnst : [3*x1-2*x2<...

Calculate

load

load(solve_rec);

solve_rec(a[n]=(a[n-1...

Calculate

load-true

load("simplex");

obj: 0.043*x1+0.027*x...

cnst: [x1+x2+x3+x4+x5...

Calculate

load

load ("vect");

A:[1,2,3];

B:[-1,-2,-1];

Calculate

load-true

load(descriptive);

load(numericalio);

s:[ 2,7,10,7,7,8,4,7,...

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 (eigen);
(%o1)           /usr/share/maxima/5.21.1/share/matrix/eigen.mac
(%i2)  x: matrix ([1, 2, 2, -1], [1, 1, -5, 3], [3, 2, 8, -7]);
                              [ 1  2   2   - 1 ]
                              [                ]
(%o2)                         [ 1  1  - 5   3  ]
                              [                ]
                              [ 3  2   8   - 7 ]
(%i3)  y: gramschmidt (x);
(%o3)        [[1, 2, 2, - 1], [2, 3, - 3, 2], [2, - 1, - 1, - 2]]
(%i4)  map (innerproduct, [y[1], y[2], y[3]], [y[2], y[3], y[1]]);
(%o4)                              [0, 0, 0]
(%i5)  load (eigen);
(%o5)           /usr/share/maxima/5.21.1/share/matrix/eigen.mac
(%i6)  ip (f, g) := integrate (f * g, u, a, b);
(%o6)                 ip(f, g) := integrate(f g, u, a, b)
(%i7)  y : gramschmidt ([1, sin(u), cos(u)], ip), a= -%pi/2, b=%pi/2;
                                      %pi cos(u) - 2
(%o7)                     [1, sin(u), --------------]
                                           %pi
(%i8)  map (ip, [y[1], y[2], y[3]], [y[2], y[3], y[1]]), a= -%pi/2, b=%pi/2;
(%o8)                              [0, 0, 0]
(%i9) 
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]));

Related Help

Help for Load