ton

Montag, 19. Dezember 2011

Ach da bist du, du lange, kurze Zeit.

man denkt, man haette das hinter sich. man kleidet sich sauber, steht frueh auf, man grenzt sich ab von poebel und gesocks. und nur ein musikant in der bahn braucht das richtige lied zu singen, da nickt man wieder mit dem kopf zu den schweren molls, da zieht man die augen zusammen und singt leise mit: macht euch dochn bier auf, badadadam, und rauchtn bisschen gras. macht euch nen schoenen abend, euch goenn ich das..

Montag, 5. Dezember 2011

weihnachtsfriede wird verkuendet

ich bin gestern ueber den weihnachtsmarkt zwischen marienkirche und rotem rathaus gegangen, da standen 5 jungs um die sechzehn jahre und sangen dreistimmige weihnachtslieder, sehr besinnlich, manchmal etwas zu leise, wenn der krach von den lautsprechern zu laut herueberdrang.

ich dachte: warum singen die hier in einer ecke bei den toiletten, manche leute machten ihre witze ueber singende kinder, wenige blieben stehen und klatschten beifall.

die jungs hatten ihre ruhe weg in der musik, sehr kunstvolle lieder, und hörten erst auf, als die security kam und meinte sie sollen jetzt aufhoeren ohne genehmigung. es war den beiden maennern dann etwas peinlich, weil sie merkten, dass die jungs aus recht gutem hause waren und etwas von einer qualitaet darboten, die sie nicht verstanden. wir wollten den leuten halt eine freude machen, sagten die jungs und zuckten mit den schultern.

ich war sehr wuetend, und dachte, das ist mein deutschland, wo man das einzige stueck weihnacht vom weihnachtsmarkt scheucht. und: es hat sich noch einiges zu aendern, bis dieses land lebenswert wird. es war dann kaelter zwischen den gluehweinbuden und den waegen voller zuckerzeug.

Freitag, 7. Mai 2010

radio stations playing this all night...



mann, hab ich nen ohrwurm! seit ich 'say hey' in dieses script eingebaut habe... gern mal ausfuehren (matlab + cftool required)...

function main
%% Uses ODE45 to solve
%% EXTENSIONS QSS NETWORK
%% and returns oscillations
clear all
%% INITIAL CONDITION VECTOR Zo and INITIAL CONDITION VALUES
Zo = [];
Zo(1, 1) = 0;
Zo(1, 2) = 0;
Zo(1, 3) = 0;
Zo(1, 4) = 1; %% SIC1 S
Zo(1, 5) = 0;
%% Constant Production rates v
v = [];
v(1) = 0.05;
v(2) = 0;
v(3) = 0;
v = v';
%% timespan
tspan = [0,15000];
%% REACTION RATE CONSTANTS
k_selfinh = 1;%.5;
k_act = .5;%.75;
k_inh = 1;%2;

v_scale = 1;
k_degs = 0;


part = [1 1 1 1 1 1 1 1 1 1 0.06 0.002];

%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%_oscillations_finder_%%%%%%%%%%%%%%%%%%
par = part(1,:);
par1 = par(1);
par2 = par(2);
par3 = par(3);
par4 = par(4);
par5 = par(5);
par6 = par(6);
par7 = par(7);
par8 = par(8);
par9 = par(9);
par10 = par(10);
q = par(11);

k2counter = 0;
kk = [];
f = []; A = []; Asic1 = []; meanmax = []; meanmin = [];
meanmaxsic1 = []; meanminsic1 = [];
for k2index = .1:.1:10

fAcounter = 0;
k2 = k2index*par(12);
k2counter = k2counter + 1;
kk_indices = [];
%%%----------------parameters-------------------%
K_selfinh = diag([0,par9,par10]);

K_act = [0, 0, 0;...
par1, par4, 0;...
par2, par3, par5 ];


K_inh = [0, par6, par7;...
0, 0, par8;...
0, 0, 0 ];

for index1 = -4:0.1:-2.8
for index2 = -2:0.1:-1
disp([k2counter])
% for index1 = -3.5:0.02:-2.5;...-3;...
% for index2 = -2:0.02:-1;...-1.14;...

k_prod = 10^index1;
k_degr = 10^index2;


try
%%%----------------solver--------------------------%
options = odeset('RelTol',1e-3); %%%, 'OutputFcn',@odephas3);
[t,Z] = ode113( @input_ODEs,tspan,Zo,options,...
v_scale*v,q,k2,k_degs,k_selfinh*K_selfinh,k_act*K_act,k_inh*K_inh,k_prod,k_degr);

