23 lines
553 B
Perl
23 lines
553 B
Perl
#!/usr/bin/perl -w
|
|
use strict;
|
|
use warnings;
|
|
#use Cwd;
|
|
|
|
my $base_freq = 125 000 000;
|
|
my $divider = 1;
|
|
my $baudrate = $base_freq/$divider;
|
|
|
|
my $sig_freq = 10 000 000;
|
|
my $pulse_time = 9e-6;
|
|
my $short_time = 1e-6;
|
|
my $receive_time = 1e-5;
|
|
my $recovery_time = 1e-7;
|
|
|
|
mkdir('CODE-AFE_pattern'.sprintf("%.0f", $baud_rate).'MHz', 0777);
|
|
chdir 'CODE-AFE_pattern'.sprintf("%.0f", $baud_rate).'MHz';
|
|
|
|
my $filename = '>>CODE-AFE_pattern'.sprintf("%.0f", $sig_freq).'MHz.csv';
|
|
open(MYOUTFILE, $filename);
|
|
|
|
print MYOURFILE "Pin 1; Pin 2; Pin 3; Pin4; Pin5; Pin6;";
|