## 1505 Reputation

18 years, 252 days

```--------------------------------------
Mario Lemelin```
```Maple 14.00 Win 7 64 bits
Maple 14.00 Ubuntu 10,04 64 bitsmessagerie : mario.lemelin@cgocable.ca
téléphone :  (819) 376-0987```

## Simple code for MonteCarlo approximation...

Maple 18

Hello everybody,

But for starting easy, I try this:

with(RandomTools[MersenneTwister]);
directpi := proc (n)
local i, x, y, N;
N := 0;
Digits := 2;
for i to n do
x := GenerateFloat();
y := GenerateFloat();
if x^2+y^2 < 1 then
N := N+1:
end if:
end do:
N;
end proc;

evalf(directpi(4000)/(1000.0), 4);

3.176

I would like to know if this code is appropriate and if it is possible to have a random number between -1 to 1 so it will be easier to plot the points in the square with the circle inside.

Thank you.

```--------------------------------------
Mario Lemelin```
```Maple 18 Ubuntu 13.10 - 64 bitsMaple 18 Win 7 -  64 bits
messagerie : mario.lemelin@cgocable.ca
téléphone :  (819) 376-0987```

## Units conversion problem...

Maple 18

This is an addition to the following post:

http://www.mapleprimes.com/questions/141795-Unit-Conversion-Problem

But I use the clickable facilities of Maple.  Here is the problem:

>32[[degC]];

32[[degC]]
right-click -> Units -> Replace units -> degF

288
--- [[degF]]
5

>evalf[5]( (2) );
57.600[[degF]]

but if I do that:

>convert(32, 'temperature', 'degC', 'degF');

448
---
5

>evalf[5]( (4) );
89.600

Why the conversion is bad when you try to do it by the clickable way????????????

```--------------------------------------
Mario Lemelin```
```Maple 18 Ubuntu 13.10 - 64 bitsMaple 18 Win 7 -  64 bits
messagerie : mario.lemelin@cgocable.ca
téléphone :  (819) 376-0987```

## I am so close to plot what I need but......

Maple 18

Hi everybody,

In quantum mechanics, I want to draw the wave  of the electron in the hydrogen atom.  So in 3D, you will have a cricle and along the circle, there will be a cosine function that will meet after a full cercle (the standing wave that is possible).  The blue one and the red one at the same time.  But in 3D

The closest that I come to succes is with this commands:

But as you will see, the wave end at the same place as it started.  But instead of going in a cercle, is as a funny shape.

Thank you in advance for you trouble.

```--------------------------------------
Mario Lemelin```
```Maple 18 Ubuntu 13.10 - 64 bitsMaple 18 Win 7 -  64 bits
messagerie : mario.lemelin@cgocable.ca
téléphone :  (819) 376-0987```

## An integral that cause probel with Maple...

Maple 18

Hi Everybody.

Doing some calculation in quantum mechanics, I stuble on that integral:

I see immediately that the answer is 1/2.  But Maple 18 cannot give an answer other than a limit that he cannot evaluate.  I even try assumption that p and hbar are realcons.  I get infinity.

Any idea?

```--------------------------------------
Mario Lemelin```
```Maple 18 Ubuntu 13.10 - 64 bitsMaple 18 Win 7 -  64 bits
messagerie : mario.lemelin@cgocable.ca
téléphone :  (819) 376-0987```

## Getting a value of a constant...

Maple 18

Hello everybody,

While doing a document about quantum mechanics, I stumble on this strange behaviour.

>with(ScientificConstants);
>GetConstant();
>GetValue()

Error message:

Error, (in ScientificConstants:-GetValue) `a[0]` is not a scientific constant object

But in the Assistant Scientific Constant, the value is there: 5.291772e-11m

Why is it not directly available like I did the first time?

```--------------------------------------
```Maple 18 Ubuntu 13.10 - 64 bitsMaple 18 Win 7 -  64 bits