Działalność pseudonaukowa 2piw

Dzisiejsza notka będzie troszeczkę inna niż zazwyczaj. 2piwa postanowił się otworzyć i zaprezentować na swym wspaniałym i opiniotwórczym blogu, to co zrobił samodzielnie (2piwa wie, że trudno w to uwierzyć, więc powtarza jeszcze raz – samodzielnie) na zajęcia. Osoby, nie mające żadnego pojęcia o naturze i charakterze studiów 2piw, powinny być usatysfakcjonowane, poszerzą swoją wiedzę..
2piwa siedział wczoraj do 5 w nocy (i jeszcze troszeczkę dzisiaj), aż w końcu udało mu się napisać coś, co działa. Zaprezentował to niedawno na pewnym przedmiocie. By ograniczyć ewentualne zachwyty i peany na cześć intelektu 2piw, należy oczywiście dodać, że:
praca nie była na temat, nie wzbudziła praktycznie żadnego zainteresowania wśród słuchających. 2piwa również nie wyglądał na osobę rozumiejąca co mówi.
A to, z czego 2piwa jest tak bardzo dumny znajduje się na dole. ENJOY…..

#### FRAMA - Fractal Adaptive Moving Average
#### DRUGIE PODEJŚCIe
#### to w końcu działa dobrze !!!!!
#### a - zbiór danych
#### k - rama czasowa potrzebna do obliczenia wymiaru frkatala
#l### i wyznaczenie parametru alfa

frama=function(a,k){
n=length(a)
alfa=rep(0,(n))

for (i in n:(2*k+1)){
m1=(max(a[(i-1):(i-k)])-min(a[(i-1):(i-k)]))/k
m2=(max(a[(i-k-1):(i-2*k)])-min(a[(i-k-1):(i-2*k)]))/k
m3=(max(a[(i-1):(i-2*k)])-min(a[(i-1):(i-2*k)]))/(2*k)

dd=(log(m1+m2)-log(m3))/log(2)
alfa[i]=exp(-4.6*(dd-1))
}

alfa2=ifelse(alfa>1,1,alfa)
alfa3=ifelse(alfa2<0.1,0.1,alfa2)
frama=rep(0,n)
frama[2*k]=a[2*k]
for (i in (2*k+1):(n)){
frama[i]=alfa3[i]*a[i]+(1-alfa3[i])*frama[i-1]
}
dane_frama=cbind(a,frama)
dane_frama2=cbind(a[(n-300):n],frama[(n-300):n])
matplot(dane_frama2,lwd=c(2,1),col=c(1,3),lty=c(1,1),typ="l", ylab="Cena akcji")
}

Aby uruchomić tą funkcję należy posiadac pakiet statystczny R. R można pobrać z tej strony. By wiedzieć co to jest FRAMA należy kliknąć tutaj.
Kolejnym naukowym postem 2piw, będzie prezentacja wyników jego badania marketingowego na temat konsumpcji alkoholu przez studentów.

"2piwa to wyjebisty programista i pewnie jako obsługa kasy fiskalej zrealizuje sie w życiu" – tym pozytywnym stwierdzeniem 2piwa kończy dzisiejszego posta.