Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

Application developed using Maple and MapleSim. You can observe the vector analysis using Maple and the simulation using MapleSim. Also included a video of the result. It is a simple structure. A pole fastened by two cables and a force applied to the top. The results are to calculate tensions one and two. Consider the mass of each rope. In spanish.

POSTE_PARADO.zip

Lenin Araujo Castillo

Ambassador of Maple

 

I have two input variables namely torque and speed. I need to find the input current for the given induction motor. I have written down the required equations in math mode. So, when I give a specific input i.e. torque is 30 Nm and speed is 2000 rpm i get the input current. Now I need to put in a for loop for the math mode i.e. i need output current dataset for 10% increment in torque from zero to full torque and 10% increment in speed from 0 to full load speed. I cant seem to find any resource to do that in maple. Could anyone help me out?

When I use block of 'if' in procedure Work I see empty graph. If there are no 'if' everything works properly

 

with(Maplets);
with(Elements);
with(Tools);
with(plots):
work := proc() local f, k, x0, y0, result, l;
l := Get(L::algebraic);
x0 := Get(X::algebraic);
y0 := Get(Y::algebraic);
result := subs(x = x0, l);
f := plot(l);
k := plots:-pointplot([x0, y0]);
plots[plots:-display]({f, k});

 

THESE BLOCK OF 'if'
if result = y0 then Set(res = "Belongs");
elif y0 < result then return Set(res = "Above");
elif result < y0 then return Set(res = "Below");
end if;


end proc;

 

mpt := Maplet(Window("Test", [[Plotter[f]()],
["Line eq", TextField[L]()],
["X ", TextField[X]()],
["Y ", TextField[Y]()],
["Result ", TextField[res](editable = false)],
[Button("Результат", Evaluate(f = 'work()')), Button("OK", Shutdown([res]))]]));


Display(mpt);

 

With block of 'if'

Without block of 'if'

I am thinking of running maple in google cloud. Does Maplesoft available in google cloud

Hi.

Im working with GRtensor iii package for Maple.

The goal is to obtain values of specific product of the Ricci tensor and scalar function in FRW spacetime together with second order covariant derivative acting on this product. .

