通达信主图炒股主图源码

DE:=CONST(LLV(L,90));
 JI:=CONST(HHV(H,90))-DE;
 DE_K:=DE+JI/3*2;
 JI_K:=JI/2;
 RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
 DE_A:=CONST(LLV(RSV,90));
 DD_A:=CONST(HHV(RSV,90))-DE_A;
 R:=(RSV-DE_A)/DD_A;
 RSV1:=R*JI_K+DE_K;
 
DE_M:=DE+JI/3;
 JI_M:=JI/2;
 KDL:=CONST(LLV(EMA(C,26),90));
 KDH:=CONST(HHV(EMA(C,26),90))-KDL;
 R_K1:=(EMA(C,12)-KDL)/KDH;
 R_K2:=(EMA(C,26)-KDL)/KDH;
 DIF~:(R_K1-R_K2)*JI*1.5+DE_M;
 DEA~:EMA(DIF~,9);
 MACD~:=(DIF~-DEA~)*2+DE_M;
 STICKLINE(MACD~>=DE_M,MACD~,DE_M,0,0),COLORLIBLUE;
 D_1:=MACD~>H AND H>=DE_M AND DE_M>=L;
 D_2:=MACD~>H AND H>=L AND L>DE_M;
 D_3:=H>MACD~ AND MACD~>=L AND L>DE_M;
 D_4:=H>MACD~ AND MACD~>DE_M AND DE_M>=L;
 STICKLINE(D_1>0,H,DE_M,0,0),COLORYELLOW;
 STICKLINE(D_2,H,L,0,0),COLORYELLOW;
 STICKLINE(D_3,MACD~,L,0,0),COLORYELLOW;
 STICKLINE(D_4,MACD~,DE_M,0,0),COLORYELLOW;
 D_5:=MACD~  D_6:=MACD~  D_7:=L  D_8:=L  STICKLINE(MACD~  STICKLINE(D_5,DE_M,L,0,0),COLORYELLOW;
 STICKLINE(D_6,H,L,0,0),COLORYELLOW;
 STICKLINE(D_7,H,MACD~,0,0),COLORYELLOW;
 STICKLINE(D_8,DE_M,MACD~,0,0),COLORYELLOW;
 L_00:DE_K;
 L_20:JI_K/5+DE_K;
 L_80:JI_K*4/5+DE_K;
 L_100:JI_K+DE_K;
 
B1:=MA(CLOSE,1);
 B2:=SMA(SMA(SMA(B1,2,1),2,1),2,1) ;
 SMA2:=MA(B2,5) ;
 DRAWBAND(B2,RGB(255,0,0),SMA2,RGB(0,255,0));
 {FILLRGN(B2,SMA2,B2>SMA2),COLORRED;
 FILLRGN(B2,SMA2,B2  X:=21;
 TTY:=H;
 AAT:=REF(TTY,X)=HHV(TTY,2*X+1);
 BBT:=FILTER(AAT,X);
 CCT:=BACKSET(BBT,X+1);
 HD10T:=FILTER(CCT,X);
 AA1T:=REF(TTY,X)=LLV(TTY,2*X+1);
 BB1T:=FILTER(AA1T,X);
 CC1T:=BACKSET(BB1T,X+1);
 LD10T:=FILTER(CC1T,X);
 前期高位:REF(H,BARSLAST(HD10T)),COLORBLUE,LINETHICK0;
 前期低位:REF(L,BARSLAST(LD10T)),COLORRED,LINETHICK0;
 
三日不破:=MIN(MIN(L,REF(L,1)),REF(L,2))>=REF(L,3);
 三日量缩:=(MAX(MAX(V,REF(V,1)),REF(V,2))  三日价涨A:=C>=REF(C,1);
 三日价涨B:=C  三日价涨C:=MIN(MIN(C,REF(C,1)),REF(C,2))>=REF(L,3);
 TIM:=IF(DATE<1140214,1,0);
 缩倍柱:=(VOL*1.95<=REF(VOL,1))*TIM;
 百日低量:=(VOL=LLV(VOL,100))*TIM;
 倍量柱:=C>REF(C,1)*1.04 AND (VOL>=1.9*REF(VOL,1))*TIM;
 四日前倍量柱:=(REF(VOL,3)>1.9*REF(VOL,4))*TIM;
 四日前高量柱:=(REF(VOL,3)>=REF(VOL,4) AND REF(VOL,3)<1.9*REF(VOL,4) AND 三日量缩)*TIM;
 前三引用不成立:=COUNT(REF(四日前倍量柱,1) AND (REF(三日不破,1) OR REF(三日价涨C,1)),3)=0 AND COUNT(REF(四日前高量柱,1) AND
(REF(三日不破,1) OR REF(三日价涨C,1)),3)=0;
 倍量黄金柱:=四日前倍量柱 AND 三日量缩 AND 三日不破 AND 三日价涨A AND 前三引用不成立;
 高量黄金柱:=四日前高量柱 AND 三日量缩 AND 三日不破 AND 三日价涨A AND 前三引用不成立;
 黄金柱:=倍量黄金柱 OR 高量黄金柱;
 次倍量黄金柱:=NOT(黄金柱) AND 四日前倍量柱 AND 三日量缩 AND 三日不破 AND 三日价涨B AND 前三引用不成立;
 次高量黄金柱:=NOT(黄金柱) AND 四日前高量柱 AND 三日量缩 AND 三日不破 AND 三日价涨B AND 前三引用不成立;
 次黄金柱:=次倍量黄金柱 OR 次高量黄金柱;
 准倍量黄金柱:=NOT(黄金柱 OR 次黄金柱) AND 四日前倍量柱 AND ((三日量缩 AND 三日价涨C) OR (COUNT(倍量柱,3)>=1 AND 三日不破))
AND 前三引用不成立;
 准高量黄金柱:=NOT(黄金柱 OR 次黄金柱) AND 四日前高量柱 AND (三日量缩 AND 三日价涨C) AND 前三引用不成立;
 准黄金柱:=准倍量黄金柱 OR 准高量黄金柱;
 倍量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱) AND 四日前倍量柱 AND 三日不破 AND 三日价涨A AND 前三引用不成立;
 高量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱) AND 四日前高量柱 AND 三日不破 AND 三日价涨A AND 前三引用不成立;
 将军柱:=