root/trunk/jps2ps/pps/Anp.pps
| Revision 4, 156 bytes (checked in by jms, 8 months ago) |
|---|
| Line | |
|---|---|
| 1 | %% syntaxe : n p Anp --> A_n^p |
| 2 | /Anp { |
| 3 | 3 dict begin |
| 4 | /p exch def |
| 5 | /n exch def |
| 6 | n |
| 7 | p 1 sub { |
| 8 | /n n 1 sub store |
| 9 | n mul |
| 10 | } repeat |
| 11 | end |
| 12 | } def |
Note: See TracBrowser for help on using the browser.
