MaplePrimes Questions

I want to calculate the Noether Symmetries from the Lagrangian. Is there any built-in Maple cammad to  where i just put the lagrangian and get the determining PDEs and calculate the Noether Symmetries?

Hello everyone!

I made an integration and it gave me a really long answer. The answer of the book is the same, as you can see, i "smartplotted" the two answers, and they are the same. But how do i get the nice short answer? I tried a lot of different things, but nothing gave me that short answer. 

I would really like to be able to get nice short answers, while it will really clean things up. 

Thank you!

Greetings,

The Function

int((v^2-1)*(v^3-3*v+6)^5, v)

(1/18)*v^18-v^16+2*v^15+(15/2)*v^14-30*v^13+180*v^11-(585/2)*v^10-300*v^9+1539*v^8-1350*v^7-(4239/2)*v^6+5994*v^5-4050*v^4-3888*v^3+9720*v^2-7776*v

(1)

NULL

"f(v):=1/18 v^18-v^16+2 v^15+15/2 v^14-30 v^13+180 v^11-585/2 v^10-300 v^9+1539 v^8-1350 v^7-4239/2 v^6+5994 v^5-4050 v^4-3888 v^3+9720 v^2-7776 v"

proc (v) options operator, arrow, function_assign; (1/18)*v^18-v^16+2*v^15+(15/2)*v^14-30*v^13+180*v^11-(585/2)*v^10-300*v^9+1539*v^8-1350*v^7-(4239/2)*v^6+5994*v^5-4050*v^4-3888*v^3+9720*v^2-7776*v end proc

(2)

"f1(v):=1/(18)*(v^(3)-3 v+6)^(6)"

proc (v) options operator, arrow, function_assign; (1/18)*(v^3-3*v+6)^6 end proc

(3)

smartplot(f(v), f1(v))

 

(1/18)*v^18-v^16+2*v^15+(15/2)*v^14-30*v^13+180*v^11-(585/2)*v^10-300*v^9+1539*v^8-1350*v^7-(4239/2)*v^6+5994*v^5-4050*v^4-3888*v^3+9720*v^2-7776*v

(1/18)*v^18-v^16+2*v^15+(15/2)*v^14-30*v^13+180*v^11-(585/2)*v^10-300*v^9+1539*v^8-1350*v^7-(4239/2)*v^6+5994*v^5-4050*v^4-3888*v^3+9720*v^2-7776*v

(4)

(1/18)*(v^3-3*v+6)^6

(1/18)*(v^3-3*v+6)^6

(5)

``

``

Download Question_for_maple_primes_6.mw

I want to know how to remove an error message from the last line of using Maple.  I must have made some kind of error, but I want to move on but I can't get past the error message.  How can I remove the error message.  I have tried using "restart" but nothing happened.  I'm stuck until I clear this error message from the last line of my worksheet.  Can you help please?

Thanks

Dave

PS: as you can guess I'm pretty new to Maple.

restart; p := .5; n := 10; nseq := 2; with(Statistics); randomize(); x1 := seq(Sample(RandomVariable(BernoulliDistribution(p)), n), i = 1 .. nseq); x2 := seq(convert(x1[i], list), i = 1 .. nseq)

[HFloat(0.0), HFloat(1.0), HFloat(0.0), HFloat(0.0), HFloat(0.0), HFloat(1.0), HFloat(0.0), HFloat(0.0), HFloat(0.0), HFloat(1.0)], [HFloat(0.0), HFloat(1.0), HFloat(1.0), HFloat(1.0), HFloat(0.0), HFloat(0.0), HFloat(1.0), HFloat(0.0), HFloat(0.0), HFloat(0.0)]

(1)

x2[1]

[HFloat(0.0), HFloat(1.0), HFloat(0.0), HFloat(0.0), HFloat(0.0), HFloat(1.0), HFloat(0.0), HFloat(0.0), HFloat(0.0), HFloat(1.0)]

(2)

whattype(x2[1])

list

(3)

numboccur(x2[1], {0.})

0

(4)

NULL

But, when I plugged the list at (2) it works...  

numboccur([0., 0., 1., 1., 0., 0., 1., 0., 0., 0.], 0.)

7

(5)

``

NULL

NULL

Download numboccur.mwnumboccur.mw

Hello everbody! 

Ive got a question about my dutch math book, and why it thinks its answer is better than mine. 

It is question c. the integral that is covers the x value from 4 to 6 for f(x). 

I would think that means the integral of 1 to 6 - the integral of 1-4, and thus 4-7=-3. Now i dont know how they thought about getting a smaller area under the function with a larger domain of x, so i am not sure what is going on. Im not even sure if what they ask is possible. The book gave 3 as an answer. My answer was -3. Looking at it, and thinking about it. It may not even be possible. 

Any way, that is the question. 

Picture 2 shows the rules, picture 3 shows the answers of the book. 

Thank you!

Greetings,

The function

Opdracht 2
a.

0

b.

-7

c.

