Planar imagiing of infinite slab

general function

\(\(intensity[y_, z_, d_, L_, μ_] :=
       \((d/Sqrt[d^2 + y^2])\)^3\ \ *\ 
						
         Exp[\(-Sqrt[1\  + \ \((y/d)\)^2]\)\ *\ μ\ *\ L]; \)\)

generic shape

\(Plot[intensity[y, 1, 4, 0.25, 1], {y, \(-10\), 10}, \ 

       					{PlotRange -> All, \ PlotStyle -> Thickness[0.01]}]\)

vary L

\(Plot3D[intensity[y, 1, 4, L, 1], {L, 0, 1}, {y, \(-10\), 10}, \ 

       					{PlotRange -> All}]\)

\(DensityPlot[intensity[y, 1, 4, L, 1], {L, 0, 1}, {y, \(-10\), 10}, \ 

       					{PlotRange -> All}]\)

vary z

\(Plot3D[intensity[y, z, 4, 0.25, 1], {z, 0.3, 3.5}, {y, \(-10\), 10},        
					{PlotRange -> All}]\)

\(DensityPlot[
       intensity[y, z, 4, 0.25, 1], {z, 0.3, 3.5}, {y, \(-10\), 10}, \ 

       					{PlotRange -> All}]\)

vary μ

\(Plot3D[
       intensity[y, 1, 4, 0.25, μ], {μ, 0, 5}, {y, \(-10\), 10}, \ 

       					{PlotRange -> All}]\)

\(DensityPlot[
       intensity[y, 1, 4, 0.25, μ], {μ, 0, 5}, {y, \(-10\), 10}, \ 

       					{PlotRange -> All}]\)