|
Last change
on this file since 519 was
3,
checked in by slebonnois, 15 years ago
|
|
Creation de repertoires:
- chantiers : pour communiquer sur nos projets de modifs
- documentation : pour stocker les docs
Ajout de:
- libf/phytitan : physique de Titan
- libf/chimtitan: chimie de Titan
- libf/phyvenus : physique de Venus
|
|
File size:
250 bytes
|
| Line | |
|---|
| 1 | FUNCTION PC2H2(T) |
|---|
| 2 | C THIS FUNCTION RETURNS THE VAPOR PRESSURE IN BARS. |
|---|
| 3 | C BASED ON A LEAST SQUARES FIT TO DATA IN TABLE III |
|---|
| 4 | C NBS TECHNICAL PB-151 363 |
|---|
| 5 | DATA A,B/21.68901,-2814.018/ |
|---|
| 6 | PC2H2=(1./760.)*EXP(A+B/T) |
|---|
| 7 | RETURN |
|---|
| 8 | END |
|---|
Note: See
TracBrowser
for help on using the repository browser.
