通达信全息分时图 －关于难得一次让你天天涨停 的更新版

自从发了“难得一次让你天*张停”的帖子，受到坛内很多同学老师的关注和指点，在此一并致谢！
有几点想说明一下;1.“难得一次让你天*张停”仅仅是个人的一些体会意图在于和大家分享、探讨、学习 研究。在此向给我帮助指导和启发的老师同学们说声谢谢。也对某些指责我是为赚币所为的坛友说声“谢谢！”
2.“难得一次让你天*张停”只是一个梦想，它不会是“放之四海而皆准”的。成功捕捉到的涨停纯属偶然，首次发帖的时候关于“中国武夷”是个好东西的贴文也是在思维偶然兴奋的状态下偶然发现的涨停票，这些都不构成推荐股票的意图。{包括回帖中的例图}
3.由于自己的疏忽在难得一次的源码参数中将M的缺省值误写为40{应为4}，特此更正。
4.本人的软件是中信建投通达信极速交易6.305版，其他软件是否支持本人不得而知。
5.学习和借鉴了很多老师的研究成果胡乱拼凑了一款更新版的难得一次，今日在此献丑了，希望大家能够喜欢。更希望老前辈们多多指教。其中包含了一些有用的主力信息{但不是全部}，我把它“叫做”全息分时图，千万不要误会“全息”的概念。大海、蓝天、航母、飞机的背景图几乎是全盘借用来的，如有冒犯请多多见谅。
 

