function varargout = cos(varargin)

gui_Singleton = 1;

gui_State = struct('gui_Name',       mfilename, ...

                   'gui_Singleton',  gui_Singleton, ...

                   'gui_OpeningFcn', @cos_OpeningFcn, ...

                   'gui_OutputFcn',  @cos_OutputFcn, ...

                   'gui_LayoutFcn',  [] , ...

                   'gui_Callback',   []);

if nargin && ischar(varargin{1})

    gui_State.gui_Callback = str2func(varargin{1});

end

if nargout

    [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});

else

    gui_mainfcn(gui_State, varargin{:});

end

function cos_OpeningFcn(hObject, eventdata, handles, varargin)

handles.output = hObject;

guidata(hObject, handles);

function varargout = cos_OutputFcn(hObject, eventdata, handles) 

varargout{1} = handles.output;

function pushbutton1_Callback(hObject, eventdata, handles)

tryp=get(handles.edit6,'String');

tryp=str2num(tryp);

if(tryp==1)

load Hdft;

newwindow=fvtool(Hdft);

set(newwindow,'ShowReference','Off')

set(newwindow,'Fs',8,'Legend','on')

end

function pushbutton2_Callback(hObject, eventdata, handles)

tryp=get(handles.edit6,'String');

tryp=str2num(tryp);

if(tryp==1)

load Hdft;

newwindow=fvtool(Hdft);

set(newwindow,'ShowReference','Off')

set(newwindow,'Fs',8,'Legend','on')

set(newwindow,'Analysis','phase')

end

function pushbutton3_Callback(hObject, eventdata, handles)

tryp=get(handles.edit6,'String');

tryp=str2num(tryp);

if(tryp==1)

load Hdft;

newwindow=fvtool(Hdft);

set(newwindow,'ShowReference','Off')

set(newwindow,'Fs',8,'Legend','on')

set(newwindow,'Analysis','polezero')

end

function pushbutton4_Callback(hObject, eventdata, handles)

tryp=get(handles.edit6,'String');

tryp=str2num(tryp);

if(tryp==1)

load Hdft;

newwindow=fvtool(Hdft);

set(newwindow,'ShowReference','Off')

set(newwindow,'Fs',8,'Legend','on')

set(newwindow,'Analysis','impulse')

end

function pushbutton5_Callback(hObject, eventdata, handles)

tryp=get(handles.edit6,'String');

tryp=str2num(tryp);

if(tryp==1)

load Hdft;

newwindow=fvtool(Hdft);

set(newwindow,'ShowReference','Off')

set(newwindow,'Fs',8,'Legend','on')

set(newwindow,'Analysis','phasedelay')

end

function edit6_CreateFcn(hObject, eventdata, handles)

if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

    set(hObject,'BackgroundColor','white');

end

% --- Executes on button press in pushbutton6.

function pushbutton6_Callback(hObject, eventdata, handles)

inkorect=0;

K = get (handles.edit1,'String')

K=str2num(K);

incorect=0;

if(K>20)

    incorect=1;

end

if(K<2)

    incorect=1;

end

if(size(K)==0)

    incorect=1;

end

if(incorect==0)

y=eye(K,1);

x=eye(K-1,1);

set(handles.uitable3,'Data',y);

set(handles.uitable4,'Data',x);

else

    errordlg('Ошибка порядок фильтра не число, или он болше 20 или меньше 2','крит ошибка')

end

function pushbutton7_Callback(hObject, eventdata, handles)

amass=get(handles.uitable3,'Data')

bmass=amass;

long1a=size(amass);

tmass=get(handles.uitable4,'Data')

long1b=size(tmass);

if(long1a(1)>long1b(1))

    max=long1a(1);

else

    max=long1b(1);

end

for step=1:1:max

    if(step==1)

        bmass(step)=1;

    else

    bmass(step)=tmass(step-1);

    end

end

inkorect=0;

