
Tehty matemaattisilla kaavoilla, jotka tällä hetkellä käännän hassusti c-kääntäjällä. Ei oo pakko tajuta.
Porkkana on itseasiassa ihan hyvää.
Historia:
29.5.2005 päätin kokeilla tehdä tämmöstä
Jäsenet:
tejeez
Laitteet:
gcc
|

|
kebabmestari |
transerx |
noise8 |
matemaattinen porkkana |
tejeez
| 1000011110

|


|
leikin.
tässä on kans hienot sanoitukset, eiks?
tanh(20*(sin(pi*t/4)+sin(pi*t*15/32))*sin(pi*110*t+10*sin(pi*t)))+
(tanh(100*sin(pi*t/16)-100)+1)*
tanh(4*sin(pi*t*1760)+
sin(pi*t*10)+cos(pi*t*14.3)+sin(pi*t*20.45)+cos(pi*t*29.2))+
(tanh(40*cos(pi*t/16)-40)+1)*
sin(pi*440*floor(2346*t)/2346)
+.4*(.4*sin(pi*220*t)+1)*(
(tanh(10*sin(pi*t))+1)*(
(tanh(40*sin(pi*t/8))+1)*(sin(pi*t*2*440)+sin(pi*t*2*2200))+
(tanh(40*sin(-pi*t/8))+1)*(sin(pi*t*2*660)+sin(pi*t*2*1100)))+
(tanh(10*sin(-pi*t))+1)*(sin(pi*t*2*330)+sin(pi*t*2*550))+
+.4*sin(pi*t*2*2700))
|
|
|

|
|
|

|


|
taas vähän itseään toistavaa sekoilua.
melkein silleen "vahingossa" tuli tollanen kiva melodiapätkäkin tai siis silleen kiva ettei kuulosta ihan sekavalta.
tuli taas kans vähän sekava kaava (ja siitä ois varmaan saanu lyhyemmänkin, mutta ei jaksanu yrittää) mutta ihan sama.
(floor(t/256)-floor(t/256+.5)+1)*
((floor(t/64-.5)-floor(t/64-.62)-1)*
tanh(20*sin(pi*440*t*(floor(t/128+.5)-floor(t/128)+.25))+
20*sin(pi*(110*t+160*
sin(t*pi*.5+30*cos(pi*t)*(floor(t/8)-floor(t/8+1./8.))))))+
(floor(t/32)-floor(t/32+.3/.4))*(3*
(floor(2*t)-2*t+1)*tanh(sin(800*sin(2*t-floor(2*t)+1)))+.4*
(tanh(14*(floor(t+.5)-t)-5)+1)*
sin(pi*t*456+10*sin(pi*t*440)+10*sin(pi*t*912)))+
(floor(t/32)-floor(t/32+.5))*1.6*tanh(3*(tanh(8*sin(pi*t*2-.2))+1)*
sin(pi*t*
444*(3*(floor(t/128+.5)-floor(t/128))+1)*
pow(2,floor(4*sin(floor(8*(t/8-floor(t/8)))))/12.)))+
(floor(t/64-.5)-floor(t/64-.75))*
sin(pi*449*t+20*sin(pi*883*t)*(1+sin(pi*80*t-640*sin(pi*t/8))))+
(floor(t/64)-floor(t/64+.25))*
(tanh(14*(floor(2*t+.5)-2*t)-6)+1)*
tanh(40*sin(pi*t*356+10*sin(pi*t*3520))))+
(floor(t/256)-floor(t/256+.5))*
tanh(.1*pow((136-t),3)*sin(pi*t*224+sin(pi*t*214)+sin(pi*t*215)))
|
|
|

|
|
|

|


|
Pitkästä aikaa lyhyt kokeilu matemaattista juttua!
oho unohdin laittaa kaavan tähän no emmä jaksa enää sitä ettiä
|
|
|

|
|
|

|


|
Toinen tämmönen ihmekokeilu.
Ehkä tän koodin ois voinu tehdä lyhyemminki. Sama se. rn() tekee whitenoisea (random-lukuja) 0-1.
.2*(sin(pi*t)*sin(pi*t*220*2)+sin(pi*t*31/32)*sin(pi*t*220*3)+ sin(pi*t*30/32)*sin(pi*t*220*4)+sin(pi*t*29/32)*sin(pi*t*220*5)+ sin(pi*t*28/32)*sin(pi*t*220*6)+sin(pi*t*27/32)*sin(pi*t*220*7)+ sin(pi*t*26/32)*sin(pi*t*220*8)+sin(pi*t*25/32)*sin(pi*t*220*9))+ 4*pow(10000,floor(t+.5)-t-.5)*(sin(pi*t*220)*rnd()-.5)+ pow(2000,floor(4*t)-4*t)*(rnd()-.5)+pow(4,floor(t)-t)* 4*sin(pi*22/(2*t-floor(2*t)+.3))+cos(t/8)*.6*atan(8*sin(pi*t*440* pow(2,floor(8*sin(32*sin(pi*t/32)))/12)+sin(pi*t*10)))+sin(t/64)* (floor(4*t)-floor(4*t-1.0/8.0)+floor(4*t-3.0/8.0)-floor(4*t-4.0/8.0)+ floor(4*t-6.0/8.0)-floor(4*t-7.0/8.0))*atan(4*sin(pi*t*880*pow(2, floor(2*t-4*floor(t/2))/6)))
|
|
|

|
|
|

|


|
Lyhyt kokeilu.
t on sekunnit piisin alusta. (floor(2*t)-2*t+1)*2*
(sin(pi*t*440*pow(2,floor(4*sin(pi*floor(2*t)/4))/12))+
sin(pi*t*440*pow(2,floor(7*sin(pi*floor(2*t)/16)+3)/12)))+
.3*(floor(8*t)-floor(8*t-.4))*(atan(8*sin(pi*t*888.6)+.6)+
atan(8*sin(pi*t*448.4)+.4)+atan(8*sin(pi*t*880))+.2)+3*
sqrt(t/32-floor(t/32))*((floor(2*t)-2*t+1)*
sin(40/(2*t-floor(2*t)+.2))+(floor(2*t)-2*t)*
(.8*sin(pi*t*220)+.8*sin(pi*t*440)+.4*sin(pi*t*663)))
|
|
|

|
|
|

|
Copyright-huomautus:
Kaikki materiaali Mikseri.netissä on suojattu tekijäinoikeuksilla ja kansainvälisillä sopimuksilla. Voit kopioida tätä materiaalia ja tehdä siitä kohtuullisen määrän kopioita VAIN omaan käyttöön. Materiaalin UUDELLEENTUOTTAMINEN, LEVITTÄMINEN ja JULKINEN ESITTÄMINEN on kielletty ilman asianosaisen henkilön lupaa.

|