分时全息图  
 
 N    2      100       15
  M    2      100       40
  N1   2      100       20
  M1   2      100       4
 DRAWGBK(C>0, RGB(1,79,242),RGB(1,1,77),0,'15',0);
 VAR1:=(C-MA(C,21))/MA(C,21)*200;
 VAR2:=(C-LLV(L,43))/(HHV(H,43)-LLV(L,43))*200;
 VAR3:=SMA(VAR2,2,1);
 天:300+-(ABS(VAR1)),COLORLIGRAY,LINETHICK4;
 海:ABS(VAR1),COLORLICYAN,LINETHICK4;
 高度计:SMA(VAR3,2,1),COLORLIGRAY,LINETHICK2;
 高度计@:MA(高度计,3),COLORLIBLUE;
 中线:100,COLORLIGRAY,CIRCLEDOT;
 DRAWICON(CROSS(高度计,海),40,15);
 DRAWTEXT(CROSS(高度计,海),60,'走你！'),COLORLIMAGENTA;
 DRAWICON(CROSS(高度计,38),40,15);
 DRAWBAND(海,RGB(10,30,255),0,RGB(0,0,0));
 DRAWBAND(天,RGB(0,0,0),300,RGB(100,140,254));
 DRAWICON(CROSS(海,M),M,24);
 DRAWTEXT(CROSS(海,M),60,'雄起'),COLORWHITE;
 强势线:=M,COLORLIGRAY,POINTDOT;
 STICKLINE(高度计-海<N,0,30,1,1),COLORLIBLUE;
 STICKLINE(高度计-海<N,0,3,5,1),COLORLIBLUE;
 STICKLINE(高度计-海<N,30,32,5,1),COLORLIBLUE;
 STICKLINE(天-高度计<N,195,200,1,0),COLORWHITE;
 A1:=(DVOL/CLOSE)/2;
 A2:=SUM(IF(A1>500 AND CLOSE>REF(CLOSE,1),A1,0),0);
 A3:=SUM(IF(A1>500 AND CLOSE<REF(CLOSE,1),A1,0),0);
 机构买盘:=A2;
 机构卖盘:=A3;
 TH:=SUM(IF(CLOSE>REF(CLOSE,1),VOL,0),N);
 TL:=SUM(IF(CLOSE<REF(CLOSE,1),VOL,0),N);
 TQ:=SUM(IF(CLOSE=REF(CLOSE,1),VOL,0),N);
 VR:=100*(TH*2+TQ)/(TL*2+TQ);
 MAVR:=MA(VR,M);
 B:VR/MAVR;
 BB:机构买盘/机构卖盘;
 BBB:BB/REF(BB,1);
 BBBBB:DYNAINFO(17);
 DRAWICON(VR/MAVR>1.5   AND  BB>7,120,18);
 DRAWICON(BB/REF(BB,1)>1.05  AND  BB>5,BB,19);
 DRAWICON( BB>7,60,27);
 DRAWTEXT( BB>7,75,'BB>7')COLORRED;
 DRAWICON( BB>80,100,28);
 DRAWICON( BB>150,BB,25);
 DRAWICON(BBB>1.8,BBB,3);
 DRAWTEXT(BBB>1.8,BBB+10,'BBB>1.8')COLORRED;
 DRAWICON(BBBBB>1.5,300,7);
 "引用.ZH#DAY",COLOR0000FF;
 "引用.ZL#DAY",COLOR00FF00;
 "引用.XM#DAY",COLORLIMAGENTA;
 现价:C,LINETHICK2,COLORFFFF00;
 均价:=SUM(C*V,BARSCOUNT(C))/SUM(V,BARSCOUNT(C)),COLOR00FFE1;
 多次1:=COUNT(BBB>2,4)>=2;
 REF(COUNT(BBB>2.4 AND BB>1,5)>=2,1 )AND CROSS(现价,引用.ZH#DAY ),5>0 ;
 DRAWICON(REF(COUNT(BBB>2.4 AND BB>1,5)>=2,1 )AND CROSS(现价,引用.ZH#DAY ),200,9)COLORGREEN;
 DRAWTEXT(REF(COUNT(BBB>2.4 AND BB>1,15)>=2,1 )AND CROSS(现价,引用.ZH#DAY ),250,'有效突破')COLORYELLOW;
 DRAWICON(多次1=1 AND BB>1,100,13);
 DRAWICON(多次1=1 AND BB>1,120,13);
 DRAWICON(多次1=1 AND BB>1,140,13);
 DRAWICON(多次1=1 AND BB>1,160,13);
 DRAWICON(多次1=1 AND BB>1,180,13);
 DRAWICON(多次1=1 AND BB>1,100,13);
 DRAWICON(多次1=1 AND BB>1,120,13);
 DRAWICON(多次1=1 AND BB>1,140,13);
 DRAWICON(多次1=1 AND BB>1,160,13);
 DRAWICON(多次1=1 AND BB>1,180,13);
 DRAWICON(多次1=1 AND BB>1,200,13);
 DRAWICON(多次1=1 AND BB>1,220,13);
 DRAWTEXT(多次1=1 AND BB>1,300,'恭亲黄涨停')COLORRED;
 BBBB:BBB/REF(BBB,1);
 DRAWICON(BB/REF(BB,1)>1.05  AND  BB>7 AND BBB/REF(BBB,1)>4,100,13);
 DRAWICON(BB/REF(BB,1)>1.05  AND  BB>7 AND BBB/REF(BBB,1)>4,115,13);
 DRAWICON(BB/REF(BB,1)>1.05  AND  BB>7 AND BBB/REF(BBB,1)>4,130,13);
 DRAWICON(BB/REF(BB,1)>1.05  AND  BB>7 AND BBB/REF(BBB,1)>4,145,13);
 DRAWICON(BB/REF(BB,1)>1.05  AND  BB>7 AND BBB/REF(BBB,1)>4,160,13);
 DRAWICON(BB/REF(BB,1)>1.05  AND  BB>7 AND BBB/REF(BBB,1)>4,175,1);
 DRAWTEXT(BB/REF(BB,1)>1.05  AND  BB>7 AND BBB/REF(BBB,1)>4,190,'买B4>4')COLORRED;
 多次2:=COUNT(BBB>2.4 AND BB>1,15)>=2;
 REF(多次2,1 )AND CROSS(现价,引用.ZH#DAY ),15>0 ;
 DRAWICON(REF(多次2,1 )AND CROSS(现价,引用.ZH#DAY ),250,9);
 DRAWICON(REF(COUNT(BBB>2.4 AND BB>1,15)>=2,1 )AND CROSS(现价,引用.ZH#DAY ),250,1);
 DRAWTEXT(REF(COUNT(BBB>2.4 AND BB>1,15)>=2,1 )AND CROSS(现价,引用.ZH#DAY ),280,'新版难得一次')COLORYELLOW;
 
====================
 
引用
 
ZH:REF(H,1);
 ZHH:REF(H,7);
 ZL:REF(L,1);
 XM:REF(C,1);