Items tagged with plot

Feed

I am plotting a pair of lists of points using

pointplot(Listap, Listbp, symbol = point, symbolsize = 1, size = [1200, 1200])

 

How could is do this with plot so I can add colours? Along the lines Listap(i)^2+Listbp(i)^2 =R, R is in the range 0..1,then colour =R*256 or any other imaginative way of adding colour.
 

restart

with(plots):

with(plottools):

``

``

NULL

``

z := (m+I*n)/(p+I*q)

(m+I*n)/(p+I*q)

(1)

g := proc (z) options operator, arrow; (z-I)/(z+I) end proc;

proc (z) options operator, arrow; (z-I)/(z+I) end proc

(2)

bz := simplify(evalc(Im(z)));

(-m*q+n*p)/(p^2+q^2)

(3)

a := simplify(evalc(Re(g(z))));

(m^2+n^2-p^2-q^2)/(m^2-2*m*q+n^2+2*n*p+p^2+q^2)

(4)

b := simplify(evalc(Im(g(z))));

(-2*m*p-2*n*q)/(m^2-2*m*q+n^2+2*n*p+p^2+q^2)

(5)

``
"  r:=15;   Lista:=Vector();  Listb:=Vector();  j:=1;  for m from -r to r do   for n from -r to r do   for p  from -r to r do   for q from -r to r do  if p<>0 and q<>0 and m^2-2 m q+n^2+2 n p+p^2+q^2<>0 and bz>=0 then  Lista(j):=a; Listb(j):=b;  j:=j+1;  end if;  end do:  end do;  end do;  end do:  j; :"

435713

(6)

``

``

``

``

``

pointplot(Lista, Listb, symbol = plottools:-point, symbolsize = 1, size = [1200, 1200])

 

NULL

``

``


 

Download 096-Chayley_transform_for_MP_question.mw

Hello, I am trying to plot an expression for my General Relativity class, this expression is one of the expanding universe FLRW solutions to the Einstein field equations and contains an unknown functions.

sqrt(S(t))*sqrt(1+S(t))-arcsinh(sqrt(S(t))) = t

My question is how do I get maple to plot this?

Thank you

I have made an animate-plot with trace function enabled and I was wondering if there was something I could do so it would show the value of the variable when trace reached frame x and y and plot it in the plot or maybe somewhere else.

Thanks in advance.


 

S[1] := .51-.67030*t+.4644645000*t^2-.2542824350*t^3+.1337509523*t^4

S[2] := .29-.37330*t+.2539795000*t^2-.1337383850*t^3+0.6737783824e-1*t^4

S[3] := 0.6e-1-0.6280e-1*t+0.3392700000e-1*t^2-0.7715060000e-2*t^3-0.2012235525e-2*t^4

V[1] := .14+.18480*t-.3482570000*t^2+.2511604200*t^3-.1217312553*t^4

V[2] := .37-0.9810e-1*t-.1638085000*t^2+.1665366350*t^3-0.8847577175e-1*t^4

V[3] := .59-.36870*t+0.126205000e-1*t^2+0.8559214500e-1*t^3-0.5666617885e-1*t^4

Iota[1] := 0.8e-1-.1000*t+0.6280600000e-1*t^2-0.2652762667e-1*t^3+0.8545290360e-2*t^4:

E[1] := 0.2040e-2*t-0.3584600000e-2*t^2+0.3405427000e-2*t^3-0.2270144502e-2*t^4:

R[n] := 0.5e-1+0.715e-1*t-0.1627750000e-1*t^2-0.3034627500e-1*t^3+0.2606816769e-1*t^4:

> Pls let someone help me plot S1;S2,S3 using Maple.

``


 

Download FINAL_RESULT.mw

How do cylinder (3D plot) from Excel file(csv)?

I have table in the Excel:

