source:
trunk/fsyspp.pro
@
18
Last change on this file since 18 was 2, checked in by pinsard, 18 years ago | |
---|---|
File size: 218 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.