作图求助

只看楼主
收藏
回复

觅蝴蝶
安装激活
1

下面分别是c=0.2,c=0.4,c=0.6时的代码
g1 = ParametricPlot[{0.2*Cos[t], 0.2*Sin[t] + 0.2}, {t, 0, 2 Pi}]，
g2 = ParametricPlot[{0.4*Cos[t], 0.4*Sin[t] + 0.4}, {t, 0, 2 Pi}]，
g3 = ParametricPlot[{0.6*Cos[t], 0.6*Sin[t] + 0.6}, {t, 0, 2 Pi}]，
show[g1, g2, g3]

xiayetianyi
还分不清
4

ClearAll["Global`*"]
Table[x^2 + (y - c)^2 == c, {c, 0.2, 0.6, 0.2}] //
ContourPlot[#, {x, -2, 2}, {y, -2, 2}] &

cvgmt
大写小写
3

(* method I *)
ContourPlot[
Table[x^2 + (y - c)^2 == c^2, {c, {0.2, 0.4, 0.6}}] //
Evaluate, {x, -2, 2}, {y, -2, 2}]
(* method II *)
ParametricPlot[
Table[{c*Cos[t], c*Sin[t] + c}, {c, {0.2, 0.4, 0.6}}] //
Evaluate, {t, 0, 2 Pi}, Axes -> False]

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示

3回复贴，共1页

<<返回mathematica吧

分享到:

日	一	二	三	四	五	六