juanjicode.asv

该代码实现了am

A=randint(1,189);
                            for i=1:50
                                A(1,i)=yuyin(1,i);
                            end
                            
                            A(1,51)=1;
                            A(1,52)=1;
                            A(1,53)=0;
                            
                            for  j=51:182
                                A(1,j+3)=yuyin(1,j);
                            end
                            
                            for   l=186:189
                               A(1,l)=0;
                            end
                            
                         D=A.';
                          tran_func=sim2tran('juanji2');
                     
                          E=convenco(D,tran_func);                    %   conv
                           
                           
                           
                           
    
  b00=[E(1,1) E(1,2) E(2,1) E(2,2) E(3,1) E(3,2) E(4,1) E(4,2) E(5,1) E(5,2) E(6,1) E(6,2) E(7,1) E(7,2) E(8,1) E(8,2) E(9,1) E(9,2) E(10,1) E(10,2) E(11,1) E(11,2) E(12,1) E(12,2) E(13,1) E(13,2) E(14,1) E(14,2) E(15,1) E(15,2)];
  c00=[E(16,1) E(16,2) E(17,1) E(17,2) E(18,1) E(18,2) E(19,1) E(19,2) E(20,1) E(20,2) E(21,1) E(21,2) E(22,1) E(22,2) E(23,1) E(23,2) E(24,1) E(24,2) E(25,1) E(25,2) E(26,1) E(26,2) E(27,1) E(27,2) E(28,1) E(28,2) E(29,1) E(29,2) E(30,1) E(30,2)];       
  d00=[E(31,1) E(31,2) E(32,1) E(32,2) E(33,1) E(33,2) E(34,1) E(34,2) E(35,1) E(35,2) E(36,1) E(36,2) E(37,1) E(37,2) E(38,1) E(38,2) E(39,1) E(39,2) E(40,1) E(40,2) E(41,1) E(41,2) E(42,1) E(42,2) E(43,1) E(43,2) E(44,1) E(44,2) E(45,1) E(45,2)];               
  e00=[E(46,1) E(46,2) E(47,1) E(47,2) E(48,1) E(48,2) E(49,1) E(49,2) E(50,1) E(50,2) E(51,1) E(51,2) E(52,1) E(52,2) E(53,1) E(53,2) E(54,1) E(54,2) E(55,1) E(55,2) E(56,1) E(56,2) E(57,1) E(57,2) E(58,1) E(58,2) E(59,1) E(59,2) E(60,1) E(60,2)];  
  f00=[E(61,1) E(61,2) E(62,1) E(62,2) E(63,1) E(63,2) E(64,1) E(64,2) E(65,1) E(65,2) E(66,1) E(66,2) E(67,1) E(67,2) E(68,1) E(68,2) E(69,1) E(69,2) E(70,1) E(70,2) E(71,1) E(71,2) E(72,1) E(72,2) E(73,1) E(73,2) E(74,1) E(74,2) E(75,1) E(75,2)];               
  g00=[E(76,1) E(76,2) E(77,1) E(77,2) E(78,1) E(78,2) E(79,1) E(79,2) E(80,1) E(80,2) E(81,1) E(81,2) E(82,1) E(82,2) E(83,1) E(83,2) E(84,1) E(84,2) E(85,1) E(85,2) E(86,1) E(86,2) E(87,1) E(87,2) E(88,1) E(88,2) E(89,1) E(89,2) E(90,1) E(90,2)];               
  h00=[E(91,1) E(91,2) E(92,1) E(92,2) E(93,1) E(93,2) E(94,1) E(94,2) E(95,1) E(95,2) E(96,1) E(96,2) E(97,1) E(97,2) E(98,1) E(98,2) E(99,1) E(99,2) E(100,1) E(100,2) E(101,1) E(101,2) E(102,1) E(102,2) E(103,1) E(103,2) E(104,1) E(104,2) E(105,1) E(105,2)];   
  i00=[E(106,1) E(106,2) E(107,1) E(107,2) E(108,1) E(108,2) E(109,1) E(109,2) E(110,1) E(110,2) E(111,1) E(111,2) E(112,1) E(112,2) E(113,1) E(113,2) E(114,1) E(114,2) E(115,1) E(115,2) E(116,1) E(116,2) E(117,1) E(117,2) E(118,1) E(118,2) E(119,1) E(119,2) E(120,1) E(120,2)]; 
  j00=[E(121,1) E(121,2) E(122,1) E(122,2) E(123,1) E(123,2) E(124,1) E(124,2) E(125,1) E(125,2) E(126,1) E(126,2) E(127,1) E(127,2) E(128,1) E(128,2) E(129,1) E(129,2) E(130,1) E(130,2) E(131,1) E(131,2) E(132,1) E(132,2) E(133,1) E(133,2) E(134,1) E(134,2) E(135,1) E(135,2)]; 
  k00=[E(136,1) E(136,2) E(137,1) E(137,2) E(138,1) E(138,2) E(139,1) E(139,2) E(140,1) E(140,2) E(141,1) E(141,2) E(142,1) E(142,2) E(143,1) E(143,2) E(144,1) E(144,2) E(145,1) E(145,2) E(146,1) E(146,2) E(147,1) E(147,2) E(148,1) E(148,2) E(149,1) E(149,2) E(150,1) E(150,2)];  
  l00=[E(151,1) E(151,2) E(152,1) E(152,2) E(153,1) E(153,2) E(154,1) E(154,2) E(155,1) E(155,2) E(156,1) E(156,2) E(157,1) E(157,2) E(158,1) E(158,2) E(159,1) E(159,2) E(160,1) E(160,2) E(161,1) E(161,2) E(162,1) E(162,2) E(163,1) E(163,2) E(164,1) E(164,2) E(165,1) E(165,2)]; 
  m00=[E(166,1) E(166,2) E(167,1) E(167,2) E(168,1) E(168,2) E(169,1) E(169,2) E(170,1) E(170,2) E(171,1) E(171,2) E(172,1) E(172,2) E(173,1) E(173,2) E(174,1) E(174,2) E(175,1) E(175,2) E(176,1) E(176,2) E(177,1) E(177,2) E(178,1) E(178,2) E(179,1) E(179,2) E(180,1) E(180,2)]; 
  n00=[E(181,1) E(181,2) E(182,1) E(182,2) E(183,1) E(183,2) E(184,1) E(184,2) E(185,1) E(185,2) E(186,1) E(186,2) E(187,1) E(187,2) E(188,1) E(188,2) E(189,1) E(189,2) ];  
  
                          
                               for out1=1:30
                          z00(1,out1)=b00(1,out1);             %        1--30
                               end
                           
                           
                         
                               for out2=31:60
                          z00(1,out2)=c00(1,out2-30);              %     31--60
                               end
                          
                          
                           
                               for out3=61:90
                            z00(1,out3)=d00(1,out3-60);             %      61---90
                               end
               
                           
                                 for out4=91:120              
                          z00(1,out4)=e00(1,out4-90);               %   91--120
                                 end
                             
                         
                               for out5=121:150
                          z00(1,out5)=f00(1,out5-120);               %   121--150
                               end
                       
                               for out6=151:180
                          z00(1,out6)=g00(1,out6-150);               %   151--180
                               end
                       
                          
                               for out7=181:210
                          z00(1,out7)=h00(1,out7-180);               %   181--210
                               end
                        
                               for out8=211:240
                          z00(1,out8)=i00(1,out8-210);               %   211--240
                               end
                               
                              for  out9=241:270 
                          z00(1,out9)=j00(1,out9-240);               %   241--270
                              end
                        
                              for out10=271:300
                          z00(1,out10)=k00(1,out10-270);               %   271--300
                              end
                         
                              for out11=301:330
                          z00(1,out11)=l00(1,out11-300);               %   301--330
                              end
                         
                              for out12=331:360
                          z00(1,out12)=m00(1,out12-330);               %   331-360
                              end
                         
                            
                                for out13=361:378
                          z00(1, out13)=n00(1, out13-360);                %      361--378
                                end
                             
                          for  ii=183:260
                              z00(1,ii+196)=yuyin(1,ii);
                          end
                         subplot(3,1,3), plot(z00);title('信道编码') 
                         
                          t = 0:(length(z00) - 1);
                         t = t';
                         simin = [t, z00'];