Change the code below from Mathmatica into a MATLAB:

The following Mathematica code plots vs ? and ?; which gives the correct profiles when the small angle approximation is valid. beta = 1 gamma 2 dp [x..] := (Sin [beta*x) /(beta*x) ) *Cos [gamma *x))2 Plot [dp[x], {x, -10, 10, PlotRange -> All, Axes -> [True, None]] The following Mathematica code plots vs ? and ?; which gives the correct profiles when the small angle approximation is valid. beta = 1 gamma 2 dp [x..] := (Sin [beta*x) /(beta*x) ) *Cos [gamma *x))2 Plot [dp[x], {x, -10, 10, PlotRange -> All, Axes -> [True, None]]