mathematica 的问题g[l_] := Flatten[Replace[l, {u_ -> {u, Mod[u - 1, 6], Mod[u + 1, 6], u}}, {1}], 1]; list1 = {0, 2, 4};ListLinePlot[Prepend[Accumulate[ Replace[Nest[g, list1, 2], {0 -> {1, Sqrt[3]}, 1 -> {2, 0}, 2 -> {1, -Sqrt[3]}, 3 -> {-1, -Sqr
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/15 16:24:39
![mathematica 的问题g[l_] := Flatten[Replace[l, {u_ -> {u, Mod[u - 1, 6], Mod[u + 1, 6], u}}, {1}], 1]; list1 = {0, 2, 4};ListLinePlot[Prepend[Accumulate[ Replace[Nest[g, list1, 2], {0 -> {1, Sqrt[3]}, 1 -> {2, 0}, 2 -> {1, -Sqrt[3]}, 3 -> {-1, -Sqr](/uploads/image/z/11510752-40-2.jpg?t=mathematica+%E7%9A%84%E9%97%AE%E9%A2%98g%5Bl_%5D+%3A%3D+Flatten%5BReplace%5Bl%2C+%7Bu_+-%3E+%7Bu%2C+Mod%5Bu+-+1%2C+6%5D%2C+Mod%5Bu+%2B+1%2C+6%5D%2C+u%7D%7D%2C+%7B1%7D%5D%2C+1%5D%3B+list1+%3D+%7B0%2C+2%2C+4%7D%3BListLinePlot%5BPrepend%5BAccumulate%5B+Replace%5BNest%5Bg%2C+list1%2C+2%5D%2C+%7B0+-%3E+%7B1%2C+Sqrt%5B3%5D%7D%2C+1+-%3E+%7B2%2C+0%7D%2C+2+-%3E+%7B1%2C+-Sqrt%5B3%5D%7D%2C+3+-%3E+%7B-1%2C+-Sqr)
mathematica 的问题g[l_] := Flatten[Replace[l, {u_ -> {u, Mod[u - 1, 6], Mod[u + 1, 6], u}}, {1}], 1]; list1 = {0, 2, 4};ListLinePlot[Prepend[Accumulate[ Replace[Nest[g, list1, 2], {0 -> {1, Sqrt[3]}, 1 -> {2, 0}, 2 -> {1, -Sqrt[3]}, 3 -> {-1, -Sqr
mathematica 的问题
g[l_] := Flatten[
Replace[l, {u_ -> {u, Mod[u - 1, 6], Mod[u + 1, 6], u}}, {1}], 1];
list1 = {0, 2, 4};
ListLinePlot[
Prepend[Accumulate[
Replace[Nest[g, list1, 2], {0 -> {1, Sqrt[3]}, 1 -> {2, 0},
2 -> {1, -Sqrt[3]}, 3 -> {-1, -Sqrt[3]}, 4 -> {-2, 0},
5 -> {-1, Sqrt[3]}}, {1}]], {0, 0}], Axes -> False,
AspectRatio -> Automatic, AxesOrigin -> {0, 0}]
koch雪花的程序,其中 Replace[l, {u_ -> {u, Mod[u - 1, 6], Mod[u + 1, 6], u}}, {1}], 1]是什么意思呢?
问题补充:就告诉我Replace最后那个{1}是什么意思就可以啦!
mathematica 的问题g[l_] := Flatten[Replace[l, {u_ -> {u, Mod[u - 1, 6], Mod[u + 1, 6], u}}, {1}], 1]; list1 = {0, 2, 4};ListLinePlot[Prepend[Accumulate[ Replace[Nest[g, list1, 2], {0 -> {1, Sqrt[3]}, 1 -> {2, 0}, 2 -> {1, -Sqrt[3]}, 3 -> {-1, -Sqr
{1}是指定替换的层和第一层,比较简单的例子是:
Replace[1 + x^2,x^2 -> a + b,{1}]
(*1+a+b*)
Replace[1 + x^2,x^2 -> a + b]
(*1+x^2*)
这个其实和表达式的FullForm形式有关:
FullForm[1+x^2]
(*Plus[1,Power[x,2] ]*)
从这里可以看到,第一层就是Plus后的方括号里的东西,因为Replace是将规则作用于整个表达式的.
话说你要问我整段代码什么意思我说不定还不会……