通达信彩色K线主图指标公式源码

　　DRAWNUMBER(ISLASTBAR ,C,C),COLORMAGENTA;

　　N8:=STRCAT(CON2STR(YEAR,0),' 年 ');

　　Y8:=STRCAT(CON2STR(MONTH,0),' 月 ');

　　R8:=STRCAT(CON2STR(DAY,0),' 日 ');

　　N:=120;

　　K:=BArslAST(CURRBARSCOUNT=N);

　　GD:=CONST(IF(ISLASTBAR=1,HHV(H,K),0));{高点}

　　DD:=CONST(IF(ISLASTBAR=1,LLV(L,K),0));{低点}

　　KJ:=GD-DD;{高低点差值=分区高度};

　　GD4:IF(CURRBARSCOUNT<=N/30,GD,DRAWNULL);

　　低:IF(CURRBARSCOUNT<=N/30,DD,DRAWNULL),COLORFFFF00;

　　高:IF(CURRBARSCOUNT<=N/30,GD,DRAWNULL),COLOR00FFFF;

　　支撑:IF(CURRBARSCOUNT<=N/30,DD+KJ*0.191,DRAWNULL),COLOR00FFFF;

　　强势: IF(CURRBARSCOUNT<=N/30,DD+KJ*0.382,DRAWNULL),COLORFF00FF;

　　突破:IF(CURRBARSCOUNT<=N/30,DD+KJ/2,DRAWNULL),COLOR0000FF;

　　警示:IF(CURRBARSCOUNT<=N/30,DD+KJ*0.618,DRAWNULL),COLOR00FFFF;

　　压力:IF(CURRBARSCOUNT<=N/30,DD+KJ*0.809,DRAWNULL),COLOR00FF00;

　　低涨:IF(CURRBARSCOUNT<=N/30,(C/LLV(LOW,K)-1)*100,DRAWNULL),COLOR0000FF,NODRAW;

　　天数:BARSLAST(L=DD),COLORCYAN,NODRAW;

　　今日保护价:(REF(C,2)+REF(C,1)+O)/3 ,COLORCC3299,NODRAW;

　　顶点:IF(CURRBARSCOUNT<=60, CONST(IF(ISLASTBAR=1,HHV(H, BARSLAST(CURRBARSCOUNT=60)),1)),DRAWNULL),COLORRED,DOTLINE;

　　低点:IF(CURRBARSCOUNT<=60, CONST(IF(ISLASTBAR=1,LLV(L, BARSLAST(CURRBARSCOUNT=60)),1)),DRAWNULL),COLORMAGENTA,DOTLINE;

　　STICKLINE(cci>=200 AND H>=顶点,O,C,3,0),COLORBLUE;

　　STICKLINE(CCI<=100 AND L<=低点,O,C,3,0),COLORYELLOW;

　　SJ8:=STRCAT(STRCAT(N8,Y8), R8);

　　DRAWTEXT(ISLASTBAR,顶点,'顶点'),COLORRED;

　　DRAWTEXT(ISLASTBAR,低点,'低点'),COLORMAGENTA;

　　DRAWBAND(高,RGB(200,200,0),压力,RGB(0,0,0));

　　DRAWBAND(压力,RGB(0,190,0),警示,RGB(0,0,0));

　　DRAWBAND(警示,RGB(220,120,0),突破,RGB(0,0,0));

　　DRAWBAND(突破,RGB(120,0,120),强势,RGB(0,0,0));

　　DRAWBAND(强势,RGB(120, 0,0),支撑,RGB(0,0,0));

　　DRAWBAND(支撑,RGB(80,80,80),低,RGB(0,0,0));

　　DRAWTEXT_FIX(C>0,0.88,0,0,SJ8),COLOR00FFFF;

　　STICKLINE(CURRBARSCOUNT=N/30,GD,DD,0,0),COLORGREEN;

　　STICKLINE(CURRBARSCOUNT=1,GD,DD,0,0),COLORGREEN;

　　STICKLINE(CURRBARSCOUNT<=N/30,支撑,支撑,4,0),COLORFF00FF;

　　STICKLINE(CURRBARSCOUNT<=N/30,强势,强势,4,0),COLORFF00FF;

　　STICKLINE(CURRBARSCOUNT<=N/30,突破,突破,4,0),COLORABABAB;

　　STICKLINE(CURRBARSCOUNT<=N/30,警示,警示,4,0),COLOR00FFFF;

　　STICKLINE(CURRBARSCOUNT<=N/30,压力,压力,4,0),COLOR00FFFF;

　　DRAWTEXT(CURRBARSCOUNT=1,压力,'压力'),COLOR00FFFF;

　　DRAWTEXT(CURRBARSCOUNT=1,警示,'警示'),COLOR00FFFF;

　　DRAWTEXT(CURRBARSCOUNT=1,突破,'突破'),COLORFFFFFF;

　　DRAWTEXT(CURRBARSCOUNT=1,强势,'强势'),COLOR00FFFF;

　　DRAWTEXT(CURRBARSCOUNT=1,支撑,'支撑'),COLOR00FFFF;

　　AMV0:=vol*(O+C+H+L)/4;

　　ZS:WMA(AMV0,21)/WMA(VOL,21);

　　IL:6*HHV(ZS,2)-5*ZS;

　　DRAWBAND(IL,RGB(0,150,170),ZS,RGB(0,0,0));

　　ZC:2*ZS-IL;

　　DRAWBAND(ZS,RGB(160,100,0),ZC,RGB(0,0,0));

　　STICKLINE(CLOSE>=ZS AND C>=O,OPEN,CLOSE,2,0),COLOR0000FF;

　　STICKLINE(CLOSE>=ZS AND C>=O,LOW,H,0,0),COLORRED;

　　STICKLINE(CLOSE>=ZS AND C

　　STICKLINE(CLOSE>=ZS AND C

　　STICKLINE(CLOSE=O,OPEN,CLOSE,2,0),COLORFF00FF;

　　STICKLINE(CLOSE=O,LOW,H,0,0),COLORFF00FF;

　　STICKLINE(CLOSE

　　STICKLINE(CLOSE