Sponsored links: Algebra eBooks
 

Help Index

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

The Maxima on-line user's manual

Algebra Calculator

Search:

Eliminate Calculator

Eliminate

Function: eliminate ([<eqn_1>, ..., <eqn_n>], [<x_1>, ..., <x_k>]) Eliminates variables from equations (or expressions assumed equal to zero) by taking successive resultants. This returns a list of <n> - <k> expressions with the <k> variables <x_1>, ..., <x_k> eliminated. First <x_1> is eliminated yielding <n> - 1 expressions, then x_2 is eliminated, etc. If <k> = <n> then a single expression in a list is returned free of the variables <x_1>, ..., <x_k>. In this case solve is called to solve the last resultant for the last variable.

Puiab:[Pk=abs(ak)^2-abs(bk)^2,Uk=(ak+bk)*sqrt(Z0k), Ik=(ak-bk)/sqrt(Z0k)];
abUI:[ak=(Uk+Z0k*Ik)/(2*sqrt(Z0k)),bk=(Uk-Z0k*Ik)/(2*sqrt(Z0k))];
spoj:[U1=(a1+b1)*sqrt(Z01),  U2=(a2+b2)*sqrt(Z02),I1=(a1-b1)/sqrt(Z01),  I2=(a2-b2)/sqrt(Z02),U1=U2, I1+I2=0];
spoj1:[eliminate(spoj,  [U1, U2, I1, I2])];

Example:

          (%i1) expr1: 2*x^2 + y*x + z;
                                                2
          (%o1)                    z + x y + 2 x
          (%i2) expr2: 3*x + 5*y - z - 1;
          (%o2)                  - z + 5 y + 3 x - 1
          (%i3) expr3: z^2 + x - y^2 + 5;
                                    2    2
          (%o3)                    z  - y  + x + 5
          (%i4) eliminate ([expr3, expr2, expr1], [y, z]);
                       8         7         6          5          4
          (%o4) [7425 x  - 1170 x  + 1299 x  + 12076 x  + 22887 x

3 2 - 5154 x - 1291 x + 7688 x + 15376]

(%o1)                                true
(%i2) 

Eliminate Example

Related Examples

eliminate

expr1: x * (a + c) + ...

expr2: x * (a + c) + ...

eliminate ([expr2, e...

Calculate

eliminate-fullratsimp

eliminate([-I2+I3+Ic,...

Calculate

eliminate-facsum-ratsimp

mix(x0, x1, t) := x0*...

bez2(x0,x1,x2, t):= m...

bez3(x0,x1,x2,x3,t):=...

Calculate

eliminate

Ie00:(Id*pa_dd+Ic*pa_...

Ie01:(Id*pa_cd+Ic*pa_...

Ie02:(Id*pa_bd+Ic*pa_...

Calculate

eliminate-linsolve-sqrt

spojJednacine:[U1 = (...

spojJednacineab:elim...

spojJednacineb:linsol...

Calculate

eliminate

eliminate([3*x^2-y^2=...

Calculate

eliminate

a:3.91;

b:1.51;

V0:1/8.924;

Calculate

eliminate

r0: [z11*I1+z21*I2=U1...

r1: eliminate(r0,[I1,...

Calculate

eliminate-length-makelist-solve-unique

eqlist: [wu-wt,2*wu-w...

neqlist: unique(eqlist);

neqlist: makelist(neq...

Calculate