MaplePrimes Questions

In help(EllipticF): Why is the parameter k not called “the modulus of the elliptic function” as in the definition of the inverse Jacobi functions in help(InverseJacobiPQ)?

Instead, it is called “the parameter” which can be confused with the parameter m=k^2 used in other notations (which is refered to "a parameter m" in the EllipticF help page).

Is there a reason for this, or should the parameter definitions of the first, second and thrid elliptic integrals not be aligned with the parameter definitions of the Jacobi functions and their inverses?

DLMF for example defines k as modulus for both, the Elliptic Integrals and the Jacobian Elliptic Functions.

A user who wants to transfer an expression from a different notation to Maple might misinterpret parameters.

map seems to work differently on lists and Matricies.  How do I get map to work on the Matrix?

a := [[1.2, 4.3], [3.2, 5.3]]

[[1.2, 4.3], [3.2, 5.3]]

(1)

whattype(a)

list

(2)

a[1]

[1.2, 4.3]

(3)

b := map(proc (x) options operator, arrow; [floor(x[1]), x[2]] end proc, a)

[[1, 4.3], [3, 5.3]]

(4)

c := convert(a, Matrix)

Matrix(%id = 36893488148073393796)

(5)

whattype(c)

Matrix

(6)

c[1]

Vector[row](%id = 36893488148073381388)

(7)

d := map(proc (x) options operator, arrow; [floor(x[1]), x[2]] end proc, c)

Matrix(%id = 36893488148073382844)

(8)

``

Download ListMatrixmap.mw

When I hit the debug button the debugger does not start. Putting Debug() in the code doesn't either. Is there some initiation I'm missing? It seems to me it used to work.

The interrupt button is great for stopping long calculations. But if there is an accidental calculation of a long list that has a mistype for example and the computer is busy calculating behind the scenes getting ready to output to the screen (evaluating icon has a heartbeat) there is no interrupt for that.  You either wait for the output or kill maple and start again (you may be able to save the worksheet before you close it - that might be an option).

I have a set of multivariable polynomial equations. I want to show that each member of the solution set is a solution to the equations and that members of the solution set is unique. I want the result of verify to return one true, not many. Also the result of unique.

Is there a simpler way?

eq-soln-verify.mw

I am trying to generate a plot for DEplot(LVS, [x(t), y(t)], t = -10 .. 10, x = -5 .. 5, y = -5 .. 5, [x(0) = 1, y(0) = 1], stepsize = 0.1, linecolor = blue, thickness = 2, arrows = medium, title = "LVS") but no plot shows up.  What am I doing wrong.

Dear all

I have a first sequence alpha, I would like to define a second sequence beta using a general formula of beta[i]

sequence.mw

Thank you

This is the sort of thing that drives me nuts with Maple.

in the example below, how do I factor (L-Lm) so that the answer is in the form L1 :=L(1-k) instead of -L(k-1)?

Lm := (simplify(k*sqrt(L*L)) assuming (0 < L));
                           Lm := k L

L1 := (factor(L - Lm) assuming (0 < L and 0 < Lm and 0 <= k));
                        L1 := -L (k - 1)

in this simple case, it is easy to understand the result.  However, these kind of  representations in more complex solutions may obfuscate the result making it difficult to interpret its meaning, where as the meaning may be more obvious if the simplification or factorization led to a result formatted more similarly to the way a human would do it.  How do I get Maple to simplify things the more "traditional" way?

Hi,I am looking to create an exercise involving the pairing of 'expressions-figures,' and I want to keep the names f(x), g(x), h(x), and i(x) fixed, with the expressions randomly shuffling. Thank you for your guidance

S6QCMFonctions.mw

Dear Maple experts, I want to write text in a specific location within a Maple plot like p<c. To do that, I use 'plots:-textplot' as follows:

plots:-textplot([[0.1, 0.80, p < c, color = black]], font = [times, 11], rotation = 'horizontal');

The issue is that in my code, 'p' and 'c' are parameters with specific values. Therefore,  in my plot, their values appear instead of p<c. Even if I use 'p<c' or "p<c" it does not work.

Would you please guide me on how to solve the issue?

I am reading (and enjoying) this:

"On the computation of the nth decimal digit of various transcendental numbers" by

Simon Plouffe, 1996 (2009)

On the third page Simon calculates this:


a := 1/binomial(100, 50);
                                 1               
              a := ------------------------------
                   100891344545564193334812497256

ifactor(denom(a));
                                                           
(8)  (81)  (11) (13) (17) (19) (29) (31) (53) (59) (61) (67) (71) (73) (79) (83) (89) (97)

and builds a sum of fractions where the above primefactors are the denominators in this sum.

5/8 + 20/81 + 10/11 + 2/13 + 13/17 + 10/19 + 4/29 + 5/31 + 23/53 + 41/59 + 29/61 + 37/67 + 33/71 +19/73 + 36/79 + 7/83 + 13/89 + 88/97

Solving a diophantine equation and using continued fractions are the steps to get that fractions (see link above).

May someone explain these steps to me ?

Thanks

I am creating an user interface with embedded components (Labels, Buttons, plotwindow ...).

All works well.

Now I need to include a combobox selection in that code. I can't get any further with that.

The specific question is what to type here (this is "edit selected code", in the combobox options)

use DocumentTools in 

end use; 

to get the choosen value as a variable in the rest of the code (startup code and other code in buttons with edit click code).