for indexZ = 1:size(Z,1)
Z(indexZ,6) = sum(Z(indexZ,2:3))/3;
if round(Z(indexZ,6)) == 0, Z(indexZ,6) = 0; end
end

peaks = diff(Z(:,6));
start = 0;
for indexpeaks = 1:size(peaks,1)-7
if sign(peaks(indexpeaks)) == 1 ...
&& sign(peaks(indexpeaks + 1)) == -1 ...
&& sign(peaks(indexpeaks + 2)) == -1 ...
&& sign(peaks(indexpeaks + 3)) == -1 ...
&& sign(peaks(indexpeaks + 4)) == -1 ...
&& sign(peaks(indexpeaks + 5)) == -1 ...
&& sign(peaks(indexpeaks + 6)) == -1 ...
&& sign(peaks(indexpeaks + 7)) == -1
start = start +1;
end
end

figure(1); subplot(2,1,1); plot(t,Z(:,1:3),t,Z(:,4),'c'); title([num2str([k_prod, k_degr])]); legend('clb5,6tot','clb3,4tot','clb1,2tot',3); set(gca,'XTick', 0:150:tspan(2));
subplot(2,1,2); plot(t,Z(:,4),'c'); legend('s'); set(gca,'XTick', 0:150:tspan(2));

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if start > 4 ...&& sum(minima(:,2))/size(minima,1) < 3


disp('say hey!')


for index3 = index1-0.1:0.06:index1+0.1;...
for index4 = index2-0.1:0.06:index2+0.1;...

k_prod = 10^index3;
k_degr = 10^index4;


options = odeset('RelTol',1e-3); %%%, 'OutputFcn',@odephas3);
[t,Z] = ode113( @input_ODEs,tspan,Zo,options,...
v_scale*v,q,k2,k_degs,k_selfinh*K_selfinh,k_act*K_act,k_inh*K_inh,k_prod,k_degr);


for indexZ = 1:size(Z,1)
Z(indexZ,6) = sum(Z(indexZ,2:3))/3;
if round(Z(indexZ,6)) == 0, Z(indexZ,6) = 0; end
end

peaks = diff(Z(:,6));
maxcounter = 0;
maxima = [];
for indexpeaks = 1:size(peaks,1)-7
if sign(peaks(indexpeaks)) == 1 ...
&& sign(peaks(indexpeaks + 1)) == -1 ...
&& sign(peaks(indexpeaks + 2)) == -1 ...
&& sign(peaks(indexpeaks + 3)) == -1 ...
&& sign(peaks(indexpeaks + 4)) == -1 ...
&& sign(peaks(indexpeaks + 5)) == -1 ...
&& sign(peaks(indexpeaks + 6)) == -1 ...
&& sign(peaks(indexpeaks + 7)) == -1
maxcounter = maxcounter +1;
maxima(maxcounter,1:2) = [maxcounter, Z(indexpeaks+1,6)];
end
end

if ~isempty(maxima)
exclude = 3;
fit = expfit(maxima(exclude:size(maxima,1),1),maxima(exclude:size(maxima,1),2));
[stretch] = coeffvalues(fit);

if abs(stretch(2)) < 0.001 && maxcounter > 5
kk_indices(size(kk_indices,1)+1,1:2) = [index3, index4];
fAcounter = fAcounter + 1;
[f A Asic1 meanmax meanmin meanmaxsic1 meanminsic1] = fA(t, Z, peaks, k2counter, fAcounter, ...
f, A, Asic1, meanmax, meanmin, meanmaxsic1, meanminsic1);
end
end
clear t Z peaks maxima minima
end
end
end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

catch
end

end
end

kk(1, size(kk,2)+1:size(kk,2)+2) = [q, k2];
kk(2:size(kk_indices,1)+1, size(kk,2)-1:size(kk,2)) = kk_indices;
clear kk_indices
save fAaddkirr kk f A Asic1 meanmax meanmin meanmaxsic1 meanminsic1
end


function [f A Asic1 meanmax meanmin meanmaxsic1 meanminsic1] = fA(t, Z, peaks, k2counter, fAcounter, ...
f, A, Asic1, meanmax, meanmin, meanmaxsic1, meanminsic1)

peaksic1 = diff(Z(:,4));

