Question

如何用mathematica画出这个图

3. 以奇数n为变量定义函数输出图形。例n=5的图形。
* * * * *
* @ @ @ *
* @ * @ *
* @ @ @*
* * * * *

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

f[n_] := Fold[ArrayPad[#1, 1, #2] &, {{1}}, (-1)^Range[(n - 1)/2]] /. {1 -> "*", -1 -> "@"} // Grid;
f[5]