herclau

Mr. Hermes Rozsa Iglesias

1038 Reputation

13 Badges

20 years, 167 days

MaplePrimes Activity


These are replies submitted by herclau

 

You can use Excel and then import into Maple using the command ExcelTools[Import]

The steps in excel are:

 

 

Now you can use the command ExcelTools[Import]

Hope it helps

 

I need your guidance. I can not make subscriciones questions to issues of interest to me. Through subscription label. For some time I have to write down the web addresses of interest questions or discussions in which I participated, on a sheet of Notepad. Then go for the checking.

 

L[1 .. 2, 1] := 90;is an assignment, to show type: L;

restart

``

m := 3

L := 10*Matrix(2, m, 1)

Matrix([[90, 10, 10], [90, 10, 10]])

(1)

L[1 .. 2, 1] := 90

90

(2)

L

Matrix([[90, 10, 10], [90, 10, 10]])

(3)

NULL

v := Matrix(2, m, proc (i, j) options operator, arrow; convert(L[() .. (), j], `+`) end proc)

Matrix([[180, 20, 20], [180, 20, 20]])

(4)

``


Download MathLabMaple.mw

 

 

L[1 .. 2, 1] := 90;is an assignment, to show type: L;

restart

``

m := 3

L := 10*Matrix(2, m, 1)

Matrix([[90, 10, 10], [90, 10, 10]])

(1)

L[1 .. 2, 1] := 90

90

(2)

L

Matrix([[90, 10, 10], [90, 10, 10]])

(3)

NULL

v := Matrix(2, m, proc (i, j) options operator, arrow; convert(L[() .. (), j], `+`) end proc)

Matrix([[180, 20, 20], [180, 20, 20]])

(4)

``


Download MathLabMaple.mw

 

 

It could be:

restart;

 m := 3;

 L := 10*Matrix(2, m, 1);

L[1 .. 2, 1] := 90;

L;

 v := Matrix(2, m, (i,j)-> convert(L[ .., j], `+`) );

 Hopefully that will help us improve

Gracias

@ThU

I also had problems with this command!

a := [8*cos(3*theta), 4-2.5*cos(theta)]

[8*cos(3*theta), 4-2.5*cos(theta)]

(1)

(2)

plots:-display(map(plots:-polarplot, a, color = ["Red", "Blue"]))

 

plots:-display(map(plots:-polarplot, a), color = ["Red", "Blue"])

 

 

plots:-polarplot([8*cos(3*theta), 4-2.5*cos(theta)])

 

NULL


Download spaces16.mw

 

 

@ThU

I also had problems with this command!

a := [8*cos(3*theta), 4-2.5*cos(theta)]

[8*cos(3*theta), 4-2.5*cos(theta)]

(1)

(2)

plots:-display(map(plots:-polarplot, a, color = ["Red", "Blue"]))

 

plots:-display(map(plots:-polarplot, a), color = ["Red", "Blue"])

 

 

plots:-polarplot([8*cos(3*theta), 4-2.5*cos(theta)])

 

NULL


Download spaces16.mw

 

 



M := Matrix(6, 3, [2, 3, 3, 5, 7, 8, 12, 5, 9, -3, 4.1, 7, 7, 7, -3, 9, 3, 8]);M;

Matrix([[2, 3, 3], [5, 7, 8], [12, 5, 9], [-3, 4.1, 7], [7, 7, -3], [9, 3, 8]])

(1)

``

NULL

(2)

from Matlab
[b,n]=sort(A)

b =

 

   -3.0000    3.0000   -3.0000

    2.0000    3.0000    3.0000

    5.0000    4.1000    7.0000

    7.0000    5.0000    8.0000

    9.0000    7.0000    8.0000

   12.0000    7.0000    9.0000

NULL

n =

 

     4     1     5

     1     6     1

     2     4     4

     5     3     2

     6     2     6    
     3     5     3

NULL

 

