| 1 | #!/usr/bin/perl |
1 | #!/usr/local/bin/perl |
| 2 | |
2 | |
| 3 | |
3 | |
| 4 | #################################################################### |
4 | #################################################################### |
| 5 | # Copyright @ 1995-1999 University of Rochester |
5 | # Copyright @ 1995-1999 University of Rochester |
| 6 | # All Rights Reserved |
6 | # All Rights Reserved |
| … | |
… | |
| 904 | # For some reason it still caused |
904 | # For some reason it still caused |
| 905 | # trouble here when there was |
905 | # trouble here when there was |
| 906 | # more than one ans_eval in ANS() |
906 | # more than one ans_eval in ANS() |
| 907 | # No-one knows why? |
907 | # No-one knows why? |
| 908 | |
908 | |
|
|
909 | # This allows the use of i for imaginary numbers |
|
|
910 | # one can write 3 +2i rather than 3+2i() |
|
|
911 | # |
|
|
912 | |
|
|
913 | sub i; |
| 909 | |
914 | |
| 910 | 1; # required to load properly |
915 | 1; # required to load properly |