User Portlet
| Discussions |
|---|
| Kramer[Z_, \[Lambda]_, T_, x_] := 108*10^-4*Z* Log[Konst[\[Lambda]]]/((T/100)^(3/ 2)*\[Lambda]^2)*((electrondensity[x, Z, Avog])/(electrondensitycrit[\[Lambda]]))^2; ... |
| Manipulate[Plot[{1/(1+(\[Pi]*\[Sqrt]R)/(1-R)* Sin[(2 \[Pi] /\[Lambda])*L]^2)*E0 E^-(1/2(\[Lambda] - \[Lambda]0)^2/\[Sigma]^2)}, {\[Lambda], 260, 270} ,PlotRange -> {0, 1},AxesLabel -> {"Wavelength [nm]", "Transmission"}], {R, 0.85, 0.99}, {L,... |