MaplePrimes Questions

After loading the Physics package, I have define the langragian L this way:

L:=sqrt((1+(y')^2)/y)

After some algebra, I get the following integral:

((1+(y'(x))^2)^(-1)*1/y(x) = C

At that stage, I would like to isolate the term y'(x) and do the change of variable. But since I am under the Physics package, I try to isolate it with no succes and worst if I try to change the variable first. A little help would be appreciate.

Thank you in advance

Mario

Maple 2022 under Windows

Hello,

I have a nonlinear system of 12 SYMBOLIC equations in 6 variables. I am using solve() but it's taking me ages and will probably return the "Kernel connection has been lost" error after a half-day/ a day.

How do I solve it? Is it even possible to solve it? Is there a way to solve it approximately?

Thanks

Where is the problem within this procedure which I can not get the numerical values of V[1] , V[2], ...

restart

A := Matrix([[2*t, 2, 3], [4, 5*t, 6], [7, 8*t, 9]])

A := Matrix(3, 3, {(1, 1) = 2*t, (1, 2) = 2, (1, 3) = 3, (2, 1) = 4, (2, 2) = 5*t, (2, 3) = 6, (3, 1) = 7, (3, 2) = 8*t, (3, 3) = 9})

(1)

B := LinearAlgebra:-Transpose(Matrix([t, 2*t, 3*t]))

B := Matrix(3, 1, {(1, 1) = t, (2, 1) = 2*t, (3, 1) = 3*t})

(2)

``

test:=proc(n)
  local s,t,M,V;
  s:=1:
  for t from 1 to n do
    M:=A+A^(-1);
    V[s]:=(M.B):
    s:=s+1:
  end do;
  V;
end proc:

``

test(4)

V

(3)

V[1]

V[1]

(4)

``

``

Download ProcPropl.mw

fig([L1(color = blue), L2(color = blue), L3(color = green), C1(color = black), C2(color = black), C3(color = orange), C4(color = orange)]);
point(oo, [0, 0]);
                               oo

rotation(fig1, fig, oo, Pi/2, 'counterclockwise');
Error, (in geometry:-rotation) wrong type of arguments why thos error ? Thank you;
 

q := (f)->local ff := `if`(type(f,procedure),f,`x`->f); ff(z + (ff(k))):

Trying to create something so that I can do q(x) or q(x->x^2) or whatever.

Trying to understand the difference between an expression and a function as represented by maple. I thought I could just turn whatever is passed to q, such as x*cos(x) in to a function by x->x*cos(x) as one would do normally but this does not work.

How_to_collect_Coefficent.mw

Kindly help me to find the coefficients from the equation. I have attached the MAPLE file here.

Thank You 

Is there any easy way to do subs([a,b,c]=x, [2,4,5,1,a,4,5,a,b,434,a,b,c,5,5,5,1]) = [2,4,5,1,a,4,5,a,b,434,x,5,5,5,1]

and another way to get [2,4,5,1,a,4,5,a,b,434,x,b,c,5,5,5,1]

The first subsitutes the entire match and the second substitutes when matches but only for first element.

I know I can write routines to do this and will after posting this but is there a native way that is simple?

Hi,

I try to enrich the layout of my documents by tables like that of trigonometric numbers. Is there a way to make it simpler? without going through the encoding of all values.Thanks

TableauTest.mw

The worksheet below displays a sphere with a surface patch defined by the arcs of three intersecting circles on the sphere's surface.

How can the patch be colored differently from the non-patch sphere's surface?

Patch_on_a_Sphere.mw

I am looping over a list of functions to calculate various properties of the said functions. some of these calculations take too long. I was wondering if there was a way to skip to the next element of the loop if a calculation takes more than a specific time.

 I looking to contact a maple sales representative. I am from india I am not getting any contact number. Can anyone help.

Kind help anyone if possible. I do research in mathematics  field but at a personal level. I need help on which product to buy and a sales represitive number or someone to contact me so that i can first understand certain doubts from my personal end then I can opt for.

 

``

NULL

U(t, r, theta, phi) = _F1(r, theta, a^2*phi+phi*r^2-a*t)

eq1 := a*(U(t, r, theta, phi)-1)*(U(t, r, theta, phi)+1)*(cos(theta)-1)*(cos(theta)+1)*(r^2+a^2*cos(theta)^2)^2*(diff(U(t, r, theta, phi), t, t))-a*(U(t, r, theta, phi)-1)*(U(t, r, theta, phi)+1)*(cos(theta)-1)*(cos(theta)+1)*(r^2+a^2*cos(theta)^2)*(diff(U(t, r, theta, phi), theta, theta))-(U(t, r, theta, phi)-1)*(U(t, r, theta, phi)+1)*(r^2+a^2*cos(theta)^2)^2*(diff(U(t, r, theta, phi), phi, t))+a*U(t, r, theta, phi)*(cos(theta)-1)*(cos(theta)+1)*(r^2+a^2*cos(theta)^2)*(diff(U(t, r, theta, phi), theta))^2-a*cos(theta)*sin(theta)*(U(t, r, theta, phi)-1)*(U(t, r, theta, phi)+1)*(a^2*cos(theta)^2-2*a^2-r^2)*(diff(U(t, r, theta, phi), theta))-(diff(U(t, r, theta, phi), t))*((a*cos(theta)^2-a)*(diff(U(t, r, theta, phi), t))-(diff(U(t, r, theta, phi), phi)))*U(t, r, theta, phi)*(r^2+a^2*cos(theta)^2)^2

a*(U(t, r, theta, phi)-1)*(U(t, r, theta, phi)+1)*(cos(theta)-1)*(cos(theta)+1)*(r^2+a^2*cos(theta)^2)^2*(diff(diff(U(t, r, theta, phi), t), t))-a*(U(t, r, theta, phi)-1)*(U(t, r, theta, phi)+1)*(cos(theta)-1)*(cos(theta)+1)*(r^2+a^2*cos(theta)^2)*(diff(diff(U(t, r, theta, phi), theta), theta))-(U(t, r, theta, phi)-1)*(U(t, r, theta, phi)+1)*(r^2+a^2*cos(theta)^2)^2*(diff(diff(U(t, r, theta, phi), phi), t))+a*U(t, r, theta, phi)*(cos(theta)-1)*(cos(theta)+1)*(r^2+a^2*cos(theta)^2)*(diff(U(t, r, theta, phi), theta))^2-a*cos(theta)*sin(theta)*(U(t, r, theta, phi)-1)*(U(t, r, theta, phi)+1)*(a^2*cos(theta)^2-2*a^2-r^2)*(diff(U(t, r, theta, phi), theta))-(diff(U(t, r, theta, phi), t))*((a*cos(theta)^2-a)*(diff(U(t, r, theta, phi), t))-(diff(U(t, r, theta, phi), phi)))*U(t, r, theta, phi)*(r^2+a^2*cos(theta)^2)^2

(1)

eq2 := -a*(U(t, r, theta, phi)-1)*(U(t, r, theta, phi)+1)*(cos(theta)-1)*(cos(theta)+1)*(diff(U(t, r, theta, phi), r, t))+(U(t, r, theta, phi)^2-1)*(diff(U(t, r, theta, phi), phi, r))+(diff(U(t, r, theta, phi), r))*((a*cos(theta)^2-a)*(diff(U(t, r, theta, phi), t))-(diff(U(t, r, theta, phi), phi)))

-a*(U(t, r, theta, phi)-1)*(U(t, r, theta, phi)+1)*(cos(theta)-1)*(cos(theta)+1)*(diff(diff(U(t, r, theta, phi), r), t))+(U(t, r, theta, phi)^2-1)*(diff(diff(U(t, r, theta, phi), phi), r))+(diff(U(t, r, theta, phi), r))*((a*cos(theta)^2-a)*(diff(U(t, r, theta, phi), t))-(diff(U(t, r, theta, phi), phi)))

(2)

NULL

Download probfile.mw

I need to solve a system of coupled partial differential equations. I would like to search for a function of 4 variables but such that two of the variables only appear in a particular combination.

F(theta,r, phi*(a^2+r^2)-at).

Is there a way to enforce this?

I may have asked this before, but if so lost answer.

I'm trying to put a relatively elaborate peace of code in a loop, but can't figure out how to have multiple lines. Each command separated by ';' is awkward and seems to cause me to make even more typos then normal and it's hard to read the code.

Is there a way to have command on separate lines with in a loop?

-Arthur 

I used Maple to factor (using ifactor) the number 10^128 + 1.  Maple produced the factors in a matter of seconds.

One of the factors had 116 digits.  I then restarted Maple and executed the command ifactor(X) where X was the

factor with 116 digits.  Maple found the number was prime instantly.  I do not understand how one can determine

that a number  with 116 digits is prime in less than a second.  My guess is that Maple has stored some large primes.

Also I used  Maple to factor (10^128+3) and I turned the program off because it was taking forever.

First 65 66 67 68 69 70 71 Last Page 67 of 2212