for step=1:1:max

   if(isnan(amass(step))==1)

       inkorect=1;

   end

  if(isnan(bmass(step))==1)

       inkorect=1;

  end

  if (step==max)

     if (amass(max)==0)

        inkorect=1;

     end

  end

end

if(inkorect~=1)

amass=transpose(amass);

bmass=transpose(bmass);

Hdft=dfilt.df1(amass,bmass)

save Hdft;

set(0,'DefaultAxesFontSize',14,'DefaultAxesFontName','Times New Roman');

set(0,'DefaultTextFontSize',14,'DefaultTextFontName','Times New Roman'); 

set(handles.axes1, 'YLim', [-20-5*max 20+max*5])

set(handles.axes1, 'XLim', [0 115+(max-1)*35])

x=[45 70];

y=[5 5];

cla(handles.axes1);

hold on;

%karkas

for step=1:1:max-1

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

        xp=y(1)-10;

    yp=y(2)-10;

    y=[xp yp];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

    xp=x(2)-25;

    yp=y(2)+10;

    x=[x(1) xp];

    y=[y(1) yp];

    n=y;

    n(2)=n(2)-5;

    n(1)=n(1)+5;

    kt=x;

    kt(1)=kt(1)+10;

    kt(2)=kt(2)+10;

    text(kt,n,'Z-1','FontSize',16/(sqrt(max)));

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

    xp=x(1)+25;

    x=[xp xp];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

    y=[y(2) y(2)];

    yp=x(2)+35;

    xp=x(1)+10;

    x=[xp yp];

end

    xp=x(1)+60;

    yp=x(2)+45;

    x=[xp yp];

    y=[0 0];

    %line 1

for step=1:1:max+4

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

    x(1)=x(1)-35;

    x(2)=x(2)-35;

end

%круг

patypr=10:0.1:35;

zed=-22.5;

for step=1:1:2

    ym1=(patypr+zed).^2;

ym=sqrt(10^2-ym1)/1.2;

plot(patypr,ym,'Color',[.1 .6 .6],'LineWidth',2);

plot(patypr,-ym,'Color',[.1 .6 .6],'LineWidth',2);

zed=zed-70-(max-1)*35;

patypr=80+(max-1)*35:0.1:(max-1)*35+105;

end

x=[15 31];

y=[0 0];

%plus

for step=1:1:2

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

    xp=x(1)/2+x(2)/2

    x=[xp xp];

    y=[-4 4];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

    x=[84+(max-1)*35 100+(max-1)*35];

    y=[0 0];

end

%notzero

amasszero=0;

bmasszerro=0;

for step=1:1:max-1

    if(amass(step)~=0)

       amasszero=amasszero+1; 

    end

    if(bmass(step)~=0)

        bmasszerro=bmasszerro+1;

    end

end

%line2(element baze)

amass=get(handles.uitable3,'Data')

bmass=amass;

tmass=get(handles.uitable4,'Data')

for step=1:1:max

    if(step==max)

        bmass(step)=1;

    else

    bmass(step)=tmass(step);

    end

end

x=[40 40];

n=10+amasszero*5;

y=[0 n];

k=40;

naklon=amasszero;

for step=1:1:max-1

    if(amass(step)~=0)

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

    xp=k/2+91.5/2+(max-1)*35/2-12.5;

    x=[k xp];

    y=[n n];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

    nd=naklon/amasszero;

    naklon=naklon-1;

    nd=((91.5+(max-1)*35)-xp-25)*nd+xp+25;

    x=[xp+25 nd];

    y=[n n];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

    x=[nd 91.5+(max-1)*35];

    y=[n 5];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

    if(amass(step)~=1)

    x=[xp xp];

    y=[n-3 n+3];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

     x=[xp xp+25];

    y=[n-3 n];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

        x=[xp xp+25];

    y=[n+3 n];

        line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

    nd=y;

    nd(2)=n+5;

    nd(1)=n+5;

    kt(1)=xp+5;

    kt(2)=xp+5;

        text(kt,nd,[' ',num2str(amass(step))],'FontSize',13);

    else

        x=[xp xp+25];

        y=[n n];

        line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

    end

    n=n-5;

    end

       k=k+35;

    x=[k k];

    y=[0 n];

