Sponsored links: Algebra eBooks
 

Related

algsys

eq1: (3/2)*x*x+2*y*y=...

eq2: 3*x+4*y=7;

algsys([eq1,eq2],[x,y]);

Calculate

algsys-define-diff-plot3d
plot3d(f(x,y),[x,0,4],[y,0,4]);

f(x,y):=4-(x-1)^2-(y-...

define(fx(x,y),diff(f...

define(fy(x,y),diff(f...

Calculate

algsys-cos-diff-sin-solve-subst

Vr_old: (1-(3/2)*C*(X...

Vth_old: (-1+(3/4)*C*...

tau_rth:Xi*diff(Vth_o...

Calculate

algsys

algsys([x^2+y^2-8,x^2...

Calculate

algsys-display2d-exp-false

display2d:false;

gl1: a+b-c-d = 0;

gl2: c*exp(k2)+d*exp(...

Calculate

algsys-false-realonly

realonly: false;

algsys([(14)*x^(4)+(...

Calculate

algsys-diff-obase-plot2d-realonly-true
plot2d(K_s(x), [x,-100,200], [y, -100, 1000]);

obase:10;

K(x):= 0.0003*x^3-0.0...

K_s(x):=K(x)/x;

Calculate

algsys

eq1:a*x+b*y=0;

eq2:x^2+y^2=1;

algsys([eq1,eq2],[x,y]);

Calculate

algsys

eq2: Ta = (Qo - T3/R1...

sol = algsys([eq2],[T...

eq4: algsys([eq4],[Ta]);

Calculate

algsys-realonly-true

s1: a^3-4*a^2+6*a-4=0;

s2: algsys([s1],[a]);

s3: algsys([s1],[a]),...

Calculate

algsys

Run Example
(%i1)f1:(-ys*e2x+vx)^2+(-ys*e2y+vy)^2=r^2;
                                  2                2    2
(%o1)                (vy - e2y ys)  + (vx - e2x ys)  = r
(%i2) f2:(-xs*e1x+vx)^2+(-xs*e1y+vy)^2=r^2;
                                  2                2    2
(%o2)                (vy - e1y xs)  + (vx - e1x xs)  = r
(%i3) algsys([f1,f2],[vx,vy]);
(%o3)                                 []
(%i4) 
Run Example
load(vect);
(%o1)           /usr/share/maxima/5.21.1/share/vector/vect.mac
(%i2) es:[gx=L1*x1+L2*x2,gy=L1*y1+L2*y2,gz=L1*z1+L2*z2];
(%o2)    [gx = x2 L2 + x1 L1, gy = y2 L2 + y1 L1, gz = z2 L2 + z1 L1]
(%i3) algsys(es,[L1,L2]);
(%o3)                                 []
(%i4) %rnum_list;
(%o4)                                 []
(%i5) 
Run Example
modulus:2;
(%o1)                                  2
(%i2)  N:2;
(%o2)                                  2
(%i3)   block( P:0, Vars:[], Sol:zeromatrix(N,N), for i: 1 thru N do ( for j: 1 thru N do ( S:zeromatrix(N+2,N+2), S[i ][j ]:1, S[i ][j+1]:1,  S[i ][j+2]:1, S[i+1][j ]:1, S[i+1][j+2]:1, S[i+2][j ]:1, S[i+2][j+1]:1, S[i+2][j+2]:1, S:submatrix (1,N+2,S,1,N+2), P:P+V[i*N+j]*S, Vars: append(Vars, [V[i*N+j]]), Sol[i][j]:V[i*N+j]) ) );
(%o3)                                done
(%i4)  P;
                        [ V  + V  + V   V  + V  + V  ]
                        [  6    5    4   6    5    3 ]
(%o4)                   [                            ]
                        [ V  + V  + V   V  + V  + V  ]
                        [  6    4    3   5    4    3 ]
(%i5)  Vars;
(%o5)                          [V , V , V , V ]
                                 3   4   5   6
(%i6)  R:zeromatrix(N,N)+1;
                                   [ 1  1 ]
(%o6)                              [      ]
                                   [ 1  1 ]
(%i7)  LGS:xreduce('append ,args(P-R));
(%o7) [V  + V  + V  - 1, V  + V  + V  - 1, V  + V  + V  - 1, V  + V  + V  - 1]
        6    5    4       6    5    3       6    4    3       5    4    3
(%i8)  Res:algsys(LGS, Vars);
(%o8)                 [[V  = 1, V  = 1, V  = 1, V  = 1]]
                         3       4       5       6
(%i9)  append([l=Sol],Res[1]);
                    [ V   V  ]
                    [  3   4 ]
(%o9)          [l = [        ], V  = 1, V  = 1, V  = 1, V  = 1]
                    [ V   V  ]   3       4       5       6
                    [  5   6 ]
(%i10) 

Related Help

Help for Algsys