Subversion Repositories wimsdev

Rev

Rev 7692 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7692 Rev 13585
Line 1... Line 1...
1 
!if $wims_read_parm!=slib_header
 1 
!if $wims_read_parm!=slib_header
2 
 !goto proc
 2 
  !goto proc
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
Line 16... Line 16...
16 
slib_var2=!item 2 of $slib_var
 16 
slib_var2=!item 2 of $slib_var
17 
!default slib_var1=x
 17 
!default slib_var1=x
18 
!default slib_var2=y
 18 
!default slib_var2=y
19 
slib_x1=$[$slib_x1]
 19 
slib_x1=$[$slib_x1]
20 
!if $slib_x1=$empty or $slib_x1 isitemof NaN,Inf
 20 
!if $slib_x1=$empty or $slib_x1 isitemof NaN,Inf
21 
	 slib_x1=0
 21 
  slib_x1=0
22 
!endif
 22 
!endif
23 
slib_x2=$[$slib_x2]
 23 
slib_x2=$[$slib_x2]
24 
!if $slib_x2=$empty or $slib_x2 isitemof NaN,Inf
 24 
!if $slib_x2=$empty or $slib_x2 isitemof NaN,Inf
25 
	 slib_x2=1
 25 
	slib_x2=1
26 
!endif
 26 
!endif
27 
slib_y1=$[$slib_y1]
 27 
slib_y1=$[$slib_y1]
28 
!if $slib_y1=$empty or $slib_y1 isitemof NaN,Inf
 28 
!if $slib_y1=$empty or $slib_y1 isitemof NaN,Inf
29 
 slib_y1=0
 29 
  slib_y1=0
30 
!endif
 30 
!endif
31 
slib_y2=$[$slib_y2]
 31 
slib_y2=$[$slib_y2]
32 
!if $slib_y2=$empty or $slib_y2 isitemof NaN,Inf
 32 
!if $slib_y2=$empty or $slib_y2 isitemof NaN,Inf
33 
 slib_x2=1
 33 
 slib_x2=1
34 
!endif
 34 
!endif
Line 44... Line 44...
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
54 
	slib_min=!item 1 of $slib_vals
 54 
	slib_min=!item 1 of $slib_vals