通达信的源码

VOLUME:VOL,VOLSTICK;
DRAWLINE(V>=HHV(V,30),V,V<=LLV(V,10),HHV(V,6),1),COLORFFCCCC;
AB:DRAWLINE(V>=HHV(V,10),V,V<=LLV(V,3),HHV(V,3),1),COLORYELLOW;
DRAWTEXT(CROSS(C,AB),C+5000,'B'),COLORFF00FF;
{DRAWICON(CROSS(C,AB),L*0.98,7);}

市盈率 :DYNAINFO(39) ;
换手:VOL/CAPITAL*100 LINETHICK0, NODRAW ;
流通【亿】:CAPITAL/1000000,LINETHICK0;
MA5:=MA(V,5),COLORWHITE,LINETHICK0;
MA10:=MA(V,10),COLORYELLOW,LINETHICK0;
MA30:=MA(V,30),COLORMAGENTA,LINETHICK0;

VAR7:=(HIGH - LOW);
VAR8:=ABS((OPEN - CLOSE));
VAR9:=(HIGH - IF((CLOSE > OPEN),CLOSE,OPEN));
VAR10:=(IF((CLOSE > OPEN),OPEN,CLOSE) - LOW);
VAR11:=((VAR8 / VAR7) * VOL);
VAR12:=((VAR9 / VAR7) * VOL);
VAR13:=((VAR10 / VAR7) * VOL);
VAR14:=IF(((VOL / CAPITAL) > 0.001),1,EXP(ABS(LOG(((VOL / CAPITAL) * 100)))));
VARA:=(((CLOSE - MA(CLOSE,5)) / MA(CLOSE,5)) * 100);
VARB:=(((MA(CLOSE,5) > MA(CLOSE,10)) AND (MA(CLOSE,10) > MA(CLOSE,30))) AND (MA(CLOSE,30) > MA(CLOSE,60)));
VARC:=((MA(CLOSE,5) < MA(CLOSE,10)) AND (MA(CLOSE,10) < MA(CLOSE,30)));
VARD:=REF(CLOSE,1);


DRAWTEXT(((VAR14 > 2) AND (VOL < (MA(VOL,5) / 2))),V-15000,'◆'),COLORFB2DFB;

DRAWTEXT(((VAR14 > 2) AND (VOL < (MA(VOL,5) / 2))),V+59000,'地'),COLORFB2DFB;
换手率:=((VOL / CAPITAL) * 100);
DRAWTEXT((((VOL / REF((SUM(VOL,5) / 5),1)) >= 2) AND (换手率 > 1)),(V+55000),'变'),COLORFFFFCC;


量:=IF((CLOSE > 200),(VOL / 1000000),(VOL / 100)), LINETHICK0;

振幅:=(((HIGH - LOW) / LOW) * 100);
DRAWTEXT(VAR12>VAR11 AND VARA>2 AND VAR12>VAR13 AND CLOSE>MA(CLOSE,5) AND CLOSE>MA (CLOSE,30) AND HIGH>MA(CLOSE,60) AND VOL>MA(VOL,5) AND VAR12>=MA(VOL,5),V+5000,'高'),COLORGREEN;
DRAWTEXT(VAR13>VAR11 AND VAR13>VAR12 AND VARA<-2 AND CLOSE<MA(CLOSE,30) AND VAR13<MA (VOL,5)/2 AND MA(VOL,5)<MA(VOL,10),V+5000,'低'), COLORYELLOW;


LC1:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC1,0),6,1)/SMA(ABS(CLOSE-LC1),6,1)*100;
抓大牛:CROSS(RSI1,11);
DRAWTEXT(抓大牛,V+55000,'抓'),COLORRED;

EMA13:=EMA(C,13),COLORFF8080;
   
  DRAWTEXT(CROSS(HIGH,EMA13),V+5000,'底'),COLORYELLOW;
