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,2,4\
 7 
slib_example= 12,8,0,0,1,1,2,4\
Line 44... Line 44...
44 
  !! of 1, 2 or 5.
 44 
  !! of 1, 2 or 5.
45 
  slib_log=$[log10($slib_xs/($slib_xd-$slib_xo))]
 45 
  slib_log=$[log10($slib_xs/($slib_xd-$slib_xo))]
46 
  slib_logint=$[floor($slib_log)]
 46 
  slib_logint=$[floor($slib_log)]
47 
  slib_logmant=$[$slib_log-$slib_logint]
 47 
  slib_logmant=$[$slib_log-$slib_logint]
48 
  !if $slib_logmant > $[log10(5)]
 48 
  !if $slib_logmant > $[log10(5)]
49 
     slib_xs=1e$[$slib_logint+1]
 49 
    slib_xs=1e$[$slib_logint+1]
50 
  !else
 50 
  !else
51 
    !if $slib_logmant > $[log10(2)]
 51 
    !if $slib_logmant > $[log10(2)]
52 
      slib_xs=5e$slib_logint
 52 
      slib_xs=5e$slib_logint
53 
    !else
 53 
    !else
54 
      slib_xs=2e$slib_logint
 54 
      slib_xs=2e$slib_logint
Line 69... Line 69...
69 
  !! of 1, 2 or 5.
 69 
  !! of 1, 2 or 5.
70 
  slib_log=$[log10($slib_ys/($slib_yd-$slib_yo))]
 70 
  slib_log=$[log10($slib_ys/($slib_yd-$slib_yo))]
71 
  slib_logint=$[floor($slib_log)]
 71 
  slib_logint=$[floor($slib_log)]
72 
  slib_logmant=$[$slib_log-$slib_logint]
 72 
  slib_logmant=$[$slib_log-$slib_logint]
73 
  !if $slib_logmant > $[log10(5)]
 73 
  !if $slib_logmant > $[log10(5)]
74 
     slib_ys=1e$[$slib_logint+1]
 74 
    slib_ys=1e$[$slib_logint+1]
75 
  !else
 75 
  !else
76 
    !if $slib_logmant > $[log10(2)]
 76 
    !if $slib_logmant > $[log10(2)]
77 
      slib_ys=5e$slib_logint
 77 
      slib_ys=5e$slib_logint
78 
    !else
 78 
    !else
79 
      slib_ys=2e$slib_logint
 79 
      slib_ys=2e$slib_logint