非常感谢逍遥聖手老师提供的源码，逍遥聖手老师通达信版分时主图堪称完美，现将大智慧版修改版发出来供喜欢的同学们参考。
说明：1、必须先建立副图，公式名称必须写“MK”以便明框主图公式中Y.D.Z.K赋值语句引用。
2、在逍遥聖手老师大智慧版的基础上添加了压力线、强势线、平衡线、支撑线，与通达信版比较
从开盘到收盘分时主图均不显示压力线、强势线、平衡线、支撑线文字。
3、添加了杨明明老师分享的分时成交量抓涨停公式源码。
{mk-副图}
明Y:REF(EMA(H,5)+EMA((H-L),5),1);
明D:REF(EMA(H,5),1);
明Z:REF((C*3+H*2+L*2+O)/8,1);
明K:REF(EMA(L,5),1);
{明框-主图}
明Y:=REF(EMA(H,5)+EMA((H-L),5),1);
明D:=REF(EMA(H,5),1);
明Z:=REF((C*3+H*2+L*2+O)/8,1);
明K:=REF(EMA(L,5),1);
{均价:SUM(V*C,0)/SUM(V,0),COLOR00F7F7,DOTLINE;}
Y:="MK.明Y#DAY";
D:="MK.明D#DAY";
Z:="MK.明Z#DAY";
K:="MK.明K#DAY";
{KJ1:REFDATE(Y,DATE),COLOR00AEAE;}
KJ2:HORILINE(D,D,D),COLORRED,LINETHICK2;
KJ4:HORILINE(Z,Z,Z),COLORYELLOW,LINETHICK2;
KJ5:HORILINE(K,K,K),COLORWHITE,LINETHICK2;
KJ6:HORILINE(Y,Y,Y),COLORGREEN,LINETHICK2;
{HORILINE(H>=HHV(H,n),H,H>=HHV(H,n)),DASHLINE;}
{DRAWNUMBER(ISLASTBAR,KJ1,KJ1),COLOR00AEAE;}
HORILINE(KJ2,KJ2,KJ2),COLORRED;
DRAWTEXT(KJ2,KJ2*(1-0.002),'压力线'),COLORYELLOW;
HORILINE(KJ4,KJ4,KJ4),COLORYELLOW;
DRAWTEXT(KJ4,KJ4,'强势线'),COLORYELLOW;
HORILINE(KJ5,KJ5,KJ5),COLORMAGENTA;
DRAWTEXT(KJ5,KJ5*0.96,'平衡线'),COLORYELLOW;
HORILINE(KJ6,KJ6,KJ6),COLORWHITE;
DRAWTEXT(KJ6,KJ6*(1+0.002),'支撑线'),COLORYELLOW;
现价:=C;
均价:=SUM(V*C,0)/SUM(V,0);
MM:=0;
{IF PFFIN(4251,0)>0 THEN BEGIN;}
{MM:=PFFIN(4251,0);}
流通盘:=CAPITAL-MM/100;
DBHS:=IF(CAPITAL<2000000,V/CAPITAL*100,V/流通盘*100);
标准量:=IF(COUNT(V>流通盘/1000,0)>0,流通盘/1000,0);
{STICKLINE(C<REF(C,1),0,VOL,5,0),COLORGREEN;
STICKLINE(C>REF(C,1),0,VOL,5,0),COLOR4040FF;
STICKLINE(C=REF(C,1),0,VOL,5,0),COLORWHITE;}
总量:=SUM(V,0);
最大量:=HHV(V,0);
最大换手:=HHV(DBHS,240);
{STICKLINE(C<REF(C,1) AND V>REF(最大量,1) AND TIME>94200,0,VOL,5,0),COLORGREEN,LINETHICK2;
STICKLINE(C>REF(C,1) AND V>REF(最大量,1) AND TIME>94200,0,VOL,5,0),COLORRED,LINETHICK2;
STICKLINE(C=REF(C,1) AND V>REF(最大量,1) AND TIME>94200,0,VOL,5,0),COLORWHITE,LINETHICK2;
STICKLINE(V>REF(最大量,1)*1.5 AND C>REF(C,1) AND DBHS>0.15 AND TIME>94500,0,VOL,5,0),COLORYELLOW,LINETHICK2;
STICKLINE(C>REF(C,1) AND DBHS>0.22 AND TIME<94200,0,VOL,5,0),COLOR66FFFF,LINETHICK2;}
LXTP:=((V>REF(V,1) AND DBHS>=0.1 AND REF(V,1)>REF(最大量,2)) OR (V>REF(最大量,1) AND DBHS>=0.08 AND REF(V,2)>REF(最大量,3))) AND C>REF(C,1);
LXTP1:=((V>REF(V,1)*0.9 AND DBHS>=0.1 AND REF(V,1)>REF(最大量,2)) OR (V>REF(最大量,1)*0.9 AND DBHS>=0.1 AND REF(V,2)>REF(最大量,3))) AND C>REF(C,1);
DRAWTEXT(LXTP1,均价,'↖★'),COLORYELLOW,LINETHICK3;
DRAWTEXT(LXTP,现价,'↖★'),COLORRED,LINETHICK3;
|
