Items tagged with 3d

I want to graph the portion of the plane 2x + 3y + z = 6 that are located in the first octant of a xyz coordinate system. The following implicitplot3d should in principle do it:

Hi,

I have a table T where the indicies are pairs (a,b) of integers with 0<a,b<50. Is it possible to make a 3D plot with a point (a,b,T(a,b)) for each (a,b) in the domain of T?

Dear All,

Im trying to model a rigid body, hanging from a string. In the end I have a system of 5 Equations of Motion and with all the Initial conditions I use dsolve. It gives me the error 

Error, (in dsolve/numeric/DAE/isolate) is not linear

I know the system is not lnear but that should be not a problem. One strange thing I notice is that Maple adds these dots in some equations: (the one after 15 but please see original file)

15.*cos(`&varphi;z`(t...

I tried to use multiple light sources with transparency for 3D plots and could not get it to work.  There are indications in the plot,structure help that this is supposed to be possible.  I have attached a worksheet that demonstrates some of the problems with the "light" and "LIGHT" options for 3D plotting.  Much of the output has been removed since the graphics take so much space.  The same plots are generated in both Windows and Linux.

Does anyone...

I've a 3d surface built by the point's set;

It looks like this:

 

The question is:

1. how to build a surface based on this data?

2. how to define whether the arbitrary point (x,y,z) is inside this surface or not?

Maple 16 introduced dramatic changes to the postscript export facility of 3d plots. This is great news, but some bugs remain. Let me report here about my experience. (Note: Maple 15's 3d ps export was something like an encapsulated bmp, while Maple 16 is a genuine level3 postscript export tool)

The initial release in Maple 16.00 was buggy. In my experience, the export would hang most of the time. An improved release came with Maple 16.01. I have not experienced any...

Is there some way to do this?  I am hoping to export the plots to x3d files with the ultimate goal of sending the files to a company that can print them on a 3d printer.  (for example, Shapeways http://www.shapeways.com/  ) 

Hello! I am trying to graph the following: 

dx/dt = -10*x + 10*y 
dy/dt = r*x - y - x*z 
dz/dt = -(8/3)*z + x*y 

where x, y, and z are all functions of time (t). Solve the equations subject to the constraint that r = 25 and the initial conditions that at t = 0, x = -1, y = -1, and z = 1. 


This is my code:
DE*plot3d({d*x(t)/dt = -10*x(t...

So I want to display a plot containing a spiral and a polygon graph approximating the shape. I use a seq to make the points in pointplot3d and then connect them with the connect option. It looks like this:

y(t):=t-><cos(t),sin(t),t>:
graph := spacecurve(y(t), t = 0 .. 6, thickness = 3, axes = box, color = blue):
poly6 := pointplot3d({seq([cos(t), sin(t), t], t = 0 .. 6, 1)}, connect, axes = box, 
color = red, thickness = 3, caption = {n = 6}):

Hi 

I want to make a 3D-plot with the style "surfacecontour". My question is: How do I define the number of contourlines? As I understand the default value is 10, but I only want 4. 

I hope you can help me!  

Hi,

 

I am trying to plot in Maple 16 (just installed) and I am getting text output. Maple 15 worked just fine.

Anyone have ideas?

 

Regards.

 

> plot3d(x^2-y^2, x = -2 .. 2, y = -2 .. 2);
%;

                                  ...

Hi, 
I'm trying to visualize a 3-Dimensional function, the color being the 4th dimension. All the examples that I have found of the so called plot3d function only involve 2D functions, the third dimension really being the return value of the function. I need more: I have a 3D function which takes in (x,y,z) if you like, and outputs one number. I'd like to visualize this function in maple. 

 

Thanks, 
~Austen 

So basically I'm trying to slice a tesseract, with a 3D surface but first want to be able to slice a cube, with a 2D plane. so I have a 3D plot of a polygon of a face (of a cube) and I want to find the intersection of that with a plane. intersectplot doesn't seem to be working for me, and I'm unsure of how to represent a finite face of a cube as a plane

 

Hello I have a large set of data (in Excel) with GPS output (East/North?Long/Lat) and water depth from sonar. Data points are taken in 1Hz. 

I would like to plot a mesh like 3D plot with a depth in different position. 

It works nice in MATLAB with 'mesh' but I am stragling to do anyting in MAPLE.

I don't know what commend to use for the plot. At the moment they all gives me errors.

Suppose that you wish to animate the whole view of a plot. By whole view, I mean that it includes the axes and is not just a rotation of a plotted object such as a surface.

One simple way to do this is to call plots:-animate (or plots:-display on a list of plots supplied in a list, with its `insequence=true` option). The option `orientation` would contain the parameter that governs the animation (or generates the sequence).

But that entails recreating the same plot each time. The plot data might not even change. The key thing that changes is the ORIENTATION() descriptor within each 3d plot object in the reulting data structure. So this is inefficient in two key ways, in the worst case scenario.

1) It may even compute the plot's numeric results, as many times as there are frames in the resulting animation.

2) It stores as many instances of the grid of computed numeric data as there are frames.

We'd like to do better, if possible, reducing down to a single computation of the data, and a single instance of storage of a grid of data.

To keep this understandable, I'll consider the simple case of plotting a single 3d surface. More complicated cases can be handled with revisions to the techniques.

Avoiding problem 1) can be done in more than one way. Instead of plotting an expression, a procedure could be plotted, where that procedure has `option remember` so that it automatically stores computed results an immediately returns precomputed stored result when the arguments (x and y values) have been used already.

Another way to avoid problem 1) is to generate the unrotated plot once, and then to use plottools:-rotate to generate the other grids without necessitating recomputation of the surface. But this rotates only objects in the plot, and does alter the view of the axes.

But both 1) and 2) can be solved together by simply re-using the grid of computed data from an initial plot3d call, and then constructing each frame's plot data structure component "manually". The only thing that has to change, in each, is the ORIENTATION(...) subobject.

At 300 frames, the difference in the following example (Intel i7, Windows 7 Pro 64bit, Maple 15.01) is a 10-fold speedup and a seven-fold reduction is memory allocation, for the creation of the animation structure. I'm not inlining all the plots into this post, as they all look the same.

restart:
P:=1+x+1*x^2-1*y+1*y^2+1*x*y:

st,ba:=time(),kernelopts(bytesalloc):

plots:-animate(plot3d,[P,x=-5..5,y=-5..5,orientation=[A,45,45],
                       axes=normal,labels=[x,y,z]],
               A=0..360,frames=300);

time()-st,kernelopts(bytesalloc)-ba;

                                1.217, 25685408
restart:
P:=1+x+1*x^2-1*y+1*y^2+1*x*y:

st,ba:=time(),kernelopts(bytesalloc):

g:=plot3d(P,x=-5..5,y=-5..5,orientation=[-47,666,-47],
          axes=normal,labels=[x,y,z]):

plots:-display([seq(PLOT3D(GRID(op([1,1..2],g),op([1,3],g)),
                           remove(type,[op(g)],
                                  specfunc(anything,{GRID,ORIENTATION}))[],
                           ORIENTATION(A,45,45)),
                    A=0..360,360.0/300)],
               insequence=true);

time()-st,kernelopts(bytesalloc)-ba;

                                0.125, 3538296

By creating the entire animation data structure manually, we can get a further factor of 3 improvement in speed and a further factor of 3 reduction in memory allocation.

restart:
P:=1+x+1*x^2-1*y+1*y^2+1*x*y:

st,ba:=time(),kernelopts(bytesalloc):

g:=plot3d(P,x=-5..5,y=-5..5,orientation=[-47,666,-47],
          axes=normal,labels=[x,y,z]):

PLOT3D(ANIMATE(seq([GRID(op([1,1..2],g),op([1,3],g)),
                           remove(type,[op(g)],
                                  specfunc(anything,{GRID,ORIENTATION}))[],
                           ORIENTATION(A,45,45)],
                    A=0..360,360.0/300)));

time()-st,kernelopts(bytesalloc)-ba;

                                0.046, 1179432                            

Unfortunately, control over the orientation is missing from Plot Components, otherwise such an "animation" could be programmed into a Button. That might be a nice functionality improvement, although it wouldn't be very nice unless accompanied by a way to export all a Plot Component's views to GIF (or mpeg!).

The above example produces animations each of 300 frames. Here's a 60-frame version:

4 5 6 7 Page 6 of 7