tmax_max = [];
tmin_min = [];
tmax_maxsic1 = [];
tmin_minsic1 = [];
for indexpeaks = 1:size(peaks,1)-7
if sign(peaks(indexpeaks)) == 1 ...
&& sign(peaks(indexpeaks + 1)) <= 0 ...
&& sign(peaks(indexpeaks + 2)) <= 0 ...
&& sign(peaks(indexpeaks + 3)) <= 0 ...
tmax_max(size(tmax_max,1)+1,1:2) = [t(indexpeaks+1,1),Z(indexpeaks+1,6)];
end
if sign(peaksic1(indexpeaks)) == 1 ...
&& sign(peaksic1(indexpeaks + 1)) <= 0 ...
&& sign(peaksic1(indexpeaks + 2)) <= 0 ...
&& sign(peaksic1(indexpeaks + 3)) <= 0 ...
tmax_maxsic1(size(tmax_maxsic1,1)+1,1:2) = [t(indexpeaks+1,1),Z(indexpeaks+1,4)];
end
if sign(peaks(indexpeaks)) == -1 ...
&& sign(peaks(indexpeaks + 1)) >= 0 ...
&& sign(peaks(indexpeaks + 2)) >= 0 ...
&& sign(peaks(indexpeaks + 3)) >= 0 ...
tmin_min(size(tmin_min,1)+1,1:2) = [t(indexpeaks+1,1),Z(indexpeaks+1,6)];
end
if sign(peaksic1(indexpeaks)) == -1 ...
&& sign(peaksic1(indexpeaks + 1)) >= 0 ...
&& sign(peaksic1(indexpeaks + 2)) >= 0 ...
&& sign(peaksic1(indexpeaks + 3)) >= 0 ...
tmin_minsic1(size(tmin_minsic1,1)+1,1:2) = [t(indexpeaks+1,1),Z(indexpeaks+1,4)];
end
end


f(fAcounter, k2counter) = (sum(diff(tmax_max(3:size(tmax_max,1),1)))/(size(tmax_max,1)-3) ...
+ sum(diff(tmin_min(3:size(tmin_min,1),1)))/(size(tmin_min,1)-3))/2;

meanmax(fAcounter, k2counter) = sum(tmax_max(3:size(tmax_max,1),2))/(size(tmax_max,1)-2);
meanmin(fAcounter, k2counter) = sum(tmin_min(3:size(tmin_min,1),2))/(size(tmin_min,1)-2);
meanmaxsic1(fAcounter, k2counter) = sum(tmax_maxsic1(3:size(tmax_maxsic1,1),2))/(size(tmax_maxsic1,1)-2);
meanminsic1(fAcounter, k2counter) = sum(tmin_minsic1(3:size(tmin_minsic1,1),2))/(size(tmin_minsic1,1)-2);

A(fAcounter, k2counter) = meanmax(fAcounter, k2counter) - meanmin(fAcounter, k2counter);
Asic1(fAcounter, k2counter) = meanmaxsic1(fAcounter, k2counter) - meanminsic1(fAcounter, k2counter);
return


function output = expfit(t,data)
ok_ = isfinite(t) & isfinite(data);
if ~all( ok_ )
warning( 'GenerateMFile:IgnoringNansAndInfs', ...
'Ignoring NaNs and Infs in data' );
end
st_ = [0 0];
ft_ = fittype('exp1');
cf_ = fit(t(ok_),data(ok_),ft_,'Startpoint',st_);
% ft_ = fittype('poly1');
% cf_ = fit(t(ok_),data(ok_),ft_);
output = cf_;
return



%% a function which returns a rate change vector
function [dz_dt]= input_ODEs(t,z,v,q,k2,k_degs,K_selfinh,K_act,K_inh,k_prod,k_degr)


if any(z(1:5) > 200), return, end

z = z(1:5); %% variable vector z
eta = 1/(1+z(4)/q); %% eta calculation

for m = 1:size(v,1) %% QSS ODE equations loop
dz_dt(m) = v(m) ...
+ K_act(m, 1:3)*eta*z(1:3) ...
- K_selfinh(m, 1:3)*eta*z(1:3) ...
- eta*z(m)*K_inh(m, 1:3)*eta*z(1:3);
end

dz_dt(4) = - k_degs*z(4) ... %% Sic1 degradation equation
- k2*(1-eta)*sum(z(1:3)) ...
+ z(5);

dz_dt(5) = k_prod - k_degr*z(5)*eta*sum(z(1:3));

dz_dt = dz_dt'; %% transpose dz_dt so it is a column vector
return

Donnerstag, 26. November 2009

ach doch.

road trippin weiterueben hilft.

Sonntag, 22. November 2009

sweet sixteen aint that peachy keen now

Brenda hat man am 13. August 2009 die Bewaehrung verweigert. Das war einen Tag nach meinem Geburtstag. Schwarzenegger hat ihr Schicksal in die Hand genommen, die Sau. Tausendmal hat ers vorgemacht, wahrscheinlich hat sie sich am Sonntag Abend noch seine Filme reingezogen.

