@perr7 

Hi again,

Can anyone help med with the following questions?

See original question and info above.

1)  How can the black circle we visible, also below the densityfunction?

2)  When solving a GIF-fil, it takes forever is the GIF-fil is large. Any solution to that problem?

My PC: workstation, Windows 10, Maple 17.

Best, perr7

@acer 

Thanks again!

After your holiday, if you can help me with some scrip that exports the gif or frames more efficiently it is of great help!

Also, I have yet not solved the original problem visualizing the circle in the entire xy-plane. If you have an idea how to solve this, you have my attention.

My PC: workstation, Windows 10, Maple 17.

Merry christmas!

perr7

@Carl Love 

Thank you both, Carl Love and Acer. I really appreciate this!

1)  'sign' -> signum was great. Thank you! The computation time is now no issue.

2) A workaround is to use "transparency=0.002, style=surface". See figure:

3)  If style=surfacewirefrace and transparency=0.02, then I think it looks messy:

4)  Still I would like to have the circle visible and, at the time, have "style=surfacewirefrace". Any suggestions?

5)  A new problem: when I increase time, grid and frames, the GIF-fil will not save. Despite pressing the "Save"-button, the picture below is "forever". Any idea how this can be solved?

I have Maple 17.

Best regards, perr7.

@Carl Love 

Of course. Thank you so much!

Here is the full code:

001_Probability_density_(15._des._2015).mw

If it is possible, I would like to address some additional questions:

1)  My original question was if the black circle in the xy-plane can be visible everywhere, also where the 3D probability density hides the circle. Do you know if that is possible?

2)  When the time "t" in the animation is increased, one needs to increase the number of of frames as well. Then it starts to take some time for Maple to do the calculations. It just takes long time, or should the code be written differently?

3)  My final goal is to make a short video, maybe 10 sec, of the animation. My strategy is to export the file as a GIF-file and then a find a online converter that converts the GIF-file to a video-file. Is that the right way to do it?

Best regards, perr7

@acer 

Thank you for your answer!

I have already tried nonzero transparency, but I don't think it looks good. It is a bit messy, also when I remove the framewires in the 3D graph.

Raise B to the surface is perhaps a good ide. But when I increase # frames from 25 to 125 in the animation, I get the error message shown in the picture below, i.e. "Length of output exceeds limit of 1000000"

How can I awoid this?

B1 := animate( spacecurve, [  [R*cos(p), R*sin(p), P_Pi2(R*cos(p),R*sin(p),t)   ]  , p=0..2*Pi, thickness=1, color=black], t=0..5 );

P1 := animate( plot3d , [  P_Pi2(x,y,t)  ,  x=-4000..4000,y=-4000..4000 ]  , t=0..5, frames=5*25, labelfont=[times, roman, 25], transparency=0, style = surfacewireframe, orientation=[45,60,0], view=[-4000..4000, -4000..4000, 0..0.006], caption=typeset( theta=Pi/2 ) , axesfont=[times, 15], axes=frame  );

display( [P1, B1]  );

Best, perr7