source lognorm.tcl
package require lognorm


foreach mu [ list -9 -8.5 -8 -7.5 -7 ] {
  foreach sigma [ list 1 ] {
    set mean [ lognorm::mean $mu $sigma ]
    set stdev [ lognorm::stdev $mu $sigma ]
    puts [ format "mu: %f sigma %f mean: %.2fms stdev: %.2fms"  \
           $mu $sigma [ expr {${mean}*1000}] [ expr {${stdev}*1000} ] ]
  }
}

source lib/lognorm.tcl
package require lognorm


foreach mu [ list -8.515 -8.51 -8.505 ] {
  foreach sigma [ list 1 ] {
    set mean [ lognorm::mean $mu $sigma ]
    set stdev [ lognorm::stdev $mu $sigma ]
    puts [ format "mu: %f sigma %f mean: %.4fms stdev: %.2fms"  \
           $mu $sigma [ expr {${mean}*1000}] [ expr {${stdev}*1000} ] ]
  }
}

Add param search script for log normal
Add param search script for log normal

git-svn-id: 0c5512015aa96f7d3f5c3ad598bd98edc52008b1@11979 dc4e9af1-7f46-4ead-bba6-71afc04862de
