source:
trunk/procs/betar.pro
@
68
Last change on this file since 68 was 2, checked in by post_it, 17 years ago | |
---|---|
File size: 206 bytes |
Rev | Line | |
---|---|---|
[2] | 1 | FUNCTION betar, t, s, p |
2 | ; | |
3 | ; compute beta= 1/rho (d rho / d S) | |
4 | ; | |
5 | ds = 0.01 | |
6 | siga = eos(t, s)-1000. | |
7 | sigb = eos(t, s+ds)-1000. | |
8 | ||
9 | be = 0.001*(sigb-siga)/ds/(1.+1.e-3*siga) | |
10 | ||
11 | return, be | |
12 | ||
13 | END |
Note: See TracBrowser
for help on using the repository browser.