src/host/rita_pll/rita_pll.pl

   1 #!/usr/bin/perl
   2
   3 sub pll_rx($$$$$) {
   4         my ($a, $b, $p, $r, $l) = @_;
   5
   6         return (($b*$p+$a)/($r*$l))*26;
   7 }
   8
   9 sub pll_rx_low_band($$) {
  10         my ($a, $b) = @_;
  11         my $p = 64; my $r = 65; my $l = 4;
  12         return pll_rx($a, $b, $p, $r, $l);
  13 }
  14
  15 sub pll_rx_high_band($$) {
  16         my ($a, $b) = @_;
  17         my $p = 64; my $r = 65; my $l = 2;
  18         return pll_rx($a, $b, $p, $r, $l);
  19 }
  20
  21 sub pll_tx_gsm850_1($$) {
  22         my ($a, $b) = @_;
  23         my $p = 64; my $r = 55; my $l = 4; my $m = 26;
  24
  25         my $left = ((1/$l) - (1/$m));
  26         my $right = (($b*$p+$a)/$r);
  27
  28         return $left * $right * 26;
  29 }
  30
  31 sub pll_tx_gsm850_2($$) {
  32         my ($a, $b) = @_;
  33         my $p = 64; my $r = 30; my $l = 4; my $m = 52;
  34
  35         my $left = ((1/$l) - (1/$m));
  36         my $right = (($b*$p+$a)/$r);
  37
  38         return $left * $right * 26;
  39 }
  40
  41 sub pll_tx_gsm900($$) {
  42         my ($a, $b) = @_;
  43         my $p = 64; my $r = 35; my $l = 4; my $m = 52;
  44
  45         my $left = ((1/$l) + (1/$m));
  46         my $right = (($b*$p+$a)/$r);
  47
  48         return $left * $right * 26;
  49 }
  50
  51 sub pll_tx_high($$) {
  52         my ($a, $b) = @_;
  53         my $p = 64; my $r = 70; my $l = 2; my $m = 26;
  54
  55         my $left = ((1/$l) + (1/$m));
  56         my $right = (($b*$p+$a)/$r);
  57
  58         return $left * $right * 26;
  59 }
  60
  61 sub hr() {
  62         printf("======================================================================\n");
  63 }
  64
  65 printf("PLL Rx Low Band:\n");
  66 for (my $b = 135; $b <= 150; $b++) {
  67 #for GSM 810
  68 #for (my $b = 132; $b <= 150; $b++) {
  69         for (my $a = 0; $a <= 62; $a++) {
  70                 printf("Fout=%4.2f (A=%03u, B=%03u)\n", pll_rx_low_band($a, $b), $a, $b);
  71         }
  72 }
  73
  74 hr();
  75 printf("PLL Rx High Band:\n");
  76 for (my $b = 141; $b <= 155; $b++) {
  77         for (my $a = 0; $a <= 62; $a++) {
  78                 printf("Fout=%4.2f (A=%03u, B=%03u)\n", pll_rx_high_band($a, $b), $a, $b);
  79         }
  80 }
  81
  82 hr();
  83 printf("PLL Tx GSM850_1\n");
  84 for (my $b = 128; $b <= 130; $b++) {
  85 #for GSM 810
  86 #for (my $b = 125; $b <= 130; $b++) {
  87         for (my $a = 0; $a <= 62; $a++) {
  88                 printf("Fout=%4.2f (A=%03u, B=%03u)\n", pll_tx_gsm850_1($a, $b), $a, $b);
  89         }
  90 }
  91
  92 hr();
  93 printf("PLL Tx GSM850_2\n");
  94 for (my $b = 65; $b <= 66; $b++) {
  95         for (my $a = 0; $a <= 63; $a++) {
  96                 printf("Fout=%4.2f (A=%03u, B=%03u)\n", pll_tx_gsm850_2($a, $b), $a, $b);
  97         }
  98 }
  99
 100 hr();
 101 printf("PLL Tx GSM900\n");
 102 for (my $b = 68; $b <= 71; $b++) {
 103         for (my $a = 0; $a <= 63; $a++) {
 104                 printf("Fout=%4.2f (A=%03u, B=%03u)\n", pll_tx_gsm900($a, $b), $a, $b);
 105         }
 106 }
 107
 108 hr();
 109 printf("PLL Tx GSM1800/1900\n");
 110 for (my $b = 133; $b <= 149; $b++) {
 111         for (my $a = 0; $a <= 63; $a++) {
 112                 printf("Fout=%4.2f (A=%03u, B=%03u)\n", pll_tx_high($a, $b), $a, $b);
 113         }
 114 }
 115