通达信顶底分型优化红绿红绿相间线段源码
partline函数应用的优化代码如下:支持PC不支持APP
BBH:=INCLUDED(0,0) OR INCLUDEDV(0,0);
ZSK:=NOT(BBH);{非被包含的K线}
XSH:=IF(NOT(BBH),H,DRAWNULL);
XSO:=IF(NOT(BBH),O,DRAWNULL);
XSL:=IF(NOT(BBH),L,DRAWNULL);
XSC:=IF(NOT(BBH),C,DRAWNULL);
DRAWKLINE(XSH,XSO,XSL,XSC);
{顶底分型左侧第一根有效真实K数据获取}
DFXLEFTH:=REF(REF(H,BARSLASTCOUNT(BBH)),1),NODRAW;
DFXLEFTL:=REF(REF(L,BARSLASTCOUNT(BBH)),1),NODRAW;
HZSKN:=BARSNEXT(ZSK),NODRAW;{往后获取最近一根真实K用}
{顶底分型右侧第一根有效真实K数据获取}
DFXRIGHTH:=REFX(REFX(H,BARSNEXT(ZSK)),1),NODRAW;
DFXRIGHTL:=REFX(REFX(L,BARSNEXT(ZSK)),1),NODRAW;
{顶分型K 比左侧的高高 低高 比右侧的高高,低高 条件判断}
DFXLEFTPD:=H>=DFXLEFTH AND L>=DFXLEFTL;
DFXRIGHTPD:=H>=DFXRIGHTH AND L>=DFXRIGHTL;
{条件综合 顶分型K满足条件AND}
DFXK:=DFXLEFTPD AND DFXRIGHTPD AND ZSK;
{底分型K 比左侧的高低 低低 比右侧的高低,低低条件判断 }
LFXLEFTPD:=H<=DFXLEFTH AND L<=DFXLEFTL;
LFXRIGHTPD:=H<=DFXRIGHTH AND L<=DFXRIGHTL;
{条件综合 底分型K满足条件AND}
LFXK:=LFXLEFTPD AND LFXRIGHTPD AND ZSK;
ZZLINE:=DRAWLINE(DFXK,HIGH,LFXK,LOW,0),COLORGREEN; {画顶底分型顶底点趋势线段 下降段}
DDLINE:=DRAWLINE(LFXK,LOW,DFXK,HIGH,0),COLORRED; {画顶底分型顶底点趋势线段 上升段};
HPARTLINE:=MAX(ZZLINE,DDLINE);
PARTLINE(HPARTLINE,IF(HPARTLINE>REF(HPARTLINE,1),RGB(255,0,0),RGB(0,255,0)),1),LINETHICK3;#通达信公式 #通达信 #行情 #量化交易 #通达信公式 #通达信公式
BBH:=INCLUDED(0,0) OR INCLUDEDV(0,0);
ZSK:=NOT(BBH);{非被包含的K线}
XSH:=IF(NOT(BBH),H,DRAWNULL);
XSO:=IF(NOT(BBH),O,DRAWNULL);
XSL:=IF(NOT(BBH),L,DRAWNULL);
XSC:=IF(NOT(BBH),C,DRAWNULL);
DRAWKLINE(XSH,XSO,XSL,XSC);
{顶底分型左侧第一根有效真实K数据获取}
DFXLEFTH:=REF(REF(H,BARSLASTCOUNT(BBH)),1),NODRAW;
DFXLEFTL:=REF(REF(L,BARSLASTCOUNT(BBH)),1),NODRAW;
HZSKN:=BARSNEXT(ZSK),NODRAW;{往后获取最近一根真实K用}
{顶底分型右侧第一根有效真实K数据获取}
DFXRIGHTH:=REFX(REFX(H,BARSNEXT(ZSK)),1),NODRAW;
DFXRIGHTL:=REFX(REFX(L,BARSNEXT(ZSK)),1),NODRAW;
{顶分型K 比左侧的高高 低高 比右侧的高高,低高 条件判断}
DFXLEFTPD:=H>=DFXLEFTH AND L>=DFXLEFTL;
DFXRIGHTPD:=H>=DFXRIGHTH AND L>=DFXRIGHTL;
{条件综合 顶分型K满足条件AND}
DFXK:=DFXLEFTPD AND DFXRIGHTPD AND ZSK;
{底分型K 比左侧的高低 低低 比右侧的高低,低低条件判断 }
LFXLEFTPD:=H<=DFXLEFTH AND L<=DFXLEFTL;
LFXRIGHTPD:=H<=DFXRIGHTH AND L<=DFXRIGHTL;
{条件综合 底分型K满足条件AND}
LFXK:=LFXLEFTPD AND LFXRIGHTPD AND ZSK;
ZZLINE:=DRAWLINE(DFXK,HIGH,LFXK,LOW,0),COLORGREEN; {画顶底分型顶底点趋势线段 下降段}
DDLINE:=DRAWLINE(LFXK,LOW,DFXK,HIGH,0),COLORRED; {画顶底分型顶底点趋势线段 上升段};
HPARTLINE:=MAX(ZZLINE,DDLINE);
PARTLINE(HPARTLINE,IF(HPARTLINE>REF(HPARTLINE,1),RGB(255,0,0),RGB(0,255,0)),1),LINETHICK3;#通达信公式 #通达信 #行情 #量化交易 #通达信公式 #通达信公式