Items tagged with plot plot Tagged Items Feed

Is there an elegant way to plot in 3d only the portion of the function f(x,y)=sqrt(25-x^2-y^2) for which 9 <= x^2+y^2 <= 16 ? I'm looking for a nice plot that shows it against the whole sphere with radius 5, so that it's clear which part of the sphere is cut out.

Hi all,

I have a 3D graph and when I right click on the surface, under style, I can see the option of contour. When I click on that I can see some contour associated with the surface. I want maple to show the values for each contour when I observe it from the top . I want to copy and paste some surfaces in a same figure and campare the contours.

 

Thank you

 

 

 

with(Statistics):
X := RandomVariable(Normal(0, 1))

DensityPlot(X,filled=true)

I don't know why the plot doesn't produce a shaded plot.

 

Hi!!

 

I am trying to plot the above curve:

 

restart; with(plots)

> f0 := proc (t) options operator, arrow; t, (-1)*3.9*t*(t-1) end proc; 

> IFS := proc (i, x, y) if i = 1 then return (1/2)*y, (1/2)*x end if; if i = 2 then return (1/2)*x, (1/2)*y+1/2 end if; if i = 3 then return (1/2)*x+1/2, (1/2)*y+1/2 end if; if i = 4 then return -(1/2)*y+1, -(1/2)*x+1/2 end if end proc; 

> g := proc (t) local j; for j to 4 do if evalf((1/4)*j-1/4) <= evalf(t) and evalf(t) <= evalf((1/4)*j) then return IFS(j, f0(4*t-j+1)); break end if end do end proc; 

 

Thus, the instruction  parametricplot(['g'(t),t=0..1]) return the message  

Error, (in plot) incorrect first argument [g(t), t = 0 .. 1]

Some idea or hit to plot this?

 

Thank you for your time

 

I want to plot a curve of the form |z*e^(1-z)| = 1 (the Szego curve). I am not sure how to call complexplot() to make this happen. Just calling complexplot(abs(z*exp(1-z)) = 1) does not work, and I don't know what else to specify. Any help?

Consider the following dynamical systems with time delay:

diff(x(t), t) = y(t)-bx(t)^3+ax(t)^2-z(t-tau)+I

diff(y(t), t) = c-dx(t)^2-y(t)

diff(z(t), t) = r(s(x-beta)-z(t))

Here the values of the parameters are a = 3, b = 1, c = 1, d = 5, s = 4, beta = 1.6, r = 0.6e-2, I = 3.0

 

Please help me 

How to write code for bifurcation plot for the above differential equations with delay.

Delay as taken as bifurcation parameter.

 

Reply message is very useful.

 

Thanks in Advance

 

Hi,
I want to plot stream lines from a stream function given by " psi = x*f(eta)+int(h(s), s = 0 .. eta) " where "f(eta)" and "h(eta)" are the solution of the differential equation given below:

restart;
with(linalg);
Digits := 24;

eq1:=diff(f(eta),eta,eta,eta)+f(eta)*diff(f(eta),eta,eta)-(diff(f(eta),eta))^2+1;
eq2 := diff(h(eta),eta,eta)+f(eta)*diff(h(eta),eta)-diff(f(eta),eta)*h(eta);
bc:=f(0)=0,D(f)(0)=0,D(f)(6)=1,h(0)=0,D(h)(6)=1;
A1:=dsolve({eq1,eq2,bc},numeric,method=bvp[midrich],abserr = 1.*10^(-10),output=operator):

How can I do this?

Hello,

I would like to export some plots from a worksheet as vectorial picture.

However, I didn't find how to export plots as .svg ou .emf files. These files are accepted by visio which is the software I use for the creation of my figures.

Is it possible to export picture as a vectorial picture and yes, how ?

Moreover, I would like these kind of extensions that is to say .svg and .emf

Thanks a lot for your help.

Is it possible to subscript within a plot?

for example I have

this in principle is what I want but, the N is cursive while is O is not (and it's a bit shifted to the right, not right next to the [2] !???

Also I didnt find the meanings of mi(),mn(),mo(),mfenced()... in the help documentation which I stumbled across while googling.

for example in this case:

 

what do I need them for since without the mi it doesnt work?!

Is it possible to use latex notation within the plot options for more convenience?

BTW: When plotting a .ps or .eps the plotting device takes over all the features (like the examples above) but when using png instead it just prints the code behind it ( for example the `#mover(mi("x"),mi("~"))` ) and not would it should lead to

With the RationalFunctionTutor generated then modified code (see egn2.mw attached).  Is it possible to make linestyle=spacedash for the two vertical asymtotes?  By selecting the graph and choosing from the plot menu the linestyle can be changed, but is there a way to do this with commands in the program code? 

egn2.mw

 

Hey

I have a very simple function and I need to plot it. The plot is however not smooth and there are annoying cuts and steps which don't go away no matter how I set the options. This problem has been puzzling me for a while and I really appreciate any help.

The followings are all the possible options I could find, none seems to work. You can take a look at this file: ploting_problem.mw

Thanks

Hello everyone!

I am wondering why the Tabulate command does not work with Explore. E.g.:

Explore(`DocumentTools:-Tabulate`([plot(sin(a*x)), plot(cos(x-a))]), parameters = [[a = 0 .. 10, controller = slider]])

I know that I can display an array of plots with the display(Array([....])) which works fine with explore but Tabulate is another good way to display multiple plots and it gives better control over individual plots properties (e.g. setting different size to different plots). Is this a bug or Tabulate is just not meant to work in that context?  

Hi and thanks in advance

I have a function like

w=f(r) on the other hand

z=g(r) wher r is common between these two.

how i could plot w in term of z?

Hi,

I would like to plot a cone where I can change the vertex angle directly. I would also to be able to change the size of the cone. I have tried:

cone([r*cos(phi)*sin(theta), r*sin(phi)*sin(theta), r*cos(theta)], phi = 0 .. 2*Pi, r = 0 .. 1, theta = (1/6)*Pi, coords = spherical)

but this gives me the following error:

Error, (in plot3d) unexpected options: [[r*cos(phi)*sin(theta), r*sin(phi)*sin(theta), r*cos(theta)], phi = 0 .. 2*Pi, r = 0 .. 1, theta = (1/6)*Pi]

Thanks!

Hello,

How can I do to suppress all the complex components of a vector ? Is there a simple code to do this?

For example, I would like to replace the complex components with zero.

If the considered vector is a:= [2+I,2,5], i would like to obtain after modifications amod:= [0,2,5] ou amod  [Nothing,2,5]

VectorWithComplexComponents.mw

Nota :

The origin of my issue is to be able to plot points with the following syntax :

pointplot([tp,xp,symbol = solidcircle,color=black,symbolsize = 10): where xp is a vector with, sometimes, some complex components. 

I would like to plot the points only for the real components of xp

Thanks a lot for your help

 

 

1 2 3 4 5 6 7 Last Page 1 of 176