Whether Maplesoft would be interested, or not, some people on this site would be interested for sure, so it may be a good idea to submit your material here.

By the way, Maplesoft also has series of interactive applications online including integration.

While Wolfram's online integrator is good, Wolfram|Alpha is even better, and one can submit his/her/its materials there as well.

Alec

For example,

interface(rtablesize=12):
A:=Matrix(3,6,1);

                       [1    1    1    1    1    1]
                       [                          ]
                  A := [1    1    1    1    1    1]
                       [                          ]
                       [1    1    1    1    1    1]

B:=Matrix(3,6,2);

                       [2    2    2    2    2    2]
                       [                          ]
                  B := [2    2    2    2    2    2]
                       [                          ]
                       [2    2    2    2    2    2]

C:=Matrix(3,12,3);

              [3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3]
              [                                             ]
         C := [3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3]
              [                                             ]
              [3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3]

D0:=<A,B;C>;

              [1 , 1 , 1 , 1 , 1 , 1 , 2 , 2 , 2 , 2 , 2 , 2]
              [                                             ]
              [1 , 1 , 1 , 1 , 1 , 1 , 2 , 2 , 2 , 2 , 2 , 2]
              [                                             ]
              [1 , 1 , 1 , 1 , 1 , 1 , 2 , 2 , 2 , 2 , 2 , 2]
        D0 := [                                             ]
              [3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3]
              [                                             ]
              [3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3]
              [                                             ]
              [3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3]

D1:=<<A|B>,C>;

              [1 , 1 , 1 , 1 , 1 , 1 , 2 , 2 , 2 , 2 , 2 , 2]
              [                                             ]
              [1 , 1 , 1 , 1 , 1 , 1 , 2 , 2 , 2 , 2 , 2 , 2]
              [                                             ]
              [1 , 1 , 1 , 1 , 1 , 1 , 2 , 2 , 2 , 2 , 2 , 2]
        D1 := [                                             ]
              [3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3]
              [                                             ]
              [3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3]
              [                                             ]
              [3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3]

Note that D is reserved in Maple (for function derivatives), so it can't be used as a Matrix name (unless it is unprotected first, which is not, generally, a good idea).

Another way is

use ArrayTools in D2:=Concatenate(1,Concatenate(2,A,B),C) end;

              [1 , 1 , 1 , 1 , 1 , 1 , 2 , 2 , 2 , 2 , 2 , 2]
              [                                             ]
              [1 , 1 , 1 , 1 , 1 , 1 , 2 , 2 , 2 , 2 , 2 , 2]
              [                                             ]
              [1 , 1 , 1 , 1 , 1 , 1 , 2 , 2 , 2 , 2 , 2 , 2]
        D2 := [                                             ]
              [3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3]
              [                                             ]
              [3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3]
              [                                             ]
              [3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3]

and another one is

use MTM in D3:=vertcat(horzcat(A,B),C) end;

              [1 , 1 , 1 , 1 , 1 , 1 , 2 , 2 , 2 , 2 , 2 , 2]
              [                                             ]
              [1 , 1 , 1 , 1 , 1 , 1 , 2 , 2 , 2 , 2 , 2 , 2]
              [                                             ]
              [1 , 1 , 1 , 1 , 1 , 1 , 2 , 2 , 2 , 2 , 2 , 2]
        D3 := [                                             ]
              [3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3]
              [                                             ]
              [3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3]
              [                                             ]
              [3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3]

Alec

Could you please repost with a text input instead of images.

What you posted is impossible (or, maybe, possible through the alt text, but it is not easy, because there are too many equations and/or assignments) to copy and paste in Maple, and I (and I guess, other people who could help you, too) don't have time to retype everything.

Just input - output is not necessary (we can get it ourselves).

Not everybody is up to opening an unknown .mw file on their systems, especially from a user with 0 reputation.

Otherwise, you question seems rather simple. Did you try to use solve?

I'm not saying that it works - but it is supposed to work for such type of problems.

Alec

The Clifford package by Rafal Ablamowicz and Bertfried Fauser is specifically designed for that.

Alec

p21 is a 2-element sequence. The Arrays that you are trying to print, are in p21[1]. Instead of getting them through op (in the 4th line from the bottom), it is easier to get them through indets,

