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