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