Since the FIFA World Cup final is approaching quickly, I have created this animated Netherlands flag.  It is for my Dutch acquaintances to cheer for their favourite team during game.

with(plots):
p := [ seq( 
          plot( [ seq((1/4)*sin(x+`if`(j > i, 1, 0))+1+2*i, i = 0 .. 3) ],
              x = 0 .. 2*Pi, y = 0 .. 8, 
              color = [white, blue, white, red], filled = true, axes = none), 
          j = [0, 1, 2, 3, 4, 3, 2, 1])

Hey Guys,

I am trying to plot a graph using the following code:

with(plots); restart;
a := sum(m^i*exp(-m)/factorial(i), i = 0 .. c);
l := [];
for c from 0 to 40 do
l := [op(l), a]
end do;
plotlist := [seq(plot(l[n], m = 0 .. 40), n = 1 .. nops(l))];
plots[display](plotlist);

I would like to plot this fuction as a loglogplot.  Can anyone help me with this?

Thanks in Advance

Hi guys,

I am dealing with a function, kappa:=6*log(R)/(R^2). To plot this, I use the command plot([kappa,R,R=0.99..6]).

However, I want the first branch of the graph to be coloured in fully, and the second branch to be dashed. Is this possible? I think I need to split the graph in 2 using the command line.

Thanks in advance

Hi,

i want a first order condition as which expresses the optimal l as a function of q and a

I did this

diff((q*l^(1/3)*q)*(1-l)^(1/2)+(1-a)*(1-q*l^(1/3))*q*(1-l)^(1/2)+a*(1-q*(1-l)^(1/2))*q*l^(1/3), l)

and got

(1/3)*q^2*sqrt(1-l)/l^(2/3)-(1/2)*q^2*l^(1/3)/sqrt(1-l)-(1/3)*(1-a)*q^2*sqrt(1-l)/l^(2/3)-(1/2)*(1-a)*(1-q*l^(1/3))*q/sqrt(1-l)+(1/2)*a*q^2*l^(1/3)/sqrt(1-l)+(1/3)*a*(1-q*sqrt(1-l))*q/l^(2/3)

which i think is right

Just for fun, I'm reviving the Maple soccer ball in anticipation of the FIFA final. You can make a simple animation by adding the option viewpoint=[circleleft] to the display command.

with(plots):
geom3d[TruncatedIcosahedron](p);
V := evalf(geom3d[faces](p));
display(seq(polygonplot3d(V[i], color = `if`(nops(V[i]) = 5, black, white)), i = 1 .. 32), scaling = constrained);

Hello,

I have 3 points:

A:=<a,b,c>;

B:=<e,f,g>;

C:=<h,i,j>;

Please show me what is wrong: plane(p1,[A,B,C],[x,y,z])

how to make a plane with these points.

error: Error, (in geom3d:-Equation) wrong type of argument

Thanks a lot!

I suppose this topic has come across many peoples minds at one time or another and I've only taken this number for granted and with a grain of salt.  I have become curious as to what other Maple users would run the memory usage up to? 

For myself I find on average usually running below 10Mb or so.  I suppose this is average, for me, but I haven't usually created large worksheets, I don't think I've ever let it run over 40Mb. ...

hi dear friends

i want to solve this int with numeric methods such that doesn't contain erf function

thanks alot

(my function is e1, and I want to calculate the int of e1)

Here is yet another finesse (new to me) in getting better performance for some floating-point computation involving the Statistics package.

> restart:

> X:=Statistics:-RandomVariable('Normal'(0,1)):

st:=time():
seq(Statistics:-Quantile(X,1/i,numeric),i=2..10000):
time()-st;[%%][-1];
                                    6.786
                                -3.719016485

> restart:

> X:=Statistics:-Distribution(Normal(0,1)):

Hi everyone, I just created my account in mapleprimes but I regularly find solutions to my problems searching through the posts, however, this time I was not so lucky.

I have the following problem in Maple: I have defined two procedures, A(v::array) and At(v::array) which perform simple algebraic tasks on 2x1 arrays. Then, I redefined the operation `+` when acting on two such arrays using overload. This new definition for addition does not correspond to normal matrix...

With the idea developed by Robert Israel on the

Hi

This is the problem:

deq := (2*.1)*[(y(t)*(diff(y(t), t, t))-1)*(1+(diff(y(t), t))^2)^(3/2)-y(t)*(diff(y(t), t))^2*(diff(y(t), t, t))*sqrt(1+(diff(y(t), t))^2)]-2*sin(t)*(1+(diff(y(t), t))^2)^2 = 0;

dsolve({deq, y(0) = 0, (D(y))(0) = 0}, y(t), numeric)

Error, (in DEtools/convertsys) unable to convert to an explicit first-order system

So Maple signs an error, but I don't know why.

Any help will be appreciated.

How do I split the data up into seperate lists? 

A simple example
a:=[class,23,45,74,34,25,76,class,55,67,78,34,65,12,23,45,64,23,class,12,13,15,class,99,98,97,59, ... ]

So I want to seperate the data out like this
a[1]:=[[2..7]]
a[2]:=[[9..18]]
a[3]:=[[20..22]]
...etc

So I'm not sure how to get maple to skip the word class that seperates the data and store them into seperate lists.

As I have recently learned, the environment variable 'Digits' controls the working precision and is therefore crucial for avoiding significant impacts of round-off error effects on floating point computations.

Moreover I discovered, that even when I set Digits to say 20, Explore is not affected.

Is there a way to control the working precision of the floating-point computations carried out by the Explore option?