Sponsored links: Algebra eBooks
 

Related

is

is([true,true,true]);

Calculate

is

lis: [1,1,1,1,1,1,1,1...

[quantile (lis, 1/10)...

Calculate

is-radcan-sqrt

is(radcan(sqrt(4.5)-s...

Calculate

is-log-reveal

is((reveal(1/(log(x))...

Calculate

is-part-reveal

answer:x=1;

is(reveal(answer,1)=e...

Calculate

is

is(2<=3);

Calculate

is-listofvars

answer:x*4+y-2=1;

is(listofvars(answer)...

Calculate

is-subst

answer:(x-3)^2+(y-5)^...

subst([x=3,y=5],answer);

is(subst([x=3,y=5],an...

Calculate

is

Sis:[a*x+y+z=1, x+a*y...

Calculate

is

aaa:"3*9-(5+12)";

is(aaa);

Calculate

is

Run Example
(%i1)solve(-18*x^2-50=600*x)[1];
                                  15 sqrt(11) + 50
(%o1)                       x = - ----------------
                                         3
(%i2) solve(-18*x^2-50=600*x)[2];
                                 15 sqrt(11) - 50
(%o2)                        x = ----------------
                                        3
(%i3) xvals: map(rhs,solve(-18*x^2-50=600*x));
                       15 sqrt(11) + 50  15 sqrt(11) - 50
(%o3)               [- ----------------, ----------------]
                              3                 3
(%i4) yvals: map(lhs,solve(-18*x^2-50=600*x));
(%o4)                               [x, x]
(%i5) yvals[1] - xvals[1];
                                 15 sqrt(11) + 50
(%o5)                        x + ----------------
                                        3
(%i6) for i:1 while i<
=(length(realroots(-18*x^2-50=600*x))) do (mye:yvals[i] - xvals[i],a:if(is(ratsimp(abs(mye-0)<
= 0))) then return (100));
(%o6)                                done
(%i7) a;
(%o7)                     if unknown then return(100)
(%i8) 
Run Example
eq1: va = 2*ia*r;
(%o1)                             va = 2 ia r
(%i2) eq2: vb = va + ib*r;
(%o2)                           vb = va + ib r
(%i3) eq3: vc = vb + ic*r;
(%o3)                           vc = vb + ic r
(%i4) eq4: vd = vc + id*r;
(%o4)                           vd = vc + id r
(%i5) eq5: v0 - va = 2*i0*r;
(%o5)                          v0 - va = 2 i0 r
(%i6) eq6: v1 - vb = 2*i1*r;
(%o6)                          v1 - vb = 2 i1 r
(%i7) eq7: v2 - vc = 2*i2*r;
(%o7)                          v2 - vc = 2 i2 r
(%i8) eq8: v3 - vd = 2*i3*r;
(%o8)                          v3 - vd = 2 i3 r
(%i9) eq9: ia = ib + i0;
(%o9)                            ia = ib + i0
(%i10) eq10: ib = ic + i1;
(%o10)                           ib = ic + i1
(%i11) eq11: ic = id + i2;
(%o11)                           ic = id + i2
(%i12) eq12: id = i3 - is;
(%o12)                           id = i3 - is
(%i13) eq13: vd = 0;
(%o13)                              vd = 0
(%i14) solve ([eq1,eq2,eq3,eq4,eq5,eq6,eq7,eq8,eq9,eq10,eq11,eq12,eq13],[i0,i1,i2,i3,ia,ib,ic,id,va,vb,vc,vd,is]);
              - 4 v2 - 10 v1 + 43 v0         4 v2 - 22 v1 + 5 v0
(%o14) [[i0 = ----------------------, i1 = - -------------------, 
                      128 r                         64 r
       - 12 v2 + 2 v1 + v0       v3        4 v2 + 10 v1 + 21 v0
i2 = - -------------------, i3 = ---, ia = --------------------, 
              32 r               2 r              128 r
       - 4 v2 - 10 v1 + 11 v0         - 4 v2 + 6 v1 + 3 v0
ib = - ----------------------, ic = - --------------------, 
                64 r                          32 r
       4 v2 + 2 v1 + v0       4 v2 + 10 v1 + 21 v0       4 v2 + 10 v1 + 5 v0
id = - ----------------, va = --------------------, vb = -------------------, 
             16 r                      64                        32
     4 v2 + 2 v1 + v0               8 v3 + 4 v2 + 2 v1 + v0
vc = ----------------, vd = 0, is = -----------------------]]
            16                               16 r
(%i15) 
Run Example
A:[-2,3];
(%o1)                              [- 2, 3]
(%i2) B:[4,-1];
(%o2)                              [4, - 1]
(%i3) C:[7,3];
(%o3)                               [7, 3]
(%i4) c:B-A;
(%o4)                              [6, - 4]
(%i5) a:C-B;
(%o5)                               [3, 4]
(%i6) b:A-C;
(%o6)                              [- 9, 0]
(%i7) z:[1,%i];
(%o7)                               [1, %i]
(%i8) c:c.z;
(%o8)                              6 - 4 %i
(%i9) a:a.z;
(%o9)                              4 %i + 3
(%i10) b:b.z;
(%o10)                                - 9
(%i11) c:abs(c);
(%o11)                            2 sqrt(13)
(%i12) a:abs(a);
(%o12)                                 5
(%i13) b:abs(b);
(%o13)                                 9
(%i14) is(b^2=a^2+c^2);
(%o14)                               false
(%i15) 

Related Help

Help for Is