Hi Shenghui, Thank you so much for your reply. I was able to get the plot you showed above, but it is not a function of omega. Here is what I typed as you suggested.
omega = 0.1;
{meanIntensity, intensity} =
createSphericalHarmonics[0.5, omega, 1., 5, 19];
ContourPlot[
Evaluate[meanIntensity[tau, omega]/meanIntensity[0]], {tau, 0,
5}, {omega, 0, 1}, PlotRange -> {{0, 5}, All}]
But what I am looking for is plot which is function of omega. For example, if I edit below, the plot is not working.
omega = Range[0.1,0.9,0.2];
{meanIntensity, intensity} =
createSphericalHarmonics[0.5, omega, 1., 5, 19];
ContourPlot[
Evaluate[meanIntensity[tau, omega]/meanIntensity[0]], {tau, 0,
5}, {omega, 0, 1}, PlotRange -> {{0, 5}, All}]
I appreciate your help.