Manipulate[
DynamicModule[{fxy,fz,zp,u,plt,x,r,z},
fxy:=R0+R1 ((Abs[Sin[((c x)/2)]])^d); 
fz:=A (E^(-b ((Abs[u])^1.5))) ((Abs[u])^a);
zp:=(1+(r^2) A1  Sin[p x/2]^2);
Column[{
Row[{
Plot[fz,{u,-2,2},AspectRatio->Automatic,PlotRange->All,ImageSize->{150,150},AxesLabel->{"r","z"},AxesOrigin->{0,0}],"     ",
ParametricPlot[fxy{Cos[x],Sin[x]},{x,0,2Pi},AspectRatio->Automatic,PlotRange->2{{-1,1},{-1,1}},AxesLabel->{"x","y"},ImageSize->{150,150}]
}],
plt=ParametricPlot3D[{r fxy Cos[x],r fxy Sin[x],(zp* fz/.u->r)},{x,0,2Pi},{r,0,2},BoxRatios->Automatic,PlotRange->Automatic,PlotPoints->ControlActive[6,plotpts],Boxed->False,Axes->None,Mesh->False,ImageSize->{400,250},ColorFunction->(ColorData[color][0.8 (invcol+((-1)^invcol)#5)]&)],
Button["Nagy méret",CreateWindow[DocumentNotebook[Show[plt,ImageSize->{800,500}],WindowSize->{900,600}]]]
},Alignment->Center]
],
Style["Egyszerű virtuális virágok",Bold, Large],
Delimiter,Style["Hosszmetszet alapforma",Bold],
{{a,0.5,"Petúnia->Tulipán"},0.1,4,ImageSize->Small},
{{b,0.15,"Bimbó->hervadt"},0,1,ImageSize->Small},
{{A,2,"Lapos->nyúlánk"},0.1,5,ImageSize->Small}
,Delimiter,Style["Keresztmetszet",Bold],
{{c,5,"Szirmok száma"},0,12,1,ImageSize->Small},
{{d,0.3,"Szirmok alakja"},0.3,2,ImageSize->Small},
{{R0,0.5,"Belső sugár"},0,1,ImageSize->Small},
{{R1,0.5,"Külső sugár"},0,2,ImageSize->Small},
Delimiter,
Style["Fodrok",Bold],
{{p,0,"sűrűsége"},0,30,1,ImageSize->Small},
{{A1,0,"magassága"},0,0.5,ImageSize->Small},
Delimiter,
{{plotpts,20,"Rajz minősége"},10,80,10,ImageSize->Small},
{{color,"SunsetColors","A virág színe"},{"SunsetColors","SolarColors","Rainbow","AvocadoColors","DeepSeaColors"},PopupMenu},
{{invcol,1,"Fordított színátmenet"},Checkbox[#,{0,1}]&},ControlPlacement->Left]