相關標簽:

 

非常感謝逍遙聖手老師提供的源碼，逍遙聖手老師通達信版分時主圖堪稱完美，現將大智慧版修改版發出來供喜歡的同學們參考。
說明：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;CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.kzuj.com.cn',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
DRAWTEXTREL(10 ,10 ,'指標公式');


CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.kzuj.com.cn',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
DRAWTEXTREL(10 ,10 ,'指標公式');