Last change
on this file since 1242 was
943,
checked in by aslmd, 12 years ago
|
clean and organized UTIL/PYTHON folder
|
-
Property svn:executable set to
*
|
File size:
997 bytes
|
Line | |
---|
1 | #! /usr/bin/env python |
---|
2 | |
---|
3 | import sys |
---|
4 | |
---|
5 | T = float(sys.argv[1]) |
---|
6 | P = float(sys.argv[2]) |
---|
7 | |
---|
8 | ### For dust |
---|
9 | radius = 2.e-6 ## m |
---|
10 | rho = 2500. ## kg / m3 |
---|
11 | |
---|
12 | ### For Mars |
---|
13 | R = 192. ## m2/s2/K |
---|
14 | rhoair = P / R / T |
---|
15 | grav = 3.72 ## m / s2 |
---|
16 | visc = 1.e-5 ## Gas molecular viscosity (N s / m2) |
---|
17 | molrad = 2.2e-10 ## Effective gas molecular radius (m) |
---|
18 | |
---|
19 | ## Constant to compute stokes speed simple formulae |
---|
20 | ## Vstokes = b * rho * r**2 avec b = (2/9) * rho * g / visc |
---|
21 | b = (2./9.) * grav / visc |
---|
22 | |
---|
23 | ## Constant to compute gas mean free path |
---|
24 | ## l= (T/P)*a, avec a = ( 0.707*8.31/(4*pi*molrad**2 * avogadro)) |
---|
25 | a = 0.707 * 8.31 / ( 4 * 3.1416 * molrad * molrad * 6.023e23 ) |
---|
26 | |
---|
27 | ## Sedimentation velocity (m/s) |
---|
28 | ## (stokes law corrected for low pressure by the Cunningham |
---|
29 | ## slip-flow correction according to Rossow (Icarus 36, 1-50, 1978) |
---|
30 | vstokes = b * rho * radius * radius * (1 + 1.333* ( a / 192. / rhoair ) / radius) |
---|
31 | |
---|
32 | print "--- for T = %.0f K and P = %.0f Pa" % (T,P) |
---|
33 | print "rho = %4.2e kg/m3 and vsedim = %4.2e m/s" % (rhoair,vstokes) |
---|
Note: See
TracBrowser
for help on using the repository browser.