一个很简单但比较准的指标，主力机构差。(大智慧)

一个很简单但比较准的指标，主力机构差。(大智慧)

源码正文：

input:p1(60),p2(5),p3(10){XG51};
variable:资金=0{XG51};
资金:(ordervol(1,2)-orderVOL(2,2))/capital*100{XG51};
主力力度:SUM(资金,0){XG51};
主力单数:sum(ORDERNUM(2,0)-ORDERNUM(1,0),0){XG51};
a1:=SUM((ORDERVOL(1,3)),0){XG51};
a2:=SUM((ORDERVOL(2,3)),0){XG51};
a3:=(SUM((ORDERVOL(1,2)),0)) - a1{XG51};
a4:=(SUM((ORDERVOL(2,2)),0)) - a2{XG51};
a5:=(SUM((ORDERVOL(1,1)),0)) - (SUM((ORDERVOL(1,2)),0)){XG51};
a6:=(SUM((ORDERVOL(2,1)),0)) - (SUM((ORDERVOL(2,2)),0)){XG51};
a7:=(SUM((ORDERVOL(1,0)),0)) - (SUM((ORDERVOL(1,1)),0)){XG51};
a8:=(SUM((ORDERVOL(2,0)),0)) - (SUM((ORDERVOL(2,1)),0)){XG51};
a9:=(SUM((ORDERVOL(1,0)),0)) + (SUM((ORDERVOL(2,0)),0)){XG51};
a10:=a7 - a8{XG51};
a11:=a5 - a6{XG51};
a12:=a3 - a4{XG51};
a13:=a1 - a2{XG51};
a14:=(SUM((ORDERVOL(1,2)),0)) - (SUM((ORDERVOL(2,2)),0)){XG51};
a15:=(100 * a7) / a9{XG51};
a16:=(100 * a8) / a9{XG51};
a17:=(100 * a5) / a9{XG51};
a18:=(100 * a6) / a9{XG51};
a19:=(100 * a3) / a9{XG51};
a20:=(100 * a4) / a9{XG51};
a21:=(100 * a1) / a9;

