Testo nascosto, fai click qui per vederlo
Manipulate[Show[
(*Creazione Cilindro*)
ParametricPlot3D[{Sin[t], Cos[t], u}, {t, 0, 2*Pi}, {u, -10,
0.02},(*Colorazione cilindro*)PlotStyle -> {Brown}],
(*Creazione Cerchio concentrico*)
RevolutionPlot3D[{a + Cos[t], a + Sin[t]}, {t, 0,
2*Pi},(*Colorazione cerchio*)PlotStyle -> {Gray},
Lighting -> "Neutral"],
(*Creazione Cerchio concentrico*)
RevolutionPlot3D[{a*2 + Cos[t], a*2 + Sin[t]}, {t, 0,
2*Pi},(*Colorazione cerchio*)PlotStyle -> {Gray},
Lighting -> "Neutral"],
(*dimensione Plot*)
PlotRange -> {{-5, 5}, {-5, 5}, {-10,
10}},(*Eliminazione box ed assi*)Boxed -> False, Axes -> False,
Lighting -> "Neutral"], {a, 0, 6}]
(*Creazione Cilindro*)
ParametricPlot3D[{Sin[t], Cos[t], u}, {t, 0, 2*Pi}, {u, -10,
0.02},(*Colorazione cilindro*)PlotStyle -> {Brown}],
(*Creazione Cerchio concentrico*)
RevolutionPlot3D[{a + Cos[t], a + Sin[t]}, {t, 0,
2*Pi},(*Colorazione cerchio*)PlotStyle -> {Gray},
Lighting -> "Neutral"],
(*Creazione Cerchio concentrico*)
RevolutionPlot3D[{a*2 + Cos[t], a*2 + Sin[t]}, {t, 0,
2*Pi},(*Colorazione cerchio*)PlotStyle -> {Gray},
Lighting -> "Neutral"],
(*dimensione Plot*)
PlotRange -> {{-5, 5}, {-5, 5}, {-10,
10}},(*Eliminazione box ed assi*)Boxed -> False, Axes -> False,
Lighting -> "Neutral"], {a, 0, 6}]
sarebbe un sigaro da cui escono cerchi di fumo ... ora vorrei fare il sigaro pieno e non vuoto dentro cosi da sembrare un vero sigaro... non ricordo il comando da utilizzare per riempire il cilindro potete aiutarmi?
o meglio se me lo fate voi perche ci capisco poco e niente e per fare questo codice c ho messo una giornata hahah aiutatemi a migliorarlo vi prego