MaplePrimes Questions

hi 

I have a matrix (for example a 6*6 matrix) and I want to add a row and a column between row and column of number 3 and 4. it means that finally, we have a 7*7 matrix.

tnx

 

The documentation says that Subgroup(c) returns the subgroup of the coset c.

Also, the display of Elements(lc) is garbled in Maple as well, not just in the image.

with(GroupTheory)

sgr := Subgroup(Elements(SymmetricGroup(4)), SymmetricGroup(5))

_m917312091392

(1)

lc := LeftCoset(Perm([[1, 2]]), sgr)

_m917308956640

(2)

Subgroup(lc)

Error, invalid input: GroupTheory:-Subgroup expects its 1st argument, generators, to be of type {list, set, identical(undefined)}, but received _m917308956640

 

Elements(lc)

{_m917312836128, _m917312839712, _m917312840544, _m917312841376, _m917312842272, _m917312843296, _m917312844224, _m917312845152, _m917312846240, _m917312847072, _m917312848768, _m917312849696, _m917312850624, _m917312851552, _m917312852288, _m917312853248, _m917312854144, _m917312855072, _m917312856000, _m917312857472, _m917312858592, _m917312859552, _m917315257248, _m917315263744}

(3)

 

I want to highlight the intersection between 2 graphs; pp(m,a) and the plane m=-0.2

PP := .8707945038*exp(-50.00000000*(m-0.842e-1)^2+(2.745342070*(m-0.842e-1))*(a-2.3722)-.1046792095*(a-2.3722)^2)

How can I do that?

Thank you

Hello every body

I have a plot that contains two curve. I need to chracterize the curves with `min(D_{T})` and `max(D_{E})`. Is it possible to write legend of plot such that when include it in latex file,  T and E be presented in indices?

i used this  commend to plot three equation and it actually work .my question her how to show any point cordinates just i pointed on it ? could i do it by maple or what ?
help please 
implicitplot3d({f[1], f[2], f[3]}, Q[h] = 0 .. 100, S[h] = 0 .. 100, R[h] = 0 .. 100);

when i evaluate this summation if Q[h],S[h],R[h] are big floating numbers it take along time how i decrease this time 
P := simplify(sum(sum((t+1)*Q[h]^2*(1-Q[h])^(t+T)/(t+1+(R[h]/S[h])^sigma*(T+1)), t = 0 .. infinity), T = 0 .. infinity))

The link below has my code for generating 2 matrices.  The 1st one does not generate flfoating point numerical data; whereas, the 2nd one does.  What is wrong with the 1st case?  I am attempting to single out one harmonic which works in the 2nd case.  Also, is there a way I can generate a spectrum of S2(k= 1 to 100, t= 0 to 1)?

?untitled6.mw

 

evalf(int(GAMMA(s), s = 1-I*infinity .. 1+I*infinity)); # careful

There seems to be no way to terminate this computation. After clicking "Interrupt the current evaluation", the worksheet is still unresponsive, I cannot edit or copy the contents.

I can close the document, but even after I quit Maple, mserver.exe is still running and I have to terminate it manually.

This is in Maple 2017.2, system="X86 64 WINDOWS", wordsize=64.

 

int(1/(s^2+1), s = 1-I*infinity .. 1+I*infinity); # as expected
                               0

evalf(Int(1/(s^2+1), s = 1-I*infinity .. 1+I*infinity)); # Pi?
                          3.141592654

So evalf(Int(...)) either doesn't know how to handle complex infinite endpoints or handles them in a way incompatible with how int() does it.

 

Hello every body

I have three vectors `X`, `Y` and `Z`. I need to plot `X` vs `Z` and `Y` vs `Z` in one plot. How can I do this?

Thanks in advance

Hi,

I have some matrix valued functions that that I can only define piecewise. Unfortunately I have some problems to manipulate those functions. Piecewise sees to do the job for  scalar valued functions. There I can easily differentiale and add results. For Matrix valued functions however, those features seem to not be availible.
 

I can work around these limitations by manually applying all operations to the operands of the piecewise function. Like I show here:


 

restart:

# a piecewise function

p1:=piecewise(a(t)^2=0,<cos(a(t))^2+sin(a(t))^2,0>,<1,1/a(t)>)

p1 := piecewise(a(t)^2 = 0, Vector(2, {(1) = cos(a(t))^2+sin(a(t))^2, (2) = 0}), Vector(2, {(1) = 1, (2) = 1/a(t)}))

(1)

# differentiation does not work

diff(p1,t)

diff(piecewise(a(t)^2 = 0, Vector(2, {(1) = cos(a(t))^2+sin(a(t))^2, (2) = 0}), Vector(2, {(1) = 1, (2) = 1/a(t)})), t)

(2)

# selecting individual entries does not work

r:=p1(1)+1

r := (piecewise(a(t)^2 = 0, Vector(2, {(1) = cos(a(t))^2+sin(a(t))^2, (2) = 0}), Vector(2, {(1) = 1, (2) = 1/a(t)})))(1)+1

(3)

# strange simplification behaviour

simplify(p1)

piecewise(t = RootOf(a(_Z)), _z1(RootOf(a(_Z))), Vector(2, {(1) = 1, (2) = 1/a(t)}))

(4)

# current workaround, define new piecewise function by using op

r:=piecewise(op(1,p1),op(2,p1)(1)+1,op(3,p1)(1)+1)

r := piecewise(a(t)^2 = 0, cos(a(t))^2+sin(a(t))^2+1, 2)

(5)

 


 

Download Scratch.mw

 

I think my workaround is very cumbersome and error prone. Is there a better way to tackle this probem? Or should I try to overload all needed operations, and is this even possible?

Thanks for all suggestions!

Honigmelone

is it possible to express rational number into fraction in terms of power of 2

input

2.142857143

output

(2^3+2^2+2+1)/(1+2+2^2)

Hi, there.

I have a program, and I want to make an interface where I can text in the figures and show the results. But I have no idea about this. Anyone can give me some instructions? Thanks!

Hello

I'm importing some data from Excel which comes across as L:

L := Matrix(1, 6, [["TC,DB", "PC,JL", "TD,JK", "IW,CM", "CC,PG", "KJ,DJ"]])

M: = convert( L,'list' );

["TC,DB", "PC,JL", "TD,JK", "IW,CM", "CC,PG", "KJ,DJ"

map(convert, M, 'name') ; # remove inverted commas

[`TC,DB`, `PC,JL`, `TD,JK`, `IW,CM`, `CC,PG`, `KJ,DJ`]

How to I add square brackets to each pair in the output?

What I want is a command to display L or M as:

[[TC,DB], [PC,JL], [TD,JK], [IW,CM], [CC,PG], [KJ,DJ]]

 

1.
tanh(1-x) = sum(p(ii)*x^q(ii), ii=0..infinity) or product(p*x^q(ii), ii=0..infinity) ?
2.
tanh(1-x)*1/(1-x) = sum(p(ii)*x^q(ii), ii=0..infinity) or product(p*x^q(ii), ii=0..infinity) ?
3.
tanh(x) = sum(p(ii)*x^q(ii), ii=0..infinity) or product(p*x^q(ii), ii=0..infinity) ?

Remark: it may not be possible to use diff to find p(ii)

update

series(tanh(1-x), x=0);
with(OrthogonalSeries):
Coefficients(series(1/(1-x), x=0));
coeffs(series(tanh(1-x), x=0));
coeffs(series(tanh(1-x), x=0),x);
Error, invalid arguments to coeffs;
 
and is it possible to find q(ii) only if assume p(ii) all are one?
First 811 812 813 814 815 816 817 Last Page 813 of 2308