source:
trunk/procs/betar.pro
@
13
| Last change on this file since 13 was 2, checked in by post_it, 17 years ago | |
|---|---|
| File size: 206 bytes | |
| Line | |
|---|---|
| 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.
