作图求助
mathematica吧
全部回复
仅看楼主
level 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]
2020年08月01日 14点08分
1
level 4
xiayetianyi
ClearAll["Global`*"]
Table[x^2 + (y - c)^2 == c, {c, 0.2, 0.6, 0.2}] //
ContourPlot[#, {x, -2, 2}, {y, -2, 2}] &
2020年08月01日 22点08分
2
觅蝴蝶
多谢大神
,c改为c^2即可
2020年08月04日 15点08分
level 3
cvgmt
(* 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]
2020年08月05日 04点08分
5
1