MaplePrimes Questions

Search Questions:

Latest Questions Latest Questions Feed

do not know why Basis got error in this case.

how to calculate this Basis?

with(LinearAlgebra):
prej := Matrix([[diff(eq2,a),diff(eq2,b),diff(eq2,c)],[diff(eq3,a),diff(eq3,b),diff(eq3,c)],[diff(eq4,a),diff(eq4,b),diff(eq4,c)]]);
jaco := Determinant(prej);
jaco := -a*b*c^2+c^2;
g3 := [diff(jaco,a),diff(jaco,b),diff(jaco,c)];
K := [r-g3[1],u-g3[2],v-g3[3]];
G := Basis(K, 'tord', degrevlex(r,u,v));

Error, (in LinearAlgebra:-Basis) invalid input: LinearAlgebra:-Basis expects its 1st argument, V, to be of type {Vector, {list(Vector), set(Vector)}} but received [b*c^2+r, a*c^2+u, 2*a*b*c-2*c+v]

 

i find that Suzuki group is very large, 

and finding subrgoup is still not solved 

and when find subgroup of suzuki group that is very slow

i would like to find two subgroup which are not isomorphric and then

prove a normaliser that make them isomorphric

with(GroupTheory):
G := SuzukiGroup();
IsFinite(G);
gorder := GroupOrder(G);
ifactor(gorder);
spg := SylowSubgroup(2, G);
IsAbelian(spg);
Elements(spg);
lprint(%);
H := Subgroup(Elements(G), spg);
N := Normaliser(G, spg);
#N := Normaliser(spg, G);
Elements(N);
lprint(%);
Elements(G);
H2 := Subgroup({[[5,2],[3,4]]}, G);
H2 := Subgroup(Elements(G), G);
elements2 := convert(Elements(G), 'list');
generators := map(ListTools:-Search, [Perm([[1,2,3]])], elements2);
H2 := Subgroup([52], G);
SubgroupMembership(H2, G);
H2 := Subgroup([3], G);
elist := Elements(H2);
AreConjugate(elist[2], elist[3], N); #N*elist[1]*N^(-1) = elist[2]
for ii from 1 to nops(elist) do
for jj from ii+1 to nops(elist) do
if AreIsomorphic(Group(elist[ii]),Group(elist[jj])) = false then
print("noniso");
print(ii);
print(jj);
end if:
od:
od:
AreConjugate(elist[8], elist[22], N); #N*elist[1]*N^(-1) = elist[2]

Hello,

I would like to understand this code which has been discussed in the forum a moment ago.

http://www.mapleprimes.com/posts/120138-Exact-Cubic-Hermite-Spline

Here the Maple code :

alec_modified_hermit.mw

Does somebody know the theoric developpements to this code ?

May you help me to add comments so as to facilitate the link with the theory ? One line in front of each procedure should be enough for me to understand. For the moment, I didn't manage to match it with the theory.

When I would understand this code, I would like in a second step compare the result with Catmull-Rom splines.

Thanks a lot for your help.

 @acer : I think this subject may interest you

 

how to calculate the polynomial map for a system of  polynomials

assume system of polynomial is in terms of a,b,c

how to find polynomial map

(r - something in terms of a,b,c)

(u - something in terms of a,b,c)

(v - something in terms of a,b,c)

 

Hi,

 

Would anyone know how to customize the CompleteSquare function. Reason is I am trying to extend it to complex numbers. Examples below. (Unfortunately the text editor is playing up but if you could copy and paste the text below in your Maple you should be able to see it more clearly).

 

eqn1 := x__1^2+4*x__1*x__2+2*x__2^2;

with(Student[Precalculus]):

CompleteSquare(eqn1, [x__1, x__2]);

 

This gives the answer below which is correct.

2*(x__2+x__1)^2-x__1^2

 

However consider the complex function below:

x__1*conjugate(x__1)-conjugate(x__1)*x__2+3*conjugate(x__1)*x__3-conjugate(x__2)*x__1+2*x__2*conjugate(x__2)+3*conjugate(x__3)*x__1+14*x__3*conjugate(x__3)

 

I am trying to factorize this into the following:

(x__1-x__2+3*x__3)*(conjugate(x__1)-conjugate(x__2)+3*conjugate(x__3))+(x__2+3*x__3)*(conjugate(x__2)+3*conjugate(x__3))-4*x__3*conjugate(x__3)

 

The technique I am trying is to first try to come up with a generalized form of the CompleteSquare function and then try to extend it to complex factorization but so far haven't been successful.

 

Any useful comments appreciated.

I have some differential equations that I want to plot on the same axis (as i have below), but would like to plot with a log scale to illustrate the fact that one is simply a logarithmic decay (solid line) and all the others are not.

I had used deplot and display to make the above graph,

but if you want more detail, here is a worksheet with the relevant differntial equations:
MaplePrimesGraphUpload.mw

i use normaliser's example's code in maple help file

generators is [50] originally, then i calculated again , it become [51], [52], [53] , i do not know whether virus change my library

https://drive.google.com/file/d/0Bxs_ao6uuBDUb1VzaWQwQlBYLWs/view?usp=sharing

then i use another computer to calculate, the result is [50]

then i further calculate subgroup got error below

