今天给大家一个我改编的分时诊断，免FEI版用，还是有参考意义的。
a:=IF(ISUP,V,0);
a1:=IF(ISDOWN,V,0);
主动性买入:a,colorred,LINETHICK2;
主动性卖出:a1,colorgreen,LINETHICK2;
主动性买入大单:sum(主动性买入,0),colorcc99ff,LINETHICK2;
主动性卖出大单:sum(主动性卖出,0),colorffff33,LINETHICK2;
drawtextabs(10,10,'机构吃货次数'+DYNAINFO(102)),color99ffcc;
drawtextabs(10,30,'机构吐货次数'+DYNAINFO(103)),color99ffcc;
drawtextabs(120,10,'机构买单次数'+DYNAINFO(99)),color99ffcc;
drawtextabs(120,30,'机构卖单次数'+DYNAINFO(100)),color99ffcc;
drawtextabs(220,10,'单数差'+(sum(ORDERNUM(2,0)-ORDERNUM(1,0),0))),color99ffcc;
drawtextabs(220,30,'笔数差'+(sum(TRANSACTNUM(1,0)-TRANSACTNUM(2,0),0))),color99ffcc;
drawtextabs(310,10,'主动性成交差'+(sum(transactvol(1,0)-transactvol(2,0),0))),color99ffcc;
drawtextabs(310,30,'主动性大单差'+(sum(transactvol(1,2)-transactvol(2,2),0))),color99ffcc;
drawtextabs(450,10,'大单比例'+(if(count(c,0)<=1,0,sum((ordervol(1,2)-ordervol(2,2)),0)/sum(ordervol(1,0),0)*100)-if(count(c,0)<=1,0,sum((ordervol(1,3)-ordervol(2,3)),0)/sum(ordervol(1,0),0)*100))),color99ffcc;
drawtextabs(450,30,'特大比例'+(if(count(c,0)<=1,0,sum((ordervol(1,3)-ordervol(2,3)),0)/sum(ordervol(1,0),0)*100))),color99ffcc;
drawtextabs(550,10,'量比'+(sum(vol,0)*240/dynainfo(38)/barscount(c))),color99ffcc;
drawtextabs(550,30,'委比'+(if(allaskvol=0,100,if(allbidvol=0,-100,(allbidvol-allaskvol)/(allbidvol+allaskvol)*100)))),color99ffcc;
drawtextabs(650,10,'撤单差'+(sum(WIDTHDRAWORDER(2),0)-sum(WIDTHDRAWORDER(1),0))),color99ffcc;
drawtextabs(650,30,'振幅'+(DYNAINFO(13))),color99ffcc;
drawtextabs(730,10,'每股收益'+(FINANCE2(3))),color99ffcc;
drawtextabs(730,30,'市盈率'+(DYNAINFO(39))),color99ffcc;
drawicon(cross(sum(transactvol(1,0),0),sum(transactvol(2,0),0)),sum(transactvol(1,0),0),1);{主动性买入上穿主动性卖出，笑脸标记}
drawicon(cross(sum(transactvol(2,0),0),sum(transactvol(1,0),0)),sum(transactvol(1,0),0),2);{主动性卖出上穿主动性买入，哭脸标记}
drawicon(cross(sum(transactvol(1,2),0),sum(transactvol(2,0),0)),sum(transactvol(1,2),0),14);{机构主动性买入超过所有主动性卖出，小房子标记}
stella:=if(DYNAINFO(102)-DYNAINFO(103)>0,10,0){机构吃货次数多于机构吐货次数}
+if(DYNAINFO(99)>DYNAINFO(100),10,0){机构买单次数多于机构卖单次数}
+if(sum(ORDERNUM(2,0)-ORDERNUM(1,0),0)>0,10,0){单数差为正}
+if(sum(TRANSACTNUM(1,0)-TRANSACTNUM(2,0),0)>0,10,0){笔数差为正}
+if(sum(transactvol(1,0),0)>sum(transactvol(2,0),0),10,0){主动性成交差为正}
+if(sum(transactvol(1,2),0)>sum(transactvol(2,2),0),10,0){主动性大单成交差为正}
+if(if(count(c,0)<=1,0,sum((ordervol(1,2)-ordervol(2,2)),0)/sum(ordervol(1,0),0)*100)-if(count(c,0)<=1,0,sum((ordervol(1,3)-ordervol(2,3)),0)/sum(ordervol(1,0),0)*100)>0,10,0){大单净流入}
+if(if(count(c,0)<=1,0,sum((ordervol(1,3)-ordervol(2,3)),0)/sum(ordervol(1,0),0)*100)>0,10,0){特大单净流入}
+if(if(allaskvol=0,100,if(allbidvol=0,-100,(allbidvol-allaskvol)/(allbidvol+allaskvol)*100))>0,10,0){委比为正}
+if(sum(WIDTHDRAWORDER(1),0)-sum(WIDTHDRAWORDER(2),0)<0,10,0){撤单差为正}
+if(DYNAINFO(13)<0.03,10,0){振幅小}
+if(FINANCE2(3)>0,10,0){每股收益为正}
+if(DYNAINFO(39)<30,10,0){低市盈率}
+if(DYNAINFO(14)<0.05,10,0){股价尚未拉升}
+if(PFFIN(1601,0)>PFFIN(1601,1),10,0);{主营业务收入增长率同比增长}
eric:=ifs(between(stella,151,119),' 买入',ifs(between(stella,119,89),' 增持',ifs(between(stella,89,59),' 中性',ifs(between(stella,59,29),' 减持',ifs(between(stella,29,-1),' 卖出',' 1')))));
drawtextabs(15,55,'诊断：'+eric),colorccccff,linethick5;
|
