大智慧免費版指標之分時診斷

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;