blob: d7df4bab670d6e8d9433220223ee4955dd23c870 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
; http://hyperphysics.phy-astr.gsu.edu/hbase/atmos/blusky.html#c1
(var N "number of scatterers")
(var alpha "polarizability")
(var R "distance from scatterer")
(var I_0 "original intensity")
(var I "scattered intensity")
(var lambda "wavelength of light")
(var Theta "angle of scattering")
(eq I
(* I_0
(/ (* 8 (exp pi 4) N (exp alpha 2))
(* (exp lambda 4) (exp R 2)))
(+ 1 ((exp cos 2) Theta))))
|