论坛首页 › 『休闲聊天区』 › （转帖）科普控之教你如何画蝙蝠侠

马后炮 发表于 1970-1-1 08:00:00

（转帖）科普控之教你如何画蝙蝠侠

用的Mathematica计算软件

Show - 3 > 0 && y + (3 Sqrt)/7 >= 0]],
ContourPlot[
Abs - ((3 Sqrt - 7)/112) x^2 - 3 +
    Sqrt - 1)^2] - y == 0, {x, -10, 10}, {y, -10,
    10}], ContourPlot[
9 - 8*Abs - y == 0, {x, -10, 10}, {y, -10, 10},
RegionFunction ->
Function[{x, y}, (1 - Abs) (Abs - .75) >= 0]],
ContourPlot + .75 - y == 0, {x, -10, 10}, {y, -10, 10},
RegionFunction ->
Function[{x, y}, (.75 - Abs) (Abs - .5) >= 0]],
ContourPlot[2.25 - y == 0, {x, -10, 10}, {y, -10, 10},
RegionFunction -> Function[{x, y}, (.5 - x) (.5 + x) >= 0]],
ContourPlot[(6 Sqrt)/
   7 + (1.5 - .5*Abs) - (6 Sqrt)/14 Sqrt[
      4 - (Abs - 1)^2] - y == 0, {x, -10, 10}, {y, -10, 10},
RegionFunction -> Function[{x, y}, Abs - 1 >= 0]]]

tdl522 发表于 1970-1-1 08:00:00

科普控，玩的好高深啊！

Wordsworth 发表于 1970-1-1 08:00:00

啊，越来越牛了

小旭 发表于 1970-1-1 08:00:00

膜拜大神啊玩的都是高科技啊{:1106_389:}

查看完整版本: （转帖）科普控之教你如何画蝙蝠侠