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-false-lambda-log-matchdeclare-tellsimpafter

matchdeclare(X, lambd...

constantp(log(2));

tellsimpafter(log(X),...

Calculate

constantp-declare-exp-rat-sin

constantp (7 * sin(2));

constantp (rat (17/2...

constantp (%pi * sin...

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

constantp(log(2));

Calculate

constantp-log

constantp(log(2));

Calculate

constantp-false-lambda-log-matchdeclare-tellsimpafter

matchdeclare(X, lambd...

constantp(log(2));

tellsimpafter(log(X),...

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

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
esnumeral(x):=block(if is(constantp(x)=false) then return("false"),if is(imagpart(x)=0) then return("true") else print("false"));
(%o1) esnumeral(x) := block(if is(constantp(x) = false) then return("false"), 
                if is(imagpart(x) = 0) then return("true") else print("false"))
(%i2) esnumeroreal(patata);
(%o2)                        esnumeroreal(patata)
(%i3) 
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) 

Related Help

Help for Constantp