最近用mathematic根据公式画了个图,现在想对数据图进行归一化处理,请问我应该加入什么代码,求解决,程序如下
Em = 33.7;
n = 6.3;
z = 1.6022*10^-19;
sigma = 2*10^-4;
epsilo = 8.8542*10^-21;
c = 3*10^17;
m = 1.092*10^-30;
w = 2*Pi*c/[Lambda];
r = z^2/(sigma*m);
p = Sqrt[(n*z*z)/(epsilo*m)];
epsilonn = (w^2 + r^2 - p^2)/(w^2 + r^2);
epsilonnn = (r*p^2)/(w^3 + w*r^2);
co = (epsilonn + (60*Em))^2;
a = (3723.55*epsilonnn)/(co + epsilonnn^2);
d = (epsilonn + (1.03332*Em))^2;
b = (8.2688*epsilonnn)/(d + epsilonnn^2);
absorbance = w*195.6*(a + b);
Plot[absorbance, {[Lambda], 200, 1200}, PlotPoints -> 10000]