Mathematica绘制’I LOVE MATH’|心型函数的绘制

由于这周应用回归分析会不更新（这周暂时没什么好写的），那我们就更新一些别的，讲一些简单的，就讲一下下面这种图片是如何制作出来的吧。

心型函数

f[x_] := Sqrt[1 - (Abs[x] - 1)^2]

g[x_] := ArcCos[1 - Abs[x]] - 3

我们可以看到上面两个函数画出来就是一个心形了。下面我们要在这个图上加上文字和网格。

美化图片

name = "Axure Handwriting";

p1 = Plot[{f[x], g[x]}, {x, -3, 3},

PlotRange -> {{-5, 5}, {-3, 2}},

Frame -> True, GridLines -> {Range[-4, 4], Range[-3, 1]},

AspectRatio -> .5,

ColorFunction -> Function[{x, y}, Hue[x*.7 y]],

Filling -> {1 -> {2}}];

p2 = Graphics[{

Text[Style["I", Bold, 25, FontFamily -> name], {-3, -2}],

Text[Style["MATH", Bold, 25, FontFamily -> name], {3, -2}]

}];

Show[p1, p2]

上面就是美化部分的代码，主要就是使用了Graphics和Text这两个函数了。可以看一下下面的效果图。

那到这里就基本把这次的内容讲完了，其实使用Graphics这个可以做出很多图来，大家可以去看一下帮助文档自学一下。