Kitonum

13999 Reputation

24 Badges

11 years, 189 days

MaplePrimes Activity


These are answers submitted by Kitonum

A:=Sum(Sum(f[n]*g[q-n]*exp(2*I*Pi*q*x),q = -infinity .. infinity),n = -infinity ..infinity);
Sum(Sum(op([1,1],A),op(2,A)),op([1,2],A));

                                     

The imaginary unit in Maple is coded as  I , not as i.

       

You have already been answered that  Optimization:-Minimize does not solve the problem. But if you are looking for software that does this, then try the  DirectSearch  package. It is not part of the Maple library and must be loaded from  Maple Application Center. See
https://www.maplesoft.com/applications/view.aspx?SID=101333

Example of work:
 

restart;
with(DirectSearch):

f:=sin(3*x)/x;
plot(f,x=0..10);
GlobalSearch(f,[x=0..10]); # All the minimum points
GlobalSearch(f,[x=0..10], maximize); # All the maximum points

f := sin(3*x)/x

 

 

_rtable[4637529922]

 

Array(%id = 4749824450)

(1)


 

Download DS.mw

for c from 1 to 10 do
p||c := plot( x^c, x= -1..1, title= typeset("The power is  ", c) )
end do:
p3;

                        


Edit. As acer showed your problem can be solved in many other ways. But if it is necessary to combine text and more complex math, then I do not know any other simple way than using  typeset . See the example:

f:=cos(3*x)/(x^2+1):
plot(f, x= -4..4, title= typeset("The plot of the function  ", y= f), titlefont=[times,bold,16], scaling=constrained, size=[800,300] );

     


See help for details  ?plot,typesetting

I think the problem with your calculation is that the function  cot(x)  is infinity  if  x=Pi*k , k is integer. But if the integration range does not contain these points, then the integral can be calculated as below:

restart;
U:=(x,z)->-1/(x^2+a^2)*cos(x)*(cos(sqrt(x^2*(x^2+1)/(x^2+2))*z)-cot(sqrt(x^2*(x^2+1)/(x^2+2))*L)*sin(sqrt(x^2*(x^2+1)/(x^2+2))*z));
L:=10: a:=1:
V:=(X,Z)->evalf(Int(U(x,z),[x=0.1..X,z=0.1..Z]));
plot3d(V,0.1..0.4, 0.1..0.4);

     

 


 

Download doubleint.mw

Maple has a huge number of specialized packages, and it is not always easy for a beginner (and often an experienced user) to find the right command and understand all of its options. Fortunately, the same problem can be solved by various methods. If we are talking about plotting some kind of graphic objects, then in addition to the commands of the kernal (plot  and  plot3d), it is very important to master the main commands from the packages  plots  and  plottools . When working with lists, the  ListTools  package is very often used. Below your problem is solved using these packages without the  Statistics  package. This should work on any version of Maple.

L := [1,2,2,2,3,3,4,4,5,5,6,6]:
n:=nops(L);
L1:=ListTools:-Collect(L); m:=nops(L1);
S:=seq(plottools:-rectangle([i-1/2,L1[i,2]/n],[i+1/2,0],color="LightBlue"),i=1..m):
plots:-display(S, view=[0..m+1,0..0.3]);

            


This method allows you to easily diversify the shape of graphic objects. For example, instead of rectangles, it is easy to plot triangles or other shapes.

 

S1:=seq(plottools:-polygon([[i-1/2,0],[i,L1[i,2]/n],[i+1/2,0]],color="LightBlue"),i=1..m):
plots:-display(S1, view=[0..m+1,0..0.3]);

                   

 
Histograms.mw          

 

Everything seems to be working properly (or you expect other answers):

restart;
L:= [1,2,3,4,5,6,7,8];
Statistics:-Quartile(L,1);
Statistics:-Quartile(L,2);
Statistics:-Quartile(L,3);

                                L := [1, 2, 3, 4, 5, 6, 7, 8]
                                2.4166666666666666666
                                4.4999999999999999999
                                6.5833333333333333333

B:=N->Matrix(N+1, {seq((i,i+1)=i, i=1..N)});

Example of use:
B(5);

restart:
x := 12:
y := 46:
s := 0;
'x' = x:
'y' = y:
'`résultat`' = s: k:=0:
while 0 < y do
if type(y, odd) then s := s + x:
y := y - 1:
else x := 2*x:
y := y/2:
end if;
k:=k+1; L[k] := [x, y, s];
end do;

op~(convert(L,list));

 

Example of use:

combinat:-partition(4);
           
 [[1, 1, 1, 1], [1, 1, 2], [2, 2], [1, 3], [4]]


You may be interested in this post  https://www.mapleprimes.com/users/Kitonum/posts?page=6

If you add one more parameter (I added  m ), Maple will find a huge number of solutions. Below is found and built the plot for one solution:

 

restart;
Eq:=abs(a*x+b)+abs(c*x+d)+m*x^2+n*x+p = 0;
f:=x-> abs(a*x+b)+abs(c*x+d)+m*x^2+n*x+p;
Sol:=solve([f(1) = 0, f(2) = 0, f(3) = 0, f(4) = 0, f(5) = 0, f(6) = 0], [a, b, c, d, m, n, p]);
a,b,c,d:=-1,6,2,3;
m:=rhs(Sol[1,5]); n:=rhs(Sol[1,6]); p:=rhs(Sol[1,7]);
Eq;
plot(lhs(Eq), x=0..7);

abs(a*x+b)+abs(c*x+d)+m*x^2+n*x+p = 0

 

