x=sqrt(h01c/(m-1)^2);
Kr1=kramp(x);
Pk1=(m-1)/m*(1-Kr1);
x=sqrt(h02c/(m-1)^2);
Kr2=kramp(x);
Pk2=(m-1)/m*(1-Kr2);
disp(['Poh1=', num2str(Pk1),' когерентный прием']);
disp(['Poh2=', num2str(Pk2),' когерентный прием']);
x=sqrt(h01c/(2*(m-1)^2));
Kr1=kramp(x);
Pk1=(m-1)/m*(1-Kr1);
x=sqrt(h02c/(2*(m-1)^2));
Kr2=kramp(x);
Pk2=(m-1)/m*(1-Kr2);
disp(['Poh1=', num2str(Pk1),' некогерентный прием']);
disp(['Poh2=', num2str(Pk2),' некогерентный прием']);
disp('Биполярные прямоугольные импульсы');
x=sqrt(2*h01c/(m-1)^2);
Kr1=kramp(x);
Pk1=(m-1)/m*(1-Kr1);
x=sqrt(2*h02c/(m-1)^2);
Kr2=kramp(x);
Pk2=(m-1)/m*(1-Kr2);
disp(['Poh1=', num2str(Pk1),' когерентный прием']);
disp(['Poh2=', num2str(Pk2),' когерентный прием']);
x=sqrt(h01c/(m-1)^2);
Kr1=kramp(x);
Pk1=(m-1)/m*(1-Kr1);
x=sqrt(h02c/(m-1)^2);
Kr2=kramp(x);
Pk2=(m-1)/m*(1-Kr2);
disp(['Poh1=', num2str(Pk1),' некогерентный прием']);
disp(['Poh2=', num2str(Pk2),' некогерентный прием']);
elseif Tm==2
disp('Частотная модуляция');
disp('FSK с разрывом фазы c ФНЧ');
x=sqrt(h01c/2);
Kr1=kramp(x);
Pk1=(m-1)/m*(1-Kr1);
x=sqrt(h02c/2);
Kr2=kramp(x);
Pk2=(m-1)/m*(1-Kr2);
disp(['Poh1=', num2str(Pk1),' FSK']);
disp(['Poh2=', num2str(Pk2),' FSK']);
disp('MSK без разрыва фазы c ФНЧ');
x=sqrt(h01c/1.5);
Kr1=kramp(x);
Pk1=(m-1)/m*(1-Kr1);
x=sqrt(h02c/1.5);
Kr2=kramp(x);
Pk2=(m-1)/m*(1-Kr2);
disp(['Poh1=', num2str(Pk1),' MSK']);
disp(['Poh2=', num2str(Pk2),' MSK']);
disp('MSK с минимальным отклонением фазы, без разрыва фазы c ФНЧ');
x=sqrt(h01c);
Kr1=kramp(x);
Pk1=(m-1)/m*(1-Kr1);
x=sqrt(h02c);
Kr2=kramp(x);
Pk2=(m-1)/m*(1-Kr2);
disp(['Poh1=', num2str(Pk1),' MSK min']);
disp(['Poh2=', num2str(Pk2),' MSK min']);
elseif Tm==3
disp('Фазовая модуляция');
x=sqrt(2*h01c*(sin(pi/m))^2);
Kr1=kramp(x);
Pk1=(m-1)/m*(1-Kr1);
x=sqrt(2*h02c*(sin(pi/m))^2);
Kr2=kramp(x);
Pk2=(m-1)/m*(1-Kr2);
set(handles.edit15, 'String', Pk1);
set(handles.edit45, 'String', Pk2);
disp(['Poh1=', num2str(Pk1),' ФМ когерентный прием']);
disp(['Poh2=', num2str(Pk2),' ФМ когерентный прием']);
elseif Tm==5
disp(' OFDM');
Pk1=(m-1)/(m*log2(m))*(1-sqrt(3*h01*log2(m)/(m^2-1)/(3*h01*log2(m)/(m^2-1)+1)));
Pk2=(m-1)/(m*log2(m))*(1-sqrt(3*h02*log2(m)/(m^2-1)/(3*h02*log2(m)/(m^2-1)+1)));
disp(['Poh1=', num2str(Pk1),' OFDM ФМ-2 ']);
disp(['Poh2=', num2str(Pk2),' OFDM ФМ-2 ']);
end
guidata(hObject, handles);
function varargout = LK_data_FM_OutputFcn(hObject, eventdata, handles)
varargout{1} = handles.output;
function edit1_Callback(hObject, eventdata, handles)
function edit1_CreateFcn(hObject, eventdata, handles)
