谢谢大家的支持！！本人不得不在发一个，请关注！！看着好，还是得顶噢！

无聊的游客

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;

天邪

谢谢分享！！！1

腾达

谢谢楼主的无私奉献！谢谢！

老兵新传

学习...........

探照灯

发个图多好！

zzxylq

谢谢分享！！！1