通达信【金钻龙头】主副图套装 及时发现龙头股 源码
{金钻龙头副图源码如下}
{金钻龙头副图指标，无未来函数}
CCI:=EMA(((IF((H>C AND C>O) OR (H>O AND O>=C),C,H)+IF((L<C AND C<O) OR(L<O AND O<=C),C,LOW)/3)-MA((IF((H>C AND C>O) OR (H>O AND O>=C),C,H)+IF((L<C AND C<O) OR(L<O AND O<=C),C,LOW)/3),84.0270012))/(0.015*AVEDEV((IF((H>C AND C>O) OR (H>O AND O>=C),C,H)+IF((L<C AND C<O) OR(L<O AND O<=C),C,LOW)/3),84.0270012)),2.0332),COLORWHITE;
龙头启动:CCI>HHV(MA(CCI,5),21) AND CROSS(C,1.13*(EMA((EXPMA(C*VOL,3)/EXPMA(VOL,3)+EXPMA(C*VOL,6)/EXPMA(VOL,6)+EXPMA(C*VOL,12)/EXPMA(VOL,12)+EXPMA(C*VOL,24)/EXPMA(VOL,24))/4,13))) AND REF(C,1)*1.1-C<0.01 AND H=C;
{金钻龙头主图源码如下}
{金钻龙头主图指标，无未来函数}
XA1:=IF(DATE< 2442.46*500,1,1);
牛熊线:DMA(MA(C+REF(C,5)*XA1/C*0.098,90),VOL),DOTLINE,COLORYELLOW;
五日线:MA(C,5) DOTLINE COLORGREEN;好股网1:=C;
趋势突破1:FORCAST(EMA( 好股网1,9),7),COLORGREEN;
趋势突破2:FORCAST(EMA( 好股网1,17),7),DOTLINE,COLORMAGENTA;
趋势突破3:FORCAST(EMA( 好股网1,25),7),COLORGREEN,LINETHICK2;
趋势突破4:IF(趋势突破1>=趋势突破2,趋势突破1,DRAWNULL),COLORRED;
趋势突破5:IF(趋势突破1< 趋势突破2,趋势突破2,DRAWNULL),DOTLINE,COLORGREEN;
趋势突破6:IF(趋势突破2>=趋势突破3,趋势突破3,DRAWNULL),COLORRED,LINETHICK2;
好股网2:=EMA(C,12)-EMA(C,26);
好股网3:=EMA( 好股网2,9);
STICKLINE( 好股网2>= 好股网3,C,OPEN,3,0),COLORRED;
STICKLINE( 好股网2>= 好股网3,HIGH,LOW,0.00009,0),COLORRED;
好股网4:= 好股网2>= 好股网3;
好股网5:=(C-LLV(LOW,6))/(HHV(HIGH,6)-LLV(LOW,6))*100;
好股网6:=SMA( 好股网5,3,1);
好股网7:=SMA( 好股网6,3,1);
STICKLINE(CROSS( 好股网6, 好股网7) AND 好股网7<=55,C,OPEN,3.1,0),COLORYELLOW;
STICKLINE(CROSS( 好股网6, 好股网7) AND 好股网7<=55,HIGH,LOW,0.00009,0),COLORYELLOW;
好股网8:=CROSS( 好股网6, 好股网7) AND 好股网7<=55;
好股网9:=REF(C,1);
好股网10:=SMA(MAX(C- 好股网9,0),9,1)/SMA(ABS(C- 好股网9),9,1)*100;
STICKLINE( 好股网10>=75,OPEN,C,3.1,0),COLORFF00FF;
STICKLINE( 好股网10>=75,HIGH,LOW,0.00009,0),COLORFF00FF;
好股网11:= 好股网10>=75;STICKLINE(NOT( 好股网8) AND NOT( 好股网4) AND NOT( 好股网11),OPEN,C,3.1,0),COLORCYAN;
STICKLINE(NOT( 好股网8) AND NOT( 好股网4) AND NOT( 好股网11),HIGH,LOW,0.00009,0),COLORCYAN;
CCI:=EMA(((IF((H>C AND C>O) OR (H>O AND O>=C),C,H)+IF((L< C AND C< O) OR(L< O AND O<=C),C,LOW)/3)-MA((IF((H>C AND C>O) OR (H>O AND O>=C),C,H)+IF((L< C AND C< O) OR(L< O AND O<=C),C,LOW)/3),84.0270012))/(0.015*AVEDEV((IF((H>C AND C>O) OR (H>O AND O>=C),C,H)+IF((L< C AND C< O) OR(L< O AND O<=C),C,LOW)/3),84.0270012)),2.0332),COLORWHITE;
龙头启动:=CCI>HHV(MA(CCI,5),21) AND CROSS(C,1.13*(EMA((EXPMA(C*VOL,3)/EXPMA(VOL,3)+EXPMA(C*VOL,6)/EXPMA(VOL,6)+EXPMA(C*VOL,12)/EXPMA(VOL,12)+EXPMA(C*VOL,24)/EXPMA(VOL,24))/4,13))) AND REF(C,1)*1.1-C< 0.01 AND H=C;
趋势王:=龙头启动;
DRAWICON(CROSS(趋势王>0,0.4),L*1,9);