Hello everyone, 

I am seeking for help!

You can freely access the mentioned file in any of the following links:

https://www.mdpi.com/2076-3417/9/15/2996

https://www.mdpi.com/2076-3417/9/15/2996/pdf

https://www.researchgate.net/publication/334711617_Transverse_Vibration_of_Clamped-Pinned-Free_Beam_with_Mass_at_Free_End

I have a/L a parameter. Give it a value and then beta can be calculated as in Table 1. The first five lowest physically possible values are listed only, but the number of beta-s tend to infinity because of the sine/cosine functions. (22) is clearly a nonlinear equation. As such, in general, it can't be solved analytically. (Of course, e.g., sin(x)=0 is also nonlinear but has analytical solution, but (22) is much more complicated.)
At first step, I give a/L  a value, 0.6 , then plot the left side of (22) and try to read the zeros. Here, beta on the horizontal axis is the independent variable. This method is really slow and inaccurate to get all the results of Figure 2. Instead, I should find the roots numerically by using a built-in solver in Maple.

Once I am done with the above, I should add a do/for loop for the parameter a/L. HOWEVER, I DO NOT KNOW HOW TO DO.

In conclusion, the main question is: How could I plot the graph using MAPLE in Figure 2 considering the transcendental Equation (22)?

Best Regards, 

Wallyson Thomas

restart;
with(GraphTheory);
with(SpecialGraphs);
with(StringTools);
GT := GraphTheory;
G := GT:-SpecialGraphs:-GridGraph(3, 3);
G := Graph(AdjacencyMatrix(G));
H := GT:-SpecialGraphs:-GridGraph(3, 2);
H := Graph(AdjacencyMatrix(H));
GH := CartesianProduct(G, H);
V := Vertices(GH);
P := [];
flag := 0
f := proc(K::string) local L; global P; L := Split(K, ":"); P := [op(P), cat("(", L[1], ",", L[2], ")")]; end proc
if flag = 0 then
    for i to NumberOfVertices(GH) do f(V[i]); end do;
end if
GH := RelabelVertices(GH, P)
DrawGraph(GH, stylesheet = "legacy")
 
I need the graph with those exact relabed vertices type i have done

Now the problem i want my graph a little better in output  i want my vertices a better visible the edges as they more not a issue atleast want the verices a little more visbile and distictive  kind help i apologize for the distubance kind help

the below is output i get i want it more better

Dear experts;

I would like to know the angle between lines P0-P1 and P0-P3. I believe I need to solve for all the angles to get this.

I have attempted to set this up in maple but... maple doesn't like what I've done. Can you tell me what I've done wrong?

geometry.mw

Hi,

It seems that plottools:-extrude doesn't support the "style" option: no error returned, just the extusion being always of surface style.
Am I correct ?

G := GridGraph(3, 3);
 DrawGraph(G);

Now in place  of (1,3) i want label 1 , in place  of (2,3) i want label 2, in place  of (3,3) i want label 3, in place  of (1,2) i want label 4, in place  of (2,2) i want label 5,in place  of (3,2) i want label 6,in place  of (1,1) i want label 7,in place  of (2,1) i want label 8,in place  of (3,1) i want label 9

And i want the graph to straight like the above and the edges should be correct and strainght kind help

Similary for below

G := GridGraph(2, 3);
 
DrawGraph(G);

Now in place  of (1,3) i want label 1 , in place  of (2,3) i want label 2, in place  of (1,2) i want label 3, in place  of (2,2) i want label 4, in place  of (1,1) i want label 5, in place  of (2,1) i want label 6

 And i want the graph to straight like the above and the edges should be correct and strainght kind help 

Kind help in such vertex labeled graph outputs and graphs should be strainght with edges and presented

If i can get both in legacy mode the above all in the above form in the legacy mode it will be more good as i want the color etc like that in my output exactly

kind help  i apologize for the disturbance kind help please

Vertices should not have have any of the (1,1),(2,1) etc in the output it should be labeled with the vertex labels as told in that order

And the edges straingth and good.

kind help  i apologize for the disturbance kind help please

Hi to all! 

I have the following problem: I need to compute the Hilbert Polynomial of the polynomial ideal ((y-xⁿ)*(y^2-x^m)), where the variables are x and y while m and n are parameteres. So, i need the Hilbert Polynomial deending by n and m. Unfortunately i don't know how to "say" to Maple that it have to consider x and y as variabled and m and n as paramaters. Can i do this?

Thanks to all!

I like to show a domain as a roster of gridlines
The plotbuilder has not this option gridlines , so i must program this ?

How would you highlight specific numbers in a list?
For example, using
a:=[1,3,4,5,3,4,9,4,5,3,9,2,3,4,2,5,21,32,22,12,15,3,2,5,4]

Highlight all the 5's in the list to red for example like this

I have 2   equations that must be zero, and 2 ODE's for phi and theta

Vector(2, {(1) = `ϕ`(tau)-1.5*sin(`ϑ`(tau)), (2) = -`ϕ`(tau)^2+1.5*cos(`ϑ`(tau))})

how can i implement this quations with event statment .  this dose't work

event1 := [[`and`(gln[1], gln[2]), halt]]

odeplot_test.mw

A complicated programmed task for me
I must analyze this 

In this plot there are vertical  walls connected with the step area's , but that its not wanted.
Also the domain is showed by adding 0 in the plot 3d( {0, 'g(x,y)'}, ...) and this distract the plot with the step area's
Its not needed the domain in the plot ( in order to get the 0 value for z )     

The 3 axis x,y,z  are not visible in the plot 
Seems to be not complete programmed as it just to be.

Download texc_set_4_-task_3_-forumvraag.mw

 I want to find all real roots of   equation x^2 + floor(x) - 10=0

maple tells me:

  RootOf(_Z^2 + floor(_Z) - 10)

RootOf(_Z^2 + floor(_Z) - 10, 2.828427125 + 0.*I)

even though  use RealDomain.

We get nothing!

So I trun to use fsolve.

                     s := {x = 2.828427125}

                          -3.741657387

I try to use mathematica, it is good:

Could Maple  do that?

Hello,
In the same spirit of my previous question about converting a Mathapp to a GIF format, ( for educational goal)  Ideas?

Thanks

Fibonacci.mw

With showstat( )  i can see procedure body 
But it is also possible for tools : assistant, math apps, tutors and tasks ?

In library all proc are public.

I'm willing to draw phase portrait for the equation of ode fifth order

u'''''+6(u'u'''+(u'')^2)-u'''(a+2b)=0

where a and b are arbitrary constant not equal to zero and (') represents derivative w.r.t  'x'.