非常感谢逍遥聖手老师提供的源码，逍遥聖手老师通达信版分时主图堪称完美，现将大智慧版修改版发出来供喜欢的同学们参考。
说明：1、必须先建立副图，公式名称必须写“MK”以便明框主图公式中Y.D.Z.K赋值语句引用。
2、在逍遥聖手老师大智慧版的基础上添加了压力线、强势线、平衡线、支撑线，与通达信版比较
从开盘到收盘分时主图均不显示压力线、强势线、平衡线、支撑线文字。
3、添加了杨明明老师分享的分时成交量抓涨停公式源码。
4、去掉“长线、红多、绿空线”。添加长线、红多、绿空先后，主图图形变形，“压力线、强势线、平衡线、支撑线”均不显示。说明：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;
 |
