Class: Kibuvits_krl171bt4_histogram_t1_tests

Inherits:
Object
  • Object
show all
Defined in:
lib/kibuvits_ruby_library_krl171bt4_.rb

Overview

Instance Method Summary collapse

Constructor Details

#initialize ⇒ Kibuvits_krl171bt4_histogram_t1_tests

Returns a new instance of Kibuvits_krl171bt4_histogram_t1_tests.



23389
23390
 
# File 'lib/kibuvits_ruby_library_krl171bt4_.rb', line 23389

def initialize()
end

Instance Method Details

#run_all_tests ⇒ Object 



23480
23481
23482
23483
23484
 
# File 'lib/kibuvits_ruby_library_krl171bt4_.rb', line 23480

def run_all_tests()
   puts(s_test_01_bucket_selection_correctness(true))
   puts(s_test_01_bucket_selection_correctness(false))
   puts(s_test_02_scaling())
end

#s_test_01_bucket_selection_correctness(b_mode = true) ⇒ Object 



23394
23395
23396
23397
23398
23399
23400
23401
23402
23403
23404
23405
23406
23407
23408
23409
23410
23411
23412
23413
23414
23415
23416
23417
23418
23419
23420
23421
23422
23423
23424
 
# File 'lib/kibuvits_ruby_library_krl171bt4_.rb', line 23394

def s_test_01_bucket_selection_correctness(b_mode=true)
   ob_histogram=nil
   if b_mode
      ob_histogram=Kibuvits_krl171bt4_histogram_t1.new(0,3,3)
   else
      ob_histogram=Kibuvits_krl171bt4_histogram_t1.new(-3,0,3)
   end # if
   #----------------------------------------
   s_out=$kibuvits_krl171bt4_lc_linebreak+
   "@i_number_of_numbered_buckets == "+
   ob_histogram.i_number_of_numbered_buckets.to_s+
   $kibuvits_krl171bt4_lc_linebreak+
   $kibuvits_krl171bt4_lc_linebreak+
   "@fd_bucket_0_lowest_bound == "+
   ob_histogram.fd_bucket_0_lowest_bound.to_s+
   $kibuvits_krl171bt4_lc_linebreak+
   "@fd_max_bucket_upper_bound == "+
   ob_histogram.fd_max_bucket_upper_bound.to_s+
   $kibuvits_krl171bt4_lc_linebreak
   #----------------------------------------
   n_of_datapoints=100
   n_of_datapoints.times do
      ob_histogram.count(0)
      ob_histogram.count(1)
      ob_histogram.count(2)
   end # loop
   #----------------------------------------
   s_out<<ob_histogram.to_s()
   return s_out
   #----------------------------------------
end

#s_test_02_scaling ⇒ Object 



23428
23429
23430
23431
23432
23433
23434
23435
23436
23437
23438
23439
23440
23441
23442
23443
23444
23445
23446
23447
23448
23449
23450
23451
23452
23453
23454
23455
23456
23457
23458
23459
23460
23461
23462
23463
23464
23465
23466
23467
23468
23469
23470
23471
23472
23473
23474
23475
23476
 
# File 'lib/kibuvits_ruby_library_krl171bt4_.rb', line 23428

def s_test_02_scaling()
   ob_histogram=Kibuvits_krl171bt4_histogram_t1.new(-9,10,11)
   #----------------------------------------
   i_rand_max=2000
   i_rand_max_plus_1=i_rand_max+1
   n_of_datapoints=100*ob_histogram.i_number_of_numbered_buckets
   fd_range_lenght=ob_histogram.fd_max_bucket_upper_bound-ob_histogram.fd_bucket_0_lowest_bound
   fd_k_normialization=(fd_range_lenght/i_rand_max)
   fd_k_artificial_scaling=5.0
   fd_negative_shift=(i_rand_max*fd_k_normialization*fd_k_artificial_scaling-fd_range_lenght)/2
   #----------------------------------------
   s_out=$kibuvits_krl171bt4_lc_linebreak+
   "@i_number_of_numbered_buckets == "+
   ob_histogram.i_number_of_numbered_buckets.to_s+
   $kibuvits_krl171bt4_lc_linebreak+
   $kibuvits_krl171bt4_lc_linebreak+
   " @fd_bucket_0_lowest_bound == "+
   ob_histogram.fd_bucket_0_lowest_bound.to_s+
   $kibuvits_krl171bt4_lc_linebreak+
   "@fd_max_bucket_upper_bound == "+
   ob_histogram.fd_max_bucket_upper_bound.to_s+
   $kibuvits_krl171bt4_lc_linebreak+
   $kibuvits_krl171bt4_lc_linebreak+
   "fd_range_lenght == "+
   fd_range_lenght.to_s+
   $kibuvits_krl171bt4_lc_linebreak+
   "fd_k_normialization == "+
   fd_k_normialization.to_s+
   $kibuvits_krl171bt4_lc_linebreak+
   "fd_k_artificial_scaling == "+
   fd_k_artificial_scaling.to_s+
   $kibuvits_krl171bt4_lc_linebreak+
   "fd_negative_shift == "+
   fd_negative_shift.to_s+
   $kibuvits_krl171bt4_lc_linebreak
   #----------------------------------------
   fd_generated=nil
   n_of_datapoints.times do
      fd_generated=(fd_k_normialization*rand(i_rand_max_plus_1)*fd_k_artificial_scaling-fd_negative_shift)
      ob_histogram.count(fd_generated)
   end # loop
   s_out<<ob_histogram.to_s()
   #----------------------------------------
   ar_columns=ob_histogram.ar_get_histogram_column_heights
   s_out<<("ar_columns == \n"+ar_columns.to_s)
   s_out<<$kibuvits_krl171bt4_lc_doublelinebreak
   return s_out
   #----------------------------------------
end