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

corrected typos in var names and dir name

Browse Source
This commit is contained in:
Jan N. Bader
2023-09-04 16:13:27 +02:00
parent 41b3c21f0d
commit 3612514214
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
moku_arbitrary_pattern_gen.pl
View File

@@ -24,7 +24,7 @@ my @pin_names = ("LS1", "LS2", "HS", "SS", "LSS", "Rx");
$base_cliq *= $divider; # apply pre-division $base_cliq *= $divider; # apply pre-division
my $baudrate = round($base_freq/$divider); # sample rate after pre-divider my $baudrate = round($base_freq/$divider); # sample rate after pre-divider
my $sig_period = 1e9/$sigfreq; # RF period time in [ns] my $sig_period = 1e9/$sig_freq; # RF period time in [ns]
############################################## ##############################################
### function to return the float remainder of a division ### ### function to return the float remainder of a division ###
@@ -36,7 +36,7 @@ sub remainder {
############################################################ ############################################################
### create outfile in output directory sorted by sampling frequency ### ### create outfile in output directory sorted by sampling frequency ###
my $dirname = 'CODE-AFE_arbitrtary_pattern_'.sprintf("%3.6f", ($baudrate * 1e-6)).'MHz'; my $dirname = 'CODE-AFE_arbitrary_pattern_'.sprintf("%3.6f", ($baudrate * 1e-6)).'MHz';
my $filename = 'CODE-AFE_pattern_'.sprintf("%3.6f", ($sig_freq * 1e-6)).'MHz.txt'; my $filename = 'CODE-AFE_pattern_'.sprintf("%3.6f", ($sig_freq * 1e-6)).'MHz.txt';
mkdir($dirname, 0777); mkdir($dirname, 0777);
open(MYOUTFILE, '>>./'.$dirname.'/'.$filename); open(MYOUTFILE, '>>./'.$dirname.'/'.$filename);