%Program pro rozhodnuti o spravne volbe strategie ve hre v rozvinutem tvaru(tahova hra)
%Firma A se rozhoduje zda zabranit vstupu konkurencni firmy B na trh
%Firma B se rozhoduje zda vstoupit na trh
%Vstup pro firmu A a B znaci hodnoty vyhry ve vsech situacich ktere mohou
%nastat
%V prubehu hry se voli jaka firma bude prvni na tahu a jakou strategii
%zvoli
%Vystupem je doporuceni strategie s nejvyssi moznou vyhrou
%zadani vstupu pro trzbu firem
z1 = input('Zadejte aktuální roční příjem firmy A(Kč): ')
z2 = input('Zadejte odhadovaný roční příjem firmy B při vstupu na trh(Kč): ')
%naklady na reklamni kampan
c = input('Zadejte náklady na kampaň oslabující konkurenční firmu(Kč): ')
%procentualni oslabeni firmy B reklamni kampani
l = input('Zadejte o kolik procent může kampaň oslabit zisk firmy B(%): ')
%pomocny vypocet
reklamniKampan = z1-c-(z2-((l/100)*z2))
%matice pro firmu A a firmu B
A=[z1-(c/2),reklamniKampan;z1,z1-z2]
B=[0,z2-((l/100)*z2);0,z2]
%overeni vstupu
if any(size(A) ~= size(B))
		error('Matice musí mít stejné dimenze');
end
%zadani vstupu tahu
Prvni=input('Zvolte ktera firma bude první na tahu. 1 - Firma A 2 - Firma B ')
if (Prvni == 1)
    %zadani zvolene strategie prvniho na tahu
    boj=input('Bude firma A bránit firmě B ve vstupu na trh ? 1 - Ano 2 - Ne ')
    if(boj == 1)
            if (B(3)>B(1))
            %vypis odpovedi
            vysledek = ['Firmě B se vyplatí vstoupit na trh. Hodnota výhry při vstupu je: ' int2str(B(3)) ' Kč a bez akce je: ' int2str(B(1)) ' Kč']
            else 
            vysledek = ['Firmě B se nevyplatí vstoupit na trh. Hodnota výhry při vstupu je: ' int2str(B(3)) ' Kč a bez akce je: ' int2str(B(1)) ' Kč']
            end
            else if (boj == 2)
            if (B(4)>B(2))
            vysledek = ['Firmě B se vyplatí vstoupit na trh. Hodnota výhry při vstupu je: ' int2str(B(4)) '  Kč a bez akce je: ' int2str(B(2)) ' Kč']
            else 
            vysledek = ['Firmě B se nevyplatí vstoupit na trh. Hodnota výhry při vstupu je: ' int2str(B(4)) ' Kč a bez akce je: ' int2str(B(2)) ' Kč']        
            end
        end
    end
 else if (Prvni == 2)
    vstupNaTrh = input('Rozdhodne se firma B vstoupit na trh ? 1 - Ano 2 - Ne')
    if(vstupNaTrh == 1)
            if (A(3)>A(4))
             vysledek = ['Firmě A se vyplatí bojovat s firmou B. Hodnota výhry firmy A při boji je: ' int2str(A(3)) ' Kč a bez akce je: ' int2str(A(4)) ' Kč']
             else 
             vysledek = ['Firmě A se nevyplatí bojovat s firmou B. Hodnota výhry firmy A při boji je: ' int2str(A(3)) ' Kč a bez akce je: ' int2str(A(4)) ' Kč']
             end
             else if (vstupNaTrh == 2)
             if (A(2)>A(1))
             vysledek = ['Firmě A  se nevyplatí bojovat s firmou B. Hodnota výhry při boji je: ' int2str(A(1)) ' Kč a bez akce je: ' int2str(A(2)) ' Kč']
             else 
             vysledek = ['Firmě A se vyplatí bojovat s firmou B. Hodnota vyhrý při boji je: ' int2str(A(1)) ' Kč a bez akce je: ' int2str(A(2)) ' Kč']        
             end
            end
    end 
  end
end
 
