 | |  |  |
火眼金睛是利用了反传统K线的做法、用以来即尽可能的窥探主力行为。
当然、这只是个探讨、和摸索。
这里面引用了创.幻的【麒麟中子】老师的理念。
在这里千钧感谢【麒麟中子】老师的大力支持、并赠送源码供千钧研讨。
吃水不忘打井人，【火眼金睛】的解释权、麒麟老师与千钧共同拥有！
流通:FINANCE( 7)/10000,LINETHICK,PRECISION2;
市值:FINANCE( 7)*C/10000,LINETHICK,PRECISION2;
DRAWTEXTEX(c,1,20,10,STKLABEL+' '+STKNAME+''),Color00FF00;
DT:=CURRENTDATE;
AA:=REF(DATE,BARSLAST(SYSPARAM(1)=BARPOS));
BB:=IF(AA=DT,1,0);
CC:=BB[SYSPARAM(3)];
if CC=1 then
DD:=ISLASTBAR;
else
DD:=BARPOS=ISLASTBAR;
qj:=DD;
qj1:=IF(qj,STKINDI('','机构.机构',0,0),EXTDATA(9));
qj2:=IF(qj,STKINDI('','券商.券商',0,0),EXTDATA(10));
qj3:=IF(qj,STKINDI('','大户.大户',0,0),EXTDATA(11));
qj4:=IF(qj,STKINDI('','中户.中户',0,0),EXTDATA(12));
qj5:=IF(qj,STKINDI('','散户.散户',0,0),EXTDATA(13));
qj6:=IF(qj,STKINDI('','沪机构.机构',0,0),EXTDATA(6));
qj7:=IF(qj,STKINDI('','沪大户.大户',0,0),EXTDATA(7));
qj8:=IF(qj,STKINDI('','沪散户.散户',0,0),EXTDATA(8));
w0:=qj1+qj2+qj3;
ww:=qj6+qj7;
w1:=vol;
ww1:=SUM(AMOUNT,7);
量12:=qj4+qj5;
B:=IF(C>1000,qj8,量12);
w2:=IF(C>1000,ww1,w1);
A:=IF(C>1000,ww,w0);
P:=SYSPARAM(1);
量:=(EMA(IF(C>=REF(C,3),a,(-a)),60)/MA(w2,60));
量1:=EMA(量,3);
量2:=EMA(量,5);
量3:=EMA(量,13);
T:=H>REF(C,1) and a>0 and a>=REF(a,1) and 量2>=量3;
推升:STICKLINE(T,量1,量3,1,0),COLOR0044FF;
STICKLINE(T,量1,量3,8,0),COLOR00CCFF;
STICKLINE(量2>=量3,量2,量3,8,0),COLOR0044FF;
STICKLINE(量2>=量3,量2,量3,7,0),COLOR0066FF;
STICKLINE(量2>量3,量2,量3,6,0),COLOR0077FF;
STICKLINE(量2>量3,量2,量3,5,0),COLOR0088FF;
STICKLINE(量2>量3,量2,量3,4,0),COLOR0099FF;
STICKLINE(量2>量3,量2,量3,3,0),COLOR00AAFF;
STICKLINE(量2>=量3,量2,量3,2,0),COLOR00BBFF;
STICKLINE(量2>=量3,量2,量3,1,0),COLOR00CCFF;
T0:=C<H and C<O and a<0 and a<REF(a,1) and B>0 and 量2<=量3;
回吐:STICKLINE(T0,量1,量3,1,0),COLORFFAE00;
STICKLINE(T0,量1,量3,5,0),COLORFF00FF;
STICKLINE(量2<量3,量2,量3,8,0),COLORFF4400;
STICKLINE(量2<量3,量2,量3,7,0),COLORFF6600;
STICKLINE(量2<量3,量2,量3,6,0),COLORFF7700;
STICKLINE(量2<量3,量2,量3,5,0),COLORFF8800;
STICKLINE(量2<量3,量2,量3,4,0),COLORFF9900;
STICKLINE(量2<量3,量2,量3,3,0),COLORFFAA00;
STICKLINE(量2<量3,量2,量3,2,0),COLORFFBB00;
STICKLINE(量2<=量3,量2,量3,1,0),COLORFFCC00;
T1:=(C/REF(C,1)-1)*100<>5 and 量2<量3 AND 量>REF(量,3) and a>b and a>0;
var1:=量>REF(量,3) and a>0;
T2:=IF(O<REF(C,1) and C>REF(C,1) and vol>REF(vol,3),var1,0);
洗盘:STICKLINE(T1,量1,量3,1,0),COLORFF00FF;
STICKLINE(T1,量2,量3,0,0),COLORFF00FF;
STICKLINE(T1,量2,量3,8,0),COLORFF00FF;
STICKLINE(T1,量2,量3,7,0),COLORFF00FF;
STICKLINE(T1,量2,量3,6,0),COLORFF00FF;
STICKLINE(T1,量2,量3,5,0),COLORC0C0E0;
STICKLINE(T1,量2,量3,4,0),COLORFF00FF;
STICKLINE(T1,量2,量3,3,0),COLORFF00FF;
STICKLINE(T1,量2,量3,2,0),COLORFF00FF;
STICKLINE(T1,量2,量3,1,0),COLORFF00FF;
吸货:STICKLINE(T2,量1,量3,1,0),Color00BFFF;
STICKLINE(T2,量2,量3,3,0),COLOR0000FF;
STICKLINE(T2,量2,量3,0,0),COLOR33FFDD;
STICKLINE(T2,量2,量3,8,0),COLOR338FDD;
STICKLINE(T2,量2,量3,7,0),COLOR339FDD;
STICKLINE(T2,量2,量3,6,0),COLOR33AFDD;
STICKLINE(T2,量2,量3,5,0),COLOR33BFDD;
STICKLINE(T2,量2,量3,4,0),COLOR33CFDD;
STICKLINE(T2,量2,量3,3,0),COLOR33DFDD;
STICKLINE(T2,量2,量3,2,0),COLOR33EFDD;
STICKLINE(T2,量2,量3,1,0),COLOR33FFDD;
STICKLINE(量>EMA(量,5) and a>0 and a>REF(a,1),量,EMA(量,13),6,1),COLORRED;
趋势线:=EMA(量,44);
PARTLINE((量>=趋势线),趋势线),LINETHICK2,color0000FF;
PARTLINE((量<趋势线),趋势线),LINETHICK2,color00FF00;
{静态持仓}
VARIABLE:ym[4]=0,ymd[4]=0,ymtx[4]='',ymdtx[4]='';
ym[1]:=FINANCE(0);
for k=1 to 4 do begin
if k>1 then begin
fy:=INTPART(ym[k-1]/100);
fm:=ym[k-1]-fy*100;
fm:=fm-3;
if fm=0 then begin fm:=12; fy:=fy-1; end;
ym[k]:=fy*100+fm;
end;
if k=1 then fm:=INTPART(FRACPART(ym[1]/100)*100);
if fm=3 or fm=12 then fd:=31;
if fm=6 or fm=9 then fd:=30;
ymtx[k]:=numtostr(ym[k],0);
ymd[k]:=(ym[k]-190000)*100+fd;
ymdtx[k]:=strleft(ymtx[k],4)+'-'+strright(ymtx[k],2)+'-'+numtostr(fd,0);
end;
gdstar:=F10FIND('控盘情况:',1);
{查找F10中股东人数的位置}
gdw1:=f10find(ymdtx[1],gdstar);
gdw2:=f10find(ymdtx[2],gdstar);
gdw3:=f10find(ymdtx[3],gdstar);
gdw4:=f10find(ymdtx[4],gdstar);
{取对应的数据资料－总户数，如果资料变动，可修改数据提取位置}
gdtx1:=F10TEXT(gdw1+14,10);gdtx2:=F10TEXT(gdw2+14,10);
gdtx3:=F10TEXT(gdw3+14,10);gdtx4:=F10TEXT(gdw4+14,10);
{转换字符串为数值}
gd1:=STRTONUM(gdtx1);gd2:=STRTONUM(gdtx2);
gd3:=STRTONUM(gdtx3);gd4:=STRTONUM(gdtx4);
流通股东:=F10TEXT(F10FIND('社保基金一零',1),0);
持股比例:=LTRIM(STRLEFT(STRRIGHT(RTRIM(流通股东),16),6));
MMMM:=STRNCMP(STRRIGHT(RTRIM(流通股东),7),
'流通A股',7)=0 and STRTONUM(持股比例)<100;
NNNN:=if(MMMM=1,STRTONUM(持股比例),0);
占:=NNNN*(FINANCE(1)/FINANCE(7));
金额:=占*FINANCE(7)*close/100;
{火眼金睛}
w:=stkindi('','macd.diff',0,7);
r:=stkindi('','macd.dea',0,7);
J1:="macd.diff";
J2:="macd.dea";
J3:=".k";
J4:=".d";
zdf:=100*(CLOSE-REF(CLOSE,1))/REF(CLOSE,1);
VL:=REF(LOW,1); VH:=REF(H,1);
var0:=H>LLV(l,0)*3;
Var1:=SMA(ABS(H-Vh),13,1)/SMA(MAX(H-Vh,0),13,1)*100;
Var2:=SMA(ABS(L-VL),13,1)/SMA(MAX(L-VL,0),13,1)*100;
Var3:=REF(CLOSE,1);
Var4:=MA(Var2,13);
Var5:=LLV(L,34);
Var6:=SMA(MAX(CLOSE-Var3,0),6,1)/SMA(ABS(CLOSE-Var3),6,1)*100;
var7:=CROSS(93,Var6);
Var8:=EMA(IF(L<=Var5,Var4,0),3);
var9:=H>LLV(l,0)*7;
var10:=(SMA(SMA((((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54))) * 100),7,1),5,1));
var11:=((SMA(((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54)) * 100),7,1)) * 16.18) - (var10 * 10.9);
Var21:=LLV(LOW,60);
Var31:=HHV(HIGH,60);
Var41:=EMA((CLOSE-Var21)/(Var31-Var21)*100,13);
Var61:=EMA(0.667*REF(Var41,1)+0.333*Var41,21);
Var51:=CROSS(Var61,Var41) AND Var41>90;
ww0:=IF(FILTER(cross(j4,j3) and Var51,13),100,0);
A0:=if(FILTER(cross(w,r) and j2<200,13),150,0);
A1:=FILTER(IF(var11<=var10 AND Var8>REF(Var8,1),Var8*8,0),20);
A3:=FILTER(CROSS(j1,j2) and vol>REF(SUM(vol,5),1),1);
A4:=FILTER(var7 and var9 and vol>REF(SUM(vol,3),1) and zdf<=-5,5);
A5:=FILTER(CROSS(j4,j3) and var0 and zdf<=-7,22);
{显示}
drawtext(a1,量1,'进\n庄'),Color00FFFF;//进庄28天左右有大行情
DRAWICON(a1,量1,12);
drawtext(a3,量1,'拉\n升'),COLOR00FFFF;//进入拉升区
DRAWICON(a3,量1,10);
drawtext(a4,量1,'庄\n撤'),Color00FF00;//主力有逃跑嫌疑
DRAWICON(a4,量1,11);
drawtext(ww0,量,'出\n局'),ColorFFFF00;
DRAWICON(ww0,量1,11);
drawtext(a5,量1,'洗\n盘'),Color00FF00;//洗盘清理浮筹
DRAWICON(a5,量1,11);
DRAWICON(a0,量1,11);
drawtext(a0,量1,'试\n盘'),Color00FF00;//主力有拉升意愿
{仓位}
P:=SYSPARAM(1);
DRAWTEXTEX(c,1,20,150,'静态股东:'),Color00BBFF;
DRAWTEXTEX(c,1,20,300,ymdtx[1]+ ' 股东总户数:'+gdtx1),ColorFFB060;
DRAWTEXTEX(c,1,20,450,ymdtx[2]+' 股东总户数:'+gdtx2),ColorFFB060;
DRAWTEXTEX(c,1,20,600,ymdtx[3]+' 股东总户数:'+gdtx3),ColorFFB060;
DRAWTEXTEX(c,1,20,750,ymdtx[4]+' 股东总户数:'+gdtx4),ColorFFB060;
DRAWTEXTEX(c,1,20,900,'社保基金持仓:'+NUMTOSTR(金额,2)+' 万元 占:'+NUMTOSTR(占,2)+' %'),ColorFFB060;
DRAWTEXTEX(c,1,260,0,'机构季仓:'+NUMTOSTR(SUM(w0[P],60),0)),ColorFFB060;
DRAWTEXTEX(c,1,460,0,' 占:'+NUMTOSTR(IF(C>1000,SUM(w0[P],60)/SUM(vol,66),SUM(w0[P],66)/FINANCE(7)),2)+' %'),ColorFFB060;
DRAWTEXTEX(c,1,260,150,'散户季仓:'+NUMTOSTR(SUM(B[P],60),0)),ColorFFB060;
DRAWTEXTEX(c,1,460,150,' 占:'+NUMTOSTR(IF(C>1000,SUM(B[P],60)/SUM(vol,66),SUM(B[P],66)/FINANCE(7)),2)+' %'),ColorFFB060;
DRAWTEXTEX(c,1,640,0,'机构日仓:'+NUMTOSTR(w0[P],0)),ColorFFB060;
DRAWTEXTEX(c,1,840,0,' 占:'+NUMTOSTR(IF(C>1000,w0[P]/SUM(vol,5),w0[P]/FINANCE(7)),2)+' %'),ColorFFB060;
DRAWTEXTEX(c,1,640,150,'散户日仓:'+NUMTOSTR(B[P],0)),ColorFFB060;
DRAWTEXTEX(c,1,840,150,' 占:'+NUMTOSTR(IF(C>1000,B[P]/SUM(vol,5),B[P]/FINANCE(7)),2)+' %'),ColorFFB060;
// |
| |  | |  |
|
