MaplePrimes - answers and comments on Question, How do I translate the following Mathematica code into Maple code?

Explanation

Markiyan Hirnyk — Tue, 12 Jul 2011 09:00:36 Z

Mathematica 8.01 does not execute this code (see Table.pdf). In view of it, can you kindly explain your question in detail?

Replica

Markiyan Hirnyk — Sun, 17 Jul 2011 15:43:16 Z

How about this?

> A := proc (t, cols) L := ListTools[Flatten](t):
if cols = 1 then [seq(seq([L[j+3*k]], k = 0 .. nops(t)), j = 1 .. 3)]
else [seq([seq(L[j+3*s-3], s = 1 .. cols)], j = 1 .. 3)] end if
end proc;

Warning, `L` is implicitly declared local to procedure `A`
>t := [[.299, .587, .114, -.786], [-.299, -.587, .886, .263, 1.], [.701, -.587, -.114, .441],
[.563, -.784, -916, -345]]:
> A(t, 4);
[[.299, -.786, .886, .701], [.587, -.299, .263, -.587], [.114, -.587, 1., -.114]]
>A(t,1);

[[.299], [-.786], [.886], [.701], [.441], [.587],
[-.299], [.263], [-.587], [.563], [.114], [-.587], [1.], [-.114], [-.784]]

Compare with
Table[Partition[
Take[Flatten[{{.299, .587, .114, -0.786}, {-.299, -.587, .886, .263,
1.}, {.701, -.587, -.114, 0.441}, {0.563, -0.784, -916, -345}}], {k, 3*4, 3}], 1], {k, 1,
3}]
{{{0.299}, {-0.786}, {0.886}, {0.701}}, {{0.587}, {-0.299}, {0.263},
{-0.587}}, {{0.114}, {-0.587}, {1.}, {-0.114}}}

Sorry for the delay in my answer: it is summer time.

Edit. The output of A(t,1).

Explanation

kkharrod — Tue, 12 Jul 2011 09:37:24 Z

Yes, that is because the variables in the give line of code were not defined. I am sorry. The given code is a section of a very long module that I am translating. It is the last line and I have everything translated up until this point. "t" is any vector, "cols" is positive integer, and "k" is the variable incremented in the loop of Mathematica's Table command.

Executable code

Markiyan Hirnyk — Tue, 12 Jul 2011 09:43:19 Z

@kkharrod If you give an executable code, then the question can be answered. In other case that is a philosophical question, not a Maple question.

PS. Because you operate with lists, take look at the ?ListTools package.

Executable Code

kkharrod — Tue, 12 Jul 2011 10:44:27 Z

The entire module that I am trying to translate appears in the attached notebook. I having difficulties in the last return statement. RGBToYCbCr.pdf RGBToYCbCr.txt

.rar file

Markiyan Hirnyk — Tue, 12 Jul 2011 11:13:16 Z

@kkharrod Can you present this .nb as a .rar file to avoid typing?