From a7496ba25337b2b1ea3aaab1a07f18bef08fa426 Mon Sep 17 00:00:00 2001 From: "Jan N. Bader" Date: Fri, 28 Jul 2023 16:09:23 +0200 Subject: [PATCH] corrected format of folder and file name and output report --- moku_pattern_gen.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/moku_pattern_gen.pl b/moku_pattern_gen.pl index ef5f6e7..e4673d2 100644 --- a/moku_pattern_gen.pl +++ b/moku_pattern_gen.pl @@ -7,7 +7,7 @@ use List::Util qw(max); # for max @list ### configure the pattern here ### my $divider = 1; # configured freq divieder -my $sig_period_c = 10; # periode of RF during pulse in [base_cliqs] +my $sig_period_c = 4; # periode of RF during pulse in [base_cliqs] my $pulse_time = 9000; # B1 puls duration in [ns] my $short_time = 1000; # short switch on time in [ns] my $receive_time = 9900; # receiver on time in [ns] @@ -37,8 +37,8 @@ sub remainder { ############################################################ ### create outfile in output directory sorted by sampling frequency ### -my $dirname = 'CODE-AFE_pattern'.sprintf("%.0f", $baudrate).'MHz'; -my $filename = 'CODE-AFE_pattern'.sprintf("%.0f", $sig_freq).'MHz.csv'; +my $dirname = 'CODE-AFE_pattern_'.sprintf("%3.6f", ($baudrate * 1e-6)).'MHz'; +my $filename = 'CODE-AFE_pattern_'.sprintf("%3.6f", ($sig_freq * 1e-6)).'MHz.csv'; mkdir($dirname, 0777); open(MYOUTFILE, '>>./'.$dirname.'/'.$filename); ####################################################################### @@ -113,7 +113,7 @@ for (my $i=0; $i < $max_cliqs; $i++) { print "### CODE-AFE pattern file written ###\n"; print "Filename: ".$filename."\n"; print "Created in dir: ".$dirname."\n"; -print "B1 frequency will be: ".sprintf("%3.6f", $sig_freq)."MHz\n"; +print "B1 frequency will be: ".sprintf("%3.6f", ($sig_freq * 1e-6))."MHz\n"; print "pattern length: ".$last_cliq." of ".$max_cliqs." samples\n"; print "#####################################\n"; ######################