end

%last e;ement no recurs filter

if(amass(long1a(1))~=0)

    if(amass(long1a(1))~=1)

    x=[45+(max-1)*35 45+(max-1)*35];

    y=[-3 3];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

     x=[45+(max-1)*35 70+(max-1)*35];

    y=[-3 0];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

        x=[45+(max-1)*35 70+(max-1)*35];

    y=[3 0];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

        nd(2)=5;

    nd(1)=5;

    kt(1)=50+(max-1)*35;

    kt(2)=50+(max-1)*35;

        text(kt,nd,[' ',num2str(amass(long1a(1)))],'FontSize',32/sqrt(max));

    else

    x=[45+(max-1)*35 70+(max-1)*35];

    y=[0 0];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

    end

end

x=[75 75];

y=[0 -15];

n=-15;

k=75;

naklon=bmasszerro-1;

for step=1:1:max-1

    if(bmass(step)~=0)

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

    xp=k/2+22.5/2+12.5;

    x=[k xp];

    y=[n n];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

        nd1=naklon/(bmasszerro);

    naklon=naklon-1;

    nd1=(22.5)*nd1+22.5;

    x=[xp-25 nd1];

    y=[n n];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

    x=[nd1 22.5];

    y=[n -5];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

    if(bmass(step)~=1)

    x=[xp xp];

    y=[n-3 n+3];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

     x=[xp xp-25];

    y=[n-3 n];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

        x=[xp xp-25];

    y=[n+3 n];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

    nd=y;

    nd(2)=n-5;

    nd(1)=n-5;

    kt(1)=xp-15;

    kt(2)=xp-15;

        text(kt,nd,[' ',num2str(bmass(step))],'FontSize',32/sqrt(max));

    else

    x=[xp xp-25];

    y=[n n];

    line(x,y,'Color',[.1 .6 .6],'LineWidth',2);

    end

    n=n-5;

    end

        k=k+35;

    x=[k k];

    y=[0 n];

end

axis(handles.axes1)

grid on

else

    errordlg('Ошибка один из элементов матрицы не число или последний элемент равен 0','крит ошибка')

end

function edit1_CreateFcn(hObject, eventdata, handles)

if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

    set(hObject,'BackgroundColor','white');

end

function popupmenu1_CreateFcn(hObject, eventdata, handles)

if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

    set(hObject,'BackgroundColor','white');

end

function edit2_CreateFcn(hObject, eventdata, handles)

if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

    set(hObject,'BackgroundColor','white');

end

function edit4_CreateFcn(hObject, eventdata, handles)

if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

    set(hObject,'BackgroundColor','white');

end

function popupmenu2_CreateFcn(hObject, eventdata, handles)

if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))

    set(hObject,'BackgroundColor','white');

end

% --------------------------------------------------------------------

function Untitled_13_Callback(hObject, eventdata, handles)

PictName = uiputfile({'.bmp','Picture files'},'Save graph');

if(PictName)

saveas(handles.axes1,PictName);

end

function Untitled_5_Callback(hObject, eventdata, handles)

ptr='option.html';

open(ptr);

% --------------------------------------------------------------------

function Untitled_4_Callback(hObject, eventdata, handles)

              exit();

% --------------------------------------------------------------------

function Untitled_6_Callback(hObject, eventdata, handles)

msgbox({'     Синтез структурной схемы последовательного ЦФ' ' ' ' ' '   Автор программы студент группы ТК 42: Шишкин А.А.' ' ' '    Версия программы:1.a' ' ' '                                       2014 Киров'},'О программе');