「翔博精选指标」分时趋势（通达信公式 分时副图 源码 测试图）

beyond202104

{分时趋势}A1:=SUM(IF(CLOSE>REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE<REF(CLOSE,1),-VOL/CAPITAL*100,0)),0);成交额:=V*C/100,NODRAW;A2:=SUM((IF(((成交额/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);A3:=SUM((IF(((成交额/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);A4:=SUM((IF(((成交额/8<20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);A5:=SUM((IF(((成交额/8<20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);A6:=((A2+A3)+A4)+A5;A7:=IF((ISLASTBAR),((100*A2)/A6),0);A8:=IF((ISLASTBAR),((100*A3)/A6),0);A9:=IF((ISLASTBAR),((100*A4)/A6),0);A10:=IF((ISLASTBAR),((100*A5)/A6),0);机买:(A2),LINETHICK4,COLORRED;机卖:(A3),LINETHICK4,COLORCYAN;操盘:机买-机卖,NODRAW;散买:(A4),COLOR5555FF;散卖:(A5),COLOR55FF55;散户进出:=散买-散卖,NODRAW;抄底:IF(CROSS(A2,A3),10,0),LINETHICK3,COLORMAGENTA;闪电买入:DRAWTEXT(CROSS(操盘,抄底 AND A3),操盘*0.68,'买'),LINETHICK3,COLORYELLOW;强势:((100*A2)/A6>50);STICKLINE(强势,机买*1.02,机买*1.1,1,0),COLORYELLOW;拉升:((100*A2)/A6-(100*A3)/A6)>18 AND (100*A2)/A6-(100*A5)/A6>18;STICKLINE(拉升,机买*1.1,机买*1.2,1,0),COLORRED;DRAWTEXT(ISLASTBAR=1,机买*0.95,''),LINETHICK2,COLORRED;DRAWTEXT(ISLASTBAR=1,机卖*0.95,''),LINETHICK2,COLORFFFF55;Q:=BETWEEN(C/(SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C))),1.05,0.95);Q2:=IF(Q=0,MA(C,BARSCOUNT(C)),(SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C))));DRAWICON(CROSS((C/Q2),1.03),机买,5);DD1:=1;AAA1:=STRCAT(STRCAT('机构买入',CON2STR((100*A2)/A6,0)),'%');AAA2:=STRCAT(STRCAT('机构卖出',CON2STR((100*A3)/A6,0)),'%');AAA0:=STRCAT(STRCAT('机构总买入',CON2STR((100*(A2-A3))/A6,0)),'%');AAA3:=STRCAT(STRCAT('散户买入',CON2STR((100*A4)/A6,0)),'%');AAA4:=STRCAT(STRCAT('散户卖出',CON2STR((100*A5)/A6,0)),'%');AAA5:=STRCAT(STRCAT('散户总买入',CON2STR((100*(A4-A5))/A6,0)),'%');DRAWTEXT_FIX(DD1=1,0.01,0.05,0,AAA1),COLORRED;DRAWTEXT_FIX(DD1=1,0.01,0.25,0,AAA2),COLORCYAN;DRAWTEXT_FIX(DD1=1,0.01,0.40,0,AAA3),COLORLIRED;DRAWTEXT_FIX(DD1=1,0.01,0.55,0,AAA4),COLORGREEN;DRAWTEXT_FIX(DD1=1,0.01,0.70,0,AAA0),LINETHICK5,COLORMAGENTA;DRAWTEXT_FIX(DD1=1,0.01,0.85,0,AAA5),LINETHICK5,COLORGREEN;主力净买额:=(操盘+散户进出)/成交额,NODRAW;AAA6:=STRCAT(STRCAT('主力净买额',CON2STR(主力净买额,0)),'%');DRAWTEXT_FIX(DD1=1,0.53,0.30,0,AAA6),COLORWHITE;DRAWTEXT_FIX(1,0.00,0.00,0,'        擒妖抓牛WWW.70822.COM '),COLORYELLOW;
HJ_1:=REF(CLOSE,1);

别丢弃我猿

不错不错，楼主您辛苦了。。。

华为股票卖出矩

相当不错，感谢无私分享精神！

天下非公门

多多点赞好好学习

明我

多谢分享下载收藏了

明月照大江754

已收藏，以后会常来！