同花顺能量定乾坤副图指标 EA-万能指标公式

同花顺能量定乾坤副图指标

源码

LC:= REF(CLOSE,1);
rn:=14;
rA1:=SMA(MAX(CLOSE-LC,0),N,1)/SMA(ABS(CLOSE-LC),N,1)*100;
rDIFF:-1*(EMA(A1,26) – EMA(A1,12))/200;
rDEA:-1*(EMA(DIFF,9))/200,colorred;
rMACD:2000*(DIFF-DEA),COLORSTICK,LINETHICK2;
rS1:=MACD<REF(MACD,1)AND MACD>0;
rS2:=MACD<REF(MACD,1)/2 AND MACD<0;
rSTICKLINE(MACD>=0,MACD,0,8,1),colorred;
rSTICKLINE(S1,0,MACD,8,1),COLOR00FFFF;
rSTICKLINE(S2,0,MACD,8,0),COLORFFFFFF;
rSTICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,8,1),COLORFFFF00;
rVar4:=(2*CLOSE+HIGH+LOW)/4;
rVar5:=LLV(LOW,34);
rVar6:=HHV(HIGH,34);
r持股: EMA((Var4-Var5)/(Var6-Var5)*100,11),COLORFF00FF,LINETHICK2;
r必卖: EMA(0.667*REF(持股,1)+0.333*持股,4),COLORFFFF00,LINETHICK2;
r{分界线:30,CROSSDOT,colorwhite;}
rDRAWTEXT(CROSS(持股,必卖) AND 持股<22,7,’▓’),COLORCCCCFF,LINETHICK2;
rDRAWTEXT(CROSS(持股,必卖) AND 持股<25,18,’●’),colorred;
rDRAWTEXT(CROSS(持股,30) AND 必卖<持股,30,’□’),colorwhite,LINETHICK2;
rDRAWICON(CROSS(持股,30) AND 必卖<持股,35,8);
rDRAWTEXT(CROSS(持股,65) AND 必卖<持股,50,’◆’),COLORFF00FF;
rDRAWICON(CROSS(持股,65) AND 必卖<持股,70,7);
rDRAWTEXT(CROSS(持股,75) AND 必卖<持股,67,’○’),colorred,LINETHICK2;
rDRAWICON(CROSS(持股,75) AND 必卖<持股,75,12);
rDRAWICON(CROSS(必卖,持股) AND 必卖>75,85,11);
r逢低吸纳: IF(CROSS(持股,必卖) AND 持股<40,9,0),STICK,colorgreen,linethick4;
r逢高减磅: IF(CROSS(必卖,持股) AND 必卖>75,75,90),colorred,linethick2;
r资金:=3*SMA((C-LLV(L,89))/(HHV(H,89)-LLV(L,89))*100,5,1)
r-2*SMA(SMA((C-LLV(L,89))/(HHV(H,89)-LLV(L,89))*100,5,1),3,1);
r见顶线:=EMA(资金,2);
r股票:=(见顶线-REF(见顶线,1))/REF(见顶线,1)*100;
r减仓:STICKLINE(REF(见顶线,1)>91.2 AND 股票<0,92,80,3,0),coloryellow,linethick2;
r清仓: DRAWTEXT(CROSS(必卖,持股) AND 必卖>85,92,’●’),color00ff00,LINETHICK4;
rRSVp:=(C-LLV(L,30))/(HHV(H,30)-LLV(L,30))*100-50;
rKv:=SMA(RSVp,3,1);
rDv:=SMA(Kv,3,1);
rJv:=3*Kv-2*Dv;
rzdzk1:=EMA(Jv,6);
rzdzk2:=REF(zdzk1,1);
r做多:IF(zdzk1>=zdzk2,zdzk1+2,zdzk2),linethick2,colorred;
r做空:IF(zdzk2-zdzk1,zdzk2,zdzk1),linethick2,colorgreen;
rxw1:=IF(O<=REF(O,1),0,MAX((H-O),(O-REF(O,1))));//————
rxw2:=IF(O>=REF(O,1),0,MAX((O-L),(O-REF(O,1))));
rxw3:=SUM(xw1,21);
rxw4:=SUM(xw2,21);
rxw5:=IF(xw3>xw4,(xw3-xw4)/xw3,IF(xw3=xw4,0,(xw3-xw4)/xw4));