A simple example explaining that would be very helpfull:)

When I try to solve the determinant the system hangs and Maple doesn't give any result. Here $\lambda_1,2$ is not a function of 'x' and 't'.

restart

with(LinearAlgebra)

with(plots)

with(Physics)

``

Setup(mathematicalnotation = true)

[mathematicalnotation = true]

(1)

assume(x::real); assume(t::real); assume(`&alpha;__1`::real); assume(`&alpha;__2`::real); assume(nu::real)

alias(v = v(x, t))

v

(2)

``

B1 := Matrix([[exp(I*v__11)/(`&lambda;__1`-conjugate(`&lambda;__1`)), 0, 0, 0, exp(I*v__12)/(`&lambda;__2`-conjugate(`&lambda;__1`)), 0, 0, 0], [0, exp(I*v__11)/(`&lambda;__1`-conjugate(`&lambda;__1`)), 0, 0, 0, exp(I*v__12)/(`&lambda;__2`-conjugate(`&lambda;__1`)), 0, 0], [0, 0, exp(-I*v__11)/(`&lambda;__1`-conjugate(`&lambda;__1`)), 0, 0, 0, exp(-I*v__12)/(`&lambda;__2`-conjugate(`&lambda;__1`)), 0], [0, 0, 0, exp(-I*v__11)/(`&lambda;__1`-conjugate(`&lambda;__1`)), 0, 0, 0, exp(-I*v__12)/(`&lambda;__2`-conjugate(`&lambda;__1`))], [exp(I*v__21)/(`&lambda;__1`-conjugate(`&lambda;__2`)), 0, 0, 0, exp(I*v__22)/(`&lambda;__2`-conjugate(`&lambda;__2`)), 0, 0, 0], [0, exp(I*v__21)/(`&lambda;__1`-conjugate(`&lambda;__2`)), 0, 0, 0, exp(I*v__22)/(`&lambda;__2`-conjugate(`&lambda;__2`)), 0, 0], [0, 0, exp(-I*v__21)/(`&lambda;__1`-conjugate(`&lambda;__2`)), 0, 0, 0, exp(-I*v__22)/(`&lambda;__2`-conjugate(`&lambda;__2`)), 0], [0, 0, 0, exp(-I*v__21)/(`&lambda;__1`-conjugate(`&lambda;__2`)), 0, 0, 0, exp(-I*v__22)/(`&lambda;__2`-conjugate(`&lambda;__2`))]]); H := Matrix([[H__11, H__12, H__13, H__14, H__15, H__16, H__17, H__18], [H__12, H__11, H__14, H__13, H__16, H__15, H__18, H__17], [H__13, H__14, H__33, H__34, H__17, H__18, H__55, H__38], [H__14, H__13, H__34, H__33, H__18, H__17, H__38, H__55], [H__15, H__16, H__17, H__18, H__11, H__12, H__13, H__14], [H__16, H__15, H__18, H__17, H__12, H__11, H__14, H__13], [H__17, H__18, H__55, H__38, H__13, H__14, H__33, H__34], [H__18, H__17, H__38, H__55, H__14, H__13, H__34, H__33]]); B := H.B1; idn8 := Matrix([[1, 0, 0, 0, 0, 0, 0, 0], [0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0], [0, 0, 0, 0, 0, 0, 0, 1]])

Omeg := B+idn8

``

vvalue := {v__11 = (conjugate(`&lambda;__1`)-`&lambda;__1`)*x+(4*`&alpha;__1`*(conjugate(`&lambda;__1`)^3-`&lambda;__1`^3)+2*`&alpha;__2`*(conjugate(`&lambda;__1`)^2-`&lambda;__1`^2)-8*nu*(conjugate(`&lambda;__1`)^4-`&lambda;__1`^4))*t, v__12 = (conjugate(`&lambda;__1`)-`&lambda;__2`)*x+(4*`&alpha;__1`*(conjugate(`&lambda;__1`)^3-`&lambda;__2`^3)+2*`&alpha;__2`*(conjugate(`&lambda;__1`)^2-`&lambda;__2`^2)-8*nu*(conjugate(`&lambda;__1`)^4-`&lambda;__2`^4))*t, v__21 = (conjugate(`&lambda;__2`)-`&lambda;__1`)*x+(4*`&alpha;__1`*(conjugate(`&lambda;__2`)^3-`&lambda;__1`^3)+2*`&alpha;__2`*(conjugate(`&lambda;__2`)^2-`&lambda;__1`^2)-8*nu*(conjugate(`&lambda;__2`)^4-`&lambda;__1`^4))*t, v__22 = (conjugate(`&lambda;__2`)-`&lambda;__2`)*x+(4*`&alpha;__1`*(conjugate(`&lambda;__2`)^3-`&lambda;__2`^3)+2*`&alpha;__2`*(conjugate(`&lambda;__2`)^2-`&lambda;__2`^2)-8*nu*(conjugate(`&lambda;__2`)^4-`&lambda;__2`^4))*t}

B2 := Determinant(B)

Omegdet := Determinant(Omeg)

NULL

NULL

Download determinant.mw

Hi everyone, Is it possible to extract data by using Maple from any figure published by any author in different papers and then ussed that to reprouced same graph in Maple?

Given a metric tensor, is there a quick way to find the signature of the metric?

1 2 3 4 5 6 7 Last Page 1 of 2261