### Related

l1:[7.2,7.2,7.6,7.6,7...

histogram(l1);

Calculate

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

solve_rec(a1, t[n]);

Calculate

p:[[1,0],[2,0],[3,345...

Calculate

obj:12*y1+10*y2+8*y3;

cnst:[3*y1+3*y2+4*y3&...

Calculate

newton(x^2 - 4*x, x, ...

Calculate

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

implicit_plot(x-y=1,[...

Calculate

M:random_bipartite_gr...

draw_graph(M);

Calculate

taylor (x*(6*x^2+1*x+...

Calculate

h:12*sqrt(40089)/205;

y:1153/205;

Calculate

obj:x-y;

cnst:[y+x-5<=0, y...

Calculate

Run Example
(%i1)plot2d(1/3*x^2-8,[x,-10,10],[y,-10,10]);
(%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"]);
(%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"]);
(%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"]);
plot
Run Example
(%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]
(%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
(%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]));
plot