dunkelbader/moku_pattern_gen
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

corrected format of folder and file name and output report

Browse Source
This commit is contained in:
Jan N. Bader
2023-07-28 16:09:23 +02:00
parent a75ef09c2e
commit a7496ba253
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
moku_pattern_gen.pl
View File

@@ -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";
######################