problem with contourplot

*To*: mathgroup at smc.vnet.net*Subject*: [mg81812] problem with contourplot*From*: KLEIN Rudy <Rudy.Klein at lpmi.uhp-nancy.fr>*Date*: Thu, 4 Oct 2007 04:19:34 -0400 (EDT)*Reply-to*: Rudy.Klein at lpmi.uhp-nancy.fr

hello, I'm trying to contourplot a function with high gradients. this is my code: In > contoursLandau[kld_, contoursList_List, {rgX_, rgY_}] := Module[{disp}, disp[kl_, z_] := SetPrecision[ 1 + (1/kl)^2*(1 + I*Sqrt[Pi]*(z/(Sqrt[2.]*kl))* Exp[-(z/(Sqrt[2.]*kl))^2]*(1 + Erf[I*z/(Sqrt[2.]*kl)])), 100]; fonctionColoration=RGBColor[0, 0, #] &; ContourPlot[ Abs[disp[kld, x + I y]]^2, {x, rgX // First, rgX // Last}, {y, rgY // First, rgY // Last}, ColorFunction -> fonctionColoration, Contours -> contoursList, PlotPoints -> 100] ]; In > contoursLandau[0.1, ({4, 1, 0.4, 0.25, 0.15, 0.05, 0.01, 0.001} // Reverse), {{-1.5, 1.5}, {0.5, -1.5}}] the problem is with the coloration of the plot: i'd like to Log-scale the contours and have for example: RGBColor[0,0.5,#]&/@Log[10, {4, 1, 0.4, 0.25, 0.15, 0.05, 0.01, 0.001} // Reverse] // Rescale but it doesn't work and i can't identifie the cause of the problem... thanks for help Rudy