财富传奇:五面八面彩旗、加速K线和启爆K线、黑马营、回马枪A、B指南针主图叠加公式源码:
__ZBT
_COMM
_PAR
_VAR TYX2, D1, D2, D3, D4
_ZB OPEN, CLOSE, HIGH, LOW
_LOCAL
_RES YK, GK, 红旗
_DEF 0.000
_CODE
IF REF(COUNT(CLOSE<MA(REF(HHV((CLOSE+LOW+OPEN+HIGH)/4,40),1),3),5)=5,1) & CLOSE>MA(REF(HHV((CLOSE+LOW+OPEN+HIGH)/4,40),1),3) & CLOSE>OPEN
THEN YK=1;
ELSE YK=0;
ENDIF;
TYX2=MA(REF(HHV((CLOSE+LOW+OPEN+HIGH)/4,10),1),3);
IF REF(COUNT(CLOSE<TYX2,5)=5,1) & CLOSE>TYX2 & CLOSE>OPEN
THEN GK=1;
ELSE GK=0;
ENDIF;
KLINE(OPEN,HIGH,LOW,CLOSE,CLRYELLOW,YK=0);
KLINE(OPEN,(OPEN+CLOSE)/2,OPEN,(OPEN+CLOSE)/2,clrBlue,GK=0);
KLINE((OPEN+CLOSE)/2,CLOSE,(OPEN+CLOSE)/2,CLOSE,clrWHITE,GK=0);
D1=CLOSE=HHV(CLOSE,89);
D2=BLAST(D1,0);
IF D2>0
THEN D3=REF(CLOSE,D2);
ELSE D3=REF(CLOSE,D2);
ENDIF;
D4=CROSSUP(CLOSE,REF(D3,1));
IF D4 & COUNT(D4,5)=1
THEN 红旗=1;
ELSE 红旗=0;
ENDIF;
DRAWTEXT(LOW*0.95,红旗=1,CLRYELLOW,posBottom,posMid,"五\n面\n八\n面\n彩\n旗\n");
DRAWICON(icn24,红旗=1,LOW,posBottom,posMid,clrPurple);
__END
黑马营系列主图叠加指标公式源码:
__ZBT
_COMM
_PAR
_VAR VAR1, VAR2, VAR3, E1, VAE1, VAE2, VAR4
_ZB CLOSE, HIGH, OPEN, LOW, CYS13, CYS34, VOL, 流通盘, CYR13
_LOCAL
_RES 回马枪A, 回马枪B, 黑马营
_DEF 0.000
_CODE
VAR1=CHOOSE(CLOSE>REF(CLOSE,1),(3*HIGH+4*CLOSE+3*OPEN+2*LOW)/12,(2*HIGH+4*CLOSE+3*OPEN+3*LOW)/12);
VAR2=EMA(VAR2,VAR1,8);
VAR3=EMA(VAR3,VAR1,25);
VAR4=EMA(VAR4,VAR1,3);
回马枪A=(REF(CLOSE/REF(CLOSE,1),3)>1.099 | REF(CLOSE/REF(CLOSE,1),6)>1.099 | REF(CLOSE/REF(CLOSE,1),4)>1.099 | REF(CLOSE/REF(CLOSE,1),5)>1.099 | REF(CLOSE/REF(CLOSE,1),2)>1.099)
& CROSSUP(VAR2,LOW) & EMA (E1,VAR3,3);
IF( 回马枪A)
THEN 回马枪A=1;
ELSE 回马枪A=0;
ENDIF;
//CURVELINE(回马枪A,clrSky);
DRAWTEXT(LOW*0.98,回马枪A=1,clrSky,posBottom,posMid,"枪A");
DRAWICON(icn24,回马枪A=1,LOW,posBottom,posMid,clrSky);
vae1=EMA(vae1,VAR1,25);
vae2=EMA(vae2,VAR1,8);
回马枪B=CHOOSE((CROSSUP(VAE1,Low) & MA(Close,5)>MA(Close,30) & HHV(CYS13,10)>10 & HHV(CYS34,15)>18 & vae2>VAE1),15,0);
IF( 回马枪B)
THEN 回马枪B=1;
ELSE 回马枪B=0;
ENDIF;
//CURVELINE(回马枪B,clrYellow);
DRAWTEXT(LOW*0.98,回马枪B=1,clrGreen,posBottom,posMid,"枪B");
DRAWICON(icn24,回马枪B=1,LOW,posBottom,posMid,clrGreen);
黑马营=(CLOSE/REF(CLOSE,1)>1.03 & VOL/流通盘*100>2.5& VAR4>VAR2 & VAR4>VAR3 & CLOSE>VAR4 & (COSTD(CLOSE-CLOSE*0.01/100,0)-COSTD(CLOSE-CLOSE*20/100,0))*100>50
& CYR13>1) | (CYS13>11 & CYS13<30 & CYR13>1 & CLOSE/REF(CLOSE,1)>1.03);
IF( 黑马营)
THEN 黑马营=1;
ELSE 黑马营=0;
ENDIF;
//CURVELINE(黑马营,clrPurple);
DRAWTEXT(LOW*0.98,黑马营=1,CLRYELLOW,posBottom,posMid,"黑\n马\n营\n");
DRAWICON(icn24,黑马营=1,LOW,posBottom,posMid,clrPurple);
TITLE("[黑马营:",黑马营,"]",clrPurple,"[回马枪A:",回马枪A,"]",clrSky,"[回马枪B:",回马枪B,"]",clrYellow);