Rev 4349 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 4349 | Rev 7692 | ||
---|---|---|---|
Line 3... | Line 3... | ||
3 | !endif |
3 | !endif |
4 | 4 | ||
5 | slib_author=Bernadette, Perrin-Riou |
5 | slib_author=Bernadette, Perrin-Riou |
6 | 6 | ||
7 | slib_example=x^2+sin(x*y)+exp(y^2),[x,y],0,3,-3,2,50 |
7 | slib_example=x^2+sin(x*y)+exp(y^2),[x,y],0,3,-3,2,50 |
8 | 8 | ||
9 | !exit |
9 | !exit |
10 | 10 | ||
11 | :proc |
11 | :proc |
12 | !distribute items $wims_read_parm into slib_fn,slib_var,slib_x1,slib_x2,slib_y1,slib_y2,slib_steps |
12 | !distribute items $wims_read_parm into slib_fn,slib_var,slib_x1,slib_x2,slib_y1,slib_y2,slib_steps |
13 | slib_fn=!rawmath $slib_fn |
13 | slib_fn=!rawmath $slib_fn |
Line 43... | Line 43... | ||
43 | slib_fxn=!mathsubst $slib_var1= $[$slib_x1+$slib_i*$slib_step] in $slib_fn |
43 | slib_fxn=!mathsubst $slib_var1= $[$slib_x1+$slib_i*$slib_step] in $slib_fn |
44 | slib_fxn=!replace item NaN by $ in $slib_fxn |
44 | slib_fxn=!replace item NaN by $ in $slib_fxn |
45 | slib_vals=!values $slib_fxn for $slib_var2=$slib_y1 to $slib_y2 step $slib_step |
45 | slib_vals=!values $slib_fxn for $slib_var2=$slib_y1 to $slib_y2 step $slib_step |
46 | slib_vals=!replace item NaN by $ in $slib_vals |
46 | slib_vals=!replace item NaN by $ in $slib_vals |
47 | slib_vals=!nonempty items $slib_vals |
47 | slib_vals=!nonempty items $slib_vals |
48 | !if $slib_i>1 |
48 | !if $slib_i>1 |
49 | slib_vals=!sort numeric items $slib_min,$slib_vals,$slib_max |
49 | slib_vals=!sort numeric items $slib_min,$slib_vals,$slib_max |
50 | !else |
50 | !else |
51 | slib_vals=!sort numeric items $slib_vals |
51 | slib_vals=!sort numeric items $slib_vals |
52 | !endif |
52 | !endif |
53 | slib_vals=!trim $slib_vals |
53 | slib_vals=!trim $slib_vals |