37 lines
692 B
Perl
37 lines
692 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use lib qw(.);
|
|
use LPOptimizer;
|
|
|
|
my $osd_tree = {
|
|
100 => {
|
|
7 => 3.63869,
|
|
},
|
|
200 => {
|
|
5 => 3.63869,
|
|
6 => 3.63869,
|
|
},
|
|
300 => {
|
|
10 => 3.46089,
|
|
11 => 3.46089,
|
|
12 => 3.46089,
|
|
},
|
|
400 => {
|
|
1 => 3.49309,
|
|
2 => 3.49309,
|
|
3 => 3.49309,
|
|
},
|
|
500 => {
|
|
4 => 3.58498,
|
|
# 8 => 3.58589,
|
|
9 => 3.63869,
|
|
},
|
|
};
|
|
|
|
my $prev = LPOptimizer::optimize_initial($osd_tree, 256);
|
|
LPOptimizer::print_change_stats($prev);
|
|
$osd_tree->{500}->{8} = 3.58589;
|
|
my $next = LPOptimizer::optimize_change($prev->{int_pgs}, $osd_tree);
|
|
LPOptimizer::print_change_stats($next);
|