DJJerome1976

485 Reputation

12 Badges

14 years, 226 days

MaplePrimes Activity


These are questions asked by DJJerome1976

Hi,

I am generating several random weighted graphs using the following code:

with(GraphTheory):
with(RandomGraphs):
G:=RandomGraph(10,20,connected):
G1:=AssignEdgeWeights(G,5..25):
DrawGraph(G1,showlabels=true,stylesheet=[edgecolor=blue,weightfont = [times,bold,11]])

By default weight labels appear to be positioned at the midpoint of each edge. Is there a way to change that positioning?

Thanks!

I am using the RandomGraph() command from the GraphTheory[RandomGraphs] package to generate many random graphs of certain order (n) and size. The default labeling for vertices is based on the set {1,2,3,4,...n}. Is there a way to change the default labeling so that the vertices are labeled {v1, v2,...,vn}? I know how define the vertex labels for a predetermined graph, but I'm looking for a way to automatically apply these labels to a randomly generated graph. Thanks!

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

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