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);

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.

and how to prove this make x and y are conjugate by an element of  N?

with(GroupTheory):
with(group):
G := AlternatingGroup(3);

IsFinite(G);

GroupOrder(G);

spg := SylowSubgroup(3, G);

IsAbelian(spg);

Elements(spg);
lprint(%);

H := Subgroup(G, spg);
got error, invalid input here,

GroupTheory:-SylowSubgroup(3, module () local labels, minSupp,

maxSupp, suppSize, AtkinsonsAlgorithm, IsSimpleGroupOrder,

doDerivedSeries, doLowerCentralSeries, Intersection2,

RightCosetRepresentatives, LeftCosetRepresentatives, PRA,

`Giant?`, `Even?`, doStab1, doStab, CycleIndexMonomial;

export generator_list, n, supergroup, Sylows, pCores,

ModulePrint, ModuleDeconstruct, Generators, Orbit, Orbits,

IsTransitive, Transitivity, IsPrimitive, GroupOrder,

Elements, IsAbelian, IsElementary, IsSimple, ConjugacyClass,

ConjugacyClasses, CayleyTable, Centre, DerivedSubgroup,

IsPerfect, DerivedSeries, LowerCentralSeries, NilpotencyClass\

, IsNilpotent, doUpperCentralSeries, UpperCentralSeries,

SylowSubgroup, IsSubgroup, IsNormal, Core, NormalClosure,

Normaliser, Conjugator, AreConjugate, Centraliser,

Intersection, `intersect`, LeftCoset, RightCoset,

RightCosets, LeftCosets, Factor, RandomElement, IsAlternating\

, IsSymmetric, PCore, FittingSubgroup, FrattiniSubgroup,

MatrixRepresentation, Stabiliser, CycleIndexPolynomial,

properties; option object; end module)
Error, invalid input: GroupTheory:-Subgroup expects its 1st argument, generators, to be of type {list, set, identical(undefined)}, but received module () local labels, minSupp, maxSupp, suppSize, AtkinsonsAlgorithm, IsSimpleGroupOrder, doDerivedSeries, doLowerCentralSeries, Intersection2, RightCosetRepresentatives, LeftCosetRepresentatives, PRA, `Giant?`, `Even?`, doStab1, doStab, CycleIndexMonomial; export generator_list, n, supergroup, Sylows, pCores, ModulePrint, ModuleDeconstruct, Generators, Orbit, Orbits, IsTransitive, Transitivity, IsPrimitive, GroupOrder, Elements, IsAbelian, IsElementary, IsSimple, ConjugacyClass, ConjugacyClasses, ...

N := Normaliser(G, spg);

H2 := Subgroup(G, G);

how to find the subgroup G which is finite group here?

elist := Elements(H2);
AreConjugate(elist[1], elist[2], N);

originally x and y are not conjugate,

how to prove this make x and y are conjugate by an element of  N if spg is abelian

where x and y are elements of H2 which is subgroup of G, which is finite group

i guess find subgroup with following command, however, normaliser N can not

make elements of x and y conjugate

H2 := Subgroup(Elements(G), G);
elist := Elements(H2);
AreConjugate(elist[2], elist[3], N); #N*elist[1]*N^(-1) = elist[2]

but it is false,

i use G := AlternatingGroup(5); it is true,

does it mean that this theorem is not for all cases?

Good Morning,

This is the script that I have used to to an integration, as the command ''int'' didn't work because the coputation was really heavy.

p_old := 0;

g := 0; #index

E_tot_net_Point := 0;

for g to 2 do

 h := g+1;

 loopstart := SP_time[g];

 loopend := SP_time[h];

  for tt from loopstart by 0.01 to loopend do

   t := tt;

   P_tot_net_Fkt := t -> C_motore[g]*omega_motore[g]

if t≠SP_time[g] and t ≠ SP_time[h] then

 P_tot_net_Point := P_tot_net_Fkt(t);

 P_tot_net_Point_next := P_tot_net_Fkt(t+0.001);

 plt_P_tot_net_plt[t] := pointplot([t, P_tot_net_Point]);

 E_tot_net_Point := E_tot_net_Point+(P_tot_net_Point*0.01);

 plt_E_tot_net_plt[t] := pointplot([t, E_tot_net_Point]);

 p_old := P_tot_net_Point;

end if;      

  end do:

end do:

plots:-display(entries(plt_E_tot_net_plt, 'nolist'), title = "Energy", color = "Red", symbol = point, symbolsize = 20, gridlines = true, size = [1000, 500], labels = ['[s]', '[Watt*s]'], font = [axes, 12])


I have plotted the function as a series of points over the orizontal axis (t).

Now I would like to calculate the last value of the curve (which is itself a point) as a function of the orizontal axes t. How can I do it?

Something like E_tot_net_Point = f(t)

Thank you for the help

I want to build a custom component by the material’s stress-strain curve ,for the component signal input is the x(t)(displacement-time curve), then I can simulate the material’s acceleration-time curve，the stress-strain equation , parameter and the custom component I built has been given in the picture，but the x(t) is same as the s[rel](t),so how to solve this problem? Thanks first.

we have positive number from 1 to 1000. how many time we write number 3?

How to increase the size of toolbar icons in Maple 2015 32-bit Classic on Windows?

How do you put labels on individual columns in ColumnGraph?

a1:= f(x) :
> T1 :=simplify((taylor(a1,x=alpha,N+3))):
> E1:=subs([seq(((D@@i)(f))(alpha) = 0,i=1..m-1),f(alpha)=0,x=e[n]+alpha],T1):
> g1 :=(convert(simplify(series((E1,e[n]=0,N))),polynom));

thanks. I played around, and had problems implementing your ideas for one of the systems I'm interested in.I don't see a difference between this and what you had advised me on, but it gets an error.

any idea why?
or how to fix it?

thing1 := diff(B[1](t), t) = piecewise(t <= 500, 0.3e-2-(63/10000)*B[1](t)-(3/500)*B[2](t), -(3/10000)*B[1](t)):
thing2 := diff(B[1](t), t) = piecewise(t <= 500, 0.1e-1-(1/50)*B[1](t)-(13/625)*B[2](t), -(1/1250)*B[2](t)):
sol := dsolve({thing1, thing2, B[1](0) = 0, B[2](0) = 0}, {B[1](t), B[2](t)}, numeric, output = listprocedure); plots:-odeplot(sol, [B[1](t), B[2](t)], t = 450 .. 550);

Error, (in dsolve/numeric/DAE/explicit) unable to obtain the standard form of the DAE system due to the presence of leading dependent variables/derivatives in the piecewise: piecewise(t <= 500, 1/100-(1/50)*B[1](t)-(13/625)*B[2](t), -(1/1250)*B[2](t))-piecewise(t <= 500, 3/1000-(63/10000)*B[1](t)-(3/500)*B[2](t), -(3/10000)*B[1](t))
Error, (in plots/odeplot) curve is not fully specified in terms of the ODE solution, found additional unknowns {B[1](t), B[2](t)}

how to do differentiation of an ideal in maple?

availables variables : a,b,c

case 1 : all are independent variebles, a,b,c

case 2 : only one independent variable, a

case 3: only one dependent variable a

i find this, but i do not know respect to which variable when differentiate an ideal which has 3 variables and 3 equations

http://www.maplesoft.com/support/help/maple/view.aspx?path=DifferentialAlgebra%2fTools%2fDifferentiate