## 571 Reputation

17 years, 216 days
Technical professional in industry or government
Budapest, Hungary

## odd...

Another solution for odd integers using the definiton of p given above:

p assuming n::odd;
subs(n=2*m+1,%); #Just for check: the same result as above

## plot...

I think you mean date[i] instead of datum[i] and plot instead of curve in your code and you don't need the display command here:

krivka := plot(graf, tickmarks = [[ seq(d[i]=date[i],i=1..nops(date))],default]):
krivka;

## PRIME_BRACKET 2...

This is another solution using the nextprime and ceil commands:

PRIME_BRACKET:=proc(n::positive)
nextprime(ceil(n)-1);
end proc;

PRIME_BRACKET(100.4);

101

See in the help these commands:

?nextprime
?ceil

## space...

There is an extra space in the definiton of your eqn. Try with this:

eqn := D(y)(x) = sqrt(x^2+y(x)^2);

## Maple 13 can solve it...

It is good to see that Maple 13 can solve such type of inequaltiies, but it is not clear me from the documentation of the new features that Maple can show the infinitely many solutions too or just the solution for one period. (I don't have Maple 13). Maybe with option AllSolution=true?

## typeset...

You can also use the typeset option :

a:=2;b:=4;

plot(a*x+b,x=-5..5,legend=typeset(y='a*x+b',"\n",y=a*x+b));

## verify...

Probably this is not a solution to your integration problems, but you can check this inequality with the more robust verify command instead of is:

restart;

assume(X,real, Y,real, w>0);

verify((X+w)^2 + Y^2,0,'greater_equal');

## It works with this modification...

`It works with this modification:`

evalm(`&*`(`&*`(A, B), (2*B))-`&*`(B, Id));

I am also struggling with copying the example from the help page or from the Maple worksheet to here. Copying doesn't work or alters the form of expressions.

## for example...

for example:

f:=(x,y)->piecewise(x*y>=0,sqrt(x*y),undefined);

see ?piecewise for detailed information on piecewise.

## Digits...

Try with Digits:=100;

See the plotoptions in the help: ?plotoptions

You can specify the location of the legends as you wanted with legendstyle:

legendstyle=[location=right]

or you can give multiple legends:

legend=["a","b","c"]

With the typeset option you can put special characters on the plot:

legend=[typeset(alpha),"b","c"]

In one plot

plot([x,2*x,3*x],legend=[typeset(alpha),"b","c"],legendstyle=[location=right]);

## You are right...

Yes, you are right. I read the article some years ago and I didn't remember of it correctly. Thanks for the link.

## Try with is or verify...

You can use the is or verify commands here:

is(sin(2*beta/2)=2*sin(beta/2)*cos(beta/2));

verify(sin(2*beta/2),2*sin(beta/2)*cos(beta/2),'testeq'); # verify with the option 'testeq'

## expand before substitution...

f := sin(x-b);

subs({x = 3*t, y = 5}, expand(f));