grdef(

After i defined general 2 covariant derivatives acting on that product

 grdef( 

I have errors when i want to define contracted forms of this expression/tensor:

grdef(

which should be scalar quantity (fY*Rab );ab

grdef(

and this should have only 2 lower indices ac

Hovewer i obtain errors for both cases
Error, (in grtensor:-grdef) lhs/rhs index conflict.

grtensor_v2.mw

If I know the direction of up and down

how to control normal distribution to fill in missing data to the direction I want in maple?

just like fill in missing pixel in bitmap file.

  Dear sir, I request to provide the inequalities or constraints for the uploaded Linear Programing Problem to plot the graph and solve by simplex method.

Hi, I'm importing an Excel file then trying to feed it to FrequencyTable. While it works, it shows me some range intervals that seem to be calculated by the function. I would like to use a specific interval, but I can't find what parameter to use. Bins won't do the trick, since it doesn't let me specify the range. 

Thanks in advancce. 

I have noticed that there exists a Stack Exchange site for mathematica, and not for maple. My discussions with the part of Stack Exchange that handle the creation of a new Stack Exchange community have said that I must accrue a certain level of interest in the subject in order for it to be approved, and so I thought I would begin here to see if there is suffice level of interest.

This would not diminish the use of the Maple Primes forum, and an additional proposal, in consideration of the years of dedication that have gone into this domain, be to pool the data between the two, make reputation points the same on both, perhaps even user profiles and questions answered already linkable, and all of the questions already addressed here showing up in the search on both domains.

I am proposing this simply because I want to encourage the use of maple, and have noted that Stack Exchange is very popular. 

So I am posting this to get overall feedback from other Maple users, as to what their opinion is regarding this proposal, and advice on whether it should and how it ought to be pursued.

Is Maple capable of printing functional html links? That is can a Maple code output an html link that actually works?

I have the following trigonometric expression:

detA:= -(-((-16*cosh(beta*`&ell;`*xi[2])*sinh(beta*`&ell;`)+16*sinh(beta*`&ell;`*xi[2])*cosh(beta*`&ell;`))*sinh(beta*xi[1]*`&ell;`)+(-16*sin(beta*`&ell;`*xi[2])*cos(beta*`&ell;`)+16*cos(beta*`&ell;`*xi[2])*sin(beta*`&ell;`))*sin(beta*xi[1]*`&ell;`)-(16*(-sin(beta*`&ell;`*xi[2])*sin(beta*`&ell;`)+cosh(beta*`&ell;`*xi[2])*cosh(beta*`&ell;`)-sinh(beta*`&ell;`*xi[2])*sinh(beta*`&ell;`)-cos(beta*`&ell;`*xi[2])*cos(beta*`&ell;`)))*(cos(beta*xi[1]*`&ell;`)-cosh(beta*xi[1]*`&ell;`)))*sin(beta*`&ell;`*xi[2])+16*cos(beta*`&ell;`*xi[2])*((sin(beta*`&ell;`*xi[2])*sin(beta*`&ell;`)-cosh(beta*`&ell;`*xi[2])*cosh(beta*`&ell;`)+sinh(beta*`&ell;`*xi[2])*sinh(beta*`&ell;`)+cos(beta*`&ell;`*xi[2])*cos(beta*`&ell;`))*sin(beta*xi[1]*`&ell;`)+(sin(beta*`&ell;`*xi[2])*cos(beta*`&ell;`)-cos(beta*`&ell;`*xi[2])*sin(beta*`&ell;`))*(cos(beta*xi[1]*`&ell;`)-cosh(beta*xi[1]*`&ell;`))))*sinh(beta*`&ell;`*xi[2])+16*cosh(beta*`&ell;`*xi[2])*((sin(beta*`&ell;`*xi[2])*sin(beta*`&ell;`)-cosh(beta*`&ell;`*xi[2])*cosh(beta*`&ell;`)+sinh(beta*`&ell;`*xi[2])*sinh(beta*`&ell;`)+cos(beta*`&ell;`*xi[2])*cos(beta*`&ell;`))*sinh(beta*xi[1]*`&ell;`)+(sinh(beta*`&ell;`*xi[2])*cosh(beta*`&ell;`)-cosh(beta*`&ell;`*xi[2])*sinh(beta*`&ell;`))*(cos(beta*xi[1]*`&ell;`)-cosh(beta*xi[1]*`&ell;`)))*sin(beta*`&ell;`*xi[2])-(16*(cos(beta*`&ell;`*xi[2])*cosh(beta*`&ell;`*xi[2])-1))*((sin(beta*`&ell;`*xi[2])*cos(beta*`&ell;`)-cos(beta*`&ell;`*xi[2])*sin(beta*`&ell;`))*sinh(beta*xi[1]*`&ell;`)+sin(beta*xi[1]*`&ell;`)*(sinh(beta*`&ell;`*xi[2])*cosh(beta*`&ell;`)-cosh(beta*`&ell;`*xi[2])*sinh(beta*`&ell;`)))

where:

xi1_val:= 0.05:
xi2_val:= 0.10:
ell_val:= 12:

I want to determine the roots "beta[1]..beta[N]" of this expression. For this, I have tried:

evalf(subs([xi[1] = xi1_val, xi[2] = xi2_val, `&ell;` = ell_val], detA)):
sol_beta:= Student[Calculus1][Roots](%, 1e-5..15);

which yields:

sol_beta:= [10.4719755]

However, I'm pretty sure there is another root before this, as we can see by the plot of the function:

plot(subs([xi[1] = xi1_val, xi[2] = xi2_val, `&ell;` = ell_val], detA), beta = 5.2..5.3,
    axes = boxed,
    gridlines = true,
    labels = [typeset(beta), typeset(`det A`)],
    size = [0.5,0.5]
    );

it is clear that there is a root about beta = 5.2359, which is not captured by "Roots" function.

Can someone help me build an algorythm that will get all roots wihtin a given interval? Particularly, I need it to be an efficient routine, because I will later vary parameters "xi[1]" and "xi[2]" and make a surface with the solutions. So I will run it several times.

restart:
k:=1:
M:=3:
U:=Matrix( (2^(k))*M,(2^(k))*M,symbol=u);

I defined a matrix U.

How to define all elements of the Matrix U is greater than 1? ( U consists of symbolic elements like u[1,1],u[1,2], etc. and all of them is greater than 1 )

I get the error message: 'There were problems furin the loading process. Your worksheet may be incomplete.'

The file appears empty. Please, can I get a help to recover the file.

Calculation1.mw

with(GraphTheory):
s1:=[NonIsomorphicGraphs(6,restrictto = connected,output=graphs,outputform=graph)]:
DrawGraph~(s1);

 

Hi all;

I need to compute the stabilizing feedback for the system of nonlinear ODEs

stabilizing_Feedback.mw

 

Many thanks for your help

First 11 12 13 14 15 16 17 Last Page 13 of 1604