function UP_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 =  8.e-6;
Kplus1 = KPLUSEINS*(6.022*1.e+23)*(9.e-16);
KMINUSEINS = 4.e-4;
KD = KMINUSEINS/Kplus1;
KEXPRPROT =  0.6;
KDEGREINS =  17.e-4;
%
KPLUSZWEI =  4.e-5;
KMINUSZWEI = 2.e-4;
KATALYSE =   8;
KEXPRTOR =   1;
KDEGRZWEI =  2.e-3;
KTRANSTOR =  1.e-3;
%
KTRANSAMP = 5.e-3;
KATALYSEZWEI = 0.001;
AMPNULL = 8.e+2;
%
%---
conzini1 = [3000 , 0 , 0]';
[t1, csol1] = ode23s('conzt1', 4000, conzini1);
l1=length(t1);
%---
conzini2 = [csol1(l1,1) , csol1(l1,2) , csol1(l1,3) , 0 , 0 , 0]';
[t2, csol2] = ode23s('conzt2', 4000, conzini2);
l2=length(t2);
%--- 
conzini3 = [csol2(l2,1) , csol2(l2,2) , csol2(l2,3) , csol2(l2,4) , csol2(l2,5) , csol2(l2,6), 0]';
[t3, csol3] = ode23s('conzt3', 4000, conzini3);
l3=length(t3);
%
%csol3(l3,7)
%
subplot(131)
T1=((t1).*(60^(-1)));
plot(T1,csol1(:,1),'r-',T1,csol1(:,2),'b-',T1,csol1(:,3),'g--',T1,[3000],'k-')
xlabel('time t');
ylabel('concentration in molecules');
subplot(132)
T2=((t2+4000).*(60^(-1)));
plot(T2,csol2(:,1),'r-',T2,csol2(:,2),'b-',T2,csol2(:,3),'g--',T2,csol2(:,4),'y--',T2,csol2(:,5),'c-',T2,(double(uint32(csol2(:,6)))),'k-',T2,[3000],'k-')
xlabel('time t');
title('Potsdam Bioware: substance concentrations from time t1,t2,t3 onwards');
subplot(133)
T3=((t3+8000).*(60^(-1)));
plot(T3,csol3(:,1),'r-',T3,csol3(:,2),'b-',T3,csol3(:,3),'g--',T3,csol3(:,4),'y--',T3,csol3(:,5),'c-',T3,(double(uint32(csol3(:,6)))),'k-',T3,csol3(:,7),'m-',T3,[3000],'k-')
xlabel('time t in min');
legend('mdnA','Protease','Prot*mdnA','Prot*TorABla','TorABla(Cyt)','TorABla(Peri)','Amp(Peri)',2);
