% hObject    handle to txtU (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of txtU as txtS
%        str2double(get(hObject,'String')) returns contents of txtU as a double


% --- Executes during object creation, after setting all properties.
function txtU_CreateFcn(hObject, eventdata, handles)
% hObject    handle to txtU (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function txtrAS_Callback(hObject, eventdata, handles)
% hObject    handle to txtrAS (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of txtrAS as txtS
%        str2double(get(hObject,'String')) returns contents of txtrAS as a double


% --- Executes during object creation, after setting all properties.
function txtrAS_CreateFcn(hObject, eventdata, handles)
% hObject    handle to txtrAS (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function txtt_Callback(hObject, eventdata, handles)
% hObject    handle to txtt (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of txtt as txtS
%        str2double(get(hObject,'String')) returns contents of txtt as a double


% --- Executes during object creation, after setting all properties.
function txtt_CreateFcn(hObject, eventdata, handles)
% hObject    handle to txtt (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



function txtX_Callback(hObject, eventdata, handles)
% hObject    handle to txtX (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of txtX as txtS
%        str2double(get(hObject,'String')) returns contents of txtX as a double


% --- Executes during object creation, after setting all properties.
function txtX_CreateFcn(hObject, eventdata, handles)
% hObject    handle to txtX (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end

% --- Executes during object creation, after setting all properties.
function bsantenna_CreateFcn(hObject, eventdata, handles)
% hObject    handle to bsantenna (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% --------------------------------------------------------------------
function bsantenna_SelectionChangeFcn(hObject, eventdata, handles)
% hObject    handle to bsantenna (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% --- Executes on button press in pushbutton1.
function pushbutton1_Callback(hObject, eventdata, handles)
% hObject    handle to pushbutton1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

valR=str2double(get(handles.txtR,'string'));
if isnan(valR) | valR<=0 | mod(valR,floor(valR))~=0
    errordlg('Wrong Input for parameter R, R must be non zero natural','Error')
    return
end

a=get(handles.radiobutton7, 'Value');
c=get(handles.radiobutton8, 'Value');
if a==1
    valBSAP=1;
elseif a==0 & c==1
    valBSAP=2;
else
    valBSAP=3;
end

b=get(handles.radiobutton12, 'Value');
if b==1
    [vald valthetaBS valthetaMS valomegaBS valomegaMS valthetav]=OrientationsFixBS(valR);
else
    vald=str2double(get(handles.resd,'string'));
    if isnan(vald) | vald<=0 | vald>valR
        errordlg('Wrong Input for parameter d, d must be a non zero natural smaller or equal to R','Error')
        return
    end
    valomegaMS=str2double(get(handles.resomegaMS,'string'));
    if isnan(valomegaMS) | valomegaMS<0 | valomegaMS>360
        errordlg('Wrong Input for parameter Omega MS, Omega MS must be positive real smaller than 360','Error')
        return
    end
    valthetaBS=str2double(get(handles.resthetaBS,'string'));
    if isnan(valthetaBS) | valthetaBS<0 | valthetaBS>360
        errordlg('Wrong Input for parameter Theta BS, Theta BS must be positive real smaller than 360','Error')
        return
    end
    valomegaBS=str2double(get(handles.resomegaBS,'string'));
    if isnan(valomegaBS) | valomegaBS<0 | valomegaBS>360
        errordlg('Wrong Input for parameter Omega BS, Omega BS must be positive real smaller than 360','Error')
        return
    end
    valthetav=str2double(get(handles.resthetav,'string'));
    if isnan(valthetav) | valthetav<0 | valthetav>360
        errordlg('Wrong Input for parameter Theta v, Theta v must be positive real smaller than 360','Error')
        return
    end
    valthetaMS=round(abs(valomegaBS-valomegaMS+valthetaBS+180));
end


valS=str2double(get(handles.txtS,'string'));
if isnan(valS) | valS<=0 | mod(valS,floor(valS))~=0 
    errordlg('Wrong Input for parameter S, S must be non zero natural','Error')
    return
end

valU=str2double(get(handles.txtU,'string'));
if isnan(valU) | valU<=0 | mod(valU,floor(valU))~=0
    errordlg('Wrong Input for parameter U, U must be non zero natural','Error')
    return
end

valdBS=eval(get(handles.txtdBS,'string'));
if length(valdBS)~=(valS-1) & valS~=1
    errordlg('Check the Input distances at the Base Station','Error')
    return
elseif valS==1
    valdBS=0;
end

valdMS=eval(get(handles.txtdMS,'string'));
if length(valdMS)~=(valU-1) & valU~=1
    errordlg('Check the Input distances at the Mobile Station','Error')
    return
elseif valU==1
    valdMS=0;
end

valN=str2double(get(handles.txtN,'string'));
if isnan(valN) | valN<=0 | mod(valN,floor(valN))~=0
    errordlg('Wrong Input for parameter N, N must be non zero natural','Error')
    return
elseif valN>18
    errordlg('Input for parameter N too big, N must be smaller than 18','Error')
    return
end


valM=str2double(get(handles.txtM,'string'));
if isnan(valM) | valM<=0 | mod(valM,floor(valM))~=0
    errordlg('Wrong Input for parameter M, M must be non zero natural','Error')
    return
elseif valM>200
    errordlg('Input for parameter M too big, M must be smaller than 200','Error')
    return
end

valfc=str2double(get(handles.txtfc,'string'));
if isnan(valfc) | valfc<=0 
    errordlg('Wrong Input for parameter fc, fc must be non zero positive real','Error')
    return
end

valv=str2double(get(handles.txtv,'string'));
if isnan(valv) | valv<0 
    errordlg('Wrong Input for parameter v, v must be non zero positive real','Error')
    return
end

valrDS=str2double(get(handles.txtrDS,'string'));
if isnan(valrDS) | valrDS<=0 
    errordlg('Wrong Input for parameter rDS, rDS must be non zero positive real','Error')
    return
end

valrAS=str2double(get(handles.txtrAS,'string'));
if isnan(valrAS) | valrAS<=0 
    errordlg('Wrong Input for parameter rAS, rAS must be non zero positive real','Error')
    return
end

valBSAS=str2double(get(handles.txtBSAS,'string'));
if isnan(valBSAS) | valBSAS<=0 
    errordlg('Wrong Input for parameter BSAS, BSAS must be non zero positive real','Error')
    return
end

valMSAS=str2double(get(handles.txtMSAS,'string'));
if isnan(valMSAS) | valMSAS<=0 
    errordlg('Wrong Input for parameter MSAS, MSAS must be non zero positive real','Error')
    return
end

valt=str2double(get(handles.txtt,'string'));
if isnan(valt) | valt<=0 
    errordlg('Wrong Input for parameter t, t must be non zero positive real','Error')
    return
end

valX=str2double(get(handles.txtX,'string'));
if isnan(valX) | valX<=0
    errordlg('Wrong Input for parameter X, X must be non zero positive real','Error')
    return
end

valSNR=str2double(get(handles.txtSNR,'string'));

valmonBS=str2double(get(handles.txtmonBS,'string'));
if isnan(valmonBS) | valmonBS<=0 | mod(valmonBS,floor(valmonBS))~=0 |valmonBS > valS
    errordlg('Wrong Input for the BS antenna to plot, it must be non zero natural smaller or equal to S','Error')
    return
end

valmonMS=str2double(get(handles.txtmonMS,'string'));
if isnan(valmonMS) | valmonMS<=0 | mod(valmonMS,floor(valmonMS))~=0 | valmonMS > valU
    errordlg('Wrong Input for the MS antenna to plot, it must be non zero natural smaller or equal to U','Error')
    return
end

valpath=str2double(get(handles.txtpath,'string'));
if isnan(valpath) | valpath<=0 | mod(valpath,floor(valpath))~=0 | valpath > valN
    errordlg('Wrong Input for the path to plot, it must be non zero natural smaller or equal to N','Error')
    return
end

valD=str2double(get(handles.txtD,'string'));
if isnan(valD) | valD<=0 | mod(valD,floor(valD))~=0 
    errordlg('Wrong Input for D, D must be non zero natural','Error')
    return
end

valdrop=str2double(get(handles.txtdrop,'string'));
if isnan(valdrop) | valdrop<=0 | mod(valdrop,floor(valdrop))~=0 | valdrop > valD
    errordlg('Wrong Input for drop to plot, it must be non zero natural smaller or equal to D','Error')
    return
end

cor=[1 str2double(get(handles.edit50,'string')) str2double(get(handles.edit51,'string')) str2double(get(handles.edit52,'string')) 0.5 str2double(get(handles.edit53,'string')) str2double(get(handles.edit54,'string')) str2double(get(handles.edit55,'string')) str2double(get(handles.edit56,'string')) str2double(get(handles.edit57,'string'))]; 
if isnan(cor(2)) | isnan(cor(3)) | isnan(cor(4)) | isnan(cor(6)) |isnan(cor(7)) |isnan(cor(8)) |isnan(cor(9)) |isnan(cor(10)) 
    errordlg('Check the Correlated Parameters','Error')
    return
end
ti=valt/(0.001*valX);
k=1;
for k=1:valD
    if b==1
    [vald valthetaBS valthetaMS valomegaBS valomegaMS valthetav]=OrientationsFixBS(valR);
    else
    end
    d=get(handles.checkbox14, 'Value');%flag for fixed powers and delays
    if d==1
        A=handles.A;
        B=handles.B;
        for i=1:valN
            pn(i)=10^(str2num(get(handles.A(i),'string'))/10);
            tn(i)=str2num(get(handles.B(i),'string'))*10^(-6);
            i=i+1;
        end
    else
        pn=zeros(length(valN));
        tn=zeros(length(valN));
    end
    [Hn Pn tn AoDn AoAn dBS dMS AoDm AoAm Fnm d thetaBS thetaMS OmegaBS OmegaMS thetav sigmaAS sigmaDS sigmaSF PLdB]=Multipath(1,d,valR,2,valS,valU,valdBS,valdMS,valv,valN,valM,valfc,valBSAP,3,valBSAS,valMSAS,0,0,valrDS,valrAS,valt,valX,vald,valthetaBS,valomegaBS,valthetav,valthetaMS,valomegaMS,pn,tn,cor);
    H{k}=Hn;
    P{k}=Pn';
    AoD{k}=AoDn';
    AoA{k}=AoAn';
    t{k}=tn'*(10^6);
    AS(k)=sigmaAS;
    DS(k)=sigmaDS*(10^6);
    SF(k)=sigmaSF;
    PL(k)=PLdB;
    C{k}=Capacity(valN,valSNR,Hn,ti,valS,valU);
    k=k+1;
end

%-------------------------Correlation--------------------------------------

tii=[1:1:ti]*(0.001*valX);
for k=1:length(tii)
    res(k)=H{valdrop}{valpath,1}{k,1}(valmonBS,valmonMS);
    cap(k)=C{valdrop}(k,1);
    k=k+1;