Merhabalar,
dynema yukarı keserse
lenEMA:=2;
rsiLen:=14;
mfiLen:=14;
adxLen:=14;
wrsi:=1.0;
wmfi:=1.5;
wadx:=1.25;
strength:=0.8;
RSIval:=RSI(C,rsiLen);
MFIval:=MFI(mfiLen);
ADXval:=ADX(adxLen);
power:=(RSIval*wrsi + MFIval*wmfi + ADXval*wadx)/(wrsi + wmfi + wadx);
adj:=1 + strength*((power-50)/50);
baseEMA:=Mov(C,lenEMA,E);
slowEMA:=Mov(C,lenEMA*2,E);
dynEMA:=baseEMA*adj + slowEMA*(1-adj);
period:=2;
m1:=mov(H,period,s);
m2:=mov(L,period,s);
r1:=HHV(h,period);
s1:=LLV(l,period);
support:=if(s1>prev or (ref(m1,-1)<prev and ref(l,-2)>ref(c,-1)),s1,prev);
resist:=if(r1<prev or (ref(m2,-1)>prev and ref(c,-1)>ref(h,-2)),r1,prev);
halftrend:=if(support>resist and prev=ref(support,-1),support,if(support>resist and prev=ref(resist,-1),resist,if(support>prev,support,if(resist<prev,resist,prev))));
CROSS(dynEMA,halftrend)
aşağı keserse
lenEMA:=2;
rsiLen:=14;
mfiLen:=14;
adxLen:=14;
wrsi:=1.0;
wmfi:=1.5;
wadx:=1.25;
strength:=0.8;
RSIval:=RSI(C,rsiLen);
MFIval:=MFI(mfiLen);
ADXval:=ADX(adxLen);
power:=(RSIval*wrsi + MFIval*wmfi + ADXval*wadx)/(wrsi + wmfi + wadx);
adj:=1 + strength*((power-50)/50);
baseEMA:=Mov(C,lenEMA,E);
slowEMA:=Mov(C,lenEMA*2,E);
dynEMA:=baseEMA*adj + slowEMA*(1-adj);
period:=2;
m1:=mov(H,period,s);
m2:=mov(L,period,s);
r1:=HHV(h,period);
s1:=LLV(l,period);
support:=if(s1>prev or (ref(m1,-1)<prev and ref(l,-2)>ref(c,-1)),s1,prev);
resist:=if(r1<prev or (ref(m2,-1)>prev and ref(c,-1)>ref(h,-2)),r1,prev);
halftrend:=if(support>resist and prev=ref(support,-1),support,if(support>resist and prev=ref(resist,-1),resist,if(support>prev,support,if(resist<prev,resist,prev))));
CROSS(halftrend,dynEMA)
iyi çalışmalar