A01:=DYNAINFO(7);
A03:=BARSCOUNT(CLOSE);
A04:=(SMA((CLOSE / HHV(HIGH,120)),3,1) * 100);
A05:=IF((A03 > 20),A04,0);
A06:=IF((LOW > A01),0,IF((HIGH < A01),1,(((A01 - LOW) + 0.009) / ((HIGH - LOW) + 0.009))));
A07:=DMA(A06,(VOL / CAPITAL)) * 60;
A09:=IF((((A07 > 0) AND (A07 > REF(A07,1))) AND (A05 <= 88)),A07,0);
VAR1:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1);
VAR2:=EMA(VAR1,8);
VAR3:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);
趋势:=EMA(VAR3,3)-10;
STICKLINE((A09>0) AND 趋势<40,0,V/6,2,0),COLORMAGENTA;
粉色机构建仓区:0,LINETHICK0,COLORMAGENTA;
A011:=DYNAINFO( 5);
A013:=BARSCOUNT(HIGH);
A014:=(SMA((HIGH / HHV(CLOSE,120)),3,1) * 100);
A015:=IF((A013 > 20),A014,0);
A016:=IF((HIGH < A011),0,IF((LOW > A011),1,(((A011 - HIGH) + 0.009) / ((LOW - HIGH) + 0.009))));
A017:=DMA(A016,(VOL / CAPITAL)) * 60;
A019:=IF((((A017 >0) AND (A017 > REF(A017,1))) AND (A015 >= 88)),A017,0);
VAR21:=3*SMA((CLOSE-HHV(HIGH,27))/(LLV(LOW,27)-HHV(HIGH,27))*100,5,1)-
2*SMA(SMA((HIGH-HHV(HIGH,27))/(LLV(LOW,27)-HHV(HIGH,27))*100,5,1),3,1);
VAR22:=EMA(VAR21,8);
VAR23:=3*SMA((HIGH-HHV(HIGH,55))/(LLV(LOW,55)-HHV(HIGH,55))*100,5,1)-
2*SMA(SMA((HIGH-HHV(HIGH,55))/(LLV(LOW,55)-HHV(HIGH,55))*100,5,1),3,1);
趋势1:=EMA(VAR23,3)-10;
STICKLINE((A019 > 0 AND (趋势1<20 OR 趋势1>REF(趋势1,1)AND 趋势1<50)),0,V/5,2,0),COLORGREEN;
绿色机构出仓区:0,LINETHICK0,COLORGREEN;


飞狐的也改到成交量中

//DRAWGBK(1, COLORRGB(180,180,180),COLORRGB(250,250,250),1);
当日成交量:VOL/10000,VOLSTICK;
换手率:VOL/CAPITAL*100,LINETHICK0,colorcyan;
DRAWTEXTEX(c,1,0,0,'换手率'+NUMTOSTR((换手率),2)+'%'),ALIGN1,colorred;
STICKLINE(-换手率,-换手率,0,8,1),colorcyan;
量比:if(BARPOS=DATACOUNT,DYNAINFO(17),v/ref(ma(v,5),1)),LINETHICK0;
STICKLINE(-量比,-量比,0,8,1),coloryellow;
DRAWTEXTEX(c,1,80,0,'量比'+NUMTOSTR((量比),2)+'%'),ALIGN1,colorred;
A01:=DYNAINFO(7);
A03:=BARSCOUNT(CLOSE);
A04:=(SMA((CLOSE / HHV(HIGH,120)),3,1) * 100);
A05:=IF((A03 > 20),A04,0);
A06:=IF((LOW > A01),0,IF((HIGH < A01),1,(((A01 - LOW) + 0.009) / ((HIGH - LOW) + 0.009))));
A07:=DMA(A06,(VOL / CAPITAL)) * 60;
A09:=IF((((A07 > 0) AND (A07 > REF(A07,1))) AND (A05 <= 88)),A07,0);
Var1:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1);
Var2:=EMA(Var1,8);
Var3:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);
趋势:=EMA(Var3,3)-10;
FILLRGN((A09 > 0 AND (趋势<20 OR 趋势>REF(趋势,1)AND 趋势<40)),0,换手率/2),COLORMAGENTA;
粉色机构建仓区:0,LINETHICK0,COLORMAGENTA;
A01:=DYNAINFO( 5);
A03:=BARSCOUNT(HIGH);
A04:=(SMA((HIGH / HHV(CLOSE,120)),3,1) * 100);
A05:=IF((A03 > 20),A04,0);
A06:=IF((HIGH < A01),0,IF((LOW > A01),1,(((A01 - HIGH) + 0.009) / ((LOW - HIGH) + 0.009))));
A07:=DMA(A06,(VOL / CAPITAL)) * 60;
A09:=IF((((A07 >0) AND (A07 > REF(A07,1))) AND (A05 >= 88)),A07,0);
Var1:=3*SMA((CLOSE-HHV(HIGH,27))/(LLV(LOW,27)-HHV(HIGH,27))*100,5,1)-
2*SMA(SMA((HIGH-HHV(HIGH,27))/(LLV(LOW,27)-HHV(HIGH,27))*100,5,1),3,1);
Var2:=EMA(Var1,8);
Var3:=3*SMA((HIGH-HHV(HIGH,55))/(LLV(LOW,55)-HHV(HIGH,55))*100,5,1)-
2*SMA(SMA((HIGH-HHV(HIGH,55))/(LLV(LOW,55)-HHV(HIGH,55))*100,5,1),3,1);
趋势:=EMA(Var3,3)-10;
FILLRGN((A09 > 0 AND (趋势<20 OR 趋势>REF(趋势,1)AND 趋势<50)),0,换手率/2),COLORGREEN;
绿色机构出仓区:0,LINETHICK0,COLORGREEN;