【图解】分时突破主图（源码）

 

 

 

 

Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(ISLASTBAR,0,0.1,0,STRCAT(Z3,GNBLOCK)),  COLORLIRED   ;
 
年:=YEAR,NODRAW;
月:=MONTH,NODRAW;
星期:=WEEKDAY,NODRAW;
日1:=DATETODAY(DATE);
上市日:=REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT);
自然日:=日1-DATETODAY(上市日)+1;
ZB:=(自然日-REF(自然日,1))!=星期-REF(星期,1)
OR TOTALBARSCOUNT-CURRBARSCOUNT=0;
本周第几天:=BARSLAST(ZB)+1;
本月第几天:=BARSLAST(年*100+月!=REF(年*100+月,1))+1;
MA1:=REF(C,本周第几天);
MA2:=REF(MA1,本周第几天);
MA3:=REF(MA2,本周第几天);
MA4:=REF(MA3,本周第几天);
MA5:=REF(MA4,本周第几天);
MA6:=REF(MA5,本周第几天);
MA7:=REF(MA6,本周第几天);
MA8:=REF(MA7,本周第几天);
MA9:=REF(MA8,本周第几天);
十周价:=(C+MA1+MA2+MA3+MA4+MA5+MA6+MA7+MA8+MA9)/10;
决策:REFDATE(十周价,DATE),COLORFF0080,LINETHICK2;
DRAWTEXT(ISLASTBAR,决策,' 决策线'),COLORFF0080;
{SUM(AMOUNT,0)/SUM(VOL,0)/100 ,LINETHICK1,COLORYELLOW;}
DRAWICON(CROSS(C,决策),C,1);
 
突破:=REF(EMA(C,14),1);
A1X:=(EMA(C,10)-突破)/突破*100;
多方:=IF(A1X>=0,REF(EMA(C,10),BARSLAST(CROSS(A1X,0))+1),DRAWNULL);
空方:=IF(A1X<0,REF(EMA(C,10),BARSLAST(CROSS(0,A1X))+1),DRAWNULL);
STICKLINE(A1X>=0,多方,突破,0,0),COLOR0000DD;
STICKLINE(A1X<0,空方,突破,0,0),COLOR00CC66;
XG:HHV(H,480),DOTLINE,COLORYELLOW;
T:=BARSCOUNT(C);
HHV(H,T),DOTLINE,COLOR00FFFF;
TP:= FILTER( C>=HHV(H,T) AND V>MA(V,0)*2 AND DYNAINFO(17)>1 AND TIME>39600,240) ;
DRAWTEXT(TP,L,'★突破'),COLORRED;
STICKLINE(FILTER(CROSS(C,REF(XG,1)),10),C,HHV(O,T)*0.99,10,0),COLORYELLOW;
DRAWTEXT(FILTER(CROSS(C,REF(XG,1)),10),HHV(O,T)*0.99,'上突 '),COLORYELLOW;
DRAWTEXT(ISLASTBAR=1,HHV(O,T)*0.9995,'上突必卖, 不破前高—买'),COLORYELLOW;
LLV(H,T),DOTLINE,COLORWHITE;
XG1:LLV(H,480),DOTLINE,COLORWHITE;
TP1:= FILTER(C>=LLV(H,T) AND V>MA(V,0)*2 AND DYNAINFO(17)>1 AND TIME>39600,240);
DRAWTEXT(TP,L,'★下破'),COLORRED;
STICKLINE(FILTER(CROSS(C,REF(XG1,1)),10),C*0.99,LLV(O,T),10,0),COLORWHITE;
DRAWTEXT(FILTER(CROSS(C,REF(XG1,1)),10),LLV(O,T)*0.992,'下破,'),COLORWHITE;
DRAWTEXT(ISLASTBAR=1,LLV(O,T),'下破, 不破前低—买'),COLORWHITE;
均价:SUM(V*C,0)/SUM(V,0),COLORYELLOW;
DRAWNUMBER(ISLASTBAR,C,C),COLORFFFFFF;
  XJ:CONST(C),COLORFFFFFF,LINETHICK1;
 
 

HH:DYNAINFO(5),COLORDDAADD,LINETHICK1;
{最高} LL:DYNAINFO(6),COLOR888800,LINETHICK1;
{最低} 中G:(HH+LL)/2,COLOR999999,LINETHICK1;{中}
{四线}
AAA:=DYNAINFO(5); BBB:=DYNAINFO(6); CCC:=AAA-BBB;
上顶:BBB+CCC*7/8,COLOR008800,DOTLINE;
阻力:BBB+CCC*2/3,COLOR777700,DOTLINE;
支撑:BBB+CCC/3,COLOR777700,DOTLINE;
下底:BBB+CCC*1/8,COLOR447777,DOTLINE;
DRAWNUMBER(CURRBARSCOUNT=232,AAA*0.9995,AAA),COLORFFAAFF;
DRAWNUMBER(CURRBARSCOUNT=232,BBB,BBB),COLORDDDD00;
DRAWNUMBER(CURRBARSCOUNT=232,中G,中G),COLORDDDDDD;
DRAWNUMBER(CURRBARSCOUNT=232,上顶,上顶),COLOR00FFFF;
DRAWNUMBER(CURRBARSCOUNT=232,阻力,阻力),COLOR00FFFF;
DRAWNUMBER(CURRBARSCOUNT=232,支撑,支撑),COLOR00FFFF;
DRAWNUMBER(CURRBARSCOUNT=232,下底,下底),COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT=240,AAA*0.999,'最高:'),COLORFFAAFF;
DRAWTEXT(CURRBARSCOUNT=240,BBB,'最低:'),COLORFFFF00;
DRAWTEXT(CURRBARSCOUNT=240,上顶,'上顶:'),COLOR00FF00;
DRAWTEXT(CURRBARSCOUNT=240,阻力,'阻力:'),COLORFFFF00;
DRAWTEXT(CURRBARSCOUNT=240,支撑,'支撑:'),COLORFFFF00;
DRAWTEXT(CURRBARSCOUNT=240,下底,'下底:'),COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT=240,中G,'平衡:'),COLOREEEEEE;