Calculate capacity reserve and label whether the reserve is stable, watch, or tight.

Capacity Reserve Reliability Report

capacity_reserve.pl
use strict;
use warnings;

my $demand = ;
my $capacity = 100;
my $reserve = $capacity - $demand;
my $reserve_status = "tight";

if ($reserve >= 20) {
    $reserve_status = "stable";
} elsif ($reserve >= 10) {
    $reserve_status = "watch";
}

print "demand=$demand reserve=$reserve status=$reserve_status\n";
use strict;
use warnings;

my $demand = ;
my $capacity = 100;
my $reserve = $capacity - $demand;
my $reserve_status = "tight";

if ($reserve >= 20) {
    $reserve_status = "stable";
} elsif ($reserve >= 10) {
    $reserve_status = "watch";
}

print "demand=$demand reserve=$reserve status=$reserve_status\n";
use strict;
use warnings;

my $demand = ;
my $capacity = 100;
my $reserve = $capacity - $demand;
my $reserve_status = "tight";

if ($reserve >= 20) {
    $reserve_status = "stable";
} elsif ($reserve >= 10) {
    $reserve_status = "watch";
}

print "demand=$demand reserve=$reserve status=$reserve_status\n";
reserve report Fixed capacity and demand values can produce a replay-friendly reserve label before any scheduler acts on it.