MaplePrimes Questions

Dear all

I need a help to finish just two lines in my code:

1)How substitute condition in a system of equations

2) How solve the obtained system ( not a linear system)

3) If its possible to plot the set of points (x_i,y_j, u_{ij})

Many thanks for your help

codetosee.mw

hi

how i can pdsolve these partial differentialequations?

thanks

10.mw
 

restart; R := 1; UB := 1; lambda := 1; pe1 := 1; pe2 := 1; L := 1; Gr := 1; Br := 1; p := 1; LinearAlgebra:-HermitianTranspose(L) := 1; Nb := 1; Nt := 1; a := lambda*pe1*u(r, z)*(diff(sigma(r, z), z))-(diff(r*(diff(sigma(r, z), r)), r))/r-lambda^2*(diff(sigma(r, z), z, z))-Nt*((diff(r*(diff(theta(r, z), r)), r))/r+lambda^2*(diff(theta(r, z), z, z)))/Nb

u(r, z)*(diff(sigma(r, z), z))-(diff(sigma(r, z), r)+r*(diff(diff(sigma(r, z), r), r)))/r-(diff(diff(sigma(r, z), z), z))-(diff(theta(r, z), r)+r*(diff(diff(theta(r, z), r), r)))/r-(diff(diff(theta(r, z), z), z))

(1)

b := lambda*pe2*u(r, z)*(diff(theta(r, z), z))-(diff(r*(diff(theta(r, z), r)), r))/r-lambda^2*(diff(theta(r, z), z, z))-Nb*((diff(sigma(r, z), r))*(diff(theta(r, z), r))+(diff(sigma(r, z), z))*(diff(theta(r, z), z))*lambda^2)-Nt*((diff(theta(r, z), r))^2+lambda^2*(diff(theta(r, z), z))^2)

u(r, z)*(diff(theta(r, z), z))-(diff(theta(r, z), r)+r*(diff(diff(theta(r, z), r), r)))/r-(diff(diff(theta(r, z), z), z))-(diff(sigma(r, z), r))*(diff(theta(r, z), r))-(diff(sigma(r, z), z))*(diff(theta(r, z), z))-(diff(theta(r, z), r))^2-(diff(theta(r, z), z))^2

(2)

c := -p+(diff(r*(diff(u(r, z), r)), r))/r-L^2*(diff(r*(diff((diff(r*(diff(u(r, z), r)), r))/r, r)), r))/r+Gr*theta(r, z)+Br*sigma(r, z)

-1+(diff(u(r, z), r)+r*(diff(diff(u(r, z), r), r)))/r-(-(diff(u(r, z), r)+r*(diff(diff(u(r, z), r), r)))/r^2+(2*(diff(diff(u(r, z), r), r))+r*(diff(diff(diff(u(r, z), r), r), r)))/r+r*(2*(diff(u(r, z), r)+r*(diff(diff(u(r, z), r), r)))/r^3-2*(2*(diff(diff(u(r, z), r), r))+r*(diff(diff(diff(u(r, z), r), r), r)))/r^2+(3*(diff(diff(diff(u(r, z), r), r), r))+r*(diff(diff(diff(diff(u(r, z), r), r), r), r)))/r))/r+theta(r, z)+sigma(r, z)

(3)

bc := {sigma(R, z) = 0, sigma(r, 0) = 1, theta(R, z) = 0, theta(r, 0) = 1, u(R, z) = UB, (D[1](sigma))(0, z) = 0, (D[1](sigma))(r, LinearAlgebra:-HermitianTranspose(L)) = 0, (D[1](theta))(0, z) = 0, (D[1](theta))(r, LinearAlgebra:-HermitianTranspose(L)) = 0, (D[1](u))(0, z) = 0, (D[2](u))(R, z) = 0}

{sigma(1, z) = 0, sigma(r, 0) = 1, theta(1, z) = 0, theta(r, 0) = 1, u(1, z) = 1, (D[1](sigma))(0, z) = 0, (D[1](sigma))(r, 1) = 0, (D[1](theta))(0, z) = 0, (D[1](theta))(r, 1) = 0, (D[1](u))(0, z) = 0, (D[2](u))(1, z) = 0}

(4)

``


 

Download 10.mw

 

I have this situation:

We have sol[1] = "A=1", etc. How do I pick up just the solution values 1, 2 and 3 from sol? This is a generated system in a larger program, so I don't have access to the individual numbers coming out of a single step.
Thanks!
mapleatha

Good day,

I have a problem with inequalities plotting (trsh_con.mw). I need to plot them(eq5,eq7) in the same box. But I get the wrong solution. The plot not giving me correct region for 2 inequalities. I attach the mw file. Are there any options to overcome such problems?

Thanks in advance.

 

I need help solving Translation Step4 and Dilation Step5

 

Translation

Ta,b(x,y)=(x+a,y+b)

 

Dilation

Dk(x,y)=(kx,ky)

 

 

This works:

plot(tickmarks = [spacing(1), spacing(2)]);

but not this:

plot(axis = [tickmarks = [spacing(1), spacing(2)]]);
Error, (in plot) incorrect value for option tickmarks or gridlines: [spacing(1), spacing(2)]

Seems wrong, and the problem is that for gridlines neither form works, so gridlines=[spacing(1), spacing(2)] doesn't seem to be possible.

In the partial fraction decomposition Maple often changes the order of the terms.
For example,

How do we remedy this?
Thank you!

mapleatha

Dear Maple  users,

