3
z1=a;
z2=b;
z3=c;
z[t_]=z1+(z2-z1)t;
z[t_]=z1+(z3-z1)t;
z[t_]=z2+(z3-z2)t;
我想在单位圆上用Mathematica绘制这些曲线。我该怎么办?使用Mathematica绘制复杂曲线
z1=a;
z2=b;
z3=c;
z[t_]=z1+(z2-z1)t;
z[t_]=z1+(z3-z1)t;
z[t_]=z2+(z3-z2)t;
我想在单位圆上用Mathematica绘制这些曲线。我该怎么办?使用Mathematica绘制复杂曲线
你可以做这样的事情:
(*Represent your complexes as vectors*)
z1 = {5, 3};
z2 = {.5, .1};
z3 = {-.1, .25};
za[t_] = z1 + (z2 - z1) t;
zb[t_] = z1 + (z3 - z1) t;
zc[t_] = z2 + (z3 - z2) t;
(*Find the parameter boundaries*)
s = t /. Union[Solve[Norm[za[t]] == 1, t],
Solve[Norm[zb[t]] == 1, t],
Solve[Norm[zc[t]] == 1, t]
];
(*And Plot*)
Show[ParametricPlot[{za[t], zb[t], zc[t]}, {t, Min[s], Max[s]},
RegionFunction -> Function[{x, y}, x^2 + y^2 < 1],
PlotRange -> {{-1, 1}, {-1, 1}}],
[email protected][]
]
请允许我欢迎你们来的StackOverflow,并提醒三件事,我们通常在这里做的:1)当你得到帮助,尽量给它太**在您的专业领域回答问题** 2)[阅读常见问题](http://tinyurl.com/2vycnvr)3)当您看到好的问答时,请将它们投票['使用灰色三角形] (http://i.imgur.com/kygEP.png),因为系统的可信度基于用户通过分享知识获得的声誉。另外请记住接受更好地解决您的问题的答案,如果有的话[按'checkmark sign'](http://i.imgur.com/uqJeW.png) – 2011-02-25 13:31:18