Rev 4349 | Rev 7692 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 4349 | Rev 6329 | ||
---|---|---|---|
Line 2... | Line 2... | ||
2 | !goto proc |
2 | !goto proc |
3 | !endif |
3 | !endif |
4 | 4 | ||
5 | slib_author=Gang, XIAO |
5 | slib_author=Gang, XIAO |
6 | 6 | ||
7 | slib_example=4,2,5;1,0,- |
7 | slib_example=4,2,5;1,0,-3\ |
- | 8 | 4,4,5\ |
|
- | 9 | 3;6;7 |
|
- | 10 | ||
8 | slib_require=pari |
11 | slib_require=pari |
9 | !exit |
12 | !exit |
10 | 13 | ||
11 | :proc |
14 | :proc |
12 | slib_mat=!declosing $wims_read_parm |
15 | slib_mat=!declosing $wims_read_parm |
13 | !if $slib_mat=$empty |
16 | !if $slib_mat=$empty |
14 | slib_out= |
17 | slib_out= |
15 | !else |
18 | !else |
16 | slib_out=!exec pari print([$slib_mat]~) |
19 | slib_out=!exec pari print(Mat([$slib_mat]~)) |
17 | !endif |
20 | !endif |
18 | 21 |