root/trunk/jps2ps/pps/addc.pps
| Revision 4, 183 bytes (checked in by jms, 8 months ago) |
|---|
| Line | |
|---|---|
| 1 | %% addition de 2 complexes |
| 2 | %% syntaxe : a b a' b' addc --> z + z' |
| 3 | /addc { |
| 4 | 4 dict begin |
| 5 | /b' exch def |
| 6 | /a' exch def |
| 7 | /b exch def |
| 8 | /a exch def |
| 9 | a a' add |
| 10 | b b' add |
| 11 | end |
| 12 | } def |
Note: See TracBrowser for help on using the browser.
