心形函数用计算机怎么画,Mathematica

摘要这一篇文章会介绍使用mathematica来绘制心型函数，并且在图片上加上文字，进行个性化的定制。

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

心型函数

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这个可以做出很多图来，大家可以去看一下帮助文档自学一下。