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