Plot[Sin[π*0.024*x/(600*10^-7*200)]^2/((π*.024*x/(600*10^-7*200))^2),{x,-2,2},PlotRange->{0,1},Frame->True,FrameLabel->{"x (cm)", "Intensity"},FrameTicksStyle->{Directive[FontOpacity->0,FontSize->0],Automatic},BaseStyle->{FontSize->12},FrameTicks->{{{0,1},None},{{-2,-1.5,-1,-0.5,0,0.5,1,1.5,2},None}}]

Manipulate[Plot[Sin[π*d*x/(600*10^-7*200)]^2/((π*d*x/(600*10^-7*200))^2),{x,-1,1},PlotRange->Full],{d,0.01,1}]

Manipulate