通达信〖筹码蓄势突破〗码成本集中度指标公式源码

P1:=90;
N:=6;
VAR1:=P1+(100-P1)/2;
VAR2:=(100-P1)/2;
VAR3:=COST(VAR1);
VAR4:=COST(VAR2);
SR:(VAR3-VAR4)/(VAR3+VAR4)*100/2,LINETHICK2;
N,LINETHICK1,COLOR8000FF;
STICKLINE(SR< N AND SR<=REF(SR,1),N,SR,2,0),COLOR0000FF;
STICKLINE(SR< N AND SR> REF(SR,1),N,SR,2,0),COLOR00FFFF;
IF(SR< N,SR,DRAWNULL),COLOR00FFFF,LINETHICK2;
IF(SR>N AND C>EMA(C,30) ,SR,DRAWNULL),COLOR0000FF,LINETHICK2;
VAR5:=1;
VAR6:=IF(CLOSE< OPEN,(CLOSE-OPEN)/OPEN,0);
VAR7:=IF(CLOSE>OPEN,(CLOSE-OPEN)/OPEN,0);
VAR8:=IF(CLOSE>OPEN,(OPEN-LOW)/OPEN,(CLOSE-LOW)/OPEN);
VAR9:=IF(CLOSE>OPEN,(HIGH-CLOSE)/OPEN,(HIGH-OPEN)/OPEN);
VAR10:=IF(BARSLAST(CLOSE>MA(CLOSE,20))>34,34,BARSLAST(CLOSE>MA(CLOSE,20)));
VAR11:=IF(BARSLAST(CLOSE>MA(CLOSE,60))>120,120,BARSLAST(CLOSE>MA(CLOSE,60)));
VAR12:=IF(COUNT(CLOSE>0,250)< 240,CAPITAL,SUM(vol,480)/8);
VAR13:=MA(LOW,20)*1.2;
VAR14:=MA(LOW,20)*1.1;
VAR15:=MA(HIGH,20)*0.9;
VAR16:=MA(HIGH,20)*0.8;
VAR17:=CLOSE/(1+(CLOSE/MA(CLOSE,240)-1)-MA(INDEXC/MA(INDEXC,240)-1,3));
VAR18:=(CLOSE/VAR17-1)*50;
VAR19:=MA(IF(CLOSE>MA(CLOSE,240) AND (CLOSE-MA(CLOSE,240))/MA(CLOSE,240)+SUM(VAR6,20)>0,((CLOSE-MA(CLOSE,240))/MA(CLOSE,240)+SUM(VAR6,20))/MA(VOL/VAR12,20)/2.5,0),10);
VAR20:=(WINNER(C*1.1)-WINNER(C*0.9))/WINNER(HHV(H,0))*100;
VAR21:=SR< N AND (SR>REF(SR,1) AND REF(SR,1)<=REF(SR,2) AND REF(SR,2)<=REF(SR,3) AND REF(SR,3)<=REF(SR,4) AND REF(SR,4)<=REF(SR,5));
VAR22:=COUNT(SR< N,22)>=15;
VAR23:=C>EMA(C,30) AND C>EMA(C,90) AND C>EMA(C,140);
VAR24:=C/REF(C,4)< 1.2 AND HHV((CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,7)<=20 AND COUNT(C/REF(C,1)>1.095,4)<=1 ;
VAR25:=COUNT(VAR20>85,35)>=1;
VAR26:=H=HHV(H,15) OR C=HHV(C,15);
VAR27:=REF((H-L)/REF(C,1),1)*100<=9 AND (H-L)/REF(C,1)*100<=9;
VAR28:=WINNER(C)*100>83;
VAR29:=VAR21 AND VAR22 AND VAR23 AND VAR24 AND VAR25 AND VAR26 AND VAR27 AND VAR5 AND VAR28 AND (VAR18>0 OR VAR19>0) ;
STICKLINE(VAR29,6,10,0,0),COLOR0055FF;
STICKLINE(VAR29,6,10,2.6,0),COLOR008888;
STICKLINE(VAR29,6,10,2.3,0),COLOR00AA00;
STICKLINE(VAR29,6,10,1.7,0),COLOR00CC00;
STICKLINE(VAR29,6,10,0.9,0),COLOR00EE00;
STICKLINE(VAR29,6,10,0.2,0),COLOR44FF44;
DRAWICON(VAR29,SR-0.2,38);