近得金将军42，贡献的分笔资金原码;又得猎狼老头的热情相助;凭着每天网上寻宝的积累,尽管自己无编公式之能,幸好有几十年的钳工之技,修补拼装之器也还奏合能有点用.今特借他人之善而学其善,请老师和喜欢的股友评看我的拼装主图.如果你不在意硬要用:请您注意安全!由于分笔数据源的原因,图上所示资金不可信;但可根据进出赉金与主买主卖资金额的差异越大越小判定买卖资金的方向性.___免费版只能如此啦,是吧?以下为公式码及大智慧6月26日的资金净流入前十名的前名贴图,以资对比.再次重申:谢谢原码作者.分析家可用.
DRAWGBKlast(DATE>900101,strip(RGB(10,10,10),RGB(0,0,140),0));
换手动态移动:DMA(C,(VOL/CAPITAL));
lhnh:=BARSLAST(DISPSTATUS=1)+1;
nnl:=DISPSTATUS=2;
A:=BACKSET(nnl,hhvBARS(h,lhnh)+1);
B:=A>REF(A,1);
A2:=BACKSET(nnl,LLVBARS(L,lhnh)+1);
B2:=A2>REF(A2,1);
ma3:MA(C,3),colorFFFF00,linethick2;
MA5:MA(C,5),colorFF00FF,linethick2;
MA10:MA(C,10),linethick1,color4050aa;
MA20:MA(CLOSE,20),colorFF99FF;
ma30:ma(close,30),linethick2,colorFFA2AF;
ma60:ma(close,60),linethick2,color00FF00;
{快速介入}
A007:=(HIGH+LOW+CLOSE)/3;
A008:=((A007-MA(A007,14))/(0.015*AVEDEV(A007,14)))/2;
A009:=(A008+(EMA(((0-(100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14))))+100)/100,3)*200-100))/2;
A010:=A009-REF(A009,14);
A011:=A009-REF(A009,26);
A012:=(A009+A010+A011)/3;
KKM:=EMA(A012,4);
A013:=HHV(HIGH,34);
A014:=(2*CLOSE+HIGH+LOW)/4;
A015:=LLV(LOW,34);
A016:=EMA(((A014-A015)/(A013-A015))*100,13);
A017:=EMA(0.667*REF(A016,1)+0.333*A016,2);
KKMD:=A016-A017>1 AND A016<30 AND A017<30;
KKML:=A016-A017<0 AND A016>80 AND A017>80 AND REF(A016-A017,1)>0;
DRAWTEXT(FILTER(KKMD,30),L,'最佳买入时机'),COLOR00FFFF;
DRAWTEXT(FILTER(KKML,30),H,'最佳卖出时机'),COLORwhite;
DRAWTEXT(FILTER(CLOSE/REF(CLOSE,1)>INDEXC/REF(INDEXC,1),30),L*0.95,'该股强于大盘'),COLORFF00FF;
DRAWTEXT(FILTER(KKM>EMA(KKM,4) AND KKM>REF(KKM,1),30),L*0.98,'快速介入'),colorwhite;
{资金动向解盘}
HSL:=vol/capital*100;
LD:=MA(VOL/(HIGH-LOW),5);
DMP:=ABS(CLOSE-OPEN);
DMM:=VOL/(HIGH-LOW);
IF BARSTATUS=2 AND HSL<=1 THEN BEGIN
DRAWTEXTABS(20,10,'地量/换手率='+NUMTOSTRN( HSL,2 )),COLORWHITE;
END
ELSE
IF BARSTATUS=2 AND HSL>=1 AND HSL<2 THEN BEGIN
DRAWTEXTABS(20,10,'无量/换手率='+NUMTOSTRN( HSL,2 )),COLORCYAN;
END
ELSE
IF BARSTATUS=2 AND HSL>2 AND HSL<3 THEN BEGIN
DRAWTEXTABS(20,10,'温和/换手率='+NUMTOSTRN( HSL,2 )),COLORGRAY;
END
ELSE
IF BARSTATUS=2 AND HSL>3 AND HSL<5 THEN BEGIN
DRAWTEXTABS(20,10,'活跃/换手率='+NUMTOSTRN( HSL,2 )),COLORGREEN,stick;
END
ELSE
IF BARSTATUS=2 AND HSL>5 AND HSL<8 THEN BEGIN
DRAWTEXTABS(20,10,'带量/换手率='+NUMTOSTRN( HSL,2 )),COLORYELLOW;
END
ELSE
IF BARSTATUS=2 AND HSL>8 AND HSL<15 THEN BEGIN
DRAWTEXTABS(20,10,'放量/换手率='+NUMTOSTRN( HSL,2 )),COLORMAGENTA;
END
ELSE
IF BARSTATUS=2 AND HSL>15 AND HSL<25 THEN BEGIN
DRAWTEXTABS(20,10,'巨量/换手率='+NUMTOSTRN( HSL,2 )),COLORRED;
END
ELSE
IF BARSTATUS=2 AND HSL>=25 THEN BEGIN
DRAWTEXTABS(20,10,'异常/换手率='+NUMTOSTRN( HSL,2 )),COLORBLUE;
END;IF BARSTATUS=2 AND DMM<LD AND DMP<MA(DMP,5) THEN BEGIN
DRAWTEXTABS(20,35,'资金入场意愿萎缩'), colorwhite,linethick2;
END
ELSE
IF BARSTATUS=2 AND DMM<LD AND DMP>MA(DMP,5) THEN BEGIN
DRAWTEXTABS(20,35,'场内资金有运作行为'),colorwhite,linethick2;
END
ELSE
IF BARSTATUS=2 AND DMM>LD AND DMP<MA(DMP,5) THEN BEGIN
DRAWTEXTABS(20,35,'多空双方激烈争夺'),colorwhite,linethick2;
END
ELSE
IF BARSTATUS=2 AND DMM>LD AND DMP>MA(DMP,5) THEN BEGIN
DRAWTEXTABS(20,35,'场外资金介入（或出局）意愿强烈'),colorwhite,linethick2;
END;
IF BARSTATUS=2 AND CROSS("VOL.MA1","VOL.MA2") AND "VOL.MA2">"VOL.MA3" AND "VOL.MA1">"VOL.MA3" THEN BEGIN
DRAWTEXTABS(20,65,'成交量均线金叉'),coloryellow;
END
ELSE
IF BARSTATUS=2 AND "VOL.MA1">"VOL.MA2" AND "VOL.MA2">"VOL.MA3" AND "VOL.MA1">"VOL.MA3" THEN BEGIN
DRAWTEXTABS(20,65,'成交量均线多头排列'),coloryellow;
END;
上开:=o;
上收:=c;
上高:=h;
上低:=l;
Var11:=(上收-LLV(上低,27))/(HHV(上高,27)-LLV(上低,27))*100;
Var12:=SMA(Var11,3,1);
Var13:=SMA(Var12,3,1);
Var14:=SMA(Var13,3,1);
箱顶:MA(REF(HHV(上收,30),1),2),COLOR0000FF,LINETHICK0;
DRAWTEXT(CROSS(Var14,Var13) AND Var14>75 ,箱顶*1.03,'减仓'),COLORf0f000;
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'风险'),colorGREEN,LINETHICK2;
{追涨}
VAR326:=IF(CLOSE>REF(CLOSE,1),88,0);
VAR327:=IF(CLOSE/REF(CLOSE,1)>1.050 AND HIGH/CLOSE<1.010 AND VAR326>0, 91, 0);
{STICKLINE(VAR327>90,L*0.99,L*0.95,4,0),COLORYELLOW;}
DRAWTEXT(VAR327>90,LOW*0.99,'追涨'),COLOR00ffff;
{极品绝底}
DRAWTEXT(C-O>=0 AND O/L>1.05 AND L<=LLV(L,30),L,'★<--极品绝底'), LINETHICK1,colorwhite;
{加仓}
VAR2:IF(SMA(CLOSE,5,1)/SMA(CLOSE,30,1)<1.09 and SMA(CLOSE,5,1)/SMA(CLOSE,30,1)>0.45,SMA(LOW,10,1),SMA(LOW,5,1)),POINTDOT,COLORF00FF0,linethick0;
VAR3:IF(MA(VOL,3)>MA(VOL,5)/2 and MA(VOL,3)>MA(VOL,5), SMA(HIGH,2,1),SMA(CLOSE,3,1)) ,COLORFFFFFF,linethick0;
买入:DRAWTEXT(CROSS(VAR3,MA30),VAR2,'加仓'),COLORred;
DRAWTEXTREL(750,80,'纪律是盈利的真正保障'),coloryellow,linethick5;
DRAWTEXTREL(750,150,'知彼知己,胜于易胜'),coloryellow,linethick5;
DRAWTEXTREL(10,850, ' 善谋者，谋势。不善谋者，谋子.'),coloryellow,linethick4;TY:=C;
A1:=REF(TY,10)=HHV(TY,2*10+1); B1:=FILTER(A1,10); C1:=BACKSET(B1,10+1); HD:=FILTER(C1,10);
A2:=REF(TY,10)=LLV(TY,2*10+1); B2:=FILTER(A2,10); C2:=BACKSET(B2,10+1); LD:=FILTER(C2,10);
前期高位:REF(H,BARSLAST(HD)),COLOR00FF00,POINTDOT;
前期低位:REF(L,BARSLAST(LD)),COLORFF00FF,POINTDOT;
STICKLINE(C,前期高位,前期高位,5,0),COLOR00FF00;
STICKLINE(C,前期低位,前期低位,5,0),COLORFF00FF;
{大单资金}
主买金额:="分笔引.主买金额#tick";
主卖金额:="分笔引.主卖金额#tick" ;
资金进出:=主买金额-主卖金额;{这就是分时净额}
大买金额:="分笔引.大买金额#tick";
大卖金额:="分笔引.大卖金额#tick";
大单净额:=大买金额-大卖金额; {这就是大单净额}DRAWTEXTREL(300,20,'主买金额:'+主买金额),COLORRED,LINETHICK3;
DRAWTEXTREL(300,100,'主卖金额:'+主卖金额),COLORGREEN,LINETHICK3;
DRAWTEXTREL(300,200,'资金进出:'+资金进出),COLORCYAN,LINETHICK3;
DRAWTEXTREL(300,300,'大单净额:'+大单净额),COLORYELLOW,LINETHICK3;
【本文仅仅提供源码，请参照下面编辑公式录像自己做成公式】{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
