## Alec Mihailovs

Dr. Aleksandrs Mihailovs

## 4420 Reputation

17 years, 351 days
Mihailovs, Inc.
Owner, President, and CEO
Tyngsboro, Massachusetts, United States

## Social Networks and Content at Maplesoft.com

I received my Ph.D. from the University of Pennsylvania in 1998 and I have been teaching since then at SUNY Oneonta for 1 year, at Shepherd University for 5 years, at Tennessee Tech for 2 years, at Lane College for 1 year, and this year I taught at the University of Massachusetts Lowell. My research interests include Representation Theory and Combinatorics.

## Submissions...

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...

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

## Text vs. 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

## Clifford...

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

Alec

## op and indets...

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

## showstat...

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

## Parentheses...

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

Alec

## Many ways...

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

## The MathML Elements package...

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

Alec

Alec

## writedata...

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

Alec

## Parser...

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.

Alec

## Another possibility...

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...

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

## print or Maplets...

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

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([
[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

 3 4 5 6 7 8 9 Last Page 5 of 76
﻿