Fix optimize_initial in both perl and js versions

2020-05-06 23:12:03 +03:00
parent 842f88f94f
commit 706a44d4d4
4 changed files with 108 additions and 62 deletions
@@ -0,0 +1,36 @@
+#!/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);