Ich mag ihr Lied.

Und ich bin wieder da! silicon switched and twisted...

Montag, 24. August 2009

wenn ich wuesste, dass

morgen die welt untergeht, wuerde ich heute noch meine gitarre neu besaiten.

Sonntag, 10. Mai 2009

...

das berliner fenster wusste die musik zum morgen. die große alte stadt fuehlt wieder mit und zwinkert hier und dort ihren kommentar zwischen ihre verlaufenen kinder.

Montag, 16. März 2009

Killing time before the Hurricane

Yes, I am the inescapable, the irresistable,
The unnegotiable, the unchallenged [who that?]
I am time
I scroll in measurements, control the elements,
I hold the evidence, I tell the story [say what?]
I am time
I know no prejudice, I bare no sentiments
For wealth or settlement, I move forward [who you?]
I am time
You can’t recover me, conceal or smuggle me,
Retreat or run from me, crawl up or under me,
You can’t do much for me besides serve
Me well and have good dividends returned to you
Or attempt to kill me off and have me murder you
Many have wasted me but now they are facing me,
Treated me unfaithfully and now endure me painfully
Plaintively, I wait to see what history will shape to be,
Who’s hearts will never die inside the sake of me
Angel’s scribe the page for me,
Keep a full account of all the names for me
And make a special mark for hurricane who waited patiently

Freitag, 19. Dezember 2008

und weil das hier

ja im mittel ein gefuehlsmaeßig ausgeglichenes blog sein soll, noch was schoenes oben drauf: anderthalb tage hab ich mich in die laengst ueberfaellige aufgabe ergeben, mal ein lied von mir zu notenpapier zu bringen. das kriegt die dota morgen von mir zu weihnachten. ich hoffe, sie freut sich ein bisschen darueber.

Samstag, 6. Dezember 2008

willkommen zu hause

mit 10 jahren, glaube ich, traf ich sie zum ersten mal. sie war sanft und sehnig und zog an faeden in mir, die dinge bewegten, die ich bis zu diesem tag nicht eindeutig benennen kann.

die kunst des negativen denkens, nehme ich an.

mein meister, mein guru, mein tragischer held: er schickte mir seine stimme auf einer ueberspielten kassette durch das radio, das wir von den 400 mark begrueßungsgeld erstanden hatten.

ich spuerte, dass da ein geheimnis in der welt war, welches außerhalb meiner ueberbehueteten kindheit sein unwesen trieb. es lockte mich mit wildheit und einer abenteuerromantik, die mich ausgebrannt hat, als ich begann, nach ihr zu suchen.

eine freundliche leere umsaeuselt dieses geheimnis, die niemanden einlaesst zu mir, die augen zu schlitzen, die lippen gespannt.

tagelang saugte ich sie auf, diese stimme, bis ich ihren tonus in mir trug. sie sang von sucht, gewalt, flucht, verlaufen, von vorn beginnen, scheitern. sie scheiterte von erfolg zu erfolg:

achterbahn liebeslied wort zum sonntag niemals einer meinung boeser wolf
er denkt, sie denkt unsterblich der mond, der kuehlschrank und ich alles was war

die stimme ist wieder da, und sie sagt nichts neues. nichts versoehnliches. nichts nettes. keine neuen botschaften, keine neuen harmonien. aber schnell, aggressiv und am anschlag, wie eh und je. dabei hatte ich sie schon totgesagt. nun tragen sie wieder, die kuddelsoli und zweiten stimmen.

manche lieder klingen, als wollten sie sich auch die unbeugsamen onkelz hoerer unterwerfen. andere gießen melancholie in phrasen von zuviel ewigkeit. man leistet sich bei aller rebellion gern einen wehmuetigen blick zurueck und spricht von liebe gar ohne den hauseigenen zynismus.

zweimal fand die stimme den weg in die stille: das war, als ihr vater und mutter starben. da war ich ehrlich schockiert, wie tief diese lieder sich eingruben.

die stimme hat sich wieder ausgegraben und traegt ihren geschundenen glauben über die großen buehnen, wo die worte hinter licht und laerm nicht so sehr ins gewicht fallen. vielleicht finde ich noch eine eintrittskarte dafuer, puenktlich zum fest der liebe.

Zufallsbild

theseus

User Status

Du bist nicht angemeldet.

stats


bild
freunde
fusion
hit the road
liebes tagebuch
life
politik
schoenes
sex
tiefes
ton
untiefes
wort
zynisches
Profil
Abmelden
Weblog abonnieren