a22:=(100 * a2) / a9{XG51};
a23:=(100 * (SUM((ORDERVOL(1,2)),0))) / a9{XG51};
a24:=(100 * (SUM((ORDERVOL(2,2)),0))) / a9{XG51};
a25:=(100 * a10) / a9{XG51};
a26:=(100 * a11) / a9{XG51};
a27:=(100 * a12) / a9{XG51};
a28:=(100 * a13) / a9{XG51};
a29:=(100 * a14) / a9{XG51};
a30:=(a1){XG51};
a31:=(a2){XG51};
a32:=(a3){XG51};
a33:=(a4){XG51};
a34:=(a5){XG51};
a35:=(a6){XG51};
a36:=(a7){XG51};
a37:=(a8){XG51};
a38:=((SUM((ORDERVOL(1,2)),0))){XG51};
a39:=((SUM((ORDERVOL(2,2)),0))){XG51};
a40:=(a10){XG51};
DRAWTEXTREL(2,720,'机买:'+NUMTOstR(a21)+'%'+' 大买:'+NUMTOSTR(a19)+'%'+' 中买:'+NUMTOSTR(a17)+'%'+' 散买:'+NUMTOSTR(a15)+'%'),colorRed{XG51};
DRAWTEXTREL(2,790,'机卖:'+NUMTOSTR(a22)+'%'+' 大卖:'+NUMTOSTR(a20)+'%'+' 中卖:'+NUMTOSTR(a18)+'%'+' 散卖:'+NUMTOSTR(a16)+'%'),colorGreen{XG51};
DRAWTEXTREL(2,860,'机差:'+NUMTOSTR(a28)+'%'+' 大差:'+NUMTOSTR(a27)+'%'+' 中差:'+NUMTOSTR(a26)+'%'+' 散差:'+NUMTOSTR(a25)+'%'),colorWhite{XG51};
DRAWTEXTREL(2,930,'主差:'+NUMTOSTR(a29)+'%'),colorRed{X+G*5~1+C+N+{};

老砖家的最爱(大智慧)

源码正文：

JRH:=HHV(C,2){XG51};
JRL:=LLV(C,2){XG51};
ma3:=MA(CLOSE,3){XG51};
YTSL:=(3*CLOSE+LOW+OPEN+HIGH)/6{XG51};
VAR1:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2)){XG51};
VAR2:=(REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR3:=(REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR4:=(REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR5:=(REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR6:=(REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR7:=(REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR8:=(REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR9:=(REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VARA:=(REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VARB:=(REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VARC:=(REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VARD:=(CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2)){XG51};
VARE:=(REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VARF:=(REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR10:=(REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR11:=(REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR12:=(REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR13:=(REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR14:=(REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR15:=(REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR16:=(REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR17:=(REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR18:=(REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR19:=((REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1)) AND VAR1){XG51};
VAR1A:=((REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,1)) AND VARD){XG51};
红色持股:=IF((VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC),1,0){XG51};
离场:=IF(红色持股,JRL,0){XG51};
明离场价:=离场{XG51};
今离场价:REF(离场,1),COLOR0000FF,LINETHICK0{XG51};
青色观望:=IF((VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18),1,0){XG51};
进:=IF(青色观望,JRH,0){XG51};
明进场价:=进{XG51};
今进场价:REF(明进场价,1),COLOR00FF00,LINETHICK0{XG51};
短买:=VAR19{XG51};
品红离场:=VAR1A{XG51};
白色急速超跌:=(CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*100<-14{XG51};
g:=ema((C*3+H+L+O)/6,5){XG51};
买卖:g,COLORWHITE,linethick3{XG51};
A线:HHV(g,13){XG51};
B线:LLV(g,13){XG51};
stICKLINE(BARSTATUS=2 AND (红色持股 OR REF(红色持股,1)=1) AND 今离场价<>0,今离场价,今离场价,30,1),COLOR0000FF{XG51};
STICKLINE(BARSTATUS=2 AND (青色观望 OR REF(青色观望,1)=1) AND 今进场价<>0,今进场价,今进场价,30,1),COLOR00FF00{XG51};
STICKLINE(C>=O,L,H,0,0),COLOR0000CC{XG51};
STICKLINE(C<O,L,H,0,0),COLOR999900{XG51};
STICKLINE(1,C,O,8,0),COLOR858500{XG51};
STICKLINE(C>=O,C,O,8,0),COLOR0000E5{XG51};
STICKLINE(红色持股,CLOSE,O,6,0),COLOR000055{XG51};
STICKLINE(红色持股,CLOSE,O,5,0),COLOR000088{XG51};
STICKLINE(红色持股,CLOSE,O,4,0),COLOR0000AA{XG51};
STICKLINE(红色持股,CLOSE,O,3,0),COLOR0000CC{XG51};
STICKLINE(红色持股,CLOSE,O,2,0),COLOR0000EE{XG51};
STICKLINE(红色持股,CLOSE,O,1,0),COLOR0000FF{XG51};
STICKLINE(青色观望,CLOSE,O,6,0),COLOR555500{XG51};
STICKLINE(青色观望,CLOSE,O,5,0),COLOR888800{XG51};
STICKLINE(青色观望,CLOSE,O,4,0),COLORAAAA00{XG51};
STICKLINE(青色观望,CLOSE,O,3,0),COLORCCCC00{XG51};
STICKLINE(青色观望,CLOSE,O,2,0),COLOREEEE00{XG51};
STICKLINE(青色观望,CLOSE,O,1,0),COLORFFFF00{XG51};
CO:=(C-O){XG51};
STICKLINE(白色急速超跌,O,C-CO/2,6,0),COLOR555555{XG51};
STICKLINE(白色急速超跌,O,C-CO/2,5,0),COLOR888888{XG51};
STICKLINE(白色急速超跌,O,C-CO/2,4,0),COLORAAAAAA{XG51};
STICKLINE(白色急速超跌,O,C-CO/2,3,0),COLORCCCCCC{XG51};
STICKLINE(白色急速超跌,O,C-CO/2,2,0),COLOREEEEEE{XG51};
STICKLINE(白色急速超跌,O,C-CO/2,1,0),COLORFFFFFF{XG51};
STICKLINE(短买,O,O+CO/3,6,0),COLOR335555{XG51};
STICKLINE(短买,O,O+CO/3,5,0),COLOR338888{XG51};
STICKLINE(短买,O,O+CO/3,4,0),COLOR33AAAA{XG51};
STICKLINE(短买,O,O+CO/3,3,0),COLOR33CCCC{XG51};
STICKLINE(短买,O,O+CO/3,2,0),COLOR33EEEE{XG51};
STICKLINE(短买,O,O+CO/3,1,0),COLOR33FFFF{XG51};
DRAWTEXT(短买,LLV(L,3),'←买'),VALIGN0,COLOR00FFFF{XG51};
STICKLINE(品红离场,O,O+CO/3,6,0),COLOR550055{XG51};
STICKLINE(品红离场,O,O+CO/3,5,0),COLOR880088{XG51};
STICKLINE(品红离场,O,O+CO/3,4,0),COLORAA00AA{XG51};
STICKLINE(品红离场,O,O+CO/3,3,0),COLORCC00CC{XG51};
STICKLINE(品红离场,O,O+CO/3,2,0),COLOREE00EE{XG51};
STICKLINE(品红离场,O,O+CO/3,1,0),COLORFF00FF{XG51};
DRAWTEXT(品红离场,HHV(H,3),'←卖'),VALIGN2,COLOR00FFFF{X_G*5_1_C_N_{};