#!/usr/bin/perl
#
# convert an input stream with two columns of numbers
#   (ring diam and time for 10 swings)
#   by taking the log10 of both values.
#   Print a new set of two columns to output
#
# MWR 1/12/2026

use POSIX;
$debug = 1;

while (<STDIN>) {
  $line = $_;
  if ($line =~ /^#/) {
    next;
  }
  $line = " " . $line;
  chomp($line);

  @words = split(/\s+/, $line);
  if ($#words != 2) {
    next;
  }

  $diam = $words[1];
  $swingtime = $words[2];

  if ($diam <= 0) {
    $log_diam = -99.0;
  } else {
    $log_diam = log10($diam); 
  }

  if ($swingtime <= 0) {
    $log_swingtime = -99.0;
  } else {
    $log_swingtime = log10($swingtime); 
  }

  if (($log_diam >= -10) && ($log_swingtime >= -10)) {
    printf " %8.4f  %8.4f \n", $log_diam, $log_swingtime;
  }


}

exit 0;