我想用mathematica画一个单位圆,从原点出发有条射线过圆【10分】
问题描述：
我想用mathematica画一个单位圆,从原点出发有条射线过圆【10分】
做得好的再加10分>
答
在mathematica中输入以下指令：
x = Sin[t]; y = Cos[t];
g1 = ParametricPlot[{x, y}, {t, 0, 2 Pi},
PlotStyle -> {Thickness[0.006], RGBColor[1, 0, 0]}];
g2 = Plot[2 x, {x, 0, 2},
PlotStyle -> {Thickness[0.006], RGBColor[0, 1, 0]}];
Show[g1, g2]
执行后,可以得到想要的图形,如下所示：