Subversion Repositories wimsdev

Rev

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

Rev 7692 Rev 13594
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=Georges, Khaznadar
5
slib_author=Georges, Khaznadar
6
 
6
 
7
slib_example= 12,8,0,0,1,1,125,13\
7
slib_example= 12,8,0,0,1,1,125,13\
Line 42... Line 42...
42
  !! of 1, 2 or 5.
42
  !! of 1, 2 or 5.
43
  slib_log=$[log10($slib_xs/($slib_xd-$slib_xo))]
43
  slib_log=$[log10($slib_xs/($slib_xd-$slib_xo))]
44
  slib_logint=$[floor($slib_log)]
44
  slib_logint=$[floor($slib_log)]
45
  slib_logmant=$[$slib_log-$slib_logint]
45
  slib_logmant=$[$slib_log-$slib_logint]
46
  !if $slib_logmant > $[log10(5)]
46
  !if $slib_logmant > $[log10(5)]
47
     slib_xs=1e$[$slib_logint+1]
47
    slib_xs=1e$[$slib_logint+1]
48
  !else
48
  !else
49
    !if $slib_logmant > $[log10(2)]
49
    !if $slib_logmant > $[log10(2)]
50
      slib_xs=5e$slib_logint
50
      slib_xs=5e$slib_logint
51
    !else
51
    !else
52
      slib_xs=2e$slib_logint
52
      slib_xs=2e$slib_logint