proc (x) options operator, arrow; abs(a*x+b)+abs(c*x+d)+m*x^2+n*x+p end proc

 

Warning, returning only the first 100 solutions, increase _MaxSols to see more solutions

 

[[a < 0, -6*a <= b, 0 <= c, -c <= d, m = -(1/2)*abs(a+b)-(1/2)*abs(c+d)+abs(2*a+b)+abs(2*c+d)-(1/2)*abs(3*a+b)-(1/2)*abs(3*c+d), n = -4*abs(2*a+b)-4*abs(2*c+d)+(5/2)*abs(a+b)+(5/2)*abs(c+d)+(3/2)*abs(3*a+b)+(3/2)*abs(3*c+d), p = -abs(3*a+b)-abs(3*c+d)-3*abs(a+b)-3*abs(c+d)+3*abs(2*a+b)+3*abs(2*c+d)], [a < 0, -6*a <= b, c < 0, -6*c <= d, m = -(1/2)*abs(a+b)-(1/2)*abs(c+d)+abs(2*a+b)+abs(2*c+d)-(1/2)*abs(3*a+b)-(1/2)*abs(3*c+d), n = -4*abs(2*a+b)-4*abs(2*c+d)+(5/2)*abs(a+b)+(5/2)*abs(c+d)+(3/2)*abs(3*a+b)+(3/2)*abs(3*c+d), p = -abs(3*a+b)-abs(3*c+d)-3*abs(a+b)-3*abs(c+d)+3*abs(2*a+b)+3*abs(2*c+d)], [0 <= a, -a <= b, c < 0, -6*c <= d, m = -(1/2)*abs(a+b)-(1/2)*abs(c+d)+abs(2*a+b)+abs(2*c+d)-(1/2)*abs(3*a+b)-(1/2)*abs(3*c+d), n = -4*abs(2*a+b)-4*abs(2*c+d)+(5/2)*abs(a+b)+(5/2)*abs(c+d)+(3/2)*abs(3*a+b)+(3/2)*abs(3*c+d), p = -abs(3*a+b)-abs(3*c+d)-3*abs(a+b)-3*abs(c+d)+3*abs(2*a+b)+3*abs(2*c+d)], [0 <= a, -a <= b, 0 <= c, -c <= d, m = -(1/2)*abs(a+b)-(1/2)*abs(c+d)+abs(2*a+b)+abs(2*c+d)-(1/2)*abs(3*a+b)-(1/2)*abs(3*c+d), n = -4*abs(2*a+b)-4*abs(2*c+d)+(5/2)*abs(a+b)+(5/2)*abs(c+d)+(3/2)*abs(3*a+b)+(3/2)*abs(3*c+d), p = -abs(3*a+b)-abs(3*c+d)-3*abs(a+b)-3*abs(c+d)+3*abs(2*a+b)+3*abs(2*c+d)], [a < 0, -6*a <= b, 0 <= c, d < -6*c, m = -(1/2)*abs(a+b)-(1/2)*abs(c+d)+abs(2*a+b)+abs(2*c+d)-(1/2)*abs(3*a+b)-(1/2)*abs(3*c+d), n = -4*abs(2*a+b)-4*abs(2*c+d)+(5/2)*abs(a+b)+(5/2)*abs(c+d)+(3/2)*abs(3*a+b)+(3/2)*abs(3*c+d), p = -abs(3*a+b)-abs(3*c+d)-3*abs(a+b)-3*abs(c+d)+3*abs(2*a+b)+3*abs(2*c+d)], [a < 0, -6*a <= b, c < 0, d < -c, m = -(1/2)*abs(a+b)-(1/2)*abs(c+d)+abs(2*a+b)+abs(2*c+d)-(1/2)*abs(3*a+b)-(1/2)*abs(3*c+d), n = -4*abs(2*a+b)-4*abs(2*c+d)+(5/2)*abs(a+b)+(5/2)*abs(c+d)+(3/2)*abs(3*a+b)+(3/2)*abs(3*c+d), p = -abs(3*a+b)-abs(3*c+d)-3*abs(a+b)-3*abs(c+d)+3*abs(2*a+b)+3*abs(2*c+d)], [0 <= a, -a <= b, 0 <= c, d < -6*c, m = -(1/2)*abs(a+b)-(1/2)*abs(c+d)+abs(2*a+b)+abs(2*c+d)-(1/2)*abs(3*a+b)-(1/2)*abs(3*c+d), n = -4*abs(2*a+b)-4*abs(2*c+d)+(5/2)*abs(a+b)+(5/2)*abs(c+d)+(3/2)*abs(3*a+b)+(3/2)*abs(3*c+d), p = -abs(3*a+b)-abs(3*c+d)-3*abs(a+b)-3*abs(c+d)+3*abs(2*a+b)+3*abs(2*c+d)], [0 <= a, -a <= b, c < 0, d < -c, m = -(1/2)*abs(a+b)-(1/2)*abs(c+d)+abs(2*a+b)+abs(2*c+d)-(1/2)*abs(3*a+b)-(1/2)*abs(3*c+d), n = -4*abs(2*a+b)-4*abs(2*c+d)+(5/2)*abs(a+b)+(5/2)*abs(c+d)+(3/2)*abs(3*a+b)+(3/2)*abs(3*c+d), p = -abs(3*a+b)-abs(3*c+d)-3*abs(a+b)-3*abs(c+d)+3*abs(2*a+b)+3*abs(2*c+d)], [0 <= a, b < -6*a, 0 <= c, -c <= d, m = -(1/2)*abs(a+b)-(1/2)*abs(c+d)+abs(2*a+b)+abs(2*c+d)-(1/2)*abs(3*a+b)-(1/2)*abs(3*c+d), n = -4*abs(2*a+b)-4*abs(2*c+d)+(5/2)*abs(a+b)+(5/2)*abs(c+d)+(3/2)*abs(3*a+b)+(3/2)*abs(3*c+d), p = -abs(3*a+b)-abs(3*c+d)-3*abs(a+b)-3*abs(c+d)+3*abs(2*a+b)+3*abs(2*c+d)], [0 <= a, b < -6*a, c < 0, -6*c <= d, m = -(1/2)*abs(a+b)-(1/2)*abs(c+d)+abs(2*a+b)+abs(2*c+d)-(1/2)*abs(3*a+b)-(1/2)*abs(3*c+d), n = -4*abs(2*a+b)-4*abs(2*c+d)+(5/2)*abs(a+b)+(5/2)*abs(c+d)+(3/2)*abs(3*a+b)+(3/2)*abs(3*c+d), p = -abs(3*a+b)-abs(3*c+d)-3*abs(a+b)-3*abs(c+d)+3*abs(2*a+b)+3*abs(2*c+d)], [a < 0, b < -a, c < 0, -6*c <= d, m = -(1/2)*abs(a+b)-(1/2)*abs(c+d)+abs(2*a+b)+abs(2*c+d)-(1/2)*abs(3*a+b)-(1/2)*abs(3*c+d), n = -4*abs(2*a+b)-4*abs(2*c+d)+(5/2)*abs(a+b)+(5/2)*abs(c+d)+(3/2)*abs(3*a+b)+(3/2)*abs(3*c+d), p = -abs(3*a+b)-abs(3*c+d)-3*abs(a+b)-3*abs(c+d)+3*abs(2*a+b)+3*abs(2*c+d)], [a < 0, b < -a, 0 <= c, -c <= d, m = -(1/2)*abs(a+b)-(1/2)*abs(c+d)+abs(2*a+b)+abs(2*c+d)-(1/2)*abs(3*a+b)-(1/2)*abs(3*c+d), n = -4*abs(2*a+b)-4*abs(2*c+d)+(5/2)*abs(a+b)+(5/2)*abs(c+d)+(3/2)*abs(3*a+b)+(3/2)*abs(3*c+d), p = -abs(3*a+b)-abs(3*c+d)-3*abs(a+b)-3*abs(c+d)+3*abs(2*a+b)+3*abs(2*c+d)], [0 <= a, b < -6*a, 0 <= c, d < -6*c, m = -(1/2)*abs(a+b)-(1/2)*abs(c+d)+abs(2*a+b)+abs(2*c+d)-(1/2)*abs(3*a+b)-(1/2)*abs(3*c+d), n = -4*abs(2*a+b)-4*abs(2*c+d)+(5/2)*abs(a+b)+(5/2)*abs(c+d)+(3/2)*abs(3*a+b)+(3/2)*abs(3*c+d), p = -abs(3*a+b)-abs(3*c+d)-3*abs(a+b)-3*abs(c+d)+3*abs(2*a+b)+3*abs(2*c+d)], [0 <= a, b < -6*a, c < 0, d < -c, m = -(1/2)*abs(a+b)-(1/2)*abs(c+d)+abs(2*a+b)+abs(2*c+d)-(1/2)*abs(3*a+b)-(1/2)*abs(3*c+d), n = -4*abs(2*a+b)-4*abs(2*c+d)+(5/2)*abs(a+b)+(5/2)*abs(c+d)+(3/2)*abs(3*a+b)+(3/2)*abs(3*c+d), p = -abs(3*a+b)-abs(3*c+d)-3*abs(a+b)-3*abs(c+d)+3*abs(2*a+b)+3*abs(2*c+d)], [a < 0, b < -a, 0 <= c, d < -6*c, m = -(1/2)*abs(a+b)-(1/2)*abs(c+d)+abs(2*a+b)+abs(2*c+d)-(1/2)*abs(3*a+b)-(1/2)*abs(3*c+d), n = -4*abs(2*a+b)-4*abs(2*c+d)+(5/2)*abs(a+b)+(5/2)*abs(c+d)+(3/2)*abs(3*a+b)+(3/2)*abs(3*c+d), p = -abs(3*a+b)-abs(3*c+d)-3*abs(a+b)-3*abs(c+d)+3*abs(2*a+b)+3*abs(2*c+d)], [a < 0, b < -a, c < 0, d < -c, m = -(1/2)*abs(a+b)-(1/2)*abs(c+d)+abs(2*a+b)+abs(2*c+d)-(1/2)*abs(3*a+b)-(1/2)*abs(3*c+d), n = -4*abs(2*a+b)-4*abs(2*c+d)+(5/2)*abs(a+b)+(5/2)*abs(c+d)+(3/2)*abs(3*a+b)+(3/2)*abs(3*c+d), p = -abs(3*a+b)-abs(3*c+d)-3*abs(a+b)-3*abs(c+d)+3*abs(2*a+b)+3*abs(2*c+d)], [a = a, b = -4*a, c = c, d = d, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = abs(a)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = -4*abs(a)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [a = a, b = -5*a, c = c, d = d, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = abs(a)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = -5*abs(a)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [0 < a, b = -6*a, c < 0, -6*c <= d, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = abs(a)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = -6*abs(a)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [0 < a, b = -6*a, 0 <= c, -c <= d, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = abs(a)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = -6*abs(a)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [0 < a, b = -6*a, 0 <= c, d < -6*c, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = abs(a)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = -6*abs(a)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [0 < a, b = -6*a, c < 0, d < -c, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = abs(a)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = -6*abs(a)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [a = a, b = b, c = c, d = -4*c, m = -(1/2)*abs(a+b)+abs(2*a+b)-(1/2)*abs(3*a+b), n = -4*abs(2*a+b)+abs(c)+(5/2)*abs(a+b)+(3/2)*abs(3*a+b), p = -abs(3*a+b)-4*abs(c)-3*abs(a+b)+3*abs(2*a+b)], [a = a, b = b, c = c, d = -5*c, m = -(1/2)*abs(a+b)+abs(2*a+b)-(1/2)*abs(3*a+b), n = -4*abs(2*a+b)+abs(c)+(5/2)*abs(a+b)+(3/2)*abs(3*a+b), p = -abs(3*a+b)-5*abs(c)-3*abs(a+b)+3*abs(2*a+b)], [a < 0, -6*a <= b, 0 < c, d = -6*c, m = -(1/2)*abs(a+b)+abs(2*a+b)-(1/2)*abs(3*a+b), n = -4*abs(2*a+b)+abs(c)+(5/2)*abs(a+b)+(3/2)*abs(3*a+b), p = -abs(3*a+b)-6*abs(c)-3*abs(a+b)+3*abs(2*a+b)], [0 <= a, -a <= b, 0 < c, d = -6*c, m = -(1/2)*abs(a+b)+abs(2*a+b)-(1/2)*abs(3*a+b), n = -4*abs(2*a+b)+abs(c)+(5/2)*abs(a+b)+(3/2)*abs(3*a+b), p = -abs(3*a+b)-6*abs(c)-3*abs(a+b)+3*abs(2*a+b)], [0 <= a, b < -6*a, 0 < c, d = -6*c, m = -(1/2)*abs(a+b)+abs(2*a+b)-(1/2)*abs(3*a+b), n = -4*abs(2*a+b)+abs(c)+(5/2)*abs(a+b)+(3/2)*abs(3*a+b), p = -abs(3*a+b)-6*abs(c)-3*abs(a+b)+3*abs(2*a+b)], [a < 0, b < -a, 0 < c, d = -6*c, m = -(1/2)*abs(a+b)+abs(2*a+b)-(1/2)*abs(3*a+b), n = -4*abs(2*a+b)+abs(c)+(5/2)*abs(a+b)+(3/2)*abs(3*a+b), p = -abs(3*a+b)-6*abs(c)-3*abs(a+b)+3*abs(2*a+b)], [a = a, b = -6*a-6*c-d, c = c, d = d, m = -(1/2)*abs(5*a+6*c+d)-(1/2)*abs(c+d)+abs(4*a+6*c+d)+abs(2*c+d)-(1/2)*abs(3*a+6*c+d)-(1/2)*abs(3*c+d), n = -4*abs(4*a+6*c+d)-4*abs(2*c+d)+(5/2)*abs(5*a+6*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*a+6*c+d)+(3/2)*abs(3*c+d), p = -abs(3*a+6*c+d)-abs(3*c+d)-3*abs(5*a+6*c+d)-3*abs(c+d)+3*abs(4*a+6*c+d)+3*abs(2*c+d)], [a = a, b = -6*a+6*c+d, c = c, d = d, m = -(1/2)*abs(5*a-6*c-d)-(1/2)*abs(c+d)+abs(4*a-6*c-d)+abs(2*c+d)-(1/2)*abs(3*a-6*c-d)-(1/2)*abs(3*c+d), n = -4*abs(4*a-6*c-d)-4*abs(2*c+d)+(5/2)*abs(5*a-6*c-d)+(5/2)*abs(c+d)+(3/2)*abs(3*a-6*c-d)+(3/2)*abs(3*c+d), p = -abs(3*a-6*c-d)-abs(3*c+d)-3*abs(5*a-6*c-d)-3*abs(c+d)+3*abs(4*a-6*c-d)+3*abs(2*c+d)], [a = a, b = -5*a-5*c-d, c = c, d = d, m = -(1/2)*abs(4*a+5*c+d)-(1/2)*abs(c+d)+abs(3*a+5*c+d)+abs(2*c+d)-(1/2)*abs(2*a+5*c+d)-(1/2)*abs(3*c+d), n = -4*abs(3*a+5*c+d)-4*abs(2*c+d)+(5/2)*abs(4*a+5*c+d)+(5/2)*abs(c+d)+(3/2)*abs(2*a+5*c+d)+(3/2)*abs(3*c+d), p = -abs(2*a+5*c+d)-abs(3*c+d)-3*abs(4*a+5*c+d)-3*abs(c+d)+3*abs(3*a+5*c+d)+3*abs(2*c+d)], [a = a, b = -5*a+5*c+d, c = c, d = d, m = -(1/2)*abs(4*a-5*c-d)-(1/2)*abs(c+d)+abs(3*a-5*c-d)+abs(2*c+d)-(1/2)*abs(2*a-5*c-d)-(1/2)*abs(3*c+d), n = -4*abs(3*a-5*c-d)-4*abs(2*c+d)+(5/2)*abs(4*a-5*c-d)+(5/2)*abs(c+d)+(3/2)*abs(2*a-5*c-d)+(3/2)*abs(3*c+d), p = -abs(2*a-5*c-d)-abs(3*c+d)-3*abs(4*a-5*c-d)-3*abs(c+d)+3*abs(3*a-5*c-d)+3*abs(2*c+d)], [a = a, b = -4*a-4*c-d, c = c, d = d, m = -(1/2)*abs(3*a+4*c+d)-(1/2)*abs(c+d)+abs(2*a+4*c+d)+abs(2*c+d)-(1/2)*abs(a+4*c+d)-(1/2)*abs(3*c+d), n = -4*abs(2*a+4*c+d)-4*abs(2*c+d)+(5/2)*abs(3*a+4*c+d)+(5/2)*abs(c+d)+(3/2)*abs(a+4*c+d)+(3/2)*abs(3*c+d), p = -abs(a+4*c+d)-abs(3*c+d)-3*abs(3*a+4*c+d)-3*abs(c+d)+3*abs(2*a+4*c+d)+3*abs(2*c+d)], [a = a, b = -4*a+4*c+d, c = c, d = d, m = -(1/2)*abs(3*a-4*c-d)-(1/2)*abs(c+d)+abs(2*a-4*c-d)+abs(2*c+d)-(1/2)*abs(a-4*c-d)-(1/2)*abs(3*c+d), n = -4*abs(2*a-4*c-d)-4*abs(2*c+d)+(5/2)*abs(3*a-4*c-d)+(5/2)*abs(c+d)+(3/2)*abs(a-4*c-d)+(3/2)*abs(3*c+d), p = -abs(a-4*c-d)-abs(3*c+d)-3*abs(3*a-4*c-d)-3*abs(c+d)+3*abs(2*a-4*c-d)+3*abs(2*c+d)], [0 < a, b = -6*a, 0 < c, d = -6*c, m = 0, n = abs(a)+abs(c), p = -6*abs(a)-6*abs(c)], [a = a, b = -4*a, c = c, d = -5*c, m = 0, n = abs(a)+abs(c), p = -4*abs(a)-5*abs(c)], [a = a, b = -4*a, c = c, d = -6*c, m = 0, n = abs(a)+abs(c), p = -4*abs(a)-6*abs(c)], [a = 5*c+d, b = -20*c-4*d, c = c, d = d, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = abs(5*c+d)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = -4*abs(5*c+d)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [a = -5*c-d, b = 20*c+4*d, c = c, d = d, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = abs(5*c+d)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = -4*abs(5*c+d)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [a = a, b = -4*a, c = c, d = 2*a-6*c, m = -(1/2)*abs(2*a-5*c)+2*abs(a-2*c)-(1/2)*abs(2*a-3*c), n = abs(a)-8*abs(a-2*c)+(5/2)*abs(2*a-5*c)+(3/2)*abs(2*a-3*c), p = -4*abs(a)-abs(2*a-3*c)-3*abs(2*a-5*c)+6*abs(a-2*c)], [a = a, b = -4*a, c = c, d = -2*a-6*c, m = -(1/2)*abs(2*a+5*c)+2*abs(a+2*c)-(1/2)*abs(2*a+3*c), n = abs(a)-8*abs(a+2*c)+(5/2)*abs(2*a+5*c)+(3/2)*abs(2*a+3*c), p = -4*abs(a)-abs(2*a+3*c)-3*abs(2*a+5*c)+6*abs(a+2*c)], [a = a, b = -5*a, c = c, d = -4*c, m = 0, n = abs(a)+abs(c), p = -5*abs(a)-4*abs(c)], [a = a, b = -5*a, c = c, d = -6*c, m = 0, n = abs(a)+abs(c), p = -5*abs(a)-6*abs(c)], [a = -4*c-d, b = 20*c+5*d, c = c, d = d, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = abs(4*c+d)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = -5*abs(4*c+d)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [a = 4*c+d, b = -20*c-5*d, c = c, d = d, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = abs(4*c+d)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = -5*abs(4*c+d)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [a = 6*c+d, b = -30*c-5*d, c = c, d = d, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = abs(6*c+d)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = -5*abs(6*c+d)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [a = -6*c-d, b = 30*c+5*d, c = c, d = d, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = abs(6*c+d)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = -5*abs(6*c+d)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [a = a, b = -6*a, c = c, d = -4*c, m = 0, n = abs(a)+abs(c), p = -6*abs(a)-4*abs(c)], [a = a, b = -6*a, c = c, d = -5*c, m = 0, n = abs(a)+abs(c), p = -6*abs(a)-5*abs(c)], [a = a, b = -6*a, c = c, d = -2*a-4*c, m = -(1/2)*abs(2*a+3*c)+2*abs(a+c)-(1/2)*abs(2*a+c), n = abs(a)-8*abs(a+c)+(5/2)*abs(2*a+3*c)+(3/2)*abs(2*a+c), p = -6*abs(a)-abs(2*a+c)-3*abs(2*a+3*c)+6*abs(a+c)], [a = a, b = -6*a, c = c, d = 2*a-4*c, m = -(1/2)*abs(2*a-3*c)+2*abs(a-c)-(1/2)*abs(2*a-c), n = abs(a)-8*abs(a-c)+(5/2)*abs(2*a-3*c)+(3/2)*abs(2*a-c), p = -6*abs(a)-abs(2*a-c)-3*abs(2*a-3*c)+6*abs(a-c)], [a = -5*c-d, b = 30*c+6*d, c = c, d = d, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = abs(5*c+d)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = -6*abs(5*c+d)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [a = 5*c+d, b = -30*c-6*d, c = c, d = d, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = abs(5*c+d)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = -6*abs(5*c+d)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [a = a, b = -6*a+2*c, c = c, d = -4*c, m = -(1/2)*abs(5*a-2*c)+2*abs(2*a-c)-(1/2)*abs(3*a-2*c), n = -8*abs(2*a-c)+abs(c)+(5/2)*abs(5*a-2*c)+(3/2)*abs(3*a-2*c), p = -abs(3*a-2*c)-4*abs(c)-3*abs(5*a-2*c)+6*abs(2*a-c)], [a = a, b = -5*a+c, c = c, d = -4*c, m = -(1/2)*abs(4*a-c)+abs(3*a-c)-(1/2)*abs(2*a-c), n = -4*abs(3*a-c)+abs(c)+(5/2)*abs(4*a-c)+(3/2)*abs(2*a-c), p = -abs(2*a-c)-4*abs(c)-3*abs(4*a-c)+3*abs(3*a-c)], [a = a, b = -5*a-c, c = c, d = -4*c, m = -(1/2)*abs(4*a+c)+abs(3*a+c)-(1/2)*abs(2*a+c), n = -4*abs(3*a+c)+abs(c)+(5/2)*abs(4*a+c)+(3/2)*abs(2*a+c), p = -abs(2*a+c)-4*abs(c)-3*abs(4*a+c)+3*abs(3*a+c)], [a = a, b = -6*a-2*c, c = c, d = -4*c, m = -(1/2)*abs(5*a+2*c)+2*abs(2*a+c)-(1/2)*abs(3*a+2*c), n = -8*abs(2*a+c)+abs(c)+(5/2)*abs(5*a+2*c)+(3/2)*abs(3*a+2*c), p = -abs(3*a+2*c)-4*abs(c)-3*abs(5*a+2*c)+6*abs(2*a+c)], [a = a, b = -6*a+c, c = c, d = -5*c, m = -(1/2)*abs(5*a-c)+abs(4*a-c)-(1/2)*abs(3*a-c), n = -4*abs(4*a-c)+abs(c)+(5/2)*abs(5*a-c)+(3/2)*abs(3*a-c), p = -abs(3*a-c)-5*abs(c)-3*abs(5*a-c)+3*abs(4*a-c)], [a = a, b = -4*a-c, c = c, d = -5*c, m = -(1/2)*abs(3*a+c)+abs(2*a+c)-(1/2)*abs(a+c), n = -4*abs(2*a+c)+abs(c)+(5/2)*abs(3*a+c)+(3/2)*abs(a+c), p = -abs(a+c)-5*abs(c)-3*abs(3*a+c)+3*abs(2*a+c)], [a = a, b = -4*a+c, c = c, d = -5*c, m = -(1/2)*abs(3*a-c)+abs(2*a-c)-(1/2)*abs(a-c), n = -4*abs(2*a-c)+abs(c)+(5/2)*abs(3*a-c)+(3/2)*abs(a-c), p = -abs(a-c)-5*abs(c)-3*abs(3*a-c)+3*abs(2*a-c)], [a = a, b = -6*a-c, c = c, d = -5*c, m = -(1/2)*abs(5*a+c)+abs(4*a+c)-(1/2)*abs(3*a+c), n = -4*abs(4*a+c)+abs(c)+(5/2)*abs(5*a+c)+(3/2)*abs(3*a+c), p = -abs(3*a+c)-5*abs(c)-3*abs(5*a+c)+3*abs(4*a+c)], [a = a, b = -5*a-c, c = c, d = -6*c, m = -(1/2)*abs(4*a+c)+abs(3*a+c)-(1/2)*abs(2*a+c), n = -4*abs(3*a+c)+abs(c)+(5/2)*abs(4*a+c)+(3/2)*abs(2*a+c), p = -abs(2*a+c)-6*abs(c)-3*abs(4*a+c)+3*abs(3*a+c)], [a = a, b = -4*a-2*c, c = c, d = -6*c, m = -(1/2)*abs(3*a+2*c)+2*abs(a+c)-(1/2)*abs(a+2*c), n = -8*abs(a+c)+abs(c)+(5/2)*abs(3*a+2*c)+(3/2)*abs(a+2*c), p = -abs(a+2*c)-6*abs(c)-3*abs(3*a+2*c)+6*abs(a+c)], [a = a, b = -4*a+2*c, c = c, d = -6*c, m = -(1/2)*abs(3*a-2*c)+2*abs(a-c)-(1/2)*abs(a-2*c), n = -8*abs(a-c)+abs(c)+(5/2)*abs(3*a-2*c)+(3/2)*abs(a-2*c), p = -abs(a-2*c)-6*abs(c)-3*abs(3*a-2*c)+6*abs(a-c)], [a = a, b = -5*a+c, c = c, d = -6*c, m = -(1/2)*abs(4*a-c)+abs(3*a-c)-(1/2)*abs(2*a-c), n = -4*abs(3*a-c)+abs(c)+(5/2)*abs(4*a-c)+(3/2)*abs(2*a-c), p = -abs(2*a-c)-6*abs(c)-3*abs(4*a-c)+3*abs(3*a-c)], [a = -c, b = -d, c = c, d = d, m = -abs(c+d)+2*abs(2*c+d)-abs(3*c+d), n = -8*abs(2*c+d)+5*abs(c+d)+3*abs(3*c+d), p = -2*abs(3*c+d)-6*abs(c+d)+6*abs(2*c+d)], [a = c, b = d, c = c, d = d, m = -abs(c+d)+2*abs(2*c+d)-abs(3*c+d), n = -8*abs(2*c+d)+5*abs(c+d)+3*abs(3*c+d), p = -2*abs(3*c+d)-6*abs(c+d)+6*abs(2*c+d)], [a = a, b = -3*a, c = c, d = d, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = abs(a)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = -abs(3*c+d)-3*abs(a)-3*abs(c+d)+3*abs(2*c+d)], [a = a, b = -3*a, c = c, d = -4*c, m = 0, n = abs(a)+abs(c), p = -4*abs(c)-3*abs(a)], [a = 4*c+d, b = -12*c-3*d, c = c, d = d, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = abs(4*c+d)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = -abs(3*c+d)-3*abs(4*c+d)-3*abs(c+d)+3*abs(2*c+d)], [a = -4*c-d, b = 12*c+3*d, c = c, d = d, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = abs(4*c+d)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = -abs(3*c+d)-3*abs(4*c+d)-3*abs(c+d)+3*abs(2*c+d)], [a = a, b = -3*a, c = c, d = -5*c, m = 0, n = abs(a)+abs(c), p = -5*abs(c)-3*abs(a)], [a = a, b = -3*a, c = c, d = 2*a-5*c, m = -abs(a-2*c)+abs(2*a-3*c)-abs(a-c), n = abs(a)-4*abs(2*a-3*c)+5*abs(a-2*c)+3*abs(a-c), p = -2*abs(a-c)-3*abs(a)-6*abs(a-2*c)+3*abs(2*a-3*c)], [a = a, b = -3*a, c = c, d = -2*a-5*c, m = -abs(a+2*c)+abs(2*a+3*c)-abs(a+c), n = abs(a)-4*abs(2*a+3*c)+5*abs(a+2*c)+3*abs(a+c), p = -2*abs(a+c)-3*abs(a)-6*abs(a+2*c)+3*abs(2*a+3*c)], [a = a, b = -3*a, c = c, d = -6*c, m = 0, n = abs(a)+abs(c), p = -6*abs(c)-3*abs(a)], [a = a, b = -3*a, c = c, d = 3*a-6*c, m = -(1/2)*abs(3*a-5*c)+abs(3*a-4*c)-(3/2)*abs(a-c), n = abs(a)-4*abs(3*a-4*c)+(5/2)*abs(3*a-5*c)+(9/2)*abs(a-c), p = -3*abs(a-c)-3*abs(a)-3*abs(3*a-5*c)+3*abs(3*a-4*c)], [a = a, b = -3*a, c = c, d = -3*a-6*c, m = -(1/2)*abs(3*a+5*c)+abs(3*a+4*c)-(3/2)*abs(a+c), n = abs(a)-4*abs(3*a+4*c)+(5/2)*abs(3*a+5*c)+(9/2)*abs(a+c), p = -3*abs(a+c)-3*abs(a)-3*abs(3*a+5*c)+3*abs(3*a+4*c)], [a = -b, 0 < b, c < 0, -6*c <= d, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = -abs(b)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = abs(b)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [a = -b, 0 < b, 0 <= c, -c <= d, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = -abs(b)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = abs(b)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [a = -b, 0 < b, 0 <= c, d < -6*c, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = -abs(b)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = abs(b)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [a = -b, 0 < b, c < 0, d < -c, m = -(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = -abs(b)-4*abs(2*c+d)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = abs(b)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [a = -b, b = b, c = c, d = -3*b-4*c, m = -(3/2)*abs(b+c)+abs(2*c+3*b)-(1/2)*abs(3*b+c), n = -abs(b)-4*abs(2*c+3*b)+(15/2)*abs(b+c)+(3/2)*abs(3*b+c), p = abs(b)-abs(3*b+c)-9*abs(b+c)+3*abs(2*c+3*b)], [a = -b, b = b, c = c, d = 3*b-4*c, m = -(3/2)*abs(b-c)+abs(-2*c+3*b)-(1/2)*abs(-c+3*b), n = -abs(b)-4*abs(-2*c+3*b)+(15/2)*abs(b-c)+(3/2)*abs(-c+3*b), p = abs(b)-abs(-c+3*b)-9*abs(b-c)+3*abs(-2*c+3*b)], [a = -b, b = b, c = c, d = -4*c, m = 0, n = -abs(b)+abs(c), p = abs(b)-4*abs(c)], [a = -b, b = b, c = c, d = -5*c, m = 0, n = -abs(b)+abs(c), p = abs(b)-5*abs(c)], [a = -b, b = b, c = c, d = -4*b-5*c, m = -2*abs(b+c)+abs(3*c+4*b)-abs(c+2*b), n = -abs(b)-4*abs(3*c+4*b)+10*abs(b+c)+3*abs(c+2*b), p = abs(b)-2*abs(c+2*b)-12*abs(b+c)+3*abs(3*c+4*b)], [a = -b, b = b, c = c, d = 4*b-5*c, m = -2*abs(b-c)+abs(-3*c+4*b)-abs(-c+2*b), n = -abs(b)-4*abs(-3*c+4*b)+10*abs(b-c)+3*abs(-c+2*b), p = abs(b)-2*abs(-c+2*b)-12*abs(b-c)+3*abs(-3*c+4*b)], [a = a, b = b, c = c, d = d, m = m, n = n, p = p], [a = -b, b = b, c = c, d = -5*b-6*c, m = -(5/2)*abs(b+c)+abs(4*c+5*b)-(1/2)*abs(3*c+5*b), n = -abs(b)-4*abs(4*c+5*b)+(25/2)*abs(b+c)+(3/2)*abs(3*c+5*b), p = abs(b)-abs(3*c+5*b)-15*abs(b+c)+3*abs(4*c+5*b)], [a = -b, b = b, c = c, d = 5*b-6*c, m = -(5/2)*abs(b-c)+abs(-4*c+5*b)-(1/2)*abs(-3*c+5*b), n = -abs(b)-4*abs(-4*c+5*b)+(25/2)*abs(b-c)+(3/2)*abs(-3*c+5*b), p = abs(b)-abs(-3*c+5*b)-15*abs(b-c)+3*abs(-4*c+5*b)], [a = -b, 0 < b, 0 < c, d = -6*c, m = 0, n = -abs(b)+abs(c), p = abs(b)-6*abs(c)], [a = a, b = -2*a, c = c, d = d, m = -abs(a)-(1/2)*abs(c+d)+abs(2*c+d)-(1/2)*abs(3*c+d), n = -4*abs(2*c+d)+4*abs(a)+(5/2)*abs(c+d)+(3/2)*abs(3*c+d), p = -4*abs(a)-abs(3*c+d)-3*abs(c+d)+3*abs(2*c+d)], [a = a, b = -2*a, c = c, d = -6*c, m = -abs(a), n = abs(c)+4*abs(a), p = -4*abs(a)-6*abs(c)], [a = a, b = -2*a, c = c, d = 4*a-6*c, m = -abs(a)-(1/2)*abs(4*a-5*c)+4*abs(a-c)-(1/2)*abs(4*a-3*c), n = -16*abs(a-c)+4*abs(a)+(5/2)*abs(4*a-5*c)+(3/2)*abs(4*a-3*c), p = -4*abs(a)-abs(4*a-3*c)-3*abs(4*a-5*c)+12*abs(a-c)], [a = a, b = -2*a, c = c, d = -4*a-6*c, m = -abs(a)-(1/2)*abs(4*a+5*c)+4*abs(a+c)-(1/2)*abs(4*a+3*c), n = -16*abs(a+c)+4*abs(a)+(5/2)*abs(4*a+5*c)+(3/2)*abs(4*a+3*c), p = -4*abs(a)-abs(4*a+3*c)-3*abs(4*a+5*c)+12*abs(a+c)], [a = a, b = -2*a, c = c, d = -5*c, m = -abs(a), n = abs(c)+4*abs(a), p = -4*abs(a)-5*abs(c)], [a = a, b = -2*a, c = c, d = 3*a-5*c, m = -abs(a)-(1/2)*abs(3*a-4*c)+3*abs(a-c)-(1/2)*abs(3*a-2*c), n = -12*abs(a-c)+4*abs(a)+(5/2)*abs(3*a-4*c)+(3/2)*abs(3*a-2*c), p = -4*abs(a)-abs(3*a-2*c)-3*abs(3*a-4*c)+9*abs(a-c)], [a = a, b = -2*a, c = c, d = -3*a-5*c, m = -abs(a)-(1/2)*abs(3*a+4*c)+3*abs(a+c)-(1/2)*abs(3*a+2*c), n = -12*abs(a+c)+4*abs(a)+(5/2)*abs(3*a+4*c)+(3/2)*abs(3*a+2*c), p = -4*abs(a)-abs(3*a+2*c)-3*abs(3*a+4*c)+9*abs(a+c)], [a = a, b = -2*a, c = c, d = -4*c, m = -abs(a), n = abs(c)+4*abs(a), p = -4*abs(a)-4*abs(c)], [a = a, b = -2*a, c = c, d = 2*a-4*c, m = -abs(a)-(1/2)*abs(2*a-3*c)+2*abs(a-c)-(1/2)*abs(2*a-c), n = -8*abs(a-c)+4*abs(a)+(5/2)*abs(2*a-3*c)+(3/2)*abs(2*a-c), p = -4*abs(a)-abs(2*a-c)-3*abs(2*a-3*c)+6*abs(a-c)]]

 

-1, 6, 2, 3

 

0

 

-1

 

-9

 

abs(x-6)+abs(2*x+3)-9-x = 0

 

 

 


 

Download Equation.mw

Yes, I can confirm that the legend option does not work (I checked in Maple 2018.2). In a sense, this is natural, because legend option is associated with the image of curves, rather than regions. Use  caption  instead, as in the example below:

plots:-inequal(x^2+y^2<=1, x = -1.2..1.2,y=-1.2..1.2, caption = typeset("A region of  ", x^2+y^2<=1, "."), captionfont=[times,bold,16], scaling=constrained);

                            

You can put this text anywhere on the screen. See  ?plot,typesetting


If you need to put legends for curves, you can do as below:

A:=plots:-inequal(x^2+y^2<=1, x = -1.2..1.2,y=-1.2..1.2, color=pink, title = typeset("A region of  ", x^2+y^2<=1, "."), titlefont=[times,bold,18], scaling=constrained):
B:=plots:-implicitplot(x^2+y^2=1, x = -1.2..1.2,y=-1.2..1.2, color=red, thickness=3, legend = typeset("A curve of  ", x^2+y^2=1, "."), legendstyle=[font=[times,14]]):
plots:-display(A,B); 

                    

 

 

Do a double loop: in the internal one place what you want to suppress, and in the external one everything else and end with a semicolon as in the example:

restart;
for i from 1 to 3 do
for j from 1 to 1 do    
    A := x;
 end;  
B:=C;
end;

 

It is better to always end a loop with the colon, and if you need to see something in the body of the loop as it is executed, then use  print  as in the example:

for i from 1 to 3 do    
    A := x:
   B := C;
print(%);
end:

 

 eq:=s=1+2*((tau-t)/T0); 
EQ:=int(f1(t-tau)*(Sum(y[k]*F[k](tau), k = 0 .. M)), tau = t-T0 .. t);
IntegrationTools:-Change(EQ, eq, s);

 

I do not understand what you are trying to do. Why not just write the following 2 lines and it will be beautiful:

restart;
eq := piecewise(t < 1, sin(t), cos(t));
DocumentTools:-Tabulate(<eq, plot(eq, discont)>, width=50):

                

 

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