来源

http://mathworld.wolfram.com/HeartCurve.html

原始代码：
http://mathworld.wolfram.com/notebooks/PlaneCurves/HeartCurve.nb

代码修改

用MaTeX对代码中标签和公式作修改。

<< MaTeX`Block[{style=9},GraphicsGrid[Partition[{PolarPlot[1-Sin[t],{t,0,2\[Pi]},PlotStyle->Red,PlotLabel->Evaluate@(MaTeX[#,Magnification->2,"Preamble"->{"\\usepackage{amsmath,amssymb}","\\usepackage{color,txfonts}"}]&@"\\color{red}r=1-\\sin\\theta"),BaseStyle->style],ContourPlot[-x^2 z^3+(-1+x^2+z^2)^3,{x,-1.2,1.2},{z,-1,1.3},Contours->{0},ContourShading->False,Frame->False,PlotLabel->Evaluate@(MaTeX[#,Magnification->2,"Preamble"->{"\\usepackage{amsmath,amssymb}","\\usepackage{color,txfonts}"}]&@"\\color{red}\\left(x^2+z^2-1\\right)^3-x^2 z^3=0"),ContourStyle->Directive[Opacity[1],Red,Thickness[.0075]],Axes->True,BaseStyle->style],ParametricPlot[{Log[Abs[t]]Sin[t]Cos[t],Abs[t]^.3Sqrt[Cos[t]]},{t,-1,1},AspectRatio->Automatic,BaseStyle->style,PlotPoints->100,PlotStyle->Red,PlotRange->All,PlotLabel-> Evaluate@(MaTeX[#,Magnification->2,"Preamble"->{"\\usepackage{amsmath,amssymb}","\\usepackage{color,txfonts}"}]&@"\\color{red}\\left\\{\\begin{array}{l}
x=\\sin{t}\\cos{t}\\ln(\\left|t\\right|)\\\\[10pt]
y=\\left|t\\right|^{0.3}\\sqrt{\\cos{t}}\\\\
\\end{array}\\right.")],Plot[2/3((x^2+Abs[x]-6)/(x^2+Abs[x]+2))+# (36-x^2)^(1/2)&/@{-1,1},{x,-6,6},PlotStyle->Red,BaseStyle->style,AspectRatio->Automatic,PlotLabel-> Evaluate@(MaTeX[#,Magnification->2,"Preamble"->{"\\usepackage{amsmath,amssymb}","\\usepackage{color,txfonts}"}]&@"\\color{red}\\left(y-\\frac{2\\left(\\left|x\\right|+x^2-6\\right)}{3\\left(\\left|x\\right|+x^2+2\\right)}\\right)^2+x^2=36")],PolarPlot[2-2Sin[t]+Sin[t] Sqrt[Abs[Cos[t]]]/(Sin[t]+7/5),{t,0,2\[Pi]},PlotStyle->Red,PlotLabel->Evaluate@(MaTeX[#,Magnification->2,"Preamble"->{"\\usepackage{amsmath,amssymb}","\\usepackage{color,txfonts}"}]&@"\\color{red}
r=\\frac{\\sin{t}\\sqrt{\\left|\\cos{t}\\right|}}{\\sin{t}+\\dfrac{7}{5}}-2\\sin{t}+2"),BaseStyle->style],ParametricPlot[par={16 Sin[t]^3,13 Cos[t]-5 Cos[2 t]-2 Cos[3 t]-Cos[4 t]},{t,-\[Pi],\[Pi]},AspectRatio->Automatic,BaseStyle->style,PlotPoints->100,PlotStyle->Red,PlotRange->All,PlotLabel->Evaluate@(MaTeX[#,Magnification->1.25,"Preamble"->{"\\usepackage{amsmath,amssymb}","\\usepackage{color,txfonts}"}]&@"\\color{red}\\left\\{\\begin{array}{rl}
x=&16\\sin^3t\\\\[10pt]
y=&13\\cos{t}-5\\cos{2t}-2\\cos{3t}-\\cos{4t}\\\\
\\end{array}\\right.")]},3,3,{1,1},{}],ImageSize->980]]

输出

一些心型曲线及其方程相关推荐

html5实现笛卡尔心形函数,笛卡尔心型曲线
canvas:平面直角坐标系画法 var canvas = document.querySelector('canvas'); var context = canvas.getContext('2d' ...
第二型曲线和曲面积分总结
数学含义第二型曲线积分在向量场中的积分形式上为 ∫LXdx+Ydy=∫Lω=∫L(X(t)x′(t)+Y(t)y′(t))dt\int _LXdx+Ydy=\int _L \omega =\in ...
第一型曲线积分与第一型曲面积分、第二型曲线积分与格林公式
提示:本文的适用对象为已修过<微积分A1>的非数学系学生,文中题型方法为个人总结,为个人复习使用.部分理解虽然不太严谨,但对于解题的实用性较强.若有疏漏or错误,欢迎批评指正. 一.关于第 ...
inventor如何画心_Illustrator | 如何画一个心型图案
心型图案是日常生活中一个非常常见的标志.至于如何简单明了地在 Ai 里画出来,也许你在找一个更好的方法.今天我介绍一个自己的小技巧,希望能对你有所启发,也欢迎在留言里交流你的看法. 1.要想办法用规则 ...
基于STM32F103的步进电机S型曲线加减速算法与实现
步进电机是将电脉冲信号转变为角位移或线位移的开环控制电机,是现代数字程序控制系统中的主要执行元件,应用极为广泛.在非超载的情况下,电机的转速.停止的位置只取决于脉冲信号的频率和脉冲数,而不受负载变化的 ...
Android特效专辑（八）——实现心型起泡飞舞的特效，让你的APP瞬间暖心
Android特效专辑(八)--实现心型起泡飞舞的特效,让你的APP瞬间暖心马上也要放年假了,家里估计会没网,更完这篇的话,可能要到年后了,不过在此期间会把更新内容都保存在本地,这样有网就可以发表了 ...
第二型曲线积分的总结思考
概念在第一型曲线积分我们知道,问题在于对ds{\rm d}s的转化.无论是直接化还是通过参数方程进行,目的都是把曲线的微元化为可定义范围的参数或者是x,y. 第二型曲线积分,更多是考察格林公式,与路 ...
【数学】第二型曲线积分
先从一个物理概念入手,有一个质点受如下的变力作用: 其中为该力x方向上的分量,为该力y方向上的分量. 该力F沿曲线L从A到B一共做了多少功呢?我们使用积分求解的典型步骤来完成求解: 第一步:分割计算微 ...
R语言可视化——动态心型图
目录引言 1.心型图初探 1.1 带偏移的两个函数 1.2 简单心型图 2.改进的心型图 3.动态画心型图(gif) 4.ggplot2版本的心型图 4.1数据 4.2心型图初步 4.3原件打包 4 ...

一些心型曲线及其方程

来源

代码修改

输出

一些心型曲线及其方程相关推荐

最新文章

热门文章