长趋势:=13;
{DRAWGBK(C>0,RGB(0,0,0),RGB(0,0,0),0,'56',0),LINETHICK2;}
DRAWRECTREL(990,1,0,1,RGB(250,250,0));
DRAWTEXT_FIX(C>0,0.01,0.00,0,'0'),COLOR00CCCC;
DRAWTEXT_FIX(C>0,0.970,0.00,0,'100'),COLOR00CCCC;
DRAWRECTREL(990,189,0,189,RGB(200,200,0));
DRAWTEXT_FIX(C>0,0.01,0.189,0,'19.1'),COLOR00CCCC;
DRAWTEXT_FIX(C>0,0.970,0.189,0,'80.9'),COLORWHITE;
DRAWRECTREL(990,375,0,375,RGB(200,200,0));
DRAWTEXT_FIX(C>0,0.01,0.376,0,'38.2'),COLOR00CCCC;
DRAWTEXT_FIX(C>0,0.970,0.376,0,'61.8'),COLORWHITE;
DRAWRECTREL(990,491,0,491,RGB(200,200,0));
DRAWTEXT_FIX(C>0,0.01,0.492,0,'50.0'),COLOR00CCCC;
DRAWTEXT_FIX(C>0,0.970,0.492,0,'50.0'),COLORWHITE;
DRAWRECTREL(990,607,0,607,RGB(200,200,0));
DRAWTEXT_FIX(C>0,0.01,0.608,0,'61.8'),COLOR00CCCC;
DRAWTEXT_FIX(C>0,0.970,0.608,0,'38.2'),COLORWHITE;
DRAWRECTREL(990,794,0,794,RGB(200,200,0));
DRAWTEXT_FIX(C>0,0.01,0.795,0,'80.9'),COLOR00CCCC;
DRAWTEXT_FIX(C>0,0.970,0.795,0,'19.1'),COLORWHITE;
DRAWRECTREL(990,982,0,982,RGB(250,250,0));
DRAWTEXT_FIX(C>0,0.01,0.936,0,'BASE'),COLOR00CCCC;
DRAWTEXT_FIX(C>0,0.970,0.936,0,'0'),COLOR00CCCC;
年:=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);
V1:=TIME;
A1:=COUNT(BARSCOUNT(C)=1 AND TIME<102000 ,0 );
T:=IF(V1<130000,(FLOOR(V1/10000)-9.5)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)),(FLOOR(V1/10000)-11)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000))),NODRAW;
时间:=TIME=100000;
N:=BARSLAST(时间),COLOR808080;
常数:=CONST(IF(N=0,C,REF(C,N))),COLOR004848,DOTLINE;
CS1:=CONST(IF(N,HHV(H,0),REF(HHV(H,0),N))),COLOR808080;
CS2:=CONST(IF(N,LLV(L,0),REF(LLV(L,0),N))),COLOR808080;
{STICKLINE(时间=1,CS1,CS2,-1,0),COLOR808080;}
H01:=MAX(DYNAINFO(3),DYNAINFO(5));
L01:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H01-L01;
阻力:L01+P1*7/8,COLOR00FFFF,DOTLINE;
DRAWTEXT(CURRBARSCOUNT=1,阻力,'阻力'),COLOR00FFFF;
{DRAWTEXT_FIX(1,0.00,0,0,'所属行业：')COLOR0080FF;
DRAWTEXT_FIX(1,0.07,0,0,HYBLOCK)COLOR0080FF;
DRAWTEXT_FIX(1,0.14,0,0,'所属地区：')COLOR00FFFF;
DRAWTEXT_FIX(1,0.21,0,0,DYBLOCK)COLOR00FFFF;
DRAWTEXT_FIX(1,0.01,0.08,0,'主题投资：')COLOR0000FF;
DRAWTEXT_FIX(1,0.09,0.08,0,EXTERNSTR(0,1))COLOR0000FF;} {生成数据时第1项输1与这里1一致,描述部分输"主题投资"}
最新0:C,LINETHICK9,COLORFFFF00;
IF(C>=REF(C,1),C,DRAWNULL),LINETHICK9,COLOR0909FF;
AA0:=SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C));
BB0:=BETWEEN(C/AA0,C+H,C-H);
TT3:=BARSCOUNT(C)+1;
M:=SUM(V*C,TT3)/SUM(V,TT3),COLORYELLOW;
P2:=240;
TC1:=IF(H=HHV(H,P2),C,DRAWNULL);
TC2:=CONST(BARSLAST(TC1=H))+1;
UPPER:=CONST(IF(TC2=1,C,REF(C,TC2-1)));
BC1:=IF(L=LLV(L,P2),C,DRAWNULL);
BC2:=CONST(BARSLAST(BC1=L))+1;
LOWER:=CONST(IF(BC2=1,C,REF(C,BC2-1)));
LP:=CURRBARSCOUNT<=BC2 AND C=LOWER;{低点定位}
HP:=CURRBARSCOUNT<=TC2 AND C=UPPER;{高点定位}
低:=LOWER;
高:=UPPER;
TTT:=MAX(TC2,BC2);
ZZ:=(高+低)/2;
ZH:=(高+ZZ)/2;
ZL:=(ZZ+低)/2;
EE:=CURRBARSCOUNT<=TTT;
中低:IF(EE,ZL,DRAWNULL),COLOR0099FF,LINETHICK1,DOTLINE;
DRAWTEXT(CURRBARSCOUNT=5,中低,'中低'),COLORFFFFFF;
中高:IF(EE,ZH,DRAWNULL),COLORFF9900,LINETHICK1,DOTLINE;
DRAWTEXT(CURRBARSCOUNT=5,中高,'中高'),COLORFFFFFF,LINETHICK2;
标准:IF(EE,ZZ,DRAWNULL),COLORWHITE,LINETHICK1,DOTLINE;
DRAWTEXT(CURRBARSCOUNT=5,标准,'标准'),COLORFFFFFF,LINETHICK2;
高点:IF(EE,高,DRAWNULL),COLOR00FFCC,LINETHICK1,DOTLINE;
DRAWTEXT(CURRBARSCOUNT=6,高点,'高'),COLORFFFFFF,LINETHICK2;
低点:IF(EE,低,DRAWNULL),COLOR00CC00,LINETHICK1,DOTLINE;
DRAWTEXT(CURRBARSCOUNT=1,低点,'低'),COLORFFFFFF,LINETHICK2;
{均价:SUM(V*C,0)/SUM(V,0),COLORWHITE,DOTLINE;
DRAWTEXT(CURRBARSCOUNT=6,均价,'均'),COLORFFFFFF,LINETHICK2;}
最新:C,LINETHICK9,COLORFFFF00;
IF(C>=REF(C,1),C,DRAWNULL),LINETHICK9,COLORRED;
AA:=SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C));
BB:=BETWEEN(C/AA,C+H,C-H);
{分时均线}
W:=BARSLAST(DAY-REF(DAY,1))+1;
均价:SUM(CLOSE*VOL,W)/SUM(VOL,W),LINETHICK2,COLORYELLOW;
IF(均价<REF(均价,1),均价,DRAWNULL),LINETHICK2,COLORGREEN;
DRAWTEXT(ISLASTBAR,均价,' 当日均线'),COLORWHITE;
B:=BARSCOUNT(C);
D2:=BARSLAST(B);
HH:=HHV(H,D2);
DRAWTEXT(BARSTATUS=1,HH,STKNAME+' '+STKNAME+' '),COLORRED;
换手率:=100*V/CAPITAL,COLORFFFFFF;
RH:=H-L;
R:=DYNAINFO(13)*100;
A:=BARSSINCE(V>0)+1;
FS:=SUM(C*V,A)/SUM(V,A);
GJ:=(C+H+L+O)/4;
明日阻力:=L+(GJ-L)+(C-L);
明日支撑:=L+(C-GJ);
明日阻力2:=L+2*(GJ-L)+(C-L);
明日支撑2:=L+(C-GJ)-(GJ-L);
今日阻力:CONST(REF(明日阻力 , 1));
今日支撑:CONST(REF(明日支撑 , 1));
今日阻力2:CONST(REF(明日阻力2 , 1));
今日支撑2:CONST(REF(明日支撑2 , 1));
DRAWTEXT(ISLASTBAR,今日阻力,' -------------阻'),COLOR0000FF;
DRAWTEXT(ISLASTBAR,今日支撑,' -------------------------支'),COLOR00FF00;
DRAWTEXT(BARSTATUS=2 ,HH,'----------------------------------HH'),COLORFFFFFF;
DRAWTEXT(BARSTATUS=2 AND V>REF(V,1) AND MA(V,5)>REF(MA(V,5),1),HH,'今日成交量大于昨日,且有继续增大趋势'+' '),COLOR8285FF;
DRAWTEXT(BARSTATUS=2 AND V<REF(V,1) AND MA(V,5)>REF(MA(V,5),1),HH,'今日成交量小于昨日，但有放大迹象'+' '),COLOR8285FF;
DRAWTEXT(BARSTATUS=2 AND V>REF(V,1)AND MA(V,5)<REF(MA(V,5),1),HH,'今日成交量大于昨日, 但有缩小迹象'+' '),COLOR8285FF;
DRAWTEXT(BARSTATUS=2 AND V<REF(V,1)AND MA(V,5)<REF(MA(V,5),1),HH,'今日成交量小于昨日，且有缩小迹象'+' '),COLOR8285FF;
