MaplePrimes Questions

How can I show the expression of the following summation as the output, not 11?

3+7+1

 

Hi all and happy new year

First I am a beginner in Maple and I want to solve an equation, but I obtain a complexe result with this _Z, my equation is 6th order and the unkown is alpha:

I tried these instructions but without resul:

z := solve(my eq,alpha)
zsol := allvalues(z)
evalf(zsol)

And I get this result

I want a simple result and what is the meaning of _Z

 For some reason maple does not simplify root in the following cases: 

sqrt((c^2, r^2));

another one is

sqrt(4), ....


Such square roots occur after this command:

eigenvectors := simplify(simplify(evectors, g * (g - 1) * (e - u * u + v * v + w * w) * 1/2 = c * c), sqrt, simbolic)

Looking at the code of PDEtools:-declare, one sees that it does some brief initializing and then passes the job off to `PDEtools/declare`. I'd like to view this latter procedure, but I can't find it. It is not at the top level, nor is it an export or local of module PDEtools. So where is it?

How to find the sum of the products given below

where I couldn't write j not equal to i in the product. 

sum(a[i],i=1..n)*product(s-b[j],j=1..n)

Has anyone an idea how to integrate

int(t^2/(1+s*cosh(2*t))^2,t=-infinity..infinity)

0<s<1

FirstEigenVector := Matrix(3, 1, {(1, 1) = -.736895432967255+0.*I, (2, 1) = -.588906969844997+0.*I, (3, 1) = -.331924240964690+0.*I});
SecondEigenVector := Matrix(3, 1, {(1, 1) = -.589856901397123+0.*I, (2, 1) = .320280857681335+0.*I, (3, 1) = .741275257969058+0.*I});
ThirdEigenVector := Matrix(3, 1, {(1, 1) = .330233185410229+0.*I, (2, 1) = -.742030156443046+0.*I, (3, 1) = .583384341736151+0.*I});
LHS := ProjOfEigenVector;
LHS := Matrix(3, 3, {(1, 1) = -.736895432967255+0.*I, (1, 2) = -.589856901397123+0.*I, (1, 3) = .330233185410229+0.*I, (2, 1) = -.588906969844997+0.*I, (2, 2) = .320280857681335+0.*I, (2, 3) = -.742030156443046+0.*I, (3, 1) = -.331924240964690+0.*I, (3, 2) = .741275257969058+0.*I, (3, 3) = .583384341736151+0.*I});
RHS := c1*FirstEigenVector+c2*SecondEigenVector+c3*ThirdEigenVector;
RHS := Matrix(3, 1, {(1, 1) = (-.736895432967255+0.*I)*c1+(-.589856901397123+0.*I)*c2+(.330233185410229+0.*I)*c3, (2, 1) = (-.588906969844997+0.*I)*c1+(.320280857681335+0.*I)*c2+(-.742030156443046+0.*I)*c3, (3, 1) = (-.331924240964690+0.*I)*c1+(.741275257969058+0.*I)*c2+(.583384341736151+0.*I)*c3});
solve([LHS[1][1] = RHS[1][1], LHS[2][2] = RHS[2][1], c1^2+c2^2+c3^2 = 1], [c1, c2, c3]);

 

after calculated the projection matrix, 

it is a 3*3 matrix on left hand side

however, combination of eigenvectors on right hand side is 3*1 matrix

when calculated c1,c2,c3 under the condition c1^2+c2^2+c3^2 = 1

how to know whether LHS[1][1] = RHS[1][1], or LHS[1][2] = RHS[1][1] or

LHS[1][3] = RHS[1][1]

How to create a borel set from a list of decimal

if i interpolate three decimal number and solve it, 

if any number substitute into this result which is a inverse function, can the results be said borel set?

with(LinearAlgebra):
t:=1;
NewMatrix3 := Matrix([[test10, close3(t) , close3(t+1)],
[close3(t) , close3(t+1) ,0],
[close3(t+1) , 0,0]]);

Matrix(3, 3, {(1, 1) = test10, (1, 2) = 5.59, (1, 3) = 5.74, (2, 1) = 5.59, (2, 2) = 5.74, (2, 3) = 0, (3, 1) = 5.74, (3, 2) = 0, (3, 3) = 0})

