Blog List View

绘制一幅头像 

2015-09-13 11:55:53
1575 次阅读

参考wolfram官网的一个实例(http://demonstrations.wolfram.com/DrawYourSmileyFace/),我们可以稍微改造一下, 便可以做成适合中小学数字科学实践课程的案例。

funnyhead.gif


结果和代码如下:

head.cdf


Manipulate[ Module[{plt, gr, pltm}, 
  plt = Plot[1 - x^pp, {x, -1, 1}, 
    PlotStyle -> {hairColor, Thickness[thick]}, Filling -> Axis, 
    FillingStyle -> RGBColor[1, 0.925, 0.92], Axes -> False, 
    AxesOrigin -> {0, 0}]; 
  gr = Graphics[{{RGBColor[1, 0.925, 0.92], 
      Disk[{0, 0}, {1, fcl}, {[Pi], 2 [Pi]}], Black, 
      Circle[{0, 0}, {1, fcl}, {[Pi], 2 [Pi]}]}, {RGBColor[0.961, 1,
        0.954], Disk[{0.5, 0}, {0.4, 0.25}, {0, [Pi]}], 
      Disk[{0.5, 0}, {0.4, 0.13}, {[Pi], 2 [Pi]}], 
      Disk[{-0.5, 0}, {0.4, 0.25}, {0, [Pi]}], 
      Disk[{-0.5, 0}, {0.4, 0.13}, {[Pi], 2 [Pi]}]}, {Thick, Pink, 
      Circle[{0.5, 0}, {0.4, 0.25}, {0, [Pi]}]}, {Hue[0.6], Thick, 
      Circle[{0.5, 0}, {0.4, 0.13}, {[Pi], 2 [Pi]}]}, {Thick, Pink, 
      Circle[{-0.5, 0}, {0.4, 0.25}, {0, [Pi]}]}, {Hue[0.6], Thick, 
      Circle[{-0.5, 0}, {0.4, 0.13}, {[Pi], 2 [Pi]}]}, {Hue[0.45], 
      Disk[{cnr, 0.07}, 0.15, {0, 2 [Pi]}], 
      Disk[{cnl, 0.07}, 0.15, {0, 2 [Pi]}]}, {Black, 
      Disk[{cnr, 0.07}, 0.05, {0, 2 [Pi]}], 
      Disk[{cnl, 0.07}, 0.05, {0, 2 [Pi]}]}, {Thickness[0.016], 
      Opacity[0.8], 
      Circle[{.35, -0.18}, {0.71, eyeb}, {41 [Degree], 
        eyebln [Degree]}], 
      Circle[{-.35, -0.18}, {0.71, eyebl}, {139 [Degree], 
        eyebll [Degree]}]}, {RGBColor[0.995, 0.65, 0.65], 
      Polygon[{{0.012, -n1}, {-0.012, -n1}, {-nw, -n2}, {nw, 
-n2}}]}}]; 
  pltm = Plot[a x^2 + b x + c, {x, -.35, .35}, 
    PlotStyle -> {Thickness[0.025], Red, Opacity[0.7]}]; 
  Show[plt, gr, pltm, ImageSize -> {250, 300}, 
   PlotRange -> {{-1.2, 1.2}, {-1.4, 1.2}}, 
   AspectRatio -> Automatic]], {{pp, 6}, 4, 30, 2, 
  ImageSize -> Small}, {hairColor, Black, 
  ImageSize -> Small}, {{thick, 0.15}, 0.01, 0.2, 
  ImageSize -> Small}, {{fcl, 1.2}, 1.1, 1.6, 0.01, 
  ImageSize -> Small}, {{cnl, -0.5}, -0.63, -0.37, 0.01, 
  ImageSize -> Small}, {{cnr, 0.5}, 0.37, 0.63, 0.01, 
  ImageSize -> Small}, {{eyebll, 75}, 135, 75, 1, 
  ImageSize -> Small}, {{eyebln, 105}, 105, 45, 1, 
  ImageSize -> Small}, {{eyebl, 0.6}, 0.59, 0.72, 0.01, 
  ImageSize -> Small}, {{eyeb, 0.6}, 0.59, 0.78, 0.01, 
  ImageSize -> Small}, {{n1, 0.1}, 0.1, 0.5, 0.01, 
  ImageSize -> Small}, {{n2, 0.6}, 0.2, 0.63, 0.01, 
  ImageSize -> Small}, {{nw, 0.06}, 0.06, 0.15, 0.01, 
  ImageSize -> Small}, {{a, 1.33}, -0.77, 1.4, 0.01, 
  ImageSize -> Small}, {{b, 0}, -0.27, 0.23, 0.1, 
  ImageSize -> Small}, {{c, -0.98}, -0.74, -0.7 fcl, 0.01, 
  ImageSize -> Small}, SaveDefinitions -> True, 
 ControlPlacement -> Right]



发表评论