DJJerome1976

470 Reputation

12 Badges

14 years, 64 days

MaplePrimes Activity


These are questions asked by DJJerome1976

Hi,

I am trying to randomly generate, say, 20 ordered pairs of 'noisy' data that have a correlation coefficient in the range 0.8 - 0.9. I've looked at certain command in the Statistics package, but I'm not finding anything that appears useful. Can this be done in Maple?

In trying to create a plot that shades the region between two concentric circles, I decided to try using the Picture procedure found here: https://www.mapleprimes.com/posts/145922-Perimeter-Area-And-Visualization-Of-A-Plane-Figure-

This is as far as I got.


 

"Picture := proc (L, C, N::posint := 100, Boundary::list := [linestyle = 1])    local i, var, var1, var2, e, e1, e2, P, Q, h;    global Border;    for i to nops(L) do    if type(L[i], listlist(algebraic)) then P[i] := op(L[i]) else    var := lhs(L[i, 2]); var1 := lhs(rhs(L[i, 2])); var2 := rhs(rhs(L[i, 2])); h := (var2-var1)/N;    if type(L[i, 1], algebraic) then e := L[i, 1];    if nops(L[i]) = 3 then P[i] := seq(subs(var = var1+h*i, [e*cos(var), e*sin(var)]), i = 0 .. N) else    P[i] := seq([var1+h*i, subs(var = var1+h*i, e)], i = 0 .. N) end if else    e1 := L[i, 1, 1]; e2 := L[i, 1, 2]; P[i] := seq(subs(var = var1+h*i, [e1, e2]), i = 0 .. N) end if end if    end do;    Q := [seq(P[i], i = 1 .. nops(L))];    Border := plottools[curve]([op(Q), Q[1]], op(Boundary));    [plottools[polygon](Q, C), Border];    end proc:"

L := [[3, t = 0 .. 2*Pi, polar], [2, t = 0 .. 2*Pi, polar]]; plots[display](Picture(L, color = yellow, [color = brown, thickness = 3]), scaling = constrained, view = [-4 .. 4, -4 .. 4])

 

NULL


Clearly, this is not what I want. I am probably missing something simple here. How can I get only the region between the two circles to be shaded?

Download shading_annular_regions.mw

 

 

 

Hi,

I am doing some analyses of autonomous DEs (single equation and systems). Maple is able to easily produce 2d- and 3d-phase protraits for systems. However, I am struggling to produce 1d-phase portrait for autonomous first-order DEs. I would like to produce a single axis with some labels and decorations which include the following:

  1. All equilibrium/critical solutions of the DE.
  2. Arrows on the axis indicating if the non-equilibrium solutions are increasing or decreasing in a certain interval.

For example, for dy/dx = -y^2*(5*y-1)^2, would like to produce the plot in the attached file. 

How might I achieve this?

1d-phase_portrait.pdf

I am trying use convert(46,ordinal) to generate ordinals such as 46th. However the command produces "46th". How may I remover the double quotes so that I get 46th? I've tried using parse but it often generates an error.

Is Prüfer's algorithm available in Maple (given a tree, produce the code, and vice versa)? If not, has anyone written the code for it?

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