Angel(A)  length(cylinder) Function(sin(A)*EXP(1-L/1000)

1                 5                          0,05

2               10                          0,1

......

360         1000                      0

Please help me..

I want to plot a simple power function in diferent pieces by using diferent range and  for different values of parameter a[i] at i=0,1,2 define in the attached sheet.

plot_at_different_intervals.mw

On Y axis: (Each set represents a car and each set has 10 values for different position of same car)

[[761, 768, 776, 784, 793, 803, 813, 823, 833, 842], [723, 725, 728, 731, 734, 738, 743, 749, 756, 764], [516, 516, 516, 517, 519, 522, 526, 531, 536, 541], [382, 384, 386, 389, 393, 398, 404, 411, 419, 427], [78, 86, 95, 105, 115, 125, 135, 144, 154, 164], [751, 760, 770, 780, 790, 799, 809, 819, 829, 839], [773, 783, 793, 803, 812, 822, 831, 840, 850, 859], [160, 170, 180, 189, 199, 209, 219, 229, 239, 249],.....]

On X axis: (time for 1 to 10)

[1,2,3,4,5,6,7,8,9,10] for each of above sets. 

In each set for example, 1 corresponds to 761, 2 to 768 and so on until 10 to 842, then onto next set. The number of sets I will generate can be between 50-500. And I need to have all of the same graph. This data will tell me under the conditions I set how one car's position effects other cars. 

I also have relative velocity values in same format:

[[7, 7, 8, 8, 9, 10, 10, 10, 10, 9], [1, 2, 3, 3, 3, 4, 5, 6, 7, 8], [0, 0, 0, 1, 2, 3, 4, 5, 5, 5], [1, 2, 2, 3, 4, 5, 6, 7, 8, 8], [8, 8, 9, 10, 10, 10, 10, 9, 10, 10], [8, 9, 10, 10, 10, 9, 10, 10, 10, 10], [10, 10, 10, 10, 9, 10, 9, 9, 10, 9], [9, 10, 10, 9, 10, 10, 10, 10, 10, 10], [8, 8, 9, 9, 9, 10, 9, 9, 9, 9], [8, 9, 10, 9, 10, 9, 10, 9, 10, 9], [9, 10, 9, 9, 10, 10, 10, 10, 10, 10], [7, 7, 8, 9, 10, 10, 9, 9, 10, 10], [10, 10, 10, 9, 9, 10, 9, 10, 10, 10],...]

I will also need to graph this. 

Please Help!
 

Hi,

I'm struggling to solve a problem with the Maple 2015 worksheet interface. I have a very dense 2D plot, with lots of oscillations, that was generated using Maple 2015 on Windows 10. Substantial parts of the plot are missing; it looks like the tips of the oscillations being clipped out. If I load the same worksheet into Maple 18 on Windows 7 then the plot looks fine (i.e. nothing is clipped). I've dug through the options in Maple 2015 and nothing I try seems to fix the problem. Any advice would be greatly appreciated.

Many thanks,
David

 

I expected plot with an undefined name to do nothing, but,

plot(asdf);

actually plots y=x!

I have to first plot the some point like (-1,4), (0,3), (1,4) etc. and then I wish to know how I can connect them with a line. 

HI,

I would like to plot the ODE system in phase transition (3d)

I try this

var:={x1(t),x2(t),x3(t)}:
dsys:={diff(x1(t),t)=x1(t), diff(x2(t),t)=x2(t), diff(x3(t),t)=x3(t)};
   / d                  d                  d               \ 
  { --- x1(t) = x1(t), --- x2(t) = x2(t), --- x3(t) = x3(t) }
   \ dt                 dt                 dt              / 
res:=dsolve(dsys);
  {x1(t) = _C3 exp(t), x2(t) = _C2 exp(t), x3(t) = _C1 exp(t)}
plot3d(res,x1(t)=0..1,x2(t)=0..1,axes=boxed,font=[1,1,18],view=[0..0.6,0..1,-5..0]);

 

Hi all,

I am attempting to construct a randomized questions using algorithms and the sketch question type.

I have defined my variables algorithmically.  The sketch question type only allows a static answer, and hence I am trying to modify the code.  

As you can see below the code (part.1.answer...) is looking for points located at (7,0) and (0,-7).  I would like to replace the 7 with variable $xint and -7 with variable $yint, but it seems the @-symbols are some form of termination point that won't allow variables to carry-into the expression.

Looking for ideas??  I do not want to change to multiple choice.

 

Thanks,

 

mode=Inline@
id=0@
name=Graph a linear relation in Ax+By=C form@
comment=<p>&nbsp;</p>


@
editing=useHTML@
solution=@
algorithm=$b=range(1,6,2);
$c=range($b,20,$b);
$a=$b*3;
$zero=0;
$xint=$c/$a;
$yint=$c/$b;@
customCss=@
appliedThemes=@
uid=316f7dda-d8bc-479f-a3e4-9703a1846072@
privacy=10@
allowRepublish=false@
description=@
difficulty=0.0@
modifiedIn=11.10@
modifiedBy=a0c70480-e1aa-418d-9980-0347cddc1087@
school=7f01c0fb-116a-4f9d-bafc-e91de0b62105@
attributeAuthor=true@
numberOfAttempts=1@
numberOfAttemptsLeft=1@
numberOfTryAnother=0@
numberOfTryAnotherLeft=0@
question=<p><span style="font-size:16px;">Graph &nbsp;<math xmlns="http://www.w3.org/1998/Math/MathML"><mrow> <mn>$a</mn> <mspace width="5px"></mspace> <mi mathvariant="italic">x</mi> <mo>+</mo> <mi mathvariant="italic">&nbsp;</mi> <mn>$b</mn> <mspace width="5px"></mspace> <mi mathvariant="italic">y&nbsp;</mi> <mo>=</mo> <mn>$c</mn> </mrow></math>&nbsp; on the grid below.</span></p>

<p>&nbsp;</p>

<p><span>&nbsp;</span></p>

<1>

<p><span>&nbsp;</span>&nbsp;</p>


@
weighting=1@
numbering=alpha@
part.1.grid=true@
part.1.comment=<p>&nbsp;</p>


@
part.1.editing=useHTML@
part.1.attributeAuthor=false@
part.1.options="visible_buttons":"createline:1, delete"@
part.1.givenCurves={"sketchElements":[{"elementType":"topGroup","parents":[],"attributes":{"name":"Top-level Group"},"gradingOptions":{},"id":"topGroup"}]}@
part.1.modifiedIn=11.10@
part.1.numberOfAttempts=1@
part.1.allowRepublish=false@
part.1.numberOfTryAnotherLeft=0@
part.1.numberOfAttemptsLeft=1@
part.1.mode=Html5sketch@
part.1.numberOfTryAnother=0@
part.1.answer={"sketchElements":[{"elementType":"topGroup","parents":["jxgBoard1L160"],"attributes":{"name":"Top-level Group"},"gradingOptions":{},"id":"topGroup"},{"elementType":"point","parents":[7,0],"attributes":{"name":"B"},"gradingOptions":{},"id":"jxgBoard1P158"},{"elementType":"point","parents":[0,-7],"attributes":{"name":"C"},"gradingOptions":{},"id":"jxgBoard1P159"},{"elementType":"line","parents":["jxgBoard1P158","jxgBoard1P159"],"attributes":{"name":"aq"},"gradingOptions":{},"id":"jxgBoard1L160"}]}@
part.1.gradingCode=op(1,[Grading:-GradePlot($ANSWER, $RESPONSE, $PLOTVIEW)]);@
part.1.axes=-10,10,-10,10@
part.1.difficulty=0.0@
part.1.ticks=4,5,4,5@
part.1.name=responseNaN@

I am trying to find a way to adjust the size of a plot output component in Maple by right click (because the output(s) were copy & paste) and it is difficult to go back to plot command to set the size.

Thanks,

TQ.mw

Can any one help for finding the solution of these differntial equations and then plotting the graph for differnt values of M

(FILE ATTACHED)
 

eqn1 := (R/(R-theta(eta))+Omega)*(diff(f(eta), `$`(eta, 3)))+f(eta)*(diff(f(eta), `$`(eta, 2)))+R*(diff(f(eta), `$`(eta, 2)))*(diff(theta(eta), eta))/(R-theta(eta))^2+Omega*(diff(g(eta), eta))+lambda*theta(eta)*Cos(alpha)-M*(diff(f(eta), eta))^2 = 0; eqn2 := (R/(R-theta(eta))+(1/2)*Omega)*(diff(g(eta), `$`(eta, 2)))-2*Omega*(2*g(eta)+diff(f(eta), `$`(eta, 2)))+(diff(f(eta), eta))*g(eta)+(diff(g(eta), eta))*f(eta)+R*(diff(g(eta), eta))*(diff(theta(eta), eta))/(R-theta(eta))^2 = 0; eqn3 := (1+`&epsilon;`*theta(eta))*(diff(theta(eta), `$`(eta, 2)))+`&epsilon;`*(diff(theta(eta), eta))^2+Pr*(f(eta)*(diff(theta(eta), eta))-(diff(f(eta), eta))*theta(eta))+Q*theta(eta)+L*exp(-eta) = 0

(R/(R-theta(eta))+Omega)*(diff(diff(diff(f(eta), eta), eta), eta))+f(eta)*(diff(diff(f(eta), eta), eta))+R*(diff(diff(f(eta), eta), eta))*(diff(theta(eta), eta))/(R-theta(eta))^2+Omega*(diff(g(eta), eta))+lambda*theta(eta)*Cos(alpha)-M*(diff(f(eta), eta))^2 = 0

 

(R/(R-theta(eta))+(1/2)*Omega)*(diff(diff(g(eta), eta), eta))-2*Omega*(2*g(eta)+diff(diff(f(eta), eta), eta))+(diff(f(eta), eta))*g(eta)+(diff(g(eta), eta))*f(eta)+R*(diff(g(eta), eta))*(diff(theta(eta), eta))/(R-theta(eta))^2 = 0

 

(1+epsilon*theta(eta))*(diff(diff(theta(eta), eta), eta))+epsilon*(diff(theta(eta), eta))^2+Pr*(f(eta)*(diff(theta(eta), eta))-(diff(f(eta), eta))*theta(eta))+Q*theta(eta)+L*exp(-eta) = 0

(1)

Omega := 2.; M := .5; R := 5; lambda := 20; `&epsilon;` := .2; Pr := 1; Q := .5; L := .5; W := .5; n := .1; alpha := (1/6)*Pi

bc := f(0) = W, (D(f))(0) = 0, (D(f))(infinity) = 0, (D(theta))(0) = -1, theta(infinity) = 0, g(0) = -n*(DD(f))(0), g(infinity) = 0

f(0) = W, (D(f))(0) = 0, (D(f))(N) = 0, (D(theta))(0) = -1, theta(N) = 0, g(0) = -n*(DD(f))(0), g(N) = 0

(2)

``


 

Download TQ.mw

 

A lemniscate is a polar curve of the form r^2=a^2*cos(2*theta) or r^2=a^2*sin(2*theta). I have just started using Maple and I wrote the following commands: 

> with(plots):
> polarplot(2*sqrt(cos(2*t)), axiscoordinates = cartesian, angularunit = radian, color = "Black");
 

But I am getting the following graph 

which is not satisfactory since some points are missing. I know that using the square root may have caused this, but I am not sure as to how should I resolve this issue. I used plus/minus symbol before the expression 2(cos(2t))^(0.5) but there was an error and the discontinuity still persisits. Kindly help me in plotting this curve. 

Thank you.

2 3 4 5 6 7 8 Last Page 4 of 175