4-7

-3

(1)

d.

8*5

40

(2)

e.

int(5, x = 1 .. 6)+4

29

(3)

f.

3*4-6*5

-18

(4)

``

Download Question_for_maple_primes_5.mw

Let f(x) = x3+9x2-9x-1/x4+1

Find the equations of the 4 lines having slope 0.5 that are tangent to the graph of 𝑓(𝑥) (first find the values of 𝑥 where 𝑓 ′(𝑥) = 0.5).

Hello there,
I'm currently working on a school-related assignment, where I have to put two functions equal each other to find their crossing point. My issue is, that these two functions are waves, and continiue into infinite.
If I put them equal as this, my document crashes:
f(x) = g(x)

My question is then, if I can put some requirement to Maple, so it only calculates from significant X-intervals

elctroWav.mw have the equation 1 :

eq1 := 2*m*(E + e0^2/(rb*rho))*g(rho, t)*(-rb*rho + R)/(h^2*R) + R*(diff(g(rho, t), rho, rho)*(-rb*rho + R)/R - 2*diff(g(rho, t), rho)*rb/R)/(rb^3*rho) - diff(g(rho, t), t, t)*(-rb*rho + R)/(a^2*c^2*R) = 0;

with iv1:

iv1 := D[1](g)(0, 0) - g(0, 0)*rb/R = rb*R, g(1, 0)*(R - rb)/R = 0, D[2](g)(rb, 0) = a*c;

As in maple document electroWav.mw

The issue is that there is an unsolved part with RootOf how can I rezolve it?

-R*h^2*RootOf(AiryBi(-(R*_Z^3*h^2 + 2*e0^2*m*rb^2)/(_Z^2*R*h^2)))^3

Please advice...

restart;In this code "add" is a trouble.
A := Matrix([[1, 2, 1, 3], [1, 1, 2, 1], [1, -2, 5, -11]]);
cs := LinearAlgebra:-ColumnSpace(A);
cnames := [seq(c || j, j = 1 .. numelems(cs))];
cvals := seq(solve([entries(A[() .. (), k] -~ add(`*`~(cnames, cs)), 'nolist')], cnames)[], k = 1 .. op([1, 2], A));
seq(add*rhs~(cvals[k]) *~ cs, k = 1 .. op([1, 2], A));
add does not play its role. Why. Thank you.

Is there an easy command to generate the edge sets of of all connected graphs for a given number of vertices? Ideally, I'd like to output to be of the form (e.g.)

G={{1,2},{2,3},{1,3},{1,4}};

text text text text;

text1 text1;

so that I can easily copy it into another program to be read. Or, is there a way that I can produce an output like the following (e.g. for n=3)

G={{1,2},{2,3}};

text text text text;

text1 text1;

G={{1,2},{2,3},{1,3}};

text text text text;

text1 text1;

and have it export to a text file?

The timelimit command of Maple can be used to do a computation if it uses less than a given amount of time, otherwise generating an error message that can be cought by try ... catch. Now my question is that there exists any similar command, but with a limitation on memory usage, not the time usage. I don't mean what datalimit in kernelopts can does, because I am not going to limit the memory usage of the whole Maple session, but just a command which may be used inside a larger procedure etc.

Hello.

I wrote some codes for solving equations in a special way. My codes work very fine when my differential system has only one equation.

But when I extend it to a system that has two or more equations, sometimes does not work and I face with error. However, in one system (2 eq) it also works. But it is only a special case. If you want, I can upload it here as well.

I am attaching the maple file containing the error. You can observe it. 

By examining many cases, I think that maybe the root of the problem is that I must change my codes in a way that they are for a "system". Indeed, instead of writing codes for each differential equation, I must define a system and write these codes for a system containing some differential equations.
However, I think that the boundary conditions sometimes also may be the root of the error.

I change the attached codes for this purpose, but I failed. I prefer to not present my wrong codes for this purpose. 

If it is possible, help me to change my codes.

Thanks a lot.

ERROR.mw

Solve equation :x4-x3-3x2-x+12=0

I am running Maple 2021 and have this plot in Differential Equation. However, It will not display the Graph.

The  general solution : y = 1.42
                  "exp(-0.125*t)*sin(1.41*t)"

NULL;
soln := y(t) = 1.42*exp(-0.125*t)*sin(1.41*t);
         soln := y(t) = 1.42 exp(-0.125 t) sin(1.41 t)

(b) Plot y vs. t  and y' vs. t on the same axes.
Let y and dy be the right side and derivative , respectively, of soln. Graph y and dy together

So i have defined some variables example:

xb=1000
yb=2500

db=5321
eb=521
and i want to solve the following symbolically without maple taking into account the variables:
eb=ab*yb*db*x

How do I force Maple to show the equation for the expression symbolically without unassigning the variables? I was thinking about local variables, but that would make the worksheet messy as the variables are used in other calculations.

Thank you.

First 372 373 374 375 376 377 378 Last Page 374 of 2432