使用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繪製複雜曲線

來源

2011-02-25 öznur

請允許我歡迎你們來的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

你可以做這樣的事情：

(*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][] 
]

enter image description here

來源

2011-02-25 13:28:51

使用Mathematica繪製複雜曲線

回答

相關問題