function plottfuntionendreiaufeinmal2
% mache einen schönen Plott
global KPLUSEINS;
global KMINUSEINS;
global KEXPRPROT;
global KPLUSZWEI;
global KMINUSZWEI;
global KATALYSE;
global KATALYSEZWEI;
global KEXPRTOR;
global KTRANSTOR;
global KTRANSAMP;
global KDEGREINS;
global KDEGRZWEI;
global AMPNULL;
KPLUSEINS =  1.e-6;
KMINUSEINS = 2.e-4;
KEXPRPROT =  1;
KDEGREINS =  3.e-3;
%
KPLUSZWEI =  5.e-7;
KMINUSZWEI = 4.e-4;
KATALYSE =   8;
KEXPRTOR =   1.4;
KDEGRZWEI =  3.e-3;
KTRANSTOR =  3.e-3;
%
KTRANSAMP = 3.e-3;
KATALYSEZWEI = 0.3;
AMPNULL = 5000;
%---
conzini1 = [8000 , 0 , 0]';
[t1, csol1] = ode45('conzt1', 4000, conzini1);
%---
conzini2 = [5650 , 160 , 2350 , 0 , 0 , 0]';
[t2, csol2] = ode23('conzt2', 4000, conzini2);
%---
conzini3 = [4100 , 220 , 3900 , 40 , 430 , 430, 0]';
[t3, csol3] = ode23('conzt3', 4000, conzini3);
%
%
subplot(131)
plot(t1,csol1(:,1),'r-',t1,csol1(:,2),'b-',t1,csol1(:,3),'g--')
xlabel('time t');
ylabel('concentration in molecules');
subplot(132)
plot(t2,csol2(:,1),'r-',t2,csol2(:,2),'b-',t2,csol2(:,3),'g--',t2,csol2(:,4),'y--',t2,csol2(:,5),'c-',t2,csol2(:,6),'k-',t2,[8000],'k-')
xlabel('time t');
title('Potsdam Bioware: substance concentrations from time t1,t2,t3 onwards');
subplot(133)
plot(t3,csol3(:,1),'r-',t3,csol3(:,2),'b-',t3,csol3(:,3),'g--',t3,csol3(:,4),'y--',t3,csol3(:,5),'c-',t3,csol3(:,6),'k-',t3,csol3(:,7),'m-',t3,[8000],'k-')
xlabel('time t in s');
legend('mdnA','Protease','Prot*mdnA','Prot*TorABla','TorABla(Cyt)','TorABla(Peri)','Amp(Peri)',2);
