Can i make a natural numberline what shows the enumber of primes at each of 1000 numbers  
I have her

0-1000 : 168
1000 -2000: 135

2000-3000 : 127

3000- 4000: 120

4000 -5000 : 119 

then a gap (jump) 

10^7- 1000- 10^7  : 53 

You can see that the "number of primes"  is fluctuating
Can i make a procedure what calculates the latest mersenne prime number ?
Problem is only that there is a theorem: there are arbitrary long series of divisible numbers on the numberline 
There are gaps of length n - 1, where are no primenumbers  in positioned.

The idea is to get a idea of the distribution of primes to make a guess from where to start to find another one? 

Hello, I found this code from Acer works great:

p=floating point number such as 0.003483 

nprintf(`#mn(\"%1.3e\");` , p)

prints a number in Scientific format,    3.483e-03

Perfect.

HOWEVER, What is the #mn please?   Is it a comment, or a MathML function?

Regards, Bill

Dear all, do you know if there is a way to ask Maple and the Physics package to use the bold notation of vectors instead of using arrows? 

Thanks, Kevin

Hi,

I want to solve system of  PDE equations by maple and i dont know how can i write it codes that can solve them for me. Can anyone help me please??!!

Good day.

When I export an animated 3D (surface contour) plot to a gif format, the image is incomplete (please see attached file).

Can anyone suggest a way to reformulate the expressions so the animated plot can be exported to Powerpoint intact?

Thanks for reading!

MaplePrimes_Dec_5.mw 

Hi all !

I have a list of coupled ordinary differential equations 

L := [e1,e2,e3] = [diff(z(t), t, t)*m = 0, diff(x(t), t, t)*m - B*diff(y(t), t)*q = 0, diff(y(t), t, t)*m + B*diff(x(t), t)*q = 0] with unknown functions x(t),y(t),z(t).

I want to obtain the list of "normal forms" of the ode using the DEnormal function. The help page says that it is possible to use it with an operator list but none example is given. 

Thanks!

Kevin

Dear all, 

I am trying to use the Physics package to perform a simple computation about the expression of speed and acceleration in the local polar basis (Frenet). I am trying to get something like :

Define the position vector :

differentiate wrt t to get the velocity vector 

simplifying 

Similarly :

simplifying

Can anyone please help me ? Many thanks!

So I just noticed that if you want to animate something in real time, the best you can achieve is something close but not exact.

For example lets say we have a ball travelling 22 m/s over 1000 m and I want to animate that in real time. 

ball := proc(x, y) plots[pointplot]([[x, y]], color = blue, symbol = solidcircle, symbolsize = 40); end proc:
animate(ball, [22*t, 0], t = 0 .. 1000/22, frames = floor(1000/22));

frames has to be an integer value so determining how long it will take and adjusting the frames to 1 frame per second.  It requires a bit of manipulation to get it right.  Is there a better way?  I suppose boosting the frame rate and increasing the number of frames would work but then it becomes cumbersome and any large period of times would use a high number of frames and consume enormous amounts of memory. 

Hi

I found the Manipulate Equation command tool in Maple and was wondering whether it could help me rearrange my equations into giving me certain quotient? One can do it by hand, but at an exam, time saved makes a difference and one can make silly mistakes. The math rearangement is also rather trivial...

Download rearrangemanipulate.mw

Any thoughts would be greatly appreciated, thanks in advance..!

Dear all;

I have a data, I would like to save this data in a table with labeled columns and  each column contains the corresponding values.

cretae_tabl.mw

thank you for your help 

Hi

I am trying to evaluate the following, and have tried the following commands;

How do I evaluate such an expression, is there a way to get around the invalid product error in the "coded approach"? Obviously the latter doesn't work, Maple naturally needs information concerning the limits, how does one apply assumptions to this more "traditional notation"?

Any thoughts would be greatly appreaciated, thankyou in advance.

Download integratederivative.mw

In Maple, to take the exponent of a term of the form $x^a$, we can define 

    Exponent := proc(x::`^`) 

    local r; 

    r := op(2, x); 

    return(r);

    end proc:

This also works for a term of the form $Y[1,3]^{-1/3}$.

But this does not work for taking exponent of a term of the form $Y[1,3]$. How to define a function $f$ in Maple, such that $f(Y[1,3]^{a}) = a$ for any $a \in \mathbb{Q}$? Thank you very much.

I am trying to use type(sqrt(t)*Y[1, -3]*Y[2, -6], monomial) to check if an expression is a monomial. But it returns false which is not correct. How to check that an expression in Maple is a monomial? Thank you very much.

How I can change this to smooth curve

 The vertex connectivity of a graph  is the minimum number of vertices whose removal disconnects the  
  graph. With Maple, it's easy to get the connectivity of a graph, but  I can not  find a smallest vertex cut of 
the graph g by maple. 

 If a graph has some cut vertices, I see that the function ArticulationPoints seems to be able to solve.
 But for general smallest vertex cut, I don’t see a suitable function.  For example

with(GraphTheory):
G:=CompleteGraph(2,2,2,2);
DrawGraph(G);
VertexConnectivity(G)

6

This seems easy to do in Mathematica. See https://reference.wolfram.com/language/ref/FindVertexCut.html.