Maple 2021 Questions and Posts

These are Posts and Questions associated with the product, Maple 2021

As we know, since the order about the element Perm([[1, 2], [3, 4, 5]]) of S5 is 6. Then  the C6 is a subgroup of S5, but why IsSubgroup(CyclicGroup(6), SymmetricGroup(5)) return false? Is it a bug?

Of course, we know the A5 of 60 order is an unsolvable group, but as the wiki here, There are also some solvable groups in the same 60 order. Similarly, although map(IsSolubleNumber, [60, 120, 168, 180]) will give false, there are some solvable groups in orders 60, 120, order 168, and order 180. But how to find these corresponding solvable polynomials by maple? I tried to generate them using random polynomials like this:

with(GroupTheory);
do
    do poly := randpoly(x, degree = rand(6 .. 8)()); until irreduc(poly);
    G := GaloisGroup(poly, x);
until IsSoluble(G) and is(GroupOrder(G) in {60, 120, 168, 180});
poly;
galois(poly, x);

But I didn't get any result even after one night..

Anyone experience a delay in typing as the screen fills with text/math etc.?

I'm using Maple 2021 and as the space is filled typing slows. I can finish typing and watch the last 4 keys enter on the screen.

Since approximately a week ago, probably after some Ubuntu update, the xmaple 2021.2 interface started to crash after some simple commands, without any error message or log. I tried to run with java (open-jdk) 11 and 8, and I had the same problem. I still have an old 2017.3 version, and it works perfectly. The problem only affects the new Maple release. 

Is there some bug report? What can I do?

I'm a newbie to maple, I want to get a group that meeting the criteria with this code:

with(GroupTheory);
G := SymmetricGroup(6);

do

H := Subgroup({RandomElement(G),RandomElement(G)}, G);

C := Core(H, G);

until is(GroupOrder(C) <> 1) and is(GroupOrder(C) <> GroupOrder(H));
H;
C;

But it's seem I cannot construct subgroup. so I adjust it into:

with(GroupTheory);
G := SymmetricGroup(6);

do

H := Subgroup({[[rand(1 .. 6)]], [[rand(1 .. 6), rand(1 .. 6)], [rand(1 .. 6), rand(1 .. 6)]]}, G);

C := Core(H, G);

until is(GroupOrder(C) <> 1) and is(GroupOrder(C) <> GroupOrder(H));
H;
C;

However, it is clear that random numbers do not always satisfy the rules of permutation. So how can I use the loop to generate a random subgroup that satisfies the condition?

How to adapt this program C to Maple ? Thank you.

Sub Les_Vendredi_13()
Dim Annee As Integer
Dim Mois As Byte
Dim Cellule As String
Dim Compteur As Byte
Cellule = "B2"
Compteur = 1
Columns("B:B")
.ClearContents For Annee = 1949 To 2009
For Mois = 1 To 12 If Weekday(Mois & "/13/" & Annee) = 6
Then Range(Cellule).Offset(Compteur, 0) = "13-" & Format(Mois, "00") & "-" & Annee Compteur = Compteur + 1 End
If Next Mois Next Annee Range(Cellule).Offset(Compteur, 0) = "Nbre = " & Compteur - 1
End Sub

Hello!

I'd like to sort variables which are non-commutative and obey certain commuting rules in a preferred order. Here is a minimal example

with(Physics)

Setup(mathematicalnotation = true):Setup(noncommutativeprefix = {q, w}, algebrarule = {%Commutator(q, w) = A})

If I want to rewrite q*w as A+w*q since I prefer the order w>q, what should I do? I tried sort(Simplify(q*w, algebrarules), [w, q]) but it doesn't work.

Thank you in advance.

The long form of ScientificConstants[GetValue] is not working in at least Maple 2021 and Maple 2022

ScientificConstants[GetValue](Constant(g))

 

This is causing issues for MapleFlow, not being able to call on a constant. 

**edit some of the long forms work - specifically the GetValue does not.  I modified the title to reflect that.**

with(GroupTheory);
G := GaloisGroup(x^5 + 20*x + 32, x);

I just can get a result like:

GroupTheory:-GaloisGroup(x^5 + 20*x + 32, x)

But how do I know exactly what group it is? Actually I know the galois group is D5, But can we use maple to get this information?

ds := DerivedSeries(PermutationGroup({[[2, 3, 5, 4]], [[1, 2, 3, 4, 5]]}))

will get a series group like:

How to get the group by the red line point out? Then I can use GroupOrder to get the order of it. I note GroupOrder[ds[2]] don't work

I have a student who then she uses tools/assistent/import data and then the file then Maple claims the Excel file is empty? She uses Maple 2021.2. File works on other my and other student computers. 

I have two questions:

1) How can I select only parts of an equation in a Maple Workbook? E.g. I have

4*x^2*(1 + x)^2*(x^2 + 6*x + 1)

and I want to select the text between the first "2" and the "6", but Maple always extends the selection to include the complete bracket. This is very annoying :)

2) How can I copy text from a maplesoft page into a workbook. E.g. I'm looking at

https://www.maplesoft.com/support/help/maple/view.aspx?path=updates/Maple2021/ODEsandPDEs

and I would like to select and copy some of the shown examples so that I can use them.

Suppose I want to calculate gcd(g(x),f(x))=a(x)f(x)+b(x)g(x) for two polynomial, i.e finding the RHS representation of the gcd, then how to implement this in maple?

I know of the command GCD(f(x),g(x)) but how to find the RHS representation?

Thanks!

primes_integrale_exp.mwThe integral in x of 

exp(-sqrt(x^2 + c))

was done by Maple 11 but return unevaluated in Maple 2021,

see attached worksheet 

I am trying to solve the equation in the attached Maple file, but Maple cannot return a result.

 

restart

Digits := 30

30

(1)

with(plots)

[animate, animate3d, animatecurve, arrow, changecoords, complexplot, complexplot3d, conformal, conformal3d, contourplot, contourplot3d, coordplot, coordplot3d, densityplot, display, dualaxisplot, fieldplot, fieldplot3d, gradplot, gradplot3d, implicitplot, implicitplot3d, inequal, interactive, interactiveparams, intersectplot, listcontplot, listcontplot3d, listdensityplot, listplot, listplot3d, loglogplot, logplot, matrixplot, multiple, odeplot, pareto, plotcompare, pointplot, pointplot3d, polarplot, polygonplot, polygonplot3d, polyhedra_supported, polyhedraplot, rootlocus, semilogplot, setcolors, setoptions, setoptions3d, shadebetween, spacecurve, sparsematrixplot, surfdata, textplot, textplot3d, tubeplot]

(2)

with(Statistics)

NULL

say the f(x) is a Beta with parameters alpha and beta

 

alpha := 10

10

(3)

beta := 100000

100000

(4)

"f(x):=PDF(BetaDistribution(alpha,beta),x)"

proc (x) options operator, arrow, function_assign; Statistics:-PDF(BetaDistribution(alpha, beta), x) end proc

(5)

f(x)

piecewise(x < 0, 0, x < 1, x^9*(1-x)^99999/Beta(10, 100000), 0)

(6)

NULL

semilogplot(PDF(BetaDistribution(alpha, beta), x), x = 0 .. 1)

 

 

fsolve(int(f(x), x = 0 .. y) = .1, y = 0 .. 1)

Download test_fsolve_integ.mw

First 13 14 15 16 17 18 19 Last Page 15 of 40