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

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

用的Mathematica计算软件

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

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

科普控，玩的好高深啊！

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

啊，越来越牛了

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

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

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

点评