Due onde sferiche

dimimm=400;
gamma=.7; (* modifica la curva del contrasto *)
Manipulate[DensityPlot[(Cos[s(( x-x0)^2 +( y-y0)^2 )/4+ fi/2]^2)^gamma,{x,-1,1},{y,-1,1},PlotPoints->{50,50},ColorFunction->GrayLevel,Frame->False, ImageSize->dimimm]
,{{x0,0},-1.8,1.8,.05},{{y0,0},-1.8,1.8,.05},{{s,0},-100,100,.01},{fi,0,2 Pi,.01},ControlPlacement->Left]

Reticolo di Soret

dimimm=400;
gamma=1.; (* modifica la curva del contrasto *)
Manipulate[DensityPlot[Clip[(Cos[s(( x-x0)^2 +( y-y0)^2 )/4+ fi/2]^2)^gamma,{.5,.5},{0,1}],{x,-1,1},{y,-1,1},PlotPoints->{100,100},ColorFunction->GrayLevel,Frame->False, ImageSize->dimimm]
,{{x0,0},-1.8,1.8,.05},{{y0,0},-1.8,1.8,.05},{{s,0},-100,100,.01},Control[{fi,{0,Pi}}],ControlPlacement->Left]