同花顺翮银天地源码附图 EA

lastp:=REF(CLOSE,1);

r

weekvol:=SMA(MAX(CLOSE-lastp,0),8,1)/SMA(ABS(CLOSE-lastp),8,1)*100,COLOR0080FF,LINETHICK2;

r

DRAWTEXT((CROSS(weekvol,15)),45,’捡’),coloryellow;

r

DRAWTEXT((CROSS(weekvol,15)),40,’金’),coloryellow;

r

STICKLINE(CROSS(weekvol,15),50,0,3,0),colormagenta;

r

Var5:=LLV(LOW,75);

r

Var6:=HHV(HIGH,75);

r

Var7:=(Var6-Var5)/100;

r

Var8:=SMA((CLOSE-Var5)/Var7,23,1);

r

VarA:=3*Var8-2*SMA(Var8,13,1);

r

趋势:-(100-VarA)+100,color0099ff,linethick2;

r

VReady:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);

r

direction:=EMA(VReady,3);

r

V12:=(direction-REF(direction,1))/REF(direction,1)*100;

r

STICKLINE(direction<=13,0,7,8,0),ColorFF00FF;

r

sell_v:=2*(EMA((C*2+H+L)/4*10,13)-EMA((C*2+H+L)/4*10,34)-EMA(EMA((C*2+H+L)/4*10,13)-EMA((C*2+H+L)/4*10,34),5))*5.5;

r

sell_p:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);

r

STICKLINE(IF(sell_v<=0,sell_v,1)AND EMA(sell_p,3)>90,0,7,6,0),colorgreen;

r

p_var1:=HHV((O+H+L+C)/4,14);

r

p_var2:=LLV((O+H+L+C)/4,31);

r

power_var:=p_var1-p_var2;

r

p_bar3:=HHV((O+H+L+C)/4,23);

r

p_bar4:=LLV((O+H+L+C)/4,96);

r

p_barv:=p_bar3-p_bar4;

r

power_r:=EMA(((O+H+L+C)/4-p_var2)/power_var,1)*100,colorred;

r

power_b:=EMA(((O+H+L+C)/4-p_bar4)/p_barv,1)*100,colorliblue;

r

POWer_line:(power_r+power_b)/2,colorliblue;

r

top_varb:=PEAKBARS(3,15,1)<10;

r

top_var:=IF(top_varb=1,2,0);

r

top:=IF(top_var=2,2,0);

r

top_f:=IF(top>REF(top,1),50,150),colorgreen,linethick2;

r

DRAWTEXT(top_f=50,73,’←清’),colorgreen;

r

STICKLINE(top_f=50,90,55,8,0),colorgreen;

r

VARa:=(2*CLOSE+HIGH+LOW)/4;

r

VARb:=LLV(LOW,23);

r

VARc:=HHV(HIGH,23);

r

VARd:=EMA((VARa-VARb)/(VARc-VARb)*100,13);

r

VARe:=EMA(0.778*REF(VARd,1)+0.222*VARd,1);

r

STICKLINE(VARd-VARe>0,VARd,VARe,8,0),colorred;

r

STICKLINE(VARd-VARe<0,VARd,VARe,8,0),COLOR00FF0F;

r

DOGE生命线:EMA(VARe,3),colorred;

r

逃顶临界:90,colorred;

r

买:IF(CROSS(VARd,VARe)AND VARd>VARe AND VARd<35,90,0),STICK,colorlired;

r

买买:IF(CROSS(VARd,VARe)AND VARd>VARe AND VARd<25,70,0),STICK,colorred;

r

买买买:IF(CROSS(VARd,VARe)AND VARd>VARe AND VARd<15,50,0),STICK,colormagenta;
r