自用主图量能+MACD自用主图
{m1 21000 5m221000 10m32100020m421000 60m521000120m621000 250}
MA1:MA(CLOSE,M1);
MA2:MA(CLOSE,M2);
MA3:MA(CLOSE,M3);
MA4:MA(CLOSE,M4);
MA5:MA(CLOSE,M5);
MA6:MA(CLOSE,M6);
量:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
VOLUME:=量;
买量:=IF(CLOSE>OPEN,量*(HIGH-LOW),IF(CLOSE<OPEN,量*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
卖量:=(IF(CLOSE>OPEN,0-量*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-量*(HIGH-LOW),0-VOL/2)))*-1;
总量:=(买量+卖量);
净量:=买量-卖量>0;
短量:=量-总量>0;
拉升净买入黄色:=0,COLORYELLOW,NODRAW;吸筹冲顶红色:=0,COLORRED,NODRAW;短买量:=0,COLORMAGENTA,NODRAW;
H0:=CONST(HHV(H,120))*1;
L0:=CONST(LLV(L,120))*1;
M0:=CONST((H0+L0)/2);
H1:=IF(CONST(C)<M0,L0-(H0-L0)*0.4,L0-(H0-L0)*0.4),COLORRED;
L1:=L0;AMAX:=MAX(H1,L1);
AMIN:=MIN(H1,L1);
AMN1:=(AMAX+AMIN)/2;
AMN2:=(AMAX-AMIN);
AMN3:=HHV(V,250)/2;
AMN4:=HHV(V,250);
VZ:=(V-AMN3)*AMN2/AMN4+AMN1;
VZA:=(买量-AMN3)*AMN2/AMN4+AMN1;
STICKLINE(C>=O,VZ,(0-AMN3)*AMN2/AMN4+AMN1,1,1),COLORRED;
STICKLINE(C<O,VZ,(0-AMN3)*AMN2/AMN4+AMN1,1,0),COLORCYAN;
STICKLINE(买量,VZA,(0-AMN3)*AMN2/AMN4+AMN1,0.8,0),COLORRED;
STICKLINE(净量,VZA,(0-AMN3)*AMN2/AMN4+AMN1,0.8,0),COLORYELLOW;
STICKLINE(短量,VZA,(0-AMN3)*AMN2/AMN4+AMN1,0.8,0),COLORMAGENTA;
-----------------------------------------------------------------------------------
附图
{MACD 5分}
分DIFF:="MACD.DIF#MIN5"(10,22,7.5);
分DEAF:="MACD.DEA#MIN5"(10,22,7.5);
MACD分:2*(分DIFF-分DEAF),NODRAW;
DRAWBAND(分DIFF,RGB(255,157,255),分DEAF,RGB(21,138,255));
STICKLINE(MACD分>0,0,MACD分,0.01,0) ,COLOR0000FF;
STICKLINE(MACD分<0,0,MACD分,0.01,0) ,COLORFFF000;
GMB:IF(CROSS(分DIFF,分DEAF) AND 分DIFF>0,-0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLOR0000FF;
GMC:IF(CROSS(分DIFF,分DEAF) AND 分DIFF<0,-0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLOR208FFF;
0,COLORFFFF00,LINETHICK1;
---------------------------------------------------------------------------------------------------
{MACD 15分}
分DIFF:="MACD.DIF#MIN15"(10,22,7.5);
分DEAF:="MACD.DEA#MIN15"(10,22,7.5);
MACD分:2*(分DIFF-分DEAF),NODRAW;
DRAWBAND(分DIFF,RGB(255,157,255),分DEAF,RGB(21,138,255));
STICKLINE(MACD分>0,0,MACD分,0.01,0) ,COLOR0000FF;
STICKLINE(MACD分<0,0,MACD分,0.01,0) ,COLORFFF000;
GMB:IF(CROSS(分DIFF,分DEAF) AND 分DIFF>0,-0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLOR0000FF;
GMC:IF(CROSS(分DIFF,分DEAF) AND 分DIFF<0,-0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLOR208FFF;
0,COLORFFFF00,LINETHICK1;
--------------------------------------------------------------------------------------------------------------
{MACD 30分}
分DIFF:="MACD.DIF#MIN30"(10,22,7.5);
分DEAF:="MACD.DEA#MIN30"(10,22,7.5);
MACD分:2*(分DIFF-分DEAF),NODRAW;
DRAWBAND(分DIFF,RGB(255,157,255),分DEAF,RGB(21,138,255));
STICKLINE(MACD分>0,0,MACD分,0.01,0) ,COLOR0000FF;
STICKLINE(MACD分<0,0,MACD分,0.01,0) ,COLORFFF000;
GMB:IF(CROSS(分DIFF,分DEAF) AND 分DIFF>0,-0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLOR0000FF;
GMC:IF(CROSS(分DIFF,分DEAF) AND 分DIFF<0,-0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLOR208FFF;
0,COLORFFFF00,LINETHICK1;
------------------------------------------------------------------------------------------------------
{MACD 60分}
分DIFF:="MACD.DIF#MIN60"(10,22,7.5);
分DEAF:="MACD.DEA#MIN60"(10,22,7.5);
MACD分:2*(分DIFF-分DEAF),NODRAW;
DRAWBAND(分DIFF,RGB(255,157,255),分DEAF,RGB(21,138,255));
STICKLINE(MACD分>0,0,MACD分,0.01,0) ,COLOR0000FF;
STICKLINE(MACD分<0,0,MACD分,0.01,0) ,COLORFFF000;
GMB:IF(CROSS(分DIFF,分DEAF) AND 分DIFF>0,-0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLOR0000FF;
GMC:IF(CROSS(分DIFF,分DEAF) AND 分DIFF<0,-0.02,DRAWNULL),CROSSDOT,LINETHICK3,COLOR208FFF;
0,COLORFFFF00,LINETHICK1;
使用【MACD】5分 15分 30分 60分跨周期在同一图表看盘，做T和做短，使你更清楚自己要做什麽。体验60分与30分如图
------------------------------------------------------------------------------------------------
主力进出公式
V1:=(C*2+H+L)/4;
V2:=EMA(V1,13)-EMA(V1,34);
V3:=EMA(V2,5);
V4:=2*(V2-V3)*5.5;
主力开始出: IF(V4<=0,V4,0),COLORGREEN,LINETHICK2;
主力开始进: IF(V4>=0,V4,0),COLORRED,LINETHICK2;
V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;
V6:=EMA(3*V5-2*SMA(V5,18,1),5);
V7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10;
V8:=(INDEXC*2+INDEXH+INDEXL)/4;
V9:=EMA(V8,13)-EMA(V8,34);
VA:=EMA(V9,3);
VB:=(V9-VA)/2; 本文仅仅提供源码，并无公式提供下载{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
