clear all
close all

K_0=420000;                     %Kreditvolumen
global EK=0;                    %Eigenkapital
NB=0.07*K_0;                    %Kaufnebenkosten

global A=36;                    %aktuelles Alter
global R=1200;                  %Finanzielle Tragfähigkeit
global Mm=800;                  %Monatsmiete
global K=K_0+NB-EK;             %Kaufkosten
global TZ=10;                   %Zinsbindung
global p0=0.0166;                %Zinssatz 
global p1=0.0166;                %Zinssatz nach Ablauf der Bindung
global p2=0.0166;                %Zinssatz nach Ablauf der zweifachen Bindung
global K_M0=R-Mm;
global K_M

A0=110;                         %Wohnfäche
V=0;                            %Kreditversicherung

%Function call
global n=tilgung(K)             %Kreditlaufzeit
global M=Miete(Mm)              %Mietkosten
global Z;                       %Anfallende Zinsen
global Km=Aktienvermoegen(K_M0);
global Wk0=Wohnkosten(Mm);

%Grafiken
%global plot1=Zinszahlungen
%global plot2=Restschuld
%global plot3=Mietzahungen
%global plot4=Kapitalvermoegen
%global plot5=Kapitaleinzahlungen

%Numerische Ausgabe
%Jahre=n/12
%Alter=A+Jahre

%Instandhaltung=A0*8*Jahre
%Zinszahlungen=sum(Z)
%Freie_Wohnjahre=Zinszahlungen/R/12
%Zusatzkosten=Instandhaltung+Zinszahlungen+NB
%Gesamtzahlungen=Zusatzkosten+K_0
%Immobilienwert=K_0*(1+0.015)^Jahre
%Vermoegen=Immobilienwert-Zusatzkosten
%Rendite=(Vermoegen/K_0-1)^(1/Jahre)

%Monatliche Rente
%Aktienvermoegen=max(Km)
%Zinsen=max(Km)-sum(K_M);
%Steuern=Zinsen*0.26375-n/12*801
%Miete=sum(M)
%Realvermoegen=Aktienvermoegen-sum(M)-Steuern
%Monatsmiete=Mm;
%Am=(max(Km)-Steuern)*0.04/12
%monatlicher_Zuwachs=Am-Monatsmiete;
%maxMiete=R-max(K_M0)