4 my ($a, $b, $p, $r, $l) = @_;
6 return (($b*$p+$a)/($r*$l))*26;
9 sub pll_rx_low_band($$) {
11 my $p = 64; my $r = 65; my $l = 4;
12 return pll_rx($a, $b, $p, $r, $l);
15 sub pll_rx_high_band($$) {
17 my $p = 64; my $r = 65; my $l = 2;
18 return pll_rx($a, $b, $p, $r, $l);
21 sub pll_tx_gsm850_1($$) {
23 my $p = 64; my $r = 55; my $l = 4; my $m = 26;
25 my $left = ((1/$l) - (1/$m));
26 my $right = (($b*$p+$a)/$r);
28 return $left * $right * 26;
31 sub pll_tx_gsm850_2($$) {
33 my $p = 64; my $r = 30; my $l = 4; my $m = 52;
35 my $left = ((1/$l) - (1/$m));
36 my $right = (($b*$p+$a)/$r);
38 return $left * $right * 26;
41 sub pll_tx_gsm900($$) {
43 my $p = 64; my $r = 35; my $l = 4; my $m = 52;
45 my $left = ((1/$l) + (1/$m));
46 my $right = (($b*$p+$a)/$r);
48 return $left * $right * 26;
53 my $p = 64; my $r = 70; my $l = 2; my $m = 26;
55 my $left = ((1/$l) + (1/$m));
56 my $right = (($b*$p+$a)/$r);
58 return $left * $right * 26;
62 printf("======================================================================\n");
65 printf("PLL Rx Low Band:\n");
66 for (my $b = 135; $b <= 150; $b++) {
67 for (my $a = 0; $a <= 62; $a++) {
68 printf("Fout=%4.2f (A=%03u, B=%03u)\n", pll_rx_low_band($a, $b), $a, $b);
73 printf("PLL Rx High Band:\n");
74 for (my $b = 141; $b <= 155; $b++) {
75 for (my $a = 0; $a <= 62; $a++) {
76 printf("Fout=%4.2f (A=%03u, B=%03u)\n", pll_rx_high_band($a, $b), $a, $b);
81 printf("PLL Tx GSM850_1\n");
82 for (my $b = 128; $b <= 130; $b++) {
83 for (my $a = 0; $a <= 62; $a++) {
84 printf("Fout=%4.2f (A=%03u, B=%03u)\n", pll_tx_gsm850_1($a, $b), $a, $b);
89 printf("PLL Tx GSM850_2\n");
90 for (my $b = 65; $b <= 66; $b++) {
91 for (my $a = 0; $a <= 63; $a++) {
92 printf("Fout=%4.2f (A=%03u, B=%03u)\n", pll_tx_gsm850_2($a, $b), $a, $b);
97 printf("PLL Tx GSM900\n");
98 for (my $b = 68; $b <= 71; $b++) {
99 for (my $a = 0; $a <= 63; $a++) {
100 printf("Fout=%4.2f (A=%03u, B=%03u)\n", pll_tx_gsm900($a, $b), $a, $b);
105 printf("PLL Tx GSM1800/1900\n");
106 for (my $b = 133; $b <= 149; $b++) {
107 for (my $a = 0; $a <= 63; $a++) {
108 printf("Fout=%4.2f (A=%03u, B=%03u)\n", pll_tx_high($a, $b), $a, $b);