a2647b106f
Consolidate all standalone utility scripts into contrib/scripts/: - Perl: avg_blocktime.pl, block_time.pl, gen-zaddrs.pl, sda_checkpoints.pl, sdl_checkpoints.pl, hush_block_subsidy_per_halving, hush_halvings, hush_scanner, hush_supply, hush_supply_old - Shell: fresh_clone_compile_and_run.sh, tidy_datadir.sh, dragonx_scanner - Python: convert_address.py - BAT: hush-uri.bat Update path references in contrib/README.md, doc/OLD_WALLETS.md, doc/relnotes/README.md, and sdl_checkpoints.pl.
34 lines
932 B
Perl
Executable File
34 lines
932 B
Perl
Executable File
#!/usr/bin/env perl
|
|
# Copyright 2016-2020 The Hush developers
|
|
# Released under the GPLv3
|
|
use warnings;
|
|
use strict;
|
|
|
|
my $supply = 0.0;
|
|
my $block = 0;
|
|
my $satoshis = 100_000_000;
|
|
my $amount = int(12.5*$satoshis);
|
|
my $halvings = 0;
|
|
|
|
# Usage: ./hush_supply &> supply.csv
|
|
|
|
# Use this to calculate when supply hits a certain value
|
|
#while ($supply <= 21_000_000*$satoshis) {
|
|
# Use this to calculate when block rewards end
|
|
while ($halvings <= 64 && $amount >= 1) {
|
|
$block++;
|
|
if ($block < 5) {
|
|
$amount = 40_000 * $satoshis;
|
|
} else {
|
|
# Halving every 840000 blocks
|
|
if ($block % 840_000 == 0) {
|
|
$amount /= 2;
|
|
$halvings++;
|
|
}
|
|
$amount = int(12.5*$satoshis) / (2**$halvings);
|
|
}
|
|
$supply += $amount;
|
|
# block, current supply, block reward amount, number of halvings
|
|
printf "%s,%s,%s,%s\n", $block,$supply / $satoshis, $amount / $satoshis, $halvings;
|
|
}
|