Sponsored links: Algebra eBooks
 

Related

load
implicit_plot ((x+y)/(2*x+y)^2=(2-(x+y))/(3-(2*x+y))^2, [x,0,0.99], [y,0,0.99]);

load(implicit_plot);

implicit_plot ((x+y)/...

Calculate

load

load(itensor);

kdelta([1],[j]);

Calculate

load
implicit_plot(x^2+(y-(x^2/3))^2=1,[x,-2,2],[y,-2,2]);

load(implicit_plot);

implicit_plot(x^2+(y-...

Calculate

load

load("grobner");

Calculate

load-matrix-ratsimp-transpose

load(eigen);

K:(1/m)*matrix([-2*k,...

[val,vec]:uniteigenve...

Calculate

load-solve

load("simplify_sum");

solve(simplify_sum(su...

Calculate

load

load(finance);

npv(0.1,[52000,52000...

npv(0.1,[32000,32000,...

Calculate

load

L:6;

D:0.07;

Hu:0.7;

Calculate

load

load(interpol);

p:[[7,2],[8,2],[1,5],...

cspline(p);

Calculate

load-true

load("simplex");

obj:10*x1-57*x2-9*x3-...

cnst:[1/2*x1-11/2*x2-...

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