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= ,,,,,,,,,0,0,1.2,1.5,2.4,3.2\
7
slib_example= ,,,,,,,,,0,0,1.2,1.5,2.4,3.2\
Line 41... Line 41...
41
  !! of 1, 2 or 5.
41
  !! of 1, 2 or 5.
42
  slib_log=$[log10($slib_xs/($slib_xd-$slib_xo))]
42
  slib_log=$[log10($slib_xs/($slib_xd-$slib_xo))]
43
  slib_logint=$[floor($slib_log)]
43
  slib_logint=$[floor($slib_log)]
44
  slib_logmant=$[$slib_log-$slib_logint]
44
  slib_logmant=$[$slib_log-$slib_logint]
45
  !if $slib_logmant > $[log10(5)]
45
  !if $slib_logmant > $[log10(5)]
46
     slib_xs=1e$[$slib_logint+1]
46
    slib_xs=1e$[$slib_logint+1]
47
  !else
47
  !else
48
    !if $slib_logmant > $[log10(2)]
48
    !if $slib_logmant > $[log10(2)]
49
      slib_xs=5e$slib_logint
49
      slib_xs=5e$slib_logint
50
    !else
50
    !else
51
      slib_xs=2e$slib_logint
51
      slib_xs=2e$slib_logint
Line 66... Line 66...
66
  !! of 1, 2 or 5.
66
  !! of 1, 2 or 5.
67
  slib_log=$[log10($slib_ys/($slib_yd-$slib_yo))]
67
  slib_log=$[log10($slib_ys/($slib_yd-$slib_yo))]
68
  slib_logint=$[floor($slib_log)]
68
  slib_logint=$[floor($slib_log)]
69
  slib_logmant=$[$slib_log-$slib_logint]
69
  slib_logmant=$[$slib_log-$slib_logint]
70
  !if $slib_logmant > $[log10(5)]
70
  !if $slib_logmant > $[log10(5)]
71
     slib_ys=1e$[$slib_logint+1]
71
    slib_ys=1e$[$slib_logint+1]
72
  !else
72
  !else
73
    !if $slib_logmant > $[log10(2)]
73
    !if $slib_logmant > $[log10(2)]
74
      slib_ys=5e$slib_logint
74
      slib_ys=5e$slib_logint
75
    !else
75
    !else
76
      slib_ys=2e$slib_logint
76
      slib_ys=2e$slib_logint