function output=equalization(input,H);
%對信道的補償

%協議中對一幀數據位置的規定
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
evendata=[922 929 765 777 841 844 614 621 891 903 687 690 95 102 456 468 757 760 740   747 288 300 533 536 ,...
          99 461 469 752 762 739 744 293 301 528 538 921 926 770 778 836 846 613 618   896 904 682 692 94 , ...
          771 774 838 845 611 623 897 900 684 691 92 104 462 465 754 761 737 749 294   297 530 537 919 931 ,...
          467 753 758 742 750 289 299 529 534 924 932 766 776 837 842 616 624 892   902 683 688 97 105 457 ,...
          835 847 617 620 894 901 681 693 98 101 459 466 751 763 743 746 291 298 527   539 925 928 768 775, ...
          764 738 748 290 295 532 540 920 930 767 772 840 848 612 622 893 898 686   694 93 103 458 463 756];
odddata= [923 928 766 776 841 843 615 620 892 902 687 689 96 101 457 467 757 759 741   746 289 299 533 535 ,...
          99 461 469 753 761 740 744 293 301 529 537 922 926 770 778 837 845 614 618   896 904 683 691 95, ...
          771 773 839 844 612 622 897 899 685 690 93 103 462 464 755 760 738 748 294   296 531 536 920 930 ,...
          466 754 758 742 750 290 298 530 534 924 932 767 775 838 842 616 624 893   901 684 688 97 105 458 ,...
          836 846 617 619 895 900 682 692 98 100 460 465 752 762 743 745 292 297 528   538 925 927 769 774 ,...
          764 739 747 291 295 532 540 921 929 768 772 840 848 613 621 894 898 686   694 94 102 459 463 756];   
p_even_data=sort(evendata)+1;
p_odd_data=sort(odddata)+1;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

input_1=reshape(input,1024,26);
H_1=reshape(H,144,24);


for j=1:24
    if(mod(j,2)==0)
        input_1(p_even_data,j+1)= input_1(p_even_data,j+1)./H_1(:,j);
    else 
        input_1(p_odd_data,j+1)=  input_1( p_odd_data,j+1)./H_1(:,j);
    end
end

output=reshape(input_1,1,1024*26);