Q1:=indets(p21[1],Array):

Alec

The main code can be seen in

showstat(`evalf/MathieuExponent/main`);

It is rather old - it uses arrays which are deprecated now in Maple.

Alec

In Maple, square brackets are used for lists. Replace them with regular (round) parentheses in eq2, and the solve will give an answer.

Alec

For example,

<seq('0,1/i',i=2..5)>;

Vector(8,i->`if`(i::even,2/(i+2),0));

Vector(8,i->(1+(-1)^i)/(i+2));

Vector(8,i->(i+1 mod 2)*2/(i+2));

V:=Vector(8): for i to 4 do V[2*i]:=1/(i+1) od: V;

V:=Vector(): for i to 4 do V(2*i):=1/(i+1) od: V;

Vector(map2(`[]`,0,1/~[$2..5]));

Vector(zip(`[]`,0,1/~[$2..5]));

Vector([0,op(ListTools:-Join(1/~[$2..5],0))]);

Vector(ListTools:-Interleave([0$4],1/~[$2..5]));

ArrayTools:-Reshape(<Vector[row](4),Vector[row](4,i->1/(i+1))>,8);

Vector(8,gfun:-seriestolist(series(-1/x-ln(1-x^2)/x^3,x,11)));

PolynomialTools:-CoefficientVector(convert(series(-1/x-ln(1-x^2)/x^3,x,11),polynom),x);

Vector(gfun:-seriestolist(series((-4+4*cosh(x)-4*x*sinh(x)+2*cosh(x)*x^2)/x^3,x,11),Laplace));

Alec

Perhaps, you could use Douglas Wilhelm Harder's MathML Elements package.

Alec

Your questions were recently answered here and here.

Alec

writedata("c:/temp/implotdata.txt",op(Q1));

Alec

You need a parser for that and XMLTools:-ParseString doesn't work because the markup is not well-formed.

s:=HTTP:-Get("http://www.mapleprimes.com/questions/120321-Use-Maple-To-Save-A-Webpage-As-Text")[2]:
XMLTools:-ParseString(s);
Error, (in XMLTools:-ParseString) The prefix "fb" for element "fb:share-button" is not bound.

So you have to either write your own parser - which for some specific websites, like this one, is not that complicated - search s for "<h1>", "</h1>" etc., or use existing ones outside of Maple - say using Python or Lynx.

Alec

PS Just tried both lynx and links in cygwin, and links processed tables properly (well, more or less - but readable) while lynx - not.

lynx -dump http://en.wikipedia.org/wiki/List_of_HTTP_headers >test1.txt

links -dump http://en.wikipedia.org/wiki/List_of_HTTP_headers >test2.txt

Alec

Another possibility of what "numbers which are inside of that polygon" could mean is that the numbers could be located "inside" vertices, in which case the GraphTheory:-DrawGraph can be used as in ?GraphTheory[SpecialGraphs][IcosahedronGraph] examples.

Alec

In this particular example, assuming that beta and Q are real, the denominator is a sum of 2 squares, so it is positive, and a square root of a non-real number has the same sign of the imaginary part as that number.

So if beta*Q>0, then the elements with positive imaginary part are

select(t->sign(t*indets(t,imaginary)[])=1,t1);

If beta*Q<0, then they are

remove(t->sign(t*indets(t,imaginary)[])=1,t1);

and it's easy to figure out that if beta*Q=0, then they are

select(t->sign(t)=1,t1);

Alec

The following may be not exactly what you would like to have, but it produces a 2D-output,

P := f->print(`Your function is: `*f):

P(x^2);

                                            2
                        Your function is:  x

P(x^2+y^2);
                                          2    2
                     Your function is:  (x  + y )

Many people use Maplets for user interaction. For example, as

M:=proc(f)
local maplet;
uses Maplets, Maplets:-Elements;
maplet := Maplet([
   [BoxCell("Your function is:")],
   [MathMLViewer('value' = MathML[Export](f))],
   [Button("OK", Shutdown())]
]);
Display(maplet)
end:

M(x^2+y^2);

Embedded components also could be used instead of a Maplet, I guess, but there was no a convenient access to them programmatically in Maple 14 and I don't have Maple 15 to check if the situation is better there.

Alec