source:
trunk/fsyspp.pro
| Last change on this file was 48, checked in by pinsard, 10 years ago | |
|---|---|
| File size: 217 bytes | |
| Line | |
|---|---|
| 1 | ; |
| 2 | ; fsnspp: north stereographic polar projection |
| 3 | ; |
| 4 | FUNCTION fsyspp, plam, pphi |
| 5 | ; |
| 6 | rpi = double( 2.*asin( 1. )) |
| 7 | rad = double( rpi/180.) |
| 8 | ; |
| 9 | z = double( 2. * sin( rad*plam ) * tan( rpi/4. - rad*pphi/2. )) |
| 10 | ; |
| 11 | return, z |
| 12 | END |
Note: See TracBrowser
for help on using the repository browser.
