Sponsored links: Algebra eBooks
 

Related

constantp-plot2d
plot2d([-2*x-3, -2*x-5, -2*x-7, 2*x+1,if abs(x+4) <1 then NaN else-2*x-7-4/(x+4),[parametric, 4*a-4+1/a, 4*a^2-4*a+5-2/a,[a,-2,-1/8], [ nticks, 1000]],[parametric, 4*a-4+1/a, 4*a^2-4*a+5-2/a,[a,1/8,2], [ nticks, 1000]]],[x,-12.5,4.5], [color, black,black,black,black,red, blue,blue]/*, [y,-15, 25]*/);

plot2d([-2*x-3, -2*x-...

constantp(%NaN);

Calculate

constantp-plot2d
plot2d([-2*x-3, -2*x-5, -2*x-7, 2*x+1,if abs(x+4) <1 then inf else-2*x-7-4/(x+4),[parametric, 4*a-4+1/a, 4*a^2-4*a+5-2/a,[a,-2,-1/8], [ nticks, 1000]],[parametric, 4*a-4+1/a, 4*a^2-4*a+5-2/a,[a,1/8,2], [ nticks, 1000]]],[x,-12.5,4.5], [color, black,black,black,black,red, blue,blue]/*, [y,-15, 25]*/);

plot2d([-2*x-3, -2*x-...

constantp(inf);

Calculate

constantp

? constantp;

Calculate

constantp-plot2d
plot2d([-2*x-3, -2*x-5, -2*x-7, 2*x+1,if abs(x+4) <1 then NaN else-2*x-7-4/(x+4),[parametric, 4*a-4+1/a, 4*a^2-4*a+5-2/a,[a,-2,-1/8], [ nticks, 1000]],[parametric, 4*a-4+1/a, 4*a^2-4*a+5-2/a,[a,1/8,2], [ nticks, 1000]]],[x,-12.5,4.5], [color, black,black,black,black,red, blue,blue]/*, [y,-15, 25]*/);

plot2d([-2*x-3, -2*x-...

constantp(NaN);

Calculate

constantp-declare-exp-rat-sin

constantp (7 * sin(2));

constantp (rat (17/2...

constantp (%pi * sin...

Calculate

constantp-plot2d
plot2d([-2*x-3, -2*x-5, -2*x-7, 2*x+1,if abs(x+4) <1 then NaN else-2*x-7-4/(x+4),[parametric, 4*a-4+1/a, 4*a^2-4*a+5-2/a,[a,-2,-1/8], [ nticks, 1000]],[parametric, 4*a-4+1/a, 4*a^2-4*a+5-2/a,[a,1/8,2], [ nticks, 1000]]],[x,-12.5,4.5], [color, black,black,black,black,red, blue,blue]/*, [y,-15, 25]*/);

plot2d([-2*x-3, -2*x-...

constantp(%NaN);

Calculate

constantp-plot2d
plot2d([-2*x-3, -2*x-5, -2*x-7, 2*x+1,if abs(x+4) <1 then inf else-2*x-7-4/(x+4),[parametric, 4*a-4+1/a, 4*a^2-4*a+5-2/a,[a,-2,-1/8], [ nticks, 1000]],[parametric, 4*a-4+1/a, 4*a^2-4*a+5-2/a,[a,1/8,2], [ nticks, 1000]]],[x,-12.5,4.5], [color, black,black,black,black,red, blue,blue]/*, [y,-15, 25]*/);

plot2d([-2*x-3, -2*x-...

constantp(inf);

Calculate

constantp

? constantp;

Calculate

constantp-plot2d
plot2d([-2*x-3, -2*x-5, -2*x-7, 2*x+1,if abs(x+4) <1 then NaN else-2*x-7-4/(x+4),[parametric, 4*a-4+1/a, 4*a^2-4*a+5-2/a,[a,-2,-1/8], [ nticks, 1000]],[parametric, 4*a-4+1/a, 4*a^2-4*a+5-2/a,[a,1/8,2], [ nticks, 1000]]],[x,-12.5,4.5], [color, black,black,black,black,red, blue,blue]/*, [y,-15, 25]*/);

plot2d([-2*x-3, -2*x-...

constantp(NaN);

Calculate

constantp-declare-exp-rat-sin

constantp (7 * sin(2));

constantp (rat (17/2...

constantp (%pi * sin...

Calculate

constantp

Run Example
(%i1)constantp (7 * sin(2));
(%o1)                                true
(%i2)  constantp (rat (17/29));
(%o2)                                true
(%i3)  constantp (%pi * sin(%e));
(%o3)                                true
(%i4)  constantp (exp (x));
(%o4)                                false
(%i5)  declare (x, constant);
(%o5)                                done
(%i6)  constantp (exp (x));
(%o6)                                true
(%i7)  constantp (foo (x) + bar (%e) + baz (2));
(%o7)                                false
(%i8) 
Run Example
matchdeclare (a, lambda ([e], e#0 and freeof(x, e)), b,                              freeof(x));
(%o1)                                done
(%i2)  defmatch (linearp, a*x + b, x);
(%o2)                               linearp
(%i3)  linearp (3*z + (y + 1)*z + y^2, z);
                                2
(%o3)                     [b = y , a = y + 4, x = z]
(%i4)  a;
(%o4)                                y + 4
(%i5)  b;
                                       2
(%o5)                                 y
(%i6)  x;
(%o6)                                  x
(%i7)  matchdeclare (a, lambda ([e], e#0 and freeof(x, e)), b,                              freeof(x));
(%o7)                                done
(%i8)  defmatch (linearp, a*x + b);
(%o8)                               linearp
(%i9)  linearp (3*z + (y + 1)*z + y^2);
(%o9)                                false
(%i10)  linearp (3*x + (y + 1)*x + y^2);
                                    2
(%o10)                        [b = y , a = y + 4]
(%i11)  matchdeclare ([a, f], true);
(%o11)                               done
(%i12)  constinterval (l, h) := constantp (h - l);
(%o12)              constinterval(l, h) := constantp(h - l)
(%i13)  matchdeclare (b, constinterval (a));
(%o13)                               done
(%i14)  matchdeclare (x, atom);
(%o14)                               done
(%i15)  simp : false;
(%o15)                               false
(%i16)  defmatch (checklimits, 'integrate (f, x, a, b));
(%o16)                            checklimits
(%i17)  simp : true;
(%o17)                               true
(%i18)  'integrate (sin(t), t, %pi + x, 2*%pi + x);
                              x + 2 %pi
                             /
                             [
(%o18)                       I          sin(t) dt
                             ]
                             /
                              x + %pi
(%i19)  checklimits (%);
(%o19)                               false
(%i20) 
Run Example
plot2d([-2*x-3, -2*x-5, -2*x-7, 2*x+1,if abs(x+4) <1 then NaN else-2*x-7-4/(x+4),[parametric, 4*a-4+1/a, 4*a^2-4*a+5-2/a,[a,-2,-1/8], [ nticks, 1000]],[parametric, 4*a-4+1/a, 4*a^2-4*a+5-2/a,[a,1/8,2], [ nticks, 1000]]],[x,-12.5,4.5], [color, black,black,black,black,red, blue,blue]/*, [y,-15, 25]*/);
plotplot2d([-2*x-3, -2*x-5, -2*x-7, 2*x+1,if abs(x+4) <1 then NaN else-2*x-7-4/(x+4),[parametric, 4*a-4+1/a, 4*a^2-4*a+5-2/a,[a,-2,-1/8], [ nticks, 1000]],[parametric, 4*a-4+1/a, 4*a^2-4*a+5-2/a,[a,1/8,2], [ nticks, 1000]]],[x,-12.5,4.5], [color, black,black,black,black,red, blue,blue]/*, [y,-15, 25]*/);constantp(NaN);
(%o2)                                false
(%i3) 

Related Help

Help for Constantp