Fikirler -> Sistemler

[teo]

[hide]
Smoothed Adapative Stochastic Oscillator
n:=Input("**Volatility** lookback length",1,50,20);
x:=Input("%K smoothing (exponential smoothing)",1,50,3);
y:=Input("%D smoothing (exponential smoothing)",1,50,3);
lenmax:=28;
lenmin:=7;
v1:=Stdev(C,n);
v2:=HHV(v1,n);
v3:=LLV(v1,n);
v4:=((v1-v3)/(v2-v3));
currlen:=(Int(lenmin+(lenmax-lenmin)*(1-v4)));
hh:=HHV(H,LastValue(currlen));
ll:=LLV(L,LastValue(currlen));
RawStochK:=((C-ll)/(hh-ll))*100;
SmoothedStochK:=Mov(RawStochK,x,E);
StochD:=Mov(SmoothedStochK,y,E);
20;
80;
StochD;
SmoothedStochK;
[/hide]

[teo]

[hide]
StockRSI


aa:=RSI(C,14);
bb:=aa-LLV(aa,14);
dd:=HHV(aa,14)-LLV(aa,14);
ee:=bb/dd;
ee
[/hide]

[teo]

[hide]
ZeroLagEma


Period:= Input("What Period",1,250,14);
EMA1:= Mov(CLOSE,Period,TRI);
EMA2:= Mov(EMA1,Period,TRI);
Difference:= EMA1 - EMA2;
ZeroLagEMA:= EMA1 + Difference;
ZeroLagEMA
[/hide]

[teo]

[hide]
Zigzag targets


x:=Input("number of time periods in average",10,200,24);
x2:=x*2;
pd:=C-Mov(C,x,E);
hpd:=HHV(pd,x2);
lpd:=LLV(pd,x2);
nf:=200/(hpd-lpd);
((pd-lpd)*nf)-100:-60:19
[/hide]

[teo]

[hide]
Trix



TRIX((H+L+2*C)/4,12,VAR)-Ref((TRIX((H+L+2*C)/4,12,VAR)),-1):0:0
[/hide]

[teo]

Stochastic - Triple


[hide]
(Stoch(30,15) + Stoch(60,30) + Stoch(90,45))/3
[/hide]

[teo]

[hide]
Aroon Oscillator
OKRES:=Input("okres",2,100,48);
aroonupc:=((okres-HHVBars(H,okres+1))/okres)*100;
aroondownc:=((okres-LLVBars(L,okres+1))/okres)*100;
aroonosc:=aroonupc-aroondownc;
aroonosc;
0
[/hide]

[teo]

[hide]
Chande's Vidya Using P Variable - Version I
Pds:= Input("Number of Periods?",1,1000,20);
Alpha:= 2/(Pds+1);
{Chande Momentum Oscillator}
{UD = Up day}
{DD = Down day}
UD:= Sum((C-Ref(C,-1))*(C>Ref(C,-1)),9);
DD:= Sum((Ref(C,-1)-C)*(C<Ref(C,-1)),9);
CMOsc:= (UD-DD)/(UD+DD);
k:= Abs(CMOsc);
Vidya:= (Cum(1) < Pds) * C +
(Cum(1)>=Pds) * ((Alpha * k * C) + (1-Alpha * k) * PREV);
(Mov(Vidya,7,E)+Ref(Mov(Vidya,7,E),-1))/2
[/hide]

[teo]

[hide]
Bollinger Band Width

(BBandTop(C,10,S ,1.9)-BBandBot(C,10,S ,1.9))/MOV(C,10,S )
(BBandTop((H+L+2*C)/4,30,TRI ,3)-BBandBot((H+L+2*C)/4,30,TRI ,3))/MOV((H+L+2*C)/4,30,TRI )
[/hide]

[teo]

[hide]
CCI Zero LAg


Period:= Input("What Period",1,250,24);
EMA1:= Mov(CLOSE,Period,E);
EMA2:= Mov(EMA1,Period,E);
Difference:= EMA1 - EMA2;
ZeroLagEMA:= EMA1 + Difference;
CCI(ZeroLagEMA):0:0
[/hide]

[teo]

[hide]
Offset MAcd


(MACD()*10 +50) {offset the MACD to 50};50
[/hide]

[teo]

[hide]
inverse fisher transform


v1:= .1*(RSI(5)-50);
v2:= Mov(v1,9,W);
(Exp(2*v2)-1)/(Exp(2*v2)+1):-0.5:0.5
[/hide]

[teo]

[hide]
demark


Sum(If (H>Ref(H,-1) ,THEN H-Ref(H,-1),0),14) / (Sum(If (H>Ref(H,-1) ,THEN H-Ref(H,-1),0),14)+Sum(If (L>=Ref(L,-1) ,0, Ref(L,-1)-L),14))
[/hide]

[teo]

neticede hiç bir şeye yaramayan çöpe atılacak şeyler

[teo]

[hide]
Dahl Oscillator

Mov((Mov(C,55,S) -
Ref(Mov(C,55,S),-15) -
LLV(Mov(C,55,S)-
Ref(Mov(C,55,S),-15),14)) /
(HHV(Mov(C,55,S) -
Ref(Mov(C,55,S),-15),14) -
(LLV(Mov(C,55,S) -
Ref(Mov(C,55,S),-15),14))),14,E) * 100
[/hide]