Manipulate[Plot [{Sin[Pi*d/ll*Sin[x]]^2/((Pi*d/ll*Sin[x])^2)*Sin[n*Pi*D/ll*Sin[x]]^2/(Sin[Pi*D/ll*Sin[x]]^2)},{x,-Pi/5,Pi/5},PlotRange->{0.,ym},AxesLabel->{x,y}],{{d,10,"d"},2,100,Appearance->"Labeled"},{{D,20,"D"},2,100,Appearance->"Labeled"},
{{ll,2,"lambda"},2,100,Appearance->"Labeled"},
{{n,2,"n"},2,20,Appearance->"Labeled"},
{{ym,5,"Y max"},1,50,Appearance->"Labeled"}]