#!/usr/bin/env perl

use warnings;

# Kondo model
my $tk1 = `findrootlin td-Sz2.dat 0.07`;
chomp($tk1);

print "Kondo model, T_K=$tk1 (extracted from the NRG results)\n";

print "Analytical estimates:\n";
$J = `getparam Jkondo ../02_td_kondo/1_zloop`;
$rhoJ = 0.5 * $J;
system "tkkondo $rhoJ";

$scale1 = 1/$tk1;
system "scalex $scale1 td-Sz2.dat >chi-rescaled.dat";