with(GroupTheory):
with(group):
G := AlternatingGroup(5);
IsFinite(G);
GroupOrder(G);
spg := SylowSubgroup(5, G);
IsAbelian(spg);
Elements(spg);
lprint(%);
H := Subgroup(Elements(G), spg);
N := Normaliser(G, spg);
#N := Normaliser(spg, G);
Elements(N);
lprint(%);
Elements(G);
H2 := Subgroup({[[5,2],[3,4]]}, G);
H2 := Subgroup(Elements(G), G);
elements2 := convert(Elements(G), 'list');
generators := map(ListTools:-Search, [Perm([[1,2,3]])], elements2);
H2 := Subgroup(generators, G);

H2 := Subgroup(Perm([generators]), G);
Error, invalid input: GroupTheory:-Subgroup expects its 1st argument, generators, to be of type {list, set, identical(undefined)}, but received module () local cycles, p, d, work; option object; end module
H2 := Subgroup(generators, G);
Error, (in Perm:-normalform) invalid input: map expects 2 or more arguments, but received 1

SubgroupMembership(H2, G);

I have a vector, it is a zero vector apparently. I don't know what opperation lead to it being a zero vector. Any time I try to reduce this thing, I mess it up. I can't reduce it manually.

a=-((4*I)*sqrt(3)+4*sqrt(3)-5-7*I)/((4*I)*sqrt(3)+4*sqrt(3)-7-9*I)

b=-((390*I)*sqrt(3)+30*sqrt(3)-52-675*I)/(-3-4*I+2*sqrt(3)+(2*I)*sqrt(3))^3

c=-(1/2)*sqrt(2-2*I)*((6*I)*sqrt(3)+6*sqrt(3)-11-10*I)*(-2+sqrt(3))*sqrt(-2-2*I)*((2*I)*sqrt(3)+2*sqrt(3)-5-2*I)/(-3-4*I+2*sqrt(3)+(2*I)*sqrt(3))^3

 

<a/sqrt(a^2+b^2+c^2),b/sqrt(a^2+b^2+c^2),c/sqrt(a^2+b^2+c^2)>

 

The simplify command will reduce this bugger no problem. The moment I try rationalizing the denominator or anything like that I end up buggering the whole thing up. Maybe I should do a distance on two of the ordinates independently first. Anyway, I don't know what's up. 

 

 

 

Hi everyone!

I tried to plot the solution of the following ode, but I only got the message error:

Warning, cannot evaluate the solution past the initial point, problem may be complex, initially singular or improperly set up

(file attached)

Problem.mw

https://dl.dropboxusercontent.com/u/66502600/Problem.mw

 

Please, help me!

 

Thank you so much!

of homomorphism from permutation group 1 to permutation group?

g1 = PermutationGroup([[(2, 3), (4, 5)]])
g2 = PermutationGroup([[(1, 5), (3, 4)]])

ker(hom(g1, g2))

how to calculate the kernel of homomorphism from permutation group 1 to permutation group 2 in maple

 

I know how to use Maple for an optimization problem contaning continous variables but I couldn't find anything in help of Maple related to use boolean variables in optimization. So assume I want to minimize a function that one of its variables only can take 0 and 1 as its value. Anyone knows how to introduce those to the Maple? For example you can look at this link that Matlab can do many of these kind of optimizations.

Hello;

I need some help to compute the limits of integral:

 

and

 

Thank you for your help.

 

I_Mariusz

limity.mw

I use Mathematica. This code finds integer points on the sphere

(x-2)^2 + (y-4)^2 + (c-6)^2 =15

and select two of them so that distance of two this points equal to 4.

ClearAll[a, b, r, c];
a = 2;
b = 4;
c = 6;
r = 15; ss =
Subsets[{x, y, z} /.
Solve[{(x \[Minus] a)^2 + (y \[Minus] b)^2 + (z \[Minus] c)^2 ==
r^2, x != a, y != b, z != c, x y z != 0}, {x, y, z},
Integers], {2}];
t = Select[ss, And @@ Unequal @@@ Subsets[Flatten[#], {2}] &];
Length[t]
Select[ss, Apply[EuclideanDistance, #] === 4 &]

 

and this code select four points on the shere so that none of three points make a right triangle

ClearAll[a, b, r, c];
a = 2;
b = 4;
c = 6;
r = 15;
ss = Subsets[{x, y, z} /.
Solve[{(x - a)^2 + (y - b)^2 + (z - c)^2 == r^2, x != a, y != b,
z != c, x y z != 0, x > y}, {x, y, z}, Integers], {4}];
nonright =
Pick[ss, (FreeQ[#, \[Pi]/2] &) /@ ({VectorAngle[#2 - #1, #3 - #1],
VectorAngle[#1 - #2, #3 - #2],
VectorAngle[#1 - #3, #2 - #3]} & @@@ ss)];
Select[nonright, (12 == Length[Union @@ #] &)]

 I am looking for a  procedure in Maple.  I have some problems with this sphere. For example:

Choose four points so that 12 coordinates difference and it makes a square.

Can your code improve with sphere?

Hello everyone,

I'm new at maple.Sorry if this question asked before me, but i couldnt find it.

As i said i am new

so when I open new document (mode) at maple2015 i can do basic calculations for instance additon substraction multipicitaions. But when i want the  calculate x^2+5-3 and enter it supposed to be say to me blue line as a answer. But maple says nothing.

is there any point that i missing? 

Thank you very much all you in advance.

When I wish to perform a "save as" or "export" operation on the menu bar, how do I make Maple default to the same directory as the file is located? On one of my installations, once I select a file, the directory becomes the default "save as" or "export" directory. On my other installation, it first offers me to save to the desktop and I have to search for the subdirectory desired. (This difference occurs across many versions of Maple). Installation is Windows 10.

3 4 5 6 7 8 9 Last Page 5 of 1265