I am facing the memory allocation problem while calculating the inverse Laplace transformation of a big expression. I have many such terms (401) and I am importing them from a text file.

For an individual term itself, Maple consumes huge memory but at the end, it is able to calculate it in about an hour. I want to automate the process of reading and writing the terms one by one from the different text files. While doing so, maple eats a lot of memory and I see the error msg

"Error, (in expand/bigprod) Maple was unable to allocate enough memory to complete this computation.
Please see ?alloc "

Is there a way to do so? The maple file is attached.

InvLaplace_ex.mw

Thanks,

Dear all

I have invalid operator parameter name, i don't know where is the mistake.

Many thanks for your help

 

fdfd.mw

I'm producing multiple matrices via a for-loop (n = + 100) and I want to export each matrix into the same Excel-sheet, however I want to insert all matrices in cells beneath each other. I'm wondering if anyone knows how to do this? I've tried a loop variable but that doesn't work inside the "  " to specify the cells...

Note: Matrices are all 11x6. That means I want them inserted in the same sheet, in cells like this:
1st matrix: A1:F11
2nd matrix: A12:F23
3rd matrix: A24:F35
etc.

In other words: how to execute a loop-variable inside the " ", or to bypass it???
Please help! It's for my MSc Thesis:)

Helo dearz!

I want to find the inverse laplace transfrom (numerically) of the attached file of solution u and v for any values of M. I am waiting for your positive response. 

Help_v2.mw

how to download  wkptest from http://cpc.cs.qub.ac.uk/summaries/ADTY_v1_0.html and install on maple?

I understand that matlab has function 'rfwrite' to generate touchstone file. This is a datafile used for high frequency modeling.

Is there any such package in Maple?

 

 

I´m new to Maple and I´m trying to find the minimum distance of an ECC from its parity check matrix or the generator matrix. Is this possible?

I have work sheet full of greek letters as words and parameters, some times I need to find where the specific letter is, but it seems find facility (Ctrl+F) couldnt find greek letters. 

Suppose I have following workshee
 

restart

II := 1

1

(1)

JJ := 1

1

(2)

N := 1

``

UK2

 

U1 := add(add(add(add(add((2*Rr[i, m]*Rr[k, m]/((2*m+1)*(2*j+1))*(2*b/(2*a)))*(A[1, 1]*U[i, j]*U[k, j]+2*A[1, 6]*U[i, j]*V[k, j]+A[5, 5]*W[i, j]*W[k, j]+A[6, 6]*V[i, j]*V[k, j]+2*B[1, 1]*Phi[i, j]*U[k, j]+2*B[1, 6]*V[i, j]*Phi[k, j]+2*B[1, 6]*Xi[i, j]*U[k, j]+2*B[6, 6]*Xi[i, j]*V[k, j]+Dd[1, 1]*Phi[i, j]*Phi[k, j]+2*Dd[1, 6]*Phi[i, j]*Xi[k, j]+Dd[6, 6]*Xi[i, j]*Xi[k, j]+(-R[1, 1, q]*`#mover(mi("z"),mo("&uminus0;"))`[q]^4+4*S[1, 1, q]*`#mover(mi("z"),mo("&uminus0;"))`[q]^3-6*T[1, 1, q]*`#mover(mi("z"),mo("&uminus0;"))`[q]^2+4*K[1, 1, q]*`#mover(mi("z"),mo("&uminus0;"))`[q]-Delta[1, 1, q])*GAMMA[i, j, q]*GAMMA[k, j, q]+(2*R[1, 1, q]*`#mover(mi("z"),mo("&uminus0;"))`[q]^3-6*S[1, 1, q]*`#mover(mi("z"),mo("&uminus0;"))`[q]^2+6*T[1, 1, q]*`#mover(mi("z"),mo("&uminus0;"))`[q]-2*K[1, 1, q])*Omega[i, j, q]*GAMMA[k, j, q]+(-2*R[1, 1, q]*`#mover(mi("z"),mo("&uminus0;"))`[q]^2+4*S[1, 1, q]*`#mover(mi("z"),mo("&uminus0;"))`[q]-2*T[1, 1, q])*Theta[i, j, q]*GAMMA[k, j, q]+(2*E[1, 5, q]*`#mover(mi("z"),mo("&uminus0;"))`[q]^2-4*F[1, 5, q]*`#mover(mi("z"),mo("&uminus0;"))`[q]+2*G[1, 5, q])*W[i, j]*GAMMA[k, j, q]+(-R[1, 1, q]*`#mover(mi("z"),mo("&uminus0;"))`[q]^2+2*S[1, 1, q]*`#mover(mi("z"),mo("&uminus0;"))`[q]-T[1, 1, q])*Omega[i, j, q]*Omega[k, j, q]+(2*R[1, 1, q]*`#mover(mi("z"),mo("&uminus0;"))`[q]-2*S[1, 1, q])*Theta[i, j, q]*Omega[k, j, q]+(-2*E[1, 5, q]*`#mover(mi("z"),mo("&uminus0;"))`[q]+2*F[1, 5, q])*W[i, j]*Omega[k, j, q]-R[1, 1, q]*Theta[i, j, q]*Theta[k, j, q]+2*E[1, 5, q]*W[i, j]*Theta[k, j, q]), i = 0 .. II), k = 0 .. II), m = 0 .. II), j = 0 .. JJ), q = 1 .. N):

``


 

Download greekfind.mw

t, how to find for example `#mover(mi("z"),mo("&uminus0;"))`[q] in it?

First 906 907 908 909 910 911 912 Last Page 908 of 2428