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