通达信彩色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;

{分析家公式网www.88gs.com}

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<O,OPEN,CLOSE,2,0),COLOR00FFFF;

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

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

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

STICKLINE(CLOSE<ZS AND C<O,OPEN,CLOSE,2,0),COLORFFFF00;

STICKLINE(CLOSE<ZS AND C<O,LOW,H,0,0),COLORFFFF00;