Wolfram mathematica 用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;

（*将复合体表示为向量*）
z1={5，3}；
z2={.5，.1}；
z3={-.1，.25}；
za[t_]=z1+（z2-z1）t；
zb[t_2;]=z1+（z3-z1）t；
zc[t_]=z2+（z3-z2）t；
（*查找参数边界*）
s=t/。并[Solve[Norm[za[t]==1，t]，
求解[Norm[zb[t]==1，t]，
求解[Norm[zc[t]==1，t]
];
（*和绘图*）
显示[参数图[{za[t]，zb[t]，zc[t]}，{t，Min[s]，Max[s]}，
区域函数->函数[{x，y}，x^2+y^2<1]，
PlotRange->{{-1,1}，{-1,1}]，
Graphics@Circle[]
]

---

请允许我欢迎您来到StackOverflow，并提醒我们在这里通常会做的三件事：1）当您收到帮助时，尝试也给予帮助，回答您专业领域的问题2）3）当您看到好的问答时，请投票支持，因为系统的可信度是基于用户通过分享知识而获得的声誉。还记得接受更好地解决问题的答案，如果有的话，

(*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}}], 
     Graphics@Circle[]
]