同花顺新彩带副图 源码

同花顺新彩带副图 源码

源码见下：　
 

zx:IF(ISNULL(NEW),PRE,NEW);
 byx:=MA(zx,10);
 xxx:= MA(zx,20);
 yyy:= MA(zx,40);
 k:=SLOPE(byx,3);
 K7:=SLOPE(byx,7);
 m_k=MA(k,2);
 aa=SLOPE(m_k,1);
 //K13:=SLOPE(byx,7);
 //PARTLINE(zx,k>=0AND K7>=0 AND aa>=0 ,RGB(255,0,0),k<=0 AND K7<=0 AND aa<=0 ,RGB(0,255,0));
 FILLRGN(byx,REF(byx,2),byx>REF(byx,2),RGB(255,0,0),byx<REF(byx,2),RGB(0,0,255));
 //FILLRGN(xxx,REF(xxx,4),xxx>REF(xxx,4),RGB(200,50,50),xxx<REF(xxx,4),RGB(10,100,200));
 //FILLRGN(yyy,0.998*REF(yyy,2),yyy>REF(yyy,2),RGB(200,20,20),yyy<REF(yyy,2),RGB(10,200,50));
 zlcc:=EMA(100*(NEW-LLV(NEW,34))/(HHV(NEW,34)-LLV(NEW,34)),3);
 xd:HHV(MA((NEW),5),30),colorbrown;
 xd:LLV(MA((NEW),5),30) ,colormagenta;
 cd:LLV(MA((NEW),5),120),colorgray;
 JJ:=(NEW+HHV(MA((NEW),5),2)+LLV(MA((NEW),5),2))/3;
AA:=EMA(JJ,3);
BB:=REF(AA,1);            
STICKLINE(AA>BB,AA,BB,3,0),coloryellow;
 V1:=LLV(NEW,10);
V2:=HHV(NEW,25);
价位线:=EMA((NEW-V1)/(V2-V1)*4,4);
DRAWTEXT(CROSS(价位线,0.3),NEW,'★'),colorred;
IF (MARKETTYPE == 176 OR MARKETTYPE==64)
 {
 b=SUBSAMEDAY(&VOL) ;
 m=SUM(b*zx,0);
 均价:IF(m>0,m/VOL,PRE);
 }
 ELSE IF(CODETYPE!=0)
 {
 IF(ISNULL(MONEY) OR ISNULL(VOL) OR VOL==0 OR MONEY==0)
   均价:PRE;
    ELSE IF(VOL==VOL[1] OR MONEY==MONEY[1])
       均价:均价[1];
    ELSE
       均价:MONEY/VOL;
 }
 DRAWGBK(FORMATTIME(1)<10 AND TRADETIME>242),RGB(0,0,128);
 jun_k=SLOPE(均价,1);
 PARTLINE(zx,k>=0AND K7>=0  AND jun_k>=0 ,RGB(255,0,0),k<=0 AND K7<=0  AND jun_k<=0 ,RGB(0,255,0));
 RETURN;
 hx_star;
 hx_star_p;
 hxriceLow;
 hxriceUp;
 hxriceMemo;