NewEigenMatrix := Eigenvalues(NewMatrix3);
solve([MatrixMatrixMultiply(NewMatrix3,Matrix([[x],[y],[z]]))[1][1] = NewEigenMatrix[1]* Matrix([[x],[y],[z]])[1][1],
MatrixMatrixMultiply(NewMatrix3,Matrix([[x],[y],[z]]))[2][1] = NewEigenMatrix[1]* Matrix([[x],[y],[z]])[2][1],
MatrixMatrixMultiply(NewMatrix3,Matrix([[x],[y],[z]]))[3][1] = NewEigenMatrix[1]* Matrix([[x],[y],[z]])[3][1]]
, [x,y,z]);

When i look into 'maple help' for Pade approximation, it only show a code for solving equation involving 1 variable only..what is the code for equation involving 2 or more variable for pade approximation?

Hi everyone

I'd be pleased if you could give a hand with the exploration assistant.

 

1. I want the exploration assistant to appear on the same document I am working on, but everytime I use it (either by right-clicking or by the explore command) it automatically appears on a new document.

 

2. can I manipulate a piecewise function when using embedded components? i.e.: plot the function and varying the parameters using sliders.

 

thanks

cesar

I have made a maplet. The aim is to take two numbers in textboxes and find their Jacobi symbol. The result should appear in a third textbox. Now I have done all the steps and called a procedure on buttonclick. Following is the procedure I have made

jacob := proc (x, y)

local A, B;

A := x;

B := y;

with(numtheory);

jacobi(A, B)

end proc:

 

Problem: The problem is that when I make any small modification to the code it runs and shows the result in the 3rd textbox but as soon as I save it, restart maple and recompile the program, the textbox 3 will show jacobi(value of textbox1, value of textbox2) instead of the result. What should I do, actually I am new to maple. Please guide me.

k := a*x6^7 + b*x6^6 + c*x6^5 + d*x6^4 + e*x6^3 + f*x6^2 + g*x6;
discrim(k, x6);

after know the discriminant equation, how to do next?

solve(Max(Min(x, 1), Min(x, 2)));
solve(Min(Max(x, 1), Max(x, 2)));

i do not know how to use Rootof something

 

any other expression

Please, I solved a pde system of equation problem numerically, using maple 17.

But I dont know how to plot multiple solutions on one graph.

I want to vary one of the parameters....

e.g Pr=0.71, Pr=7, Pr=10 where other parameters are kept constant

 

My working is attachedtobi_msc_solution.mw

restart

M := 1:

pde1 := diff(u(y, t), t)+Typesetting:-delayDotProduct(S, diff(u(y, t), y))-2*k^2*u(y, t) = diff(u(y, t), y, y)+theta(y, t)+Typesetting:-delayDotProduct(N, C(y, t))+Typesetting:-delayDotProduct(M, u(y, t))+u(y, t)/K:

                pde2 := theta(y, t)+t*(diff(theta(y, t), t))+S*(diff(theta(y, t), y)) = (diff(theta(y, t), y, y))/Pr-Typesetting:-delayDotProduct(alpha, theta(y, t)):

pde3 := C(y, t)+t*(diff(C(y, t), t))+S*(diff(C(y, t), y)) = (diff(C(y, t), y, y))/Sh-Typesetting:-delayDotProduct(R, C(y, t)):

PDE := {pde1, pde2, pde3}:

IBC := {C(0, t) = 1, C(1, t) = 0, C(y, 0) = 0, u(0, t) = 0, u(1, t) = 0, u(y, 0) = 0, theta(0, t) = 1, theta(1, t) = 0, theta(y, 0) = 0}:

pds := pdsolve(PDE, IBC, numeric)

module () local INFO; export plot, plot3d, animate, value, settings; option `Copyright (c) 2001 by Waterloo Maple Inc. All rights reserved.`; end module

(1)

pds:-plot[display](u(y, t), t = .5, linestyle = "solid", colour = "blue", legend = "Pr=0.71", title = "Velocity Profile", labels = ["y", "theta"])

 

``


Download tobi_msc_solution.mw

 

Please, Any help will be gracefully appreciated

 

First 1485 1486 1487 1488 1489 1490 1491 Last Page 1487 of 2433