mSort := proc (mM::{Matrix, Vector, list})
local m, n, i, M, MI, MV, TT;
M := `if`(type(mM, Matrix), mM, convert(mM, Matrix));
m, n := upperbound(M);
MI := Matrix(m, n);
MV := Matrix(m, n);
for i to n do
TT := ListTools:-Transpose(sort(ListTools:-Enumerate(convert(M[() .. (), i], list)),(a, b) -> a[2] MI[() .. (), i] := ;
MV[() .. (), i] := ;
end do;
return MV, MI;
end proc:

M; mSort(M);

Matrix(6, 3, {(1, 1) = -3, (1, 2) = 3, (1, 3) = -3, (2, 1) = 2, (2, 2) = 3, (2, 3) = 3, (3, 1) = 5, (3, 2) = 4.1, (3, 3) = 7, (4, 1) = 7, (4, 2) = 5, (4, 3) = 8, (5, 1) = 9, (5, 2) = 7, (5, 3) = 8, (6, 1) = 12, (6, 2) = 7, (6, 3) = 9}), Matrix(6, 3, {(1, 1) = 4, (1, 2) = 1, (1, 3) = 5, (2, 1) = 1, (2, 2) = 6, (2, 3) = 1, (3, 1) = 2, (3, 2) = 4, (3, 3) = 4, (4, 1) = 5, (4, 2) = 3, (4, 3) = 2, (5, 1) = 6, (5, 2) = 2, (5, 3) = 6, (6, 1) = 3, (6, 2) = 5, (6, 3) = 3})

(3)

Ds := Matrix(4, 4, [-434.8482330,  0,  0,  0,  0, 336.3639763,  0,  0,  0, 0, 4.310248244,  0, 0, 0,  0, 94.17400829]);

Matrix([[-434.8482330, 0, 0, 0], [0, 336.3639763, 0, 0], [0, 0, 4.310248244, 0], [0, 0, 0, 94.17400829]])

(4)

mSort(LinearAlgebra[Diagonal](Ds));

Matrix(4, 1, {(1, 1) = -434.8482330, (2, 1) = 4.310248244, (3, 1) = 94.17400829, (4, 1) = 336.3639763}), Matrix(4, 1, {(1, 1) = 1, (2, 1) = 3, (3, 1) = 4, (4, 1) = 2})

(5)

mSort();

Matrix(6, 1, {(1, 1) = 1, (2, 1) = 3, (3, 1) = 4, (4, 1) = 5, (5, 1) = 7, (6, 1) = 9}), Matrix(6, 1, {(1, 1) = 6, (2, 1) = 1, (3, 1) = 5, (4, 1) = 3, (5, 1) = 2, (6, 1) = 4})

(6)

NULL



Download SortMatrix1.mw



M := Matrix(6, 3, [2, 3, 3, 5, 7, 8, 12, 5, 9, -3, 4.1, 7, 7, 7, -3, 9, 3, 8]);M;

Matrix([[2, 3, 3], [5, 7, 8], [12, 5, 9], [-3, 4.1, 7], [7, 7, -3], [9, 3, 8]])

(1)

``

NULL

(2)

from Matlab
[b,n]=sort(A)

b =

 

   -3.0000    3.0000   -3.0000

    2.0000    3.0000    3.0000

    5.0000    4.1000    7.0000

    7.0000    5.0000    8.0000

    9.0000    7.0000    8.0000

   12.0000    7.0000    9.0000

NULL

n =

 

     4     1     5

     1     6     1

     2     4     4

     5     3     2

     6     2     6    
     3     5     3

NULL

 

mSort := proc (mM::{Matrix, Vector, list})
local m, n, i, M, MI, MV, TT;
M := `if`(type(mM, Matrix), mM, convert(mM, Matrix));
m, n := upperbound(M);
MI := Matrix(m, n);
MV := Matrix(m, n);
for i to n do
TT := ListTools:-Transpose(sort(ListTools:-Enumerate(convert(M[() .. (), i], list)),(a, b) -> a[2] MI[() .. (), i] := ;
MV[() .. (), i] := ;
end do;
return MV, MI;
end proc:

M; mSort(M);

Matrix(6, 3, {(1, 1) = -3, (1, 2) = 3, (1, 3) = -3, (2, 1) = 2, (2, 2) = 3, (2, 3) = 3, (3, 1) = 5, (3, 2) = 4.1, (3, 3) = 7, (4, 1) = 7, (4, 2) = 5, (4, 3) = 8, (5, 1) = 9, (5, 2) = 7, (5, 3) = 8, (6, 1) = 12, (6, 2) = 7, (6, 3) = 9}), Matrix(6, 3, {(1, 1) = 4, (1, 2) = 1, (1, 3) = 5, (2, 1) = 1, (2, 2) = 6, (2, 3) = 1, (3, 1) = 2, (3, 2) = 4, (3, 3) = 4, (4, 1) = 5, (4, 2) = 3, (4, 3) = 2, (5, 1) = 6, (5, 2) = 2, (5, 3) = 6, (6, 1) = 3, (6, 2) = 5, (6, 3) = 3})

(3)

Ds := Matrix(4, 4, [-434.8482330,  0,  0,  0,  0, 336.3639763,  0,  0,  0, 0, 4.310248244,  0, 0, 0,  0, 94.17400829]);

Matrix([[-434.8482330, 0, 0, 0], [0, 336.3639763, 0, 0], [0, 0, 4.310248244, 0], [0, 0, 0, 94.17400829]])

(4)

mSort(LinearAlgebra[Diagonal](Ds));

Matrix(4, 1, {(1, 1) = -434.8482330, (2, 1) = 4.310248244, (3, 1) = 94.17400829, (4, 1) = 336.3639763}), Matrix(4, 1, {(1, 1) = 1, (2, 1) = 3, (3, 1) = 4, (4, 1) = 2})

(5)

mSort();

Matrix(6, 1, {(1, 1) = 1, (2, 1) = 3, (3, 1) = 4, (4, 1) = 5, (5, 1) = 7, (6, 1) = 9}), Matrix(6, 1, {(1, 1) = 6, (2, 1) = 1, (3, 1) = 5, (4, 1) = 3, (5, 1) = 2, (6, 1) = 4})

(6)

NULL



Download SortMatrix1.mw

Christopher2222

Sorry for the delay in seeing your question, I fail to update in the forum, my new email. So I do not receive notifications from it. And should I be looking for answers

I have only 12 months of data: 1 - January, ...,12- December.

GRACIAS

So far I have not managed to solve the problem. I'm using Internet Explore 10. I can not find where to enable JavaScript. Some help.  

Thanks /Gracias

So far I have not managed to solve the problem. I'm using Internet Explore 10. I can not find where to enable JavaScript. Some help.  

Thanks /Gracias

with the cursor over the Subscribe/Unsubscribe link

taken from solution in use in  Dsolve2

eval(%,applyop~(apply,1,dat[2],t));

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