Subversion Repositories wimsdev

Rev

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