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-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-declare-exp-rat-sin

constantp (7 * sin(2));

constantp (rat (17/2...

constantp (%pi * sin...

Calculate

constantp

? constantp;

Calculate

constantp

? constantp;

Calculate

constantp-log

constantp(log(2));

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 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

Run Example
(%i1)genp: lambda([x],true);
(%o1)                          lambda([x], true)
(%i2) polynomialp(a*x^(3/2),[x]);
(%o2)                                false
(%i3) polynomialp(a*x^(3/2),[x],'genp);
(%o3)                                true
(%i4) polynomialp(a*x^(3/2),[x],'genp,'nonnegintegerp);
(%o4)                                true
(%i5) constantp(a);
(%o5)                                false
(%i6) 
Run Example
matchdeclare(X, lambda([expr], false));
(%o1)                                done
(%i2) constantp(log(2));
(%o2)                                true
(%i3) tellsimpafter(log(X), 42);
(%o3)                         [logrule1, simpln]
(%i4) constantp(log(2));
(%o4)                                false
(%i5) 
Run Example
block(    ans: answer,    matchdeclare (a, constantp),    defmatch (match, a^x ,x),    solve: match( ans, x),    if (solve = false) then return (false),    a: subst(solve, a),    is (a # 144));
(%o1)                                false
(%i2) 

Related Help

Help for Constantp