clear
disp('1. Methodos statheris aposvesis');
disp('2. Methodos stathera fthinontos upoloipou');
disp('3. Methodos athroismatos twn etwn');
disp('Pliktrologeiste ton kwdiko tis methodou aposvesis pou thelete na xrisimopoihsete');
code=input('Kwdikos: ');
switch code
    case 1
        disp('Methodos statheris aposvesis')
        KK=input('Pliktrologeiste to kostos ktisis: ');
        YA=input('Pliktrologeiste tin upoleimmatiki axia: ');
        n=input('Pliktrologeiste ton arithmo twn etwn diarkeias tis upoleimmatikis zwis: ');
        disp('Patiste to pliktro Enter gia na upologistei to poso tis etisias aposvesis');
        pause
        format bank
        AA=KK-YA; %Aposvestea axia
        Straight_line_depreciation=AA/n; %Poso etisias aposvesis

        disp(['To poso tis etisias aposvesis einai: ',num2str(Straight_line_depreciation)]);

     case 2
        disp('Methodos stathera fthinontos upoloipou')
        KK=input('Pliktrologeiste to kostos ktisis: ');
        YA=input('Pliktrologeiste tin upoleimmatiki axia: ');
        n=input('Pliktrologeiste ton arithmo twn etwn diarkeias tis upoleimmatikis zwis: ');
        disp('Patiste to pliktro Enter gia na upologistei to poso tis etisias aposvesis');
        pause
        format bank
        w=1-((YA/KK)^(1/n));
        DB1(1,1)=0;
        for i=1:n
            DB(i,1)=w*(KK-DB1(i,1));
            DB1(i+1,1)=DB1(i,1)+DB(i,1);
        end
        for i=1:n
            disp(['To poso tis etisias aposvesis einai: ', num2str(DB(i))])
        end
        
%       for i=1:n
%           disp(sprintf('To poso tis etisias aposvesis to %1.0fo etos einai %8.2f eurw',i, DB(i)))
%       end 
        case 3
        disp('Methodos athroismatos twn etwn')
        KK=input('Pliktrologeiste to kostos ktisis: ');
        YA=input('Pliktrologeiste tin upoleimmatiki axia: ');
        n=input('Pliktrologeiste ton arithmo twn etwn diarkeias tis upoleimmatikis zwis: ');
        disp('Patiste to pliktro Enter gia na upologistei to poso tis etisias aposvesis');
        pause
        format bank
        T=0;
        for i=1:n
            T=T+i;
        end
        
        for i=1:n
            w(i,1)=(n-(i-1))/T;
            SYD(i,1)=w(i,1)*(KK-YA);   
        end
        for i=1:n
            disp(['To poso tis etisias aposvesis einai: ', num2str(SYD(i))])
        end
%       for i=1:n
%           disp(sprintf('To poso tis etisias aposvesis to %1.0fo etos einai %8.2f eurw',i, SYD(i)))
%       end 
        
        
%     otherwise
%             disp('Lathos kwdikos')
end