源码
{公称名称: 私募机构进场指标}
input:N(20,1,100);
AA:=(WINNER((CLOSE + ((CLOSE * 15) / 100))) * 100);
BB:=(WINNER((CLOSE + ((CLOSE * 0) / 100))) * 100);
CC:=(AA - BB);
DD:=((WINNER((CLOSE - ((CLOSE * 0.1) / 100))) - WINNER((CLOSE - ((CLOSE * 15) / 100)))) * 100);
EE:=(((CC < 3) AND (DD < 0.5)) AND (OPEN <> LOW));
A1:=DYNAINFO(6);
A2:=IF((LOW > A1),0,IF((HIGH < A1),1,(((A1 - LOW) + 0.01) / ((HIGH - LOW) + 0.01))));
A3:=(VOL / WINNER(LOW));
A4:=REF(HHV(CLOSE,120),1);
A5:=REF(LLV(CLOSE,120),1);
A6:=((100 * (CLOSE - A5)) / (A4 - A5));
A7:=((A2 > 0) OR (A2 = 1));
A8:=((A7 AND ((A3 / REF(A3,3)) >= 3)) AND (A6 < 80));
A9:=(((REF(A8,1) OR REF(A8,2)) OR REF(A8,3)) OR REF(A8,4));
A10:=(A8 AND A9);
A11:=IF(FILTER(A8,3),5,0);
A12:=IF((FILTER(A10,3) OR EE),10,0);
私募机构进场日:STICKLINE(A11,0,5,5,0),colorFF7700;
私募机构加仓日:STICKLINE(A12,0,15,5,0),colorFF00FF;
STICKLINE(A11,0,5,5,0),colorFF7700;
STICKLINE(A11,0,5,4.5,0),colorFF8800;
STICKLINE(A11,0,5,4,0),colorFF9900;
STICKLINE(A11,0,5,3.5,0),colorFFAA00;
STICKLINE(A11,0,5,3,0),colorFFBB00;
STICKLINE(A11,0,5,2.5,0),colorFFCC00;
STICKLINE(A11,0,5,2,0),colorFFDD00;
STICKLINE(A11,0,5,1,0),colorFFEE00;
STICKLINE(A12,0,15,4.5,0),color102099;
STICKLINE(A12,0,15,4,0),color1020AA;
STICKLINE(A12,0,15,3.5,0),color1020BB;
STICKLINE(A12,0,15,3,0),color1020CC;
STICKLINE(A12,0,15,2.5,0),color1020DD;
STICKLINE(A12,0,15,2,0),color1020EE;
STICKLINE(A12,0,15,1,0),color1020FF;
DRAWTEXT(A11,8,'进场'),colorFFFF00;
DRAWTEXT(A12,17,'加仓'),colorFFFF;
VAR1:=((LLV(LOW,5) = LLV(LOW,45)) AND (CLOSE >= (OPEN * 1.04)));
VAR2:=(CLOSE > ((REF(HIGH,1) + REF(LOW,1)) / 2));
立即买入: (VAR1 AND VAR2),STICK,LINETHICK2,colorFF;
VAR3:=REF(CLOSE,1);
VAR4:=((SMA(MAX((CLOSE - VAR3),0),6,1) / SMA(ABS((CLOSE - VAR3)),6,1)) * 100);
坚决卖出:CROSS(80,VAR4),STICK,LINETHICK2,colorFF00;
DRAWICON(坚决卖出,1.1,2);
DRAWICON(立即买入,1.1,1);
VAR1:=CLOSE;
VAR2:=REF(CLOSE,1);
VAR3:=REF(CLOSE,2);
VAR4:=(((VAR1 > VAR2) AND (VAR1 > VAR3)) AND (VAR1 > MA(CLOSE,3)));
VAR5:=(((VAR1 < VAR2) AND (VAR1 < VAR3)) AND (VAR1 < MA(CLOSE,3)));
VAR6:=LLV(CLOSE,N);
(VAR4 * (VAR1 - (VAR6 * 0.95))),VOLSTICK;
(VAR5 * (VAR1 - (VAR6 * 0.95))),STICK;
GDSTAR:=F10FIND('┃股东户数',1);
GDW1:=F10FIND('┃04-09-30',GDSTAR);
GDW2:=F10FIND('┃04-06-30',GDW1);
GDW3:=F10FIND('┃04-03-31',GDW2);
GDW4:=F10FIND('┃03-12-31',GDW3);
GDTX1:=F10TEXT((GDW1 + 10),8);
GDTX2:=F10TEXT((GDW2 + 10),8);
GDTX3:=F10TEXT((GDW3 + 10),8);
GDTX4:=F10TEXT((GDW4 + 10),8);
GD1:=STRTONUM(GDTX1);
GD2:=STRTONUM(GDTX2);
GD3:=STRTONUM(GDTX3);
GD4:=STRTONUM(GDTX4);
增减:=IF((GD1 > 1),(GD2 - GD1),IF((GD2 > 1),(GD3 - GD2),(GD4 - GD3)));
股东人数增减:REVERSE(增减),colorFF;
股东人数增减比例: (IF(((股东人数增减 < 1) AND (GD1 > 1)),(0 - (股东人数增减 / GD2)),0) * 100),colorFFFF;
