源码
{十二星座·神獒赢富机构版排序系统}
dif:=EMA(CLOSE,3)-EMA(CLOSE,13);
dea:=EMA(dif,5);
aa:=EMA(CLOSE,5);
DRAWTEXT(CROSS(dif,dea),LOW*0.98, '▲'),coloryellow,linethick3,align0;
DRAWTEXT(CROSS(dif,dea),LOW*0.94, 'Ｂ'),coloryellow,linethick3,align0;
DRAWTEXT(CROSS(dea,dif),HIGH*1.02, '▼'),colorgreen,linethick3,align0;
DRAWTEXT(CROSS(dea,dif),HIGH*1.06, 'Ｓ'),colorgreen,linethick3,align0;
B:IF(CROSS(dif,dea),1,0),LINETHICK0;
S:IF(CROSS(dea,dif),1,0),LINETHICK0;
VAR2:=((CLOSE > REF(CLOSE,1)) AND (CLOSE > REF(CLOSE,2)));
VAR3:=((REF(VAR2,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR4:=((REF(VAR3,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR5:=((REF(VAR4,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR6:=((REF(VAR5,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR7:=((REF(VAR6,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR8:=((REF(VAR7,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR9:=((REF(VAR8,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VARA:=((REF(VAR9,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VARB:=((REF(VARA,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VARC:=((REF(VARB,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VARD:=((REF(VARC,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
STICKLINE((((((((((((VAR2 OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC) OR VARD),CLOSE,REF(CLOSE,1),8,1),colorred;
VARE:=((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,2)));
VARF:=((REF(VARE,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR10:=((REF(VARF,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR11:=((REF(VAR10,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR12:=((REF(VAR11,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR13:=((REF(VAR12,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR14:=((REF(VAR13,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR15:=((REF(VAR14,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR16:=((REF(VAR15,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR17:=((REF(VAR16,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR18:=((REF(VAR17,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR19:=((REF(VAR18,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
STICKLINE((((((((((((VARE OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18) OR VAR19),CLOSE,REF(CLOSE,1),8,1),COLORFF9900;
买:(REF((((((((((((VARE OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18) OR VAR19),1) AND VAR2);
drawtext(买,l*0.98,'买'),colorred,ALIGN1;
STICKLINE(买,REF(CLOSE,1),REF(CLOSE,2),8,0),COLORyellow;
卖:(REF((((((((((((VAR2 OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC) OR VARD),1) AND VARE);
STICKLINE(卖,REF(CLOSE,1),REF(CLOSE,2),10,0),COLORBLUE;
drawtext(卖,h*1.02,'卖'),colorblue,ALIGN1;
必买:(B and 买);
==================================================================================================
{M天增仓}{副图}{大智慧L2新一代公式}
input:M(5,1,60);
a1:=(BIGORDER(1,2)) - (BIGORDER(2,2));
a2:=(BIGORDER(1,1)) - (BIGORDER(2,1));
a3:=(BIGORDER(1,3)) - (BIGORDER(2,3));
a4:=a1 * VOL;
a5:=a2 * VOL;
a6:=a3 * VOL;
a7:=(((a4 * 4) + a5) + (a6 * 3)) / 8;
a8:=(100 * a7) / CAPITAL;
M天增仓:SUM(a8,M);
多天增仓:PERCENTBAR((M天增仓 * 1.05),M天增仓);
{指标类型:技术指标 --- 其它};
==================================================================================================
{账户排序}{副图}{大智慧L2新一代公式}
input:N(1,1,100);
a1:=((ORDER(2) - ORDER(1)) / CAPITAL) * 3000;
N天筹码流动:SUM(a1,N),linethick2,colorWhite;
N天流动:PERCENTBAR((N天筹码流动 * 1.03),N天筹码流动);
==================================================================================================
{股东缩减}{副图}{大智慧L2新一代公式}
input:N(1,1,60);
a1:=((ORDER(2) - ORDER(1)) / CAPITAL) * 1000;
a2:=SUM(a1,N);
N天缩减:PERCENTBAR((a2 * 1.05),a2);
=================================================================================================
{机构买盘}{副图}{大智慧L2新一代公式}
a1:=(BIGORDER(1,3)) * VOL;
a2:=(BIGORDER(2,3)) * VOL;
a3:=((BIGORDER(1,2)) - (BIGORDER(1,3))) * VOL;
a4:=((BIGORDER(2,2)) - (BIGORDER(2,3))) * VOL;
a5:=(BIGORDER(1,2)) * VOL;
a6:=(BIGORDER(2,2)) * VOL;
a7:=((a3 * 4) + (a1 * 11)) / 15;
a8:=(100 * a7) / CAPITAL;
a9:=(100 * a5) / (a5 + a6);
a10:=IF((a9 >= 50),a8,0);
机构买盘:PERCENTBAR(a10,(a10 * 0.96));
==================================================================================================
{赢富排序}{副图}{大智慧L2新一代公式}
input:N(1,1,60);
a1:=(BIGORDER(1,2)) - (BIGORDER(2,2));
a2:=(BIGORDER(1,3)) - (BIGORDER(2,3));
a3:=((BIGORDER(1,2)) - (BIGORDER(1,3))) * VOL;
a4:=((BIGORDER(2,2)) - (BIGORDER(2,3))) * VOL;
a5:=a2 * VOL;
a6:=a3 - a4;
a7:=a1 * VOL;
a8:=(1 - (BIGORDER(1,1))) - (1 - (BIGORDER(2,1)));
a9:=(BIGORDER(1,1)) - (BIGORDER(1,2));
a10:=(BIGORDER(2,1)) - (BIGORDER(2,2));
a11:=a9 - a10;
a12:=a11 * VOL;
a13:=a8 * VOL;
a14:=((a13 * 9) + a12) / 10;
a15:=(100 * a14) / CAPITAL;
a16:=SUM(a15,0);
a17:=(100 * a5) / CAPITAL;
a18:=SUM(a17,0);
a19:=(100 * a6) / CAPITAL;
a20:=SUM(a19,0);
a21:=((a6 * 4) + (a5 * 6)) / 10;
a22:=(100 * a21) / CAPITAL;
a23:=SUM(a22,0);
主力排序:PERCENTBAR(a23,(REF(a23,N)));
机构排序:PERCENTBAR(a18,(REF(a18,N)));
大户排序:PERCENTBAR(a20,(REF(a20,N)));
散户排序:PERCENTBAR(a16,(REF(a16,N)));
