通达信北沙分时选股指标公式源码

通达信北沙分时选股指标公式源码

源码正文：

均价:SUM(V*C,0)/SUM(V,0),COLORBLUE{XG51};
SJ1:=TIME=93100{XG51};
SJ2:=TIME=130000{XG51};
T1:=BArslAst(SJ1){XG51};
T2:=BARSLAST(SJ2){XG51};
午前低点:=IF(BETWEEN(TIME,93100,130000),LLV(L,T1),DRAWNULL)=C{XG51};
WQD:=CONST(REF(C,BARSLAST(IF(FILTERX(午前低点,T1),1,0)))){XG51};
WD:=FILTERX(午前低点,T1){XG51};
午前高点:=IF(BETWEEN(TIME,93100,130000),HHV(H,T1),DRAWNULL)=C{XG51};
WQG:=CONST(REF(C,BARSLAST(IF(FILTERX(午前高点,T1),1,0)))){XG51};
WG:=FILTERX(午前高点,T1){XG51};
午前高点数:=CONST(IF(BARSLAST(WG)>=0,REF(T1,BARSLAST(WG)),DRAWNULL)){XG51};
午前低点数:=CONST(IF(BARSLAST(WD)>=0,REF(T1,BARSLAST(WD)),DRAWNULL)){XG51};
早开横线:=CONST(DYNAINFO(4)){XG51};
午收横线:=CONST(REF(C,T2)){XG51};
午收:=(IF(SJ2,1,0)){XG51};
早开横线最高:=IF(TIME=93100 AND 早开横线=maX(早开横线,MAX(WQG,WQD)),1,0){XG51};
早开横线最低:=IF(TIME=93100 AND 早开横线=MIN(早开横线,MIN(WQG,WQD)),1,0){XG51};
开盘起始点:=SJ1 AND 早开横线<=WQG AND 早开横线>=WQD{XG51};
起点成立:=SJ1 AND 早开横线<=WQG AND 早开横线>=WQD{XG51};
起点1:=crOSS(SUM(IF(CROSS(SUM(WD+WG,T1)=1,0.5),1,CROSS(SUM(WD+WG,0)=2,0.5)),T1)=1,0.5){XG51};
起点1天数:=CONST(IF(BARSLAST(起点1)>=0,REF(T1,BARSLAST(起点1)),DRAWNULL)){XG51};
起点1横线:=CONST(IF(BARSLAST(起点1)>=0,REF(C,BARSLAST(起点1)),DRAWNULL)){XG51};
第一根1:IF(REF(起点成立,T1) AND T1>=0 AND T1<=起点1天数 AND 早开横线<起点1横线,
((起点1横线-早开横线)/起点1天数)*T1+早开横线,DRAWNULL),LINETHICK2,COLORLIMAGENTA{XG51};
第一根2:IF(REF(起点成立,T1) AND T1>=0 AND T1<=起点1天数 AND 早开横线>起点1横线,
早开横线-((早开横线-起点1横线)/起点1天数)*T1,DRAWNULL),LINETHICK2,COLORLIMAGENTA{XG51};
午收1实时天:=CONST(IF(ISLASTBAR,BARSLAST(起点1),DRAWNULL)){XG51};
午收1实时横线:=CONST(IF(BARSLAST(起点1)>=0 AND T1<=120,C,DRAWNULL)){XG51};
第一根实时1:IF(BARSLAST(起点1)>=0 AND T1<=119 AND 午收1实时横线>起点1横线 AND
早开横线>WQG,((午收1实时横线-起点1横线)/午收1实时天)*BARSLAST(起点1)+起点1横线,
DRAWNULL),LINETHICK2,COLORCYAN{XG51};
第一根实时2:IF(BARSLAST(起点1)>=0 AND T1<=119 AND 午收1实时横线<起点1横线 AND
早开横线<WQD,起点1横线-((起点1横线-午收1实时横线)/午收1实时天)*BARSLAST(起点1),
DRAWNULL),LINETHICK2,COLORCYAN{XG51};
起点2:=CROSS(SUM(WD+WG,0)=2,0.5){XG51};
起点2天数:=CONST(IF(BARSLAST(起点2)>=0,REF(BARSLAST(起点1),BARSLAST(起点2)),DRAWNULL)){XG51};
起点2横线:=CONST(IF(BARSLAST(起点2)>=0,REF(C,BARSLAST(起点2)),DRAWNULL)){XG51};
午收天数1:=CONST(IF(T2>=0,REF(BARSLAST(起点1),T2),DRAWNULL)){XG51};
午收天数2:=CONST(IF(T2>=0,REF(BARSLAST(起点2),T2),DRAWNULL)){XG51};
第二根1:IF(BARSLAST(起点1)>=0 AND BARSLAST(起点1)<=起点2天数 AND 起点2横线>起点1横线
AND  早开横线<=WQG AND 早开横线>=WQD,
((起点2横线-起点1横线)/起点2天数)*BARSLAST(起点1)+起点1横线,
DRAWNULL),LINETHICK2,COLORCYAN{XG51};
第二根2:IF(BARSLAST(起点1)>=0 AND BARSLAST(起点1)<=起点2天数  AND 起点2横线<起点1横线
AND 早开横线<=WQG AND 早开横线>=WQD,
起点1横线-((起点1横线-起点2横线)/起点2天数)*BARSLAST(起点1),
DRAWNULL),LINETHICK2,COLORCYAN{XG51};
第二根3:IF(BARSLAST(起点1)>=0 AND BARSLAST(起点1)<=午收天数1 AND 午收横线>起点1横线
AND  早开横线>WQG,
((午收横线-起点1横线)/午收天数1)*BARSLAST(起点1)+起点1横线,
DRAWNULL),LINETHICK2,COLORCYAN{XG51};
第二根4:IF(BARSLAST(起点1)>=0 AND BARSLAST(起点1)<=午收天数1 AND 午收横线<起点1横线
AND  早开横线<WQD,
起点1横线-((起点1横线-午收横线)/午收天数1)*BARSLAST(起点1),
DRAWNULL),LINETHICK2,COLORCYAN{XG51};
第二根5:IF(BARSLAST(起点2)>=0 AND BARSLAST(起点2)<=午收天数2 AND 午收横线>起点2横线
AND  早开横线>WQG,
((午收横线-起点2横线)/午收天数2)*BARSLAST(起点2)+起点2横线,
DRAWNULL),LINETHICK2,COLORCYAN{XG51};
第二根6:IF(BARSLAST(起点2)>=0 AND BARSLAST(起点2)<=午收天数2 AND 午收横线<起点2横线
AND  早开横线<WQD,
起点2横线-((起点2横线-午收横线)/午收天数2)*BARSLAST(起点2),
DRAWNULL),LINETHICK2,COLORCYAN{XG51};
第二根7:IF(T1>=0 AND T1<=午前高点数 AND 早开横线<WQD AND DYNAINFO(4)>0,
((WQG-早开横线)/午前高点数)*T1+早开横线,DRAWNULL),LINETHICK2,COLORLIMAGENTA{XG51};
第二根8:IF(T1>=0 AND T1<=午前低点数 AND 早开横线>WQG AND DYNAINFO(4)>0,
早开横线-((早开横线-WQD)/午前低点数)*T1,DRAWNULL),LINETHICK2,COLORLIMAGENTA{XG51};
第二根9:IF(T1>=0 AND T1<=起点1天数 AND 早开横线=WQD AND 早开横线=起点1横线 AND
DYNAINFO(4)>0,早开横线,DRAWNULL),LINETHICK2,COLORLIMAGENTA{XG51};
第二根10:IF(T1>=0 AND T1<=起点1天数 AND 早开横线=WQG AND 早开横线=起点1横线 AND
DYNAINFO(4)>0,早开横线,DRAWNULL),LINETHICK2,COLORLIMAGENTA{XG51};
午收2实时天:=CONST(IF(ISLASTBAR,BARSLAST(起点2),DRAWNULL)){XG51};
午收2实时横线:=CONST(IF(BARSLAST(起点2)>=0 AND T1<=120,C,DRAWNULL)){XG51};
第二根11:IF(BARSLAST(起点2)>=0 AND T1<=119 AND 午收2实时横线>起点2横线 AND
早开横线>WQG,((午收2实时横线-起点2横线)/午收2实时天)*BARSLAST(起点2)+起点2横线,
DRAWNULL),LINETHICK2,COLORCYAN{XG51};
第二根12:IF(BARSLAST(起点2)>=0 AND T1<=119 AND 午收2实时横线<起点2横线 AND
早开横线<WQD,起点2横线-((起点2横线-午收2实时横线)/午收2实时天)*BARSLAST(起点2),
DRAWNULL),LINETHICK2,COLORCYAN{XG51};
{XG51};
起点3天数:=CONST(IF(T1>=120,REF(BARSLAST(起点2),T2),DRAWNULL)){XG51};
第三根1:IF(BARSLAST(起点2)>=0 AND T1<=119 AND 午收横线>起点2横线 AND 早开横线<=WQG
AND 早开横线>=WQD,
((午收横线-起点2横线)/起点3天数)*BARSLAST(起点2)+起点2横线,DRAWNULL),LINETHICK2,COLORWHITE{XG51};
第三根2:IF(BARSLAST(起点2)>=0 AND T1<=119 AND 午收横线<起点2横线 AND 早开横线<=WQG
AND 早开横线>=WQD,
起点2横线-((起点2横线-午收横线)/起点3天数)*BARSLAST(起点2),DRAWNULL),LINETHICK2,COLORWHITE{XG51};
虚线1:IF(早开横线<=WQD AND DYNAINFO(4)>0,早开横线,DRAWNULL),COLORLIGREEN,DOTLINE{XG51};
虚线2:IF(早开横线>=WQG AND DYNAINFO(4)>0,早开横线,DRAWNULL),COLORLIGREEN,DOTLINE{XG51};
虚线3:IF(BARSLAST(WD)>=0 AND WQD<早开横线 AND DYNAINFO(4)>0,REF(C,BARSLAST(WD)),
DRAWNULL),COLORLIGREEN,DOTLINE{XG51};
虚线4:IF(BARSLAST(WG)>=0 AND WQG>早开横线 AND DYNAINFO(4)>0,REF(C,BARSLAST(WG)),
DRAWNULL),COLORLIGREEN,DOTLINE{XG51};
午收天数3:=CONST(IF(ISLASTBAR,BARSLAST(起点2),DRAWNULL)){XG51};
午收横线1:=CONST(IF(BARSLAST(起点2)>=0 AND T1<=120,C,DRAWNULL)){XG51};
第三根3:IF(BARSLAST(起点2)>=0 AND T1<=119 AND 午收横线1>起点2横线 AND 早开横线<=WQG
AND 早开横线>=WQD,((午收横线1-起点2横线)/午收天数3)*BARSLAST(起点2)+起点2横线,DRAWNULL)
,LINETHICK2,COLORWHITE{XG51};
第三根4:IF(BARSLAST(起点2)>=0 AND T1<=119 AND 午收横线1<起点2横线 AND 早开横线<=WQG
AND 早开横线>=WQD,起点2横线-((起点2横线-午收横线1)/午收天数3)*BARSLAST(起点2),DRAWNULL)
,LINETHICK2,COLORWHITE{XG51};
午后低点:=LLV(L,T2)=C{XG51};
WHD:=CONST(REF(C,BARSLAST(IF(FILTERX(午后低点,T2),1,0)))){XG51};
XWD:=FILTERX(午后低点,T2){XG51};
午后高点:=HHV(H,T2)=C{XG51};
WHG:=CONST(REF(C,BARSLAST(IF(FILTERX(午后高点,T2),1,0)))){XG51};
XWG:=FILTERX(午后高点,T2){XG51};
午后高点数:=CONST(IF(BARSLAST(XWG)>=0,REF(T2,BARSLAST(WG)),DRAWNULL)){XG51};
午后低点数:=CONST(IF(BARSLAST(XWD)>=0,REF(T2,BARSLAST(WD)),DRAWNULL)){XG51};
午后信号1:=CROSS(SUM(XWD+XWG,T2)=1,0.5){XG51};
午后起点1天数:=CONST(IF(BARSLAST(午后信号1)>=0,REF(T2,BARSLAST(午后信号1)),DRAWNULL)){XG51};
午后起点1横线:=CONST(IF(BARSLAST(午后信号1)>=0,REF(C,BARSLAST(午后信号1)),DRAWNULL)){XG51};
午后第一根1:IF(T2>=0 AND T2<=午后起点1天数 AND 午收横线<=午后起点1横线,
((午后起点1横线-午收横线)/午后起点1天数)*T2+午收横线,DRAWNULL),LINETHICK2,COLORLIMAGENTA{XG51};
午后第一根2:IF(T2>=0 AND T2<=午后起点1天数 AND 午收横线>午后起点1横线,
午收横线-((午收横线-午后起点1横线)/午后起点1天数)*T2,DRAWNULL),LINETHICK2,COLORLIMAGENTA{XG51};
午后信号2:=CROSS(SUM(XWD+XWG,T2)=2,0.5){XG51};
午后起点2天数:=CONST(IF(BARSLAST(午后信号2)>=0,REF(BARSLAST(午后信号1),
BARSLAST(午后信号2)),DRAWNULL)){XG51};
午后起点2横线:=CONST(IF(BARSLAST(午后信号2)>=0,REF(C,BARSLAST(午后信号2)),DRAWNULL)){XG51};
午后第二根1:IF(BARSLAST(午后信号1)>=0 AND BARSLAST(午后信号1)<=午后起点2天数 AND
午后起点1横线<=午后起点2横线,((午后起点2横线-午后起点1横线)/午后起点2天数)*
BARSLAST(午后信号1)+午后起点1横线,DRAWNULL),LINETHICK2,COLORCYAN{XG51};
午后第二根2:IF(BARSLAST(午后信号1)>=0 AND BARSLAST(午后信号1)<=午后起点2天数 AND
午后起点1横线>午后起点2横线,午后起点1横线-((午后起点1横线-午后起点2横线)/午后起点2天数)
*BARSLAST(午后信号1),DRAWNULL),LINETHICK2,COLORCYAN{XG51};
收盘横线:=CONST(IF(ISLASTBAR,C,DRAWNULL)){XG51};
午后信号3:=ISLASTBAR{XG51};
午后起点3天数:=CONST(IF(午后信号3,BARSLAST(午后信号2),DRAWNULL)){XG51};
午后第三根1:IF(BARSLAST(午后信号2)>=0 AND T1<=239 AND 收盘横线>=午后起点2横线,
((收盘横线-午后起点2横线)/午后起点3天数)*BARSLAST(午后信号2)+
午后起点2横线,DRAWNULL),LINETHICK2,COLORWHITE{XG51};
午后第三根2:IF(BARSLAST(午后信号2)>=0 AND T1<=239 AND 收盘横线<午后起点2横线,
午后起点2横线-((午后起点2横线-收盘横线)/午后起点3天数)*BARSLAST(午后信号2)
,DRAWNULL),LINETHICK2,COLORWHITE{XG51};
D1:=YEAR AND MONTH AND DAY{XG51};
AA1:=STRCAT(CON2STR(YEAR,0),'年'){XG51};
AA2:=STRCAT(CON2STR(MONTH,0),'月'){XG51};
AA3:=STRCAT(CON2STR(DAY,0),'日'){XG51};
AA4:=STRCAT('【',IF(WEEkdAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三 ',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日'))))))){XG51};
AA:=STRCAT(STRCAT(STRCAT(AA1,AA2),STRCAT(AA3,AA4)),'】'){XG51};
DRAWTEXT_FIX(D1,0,1,0,AA),COLORCYAN{X+G-5+1+C+N+{};