Mathematica具有强大的符号运算功能,可以实现复杂的数学符号运算和数值运算
1)编制Reshape 函数实现以下功能:假设A = { {1, 2}, {3, 4}, {5, 6}},利用 Reshape 函数 B = Reshape[A, {2, 3}],输出:B = { {1, 2, 3}, {4, 5, 6}}
A = {
{
1, 2}, {
3, 4}, {
5, 6}};
B = ArrayReshape[A, {
2, 3}]
{
{
1, 2, 3}, {
4, 5, 6}}
Reshape[A_, size_] := (
temp = {
}; rows = size[[1]]; cols = size[[2]];
Do [temp = Join[temp, A[[i]]], {
i, 1, Length[A]}];
Table[temp[[i*cols + j]], {
i, 0, rows - 1}, {
j, 1, cols}])
Reshape[A, {
2, 3}]