Interferencja fali płaskiej z falą kulistą

Manipulate[ContourPlot[((Sin[((k d)/2)(1+(((x^2)+(y^2))/(R^2)))])^2),{x,-5,5},{y,-5,5},Mesh->False],{R,1,10},{k,1,10},{d,-2,10}]

Manipulate[Plot[(1/(1+F ((Sin[k L Cos[θ]])^2))),{k,0,10},PlotRange->{0,1}],{F,0.01,200},{L,0,20},{θ,0,π/2-0.1}]

Manipulate[ContourPlot[(1/(1+F ((Sin[((k d)/2)(1+(((x^2)+(y^2))/(R^2)))])^2))),{x,-5,5},{y,-5,5},Mesh->False],{R,1,10},{k,1,10},{d,-2,10}, {F,1,100}]

Manipulate[Plot[(1/(1+F ((Sin[((k d)/2)(1+((x^2)/(R^2)))])^2))),{x,-5,5}, PlotRange->All],{R,1,10},{k,1,10},{d,-2,10}, {F,1,1000}]