{虞美人实时和分时共用}
DRAWGBK(CLOSE>0,COLORRGB(20,20,580),COLORRGB(0,0,0),1);
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,7,0),colorFFFF00;
STICKLINE((OPEN >= CLOSE),HIGH,LOW,0,0),colorFFFF00;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,7,1),colorFF;
STICKLINE((CLOSE >= OPEN),CLOSE,HIGH,0,0),colorFF;
STICKLINE((CLOSE >= OPEN),LOW,OPEN,0,0),colorFF;
STICKLINE(C/REF(C,1)>1.095,C,O,3,0),COLORYELLOW;
INPUT:日期前推(10,0,100);{用于日线}
KK:=DATATYPE;
N:=IF(KK=6,日期前推,0);中趋势线:=3*SMA((C-LLV(C,27))/(HHV(C,27)-LLV(C,27))*100,5,1)-2*SMA(SMA((C-LLV(C,27))/(HHV(C,27)-LLV(C,27))*100,5,1),3,1);
长趋势线:=3*SMA((C-LLV(C,55))/(HHV(C,55)-LLV(C,55))*100,5,1)-2*SMA(SMA((C-LLV(C,55))/(HHV(C,55)-LLV(C,55))*100,5,1),3,1);IF KK<>-1 THEN BEGIN
MA13:EMA(MA(C,5),8);MA5:EMA(MA(C,3),2);
q2H:=SYSPARAM(5)-MINDIFF;
q2L:=SYSPARAM(5)-(SYSPARAM(4)-SYSPARAM(5))*0.2;
Q1:=q2H;Q2:=q2L;
限制当日:=BARSLAST(DATE<>REF(DATE,1))+1;
品红总时:=SUM(长趋势线>=90 ,限制当日+N),COLORMAGENTA,LINETHICK;//分时周期为1分钟
青色总时:=SUM(长趋势线<=10 ,限制当日+N),COLORCYAN,LINETHICK;//分时周期为1分钟
红色总时:=SUM(中趋势线>=90 ,限制当日+N),colorred,LINETHICK;//分时周期为1分钟
蓝色总时:=SUM(中趋势线<=10 ,限制当日+N),colorblue,LINETHICK;//分时周期为1分钟
品%:品红总时/(品红总时+青色总时+红色总时+蓝色总时)*100,COLORMAGENTA,LINETHICK;
青%:青色总时/(品红总时+青色总时+红色总时+蓝色总时)*100,COLORCYAN,LINETHICK;
红%:红色总时/(品红总时+青色总时+红色总时+蓝色总时)*100,colorred,LINETHICK;
蓝%:蓝色总时/(品红总时+青色总时+红色总时+蓝色总时)*100,colorblue,LINETHICK;
stickline(1,q1,q2,10,0),COLOR00AAFF;
stickline(长趋势线>=90,q1,q2,10,0),COLORMAGENTA;
stickline(长趋势线<=10,q2,Q2+(q1-q2)*3/4,10,0),COLORCYAN;
stickline(中趋势线>=90,Q2+(q1-q2)*2/4,q2,10,0),colorred;
stickline(中趋势线<=10,Q2+(q1-q2)*1/4,q2,10,0),colorblue;
stickline(BARPOS<=SYSPARAM(2)+(SYSPARAM(3)-SYSPARAM(2))/5,Q1,q2,10,0),COLOR00AAFF;DRAWTEXTEX(1,0,10,10,'品红总时%: '+NUMTOSTR(品%[SYSPARAM(1)],0)),COLORMAGENTA;
DRAWTEXTEX(1,0,10,60,'青色总时%: '+NUMTOSTR(青%[SYSPARAM(1)],0)),COLORCYAN;
DRAWTEXTEX(1,0,10,110,'红色总时%: '+NUMTOSTR(红%[SYSPARAM(1)],0)),colorred;
DRAWTEXTEX(1,0,10,160,'蓝色总时%: '+NUMTOSTR(蓝%[SYSPARAM(1)],0)),colorblue;
END;
IF KK=-1 THEN BEGIN品红总时:=SUM(长趋势线>=90 ,0),COLORMAGENTA,LINETHICK;//分时周期为1分钟
青色总时:=SUM(长趋势线<=10 ,0),COLORCYAN,LINETHICK;//分时周期为1分钟
红色总时:=SUM(中趋势线>=90 ,0),colorred,LINETHICK;//分时周期为1分钟
蓝色总时:=SUM(中趋势线<=10 ,0),colorblue,LINETHICK;//分时周期为1分钟
品_%:品红总时/(品红总时+青色总时+红色总时+蓝色总时)*100,COLORMAGENTA,LINETHICK;
青_%:青色总时/(品红总时+青色总时+红色总时+蓝色总时)*100,COLORCYAN,LINETHICK;
红_%:红色总时/(品红总时+青色总时+红色总时+蓝色总时)*100,colorred,LINETHICK;
蓝_%:蓝色总时/(品红总时+青色总时+红色总时+蓝色总时)*100,colorblue,LINETHICK;
rc:=DYNAINFO(3);{前收}
q:=datacount;
hh:=DYNAINFO(5);LL:=DYNAINFO(6);f:=max(hh-rc,rc-LL);
ff:=f/rc*100;{最大涨跌幅}
q2H:=if(ff<1,0.9797*rc,rc-2*f*1.016);
q2L:=if(ff<1,0.9697*rc,rc-3*f*1.011);
FILLRGN(1,q2H,q2L),colorblack;cz:=(q2H-q2L)/6;{将显示区域分成6等分}Q1:=q2H;Q2:=q2L;
stickline(1,q1,q2,10,0),COLOR00AAFF;
stickline(长趋势线>=90,q1,q2,10,0),COLORMAGENTA;
stickline(长趋势线<=10,q2,Q2+(q1-q2)*3/4,10,0),COLORCYAN;
stickline(中趋势线>=90,Q2+(q1-q2)*2/4,q2,10,0),colorred;
stickline(中趋势线<=10,Q2+(q1-q2)*1/4,q2,10,0),colorblue;
DRAWTEXTEX(1,0,10,10,'品红总时%: '+NUMTOSTR(品_%,0)),COLORMAGENTA;
DRAWTEXTEX(1,0,10,60,'青色总时%: '+NUMTOSTR(青_%,0)),COLORCYAN;
DRAWTEXTEX(1,0,10,110,'红色总时%: '+NUMTOSTR(红_%,0)),colorred;
DRAWTEXTEX(1,0,10,160,'蓝色总时%: '+NUMTOSTR(蓝_%,0)),colorblue;
END;{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
