把唐能通三线顺上主图改成大智慧能使用的

2020/1/18 18:26:57

公式编写说明：

M60:=MA(C,60);M120:=MA(C,120);DRAWBAND(M60,RGB(90,0,0),M120,RGB(0,90,0));{牛熊变线}变线:=EMA(MA(CLOSE,30),5),LINETHICK0;{20 或 30 或 35}STICKLINE(C>=变线 AND C>=O,H,L,0,0),COLORRED;STICKLINE(C>=变线 AND C>=O,C,O,2.7,1),COLORRED;STICKLINE(C>变线 AND C<=O,H,L,0,1),COLORCYAN;STICKLINE(C>变线 AND C<=O,C,O,3,0),COLORCYAN;STICKLINE(C<变线 AND C<=O,H,L,0,1),COLORCYAN;STICKLINE(C<变线 AND C<=O,C,O,3,0),COLORCYAN;STICKLINE(C<变线 AND C<=O,H,L,0,1),COLORGRAY;STICKLINE(C<变线 AND C>O,H,L,0,1),COLORGRAY;STICKLINE(C<变线 AND C>O,C,O,3,1),COLORGRAY;STICKLINE(C<变线 AND C<=O,C,O,3,1),COLORGRAY;{分水岭操作线}PM:MA(C,5),COLORGRAY,LINETHICK1;{可用13}IF(PM<REF(PM,1),PM,DRAWNULL),COLORGRAY,LINETHICK0;IF(PM>=REF(PM,1),PM,DRAWNULL),COLORRED,LINETHICK2;IF(PM=REF(PM,1),PM,DRAWNULL),COLORRED,LINETHICK2;A:=MA(CLOSE,12)+ABS(MA(CLOSE,12)-REF(MA(CLOSE,12),1));{原公式为17,最终确定为12}B:=MA(CLOSE,12)+MA(CLOSE,12)-REF(MA(CLOSE,12),1);分水岭:=IF(MA(CLOSE,12)<B,B,MA(CLOSE,12));操作线:=分水岭-(EMA(C,3)-分水岭);AA:=CROSS(分水岭,操作线);STICKLINE(AA,C,O,3,0),COLOR0000AA;STICKLINE(AA,C,O,2,0),COLOR0033CC;STICKLINE(AA,C,O,1,0),COLOR0055EE;STICKLINE(AA,C,O,0.3,0),COLOR0099FF;STICKLINE(AA,H,L,0,1),COLOR0099FF;RR:=CROSS((MA(VOL,5)),(MA(VOL,10))) AND MA(C,2)>=MA(C,4); {AND VOL>=REF(VOL,1)}STICKLINE(RR,C,O,3,0),COLOR0000AA;STICKLINE(RR,C,O,2,0),COLOR0033CC;STICKLINE(RR,C,O,1,0),COLOR0055EE;STICKLINE(RR,C,O,0.3,0),COLOR0099EE;STICKLINE(RR,H,L,0,1),COLOR0099FF;MA5:MA(CLOSE,5),NODRAW;MA10:MA(CLOSE,10),COLORCC66FF;MA20:MA(CLOSE,20),COLORFFCC66,LINETHICK2;MA60:MA(CLOSE,60),COLOR00FF99,LINETHICK2;MA120:MA(C,120),COLORGRAY;DRAWTEXT(CROSS(MA60,MA120),MA60,'牛'),COLORYELLOW,LINETHICK4;DRAWTEXT(CROSS(MA120,MA60),MA60,'熊'),COLORWHITE,LINETHICK2;先谢谢老师！大家！

公式源码回答：

M60:=MA(C,60);

M120:=MA(C,120);
FILLRGN(m60,m120,M60>m120,RGB(90,0,0),m60<=M120,RGB(0,90,0));
{牛熊变线}
变线:=EMA(MA(CLOSE,30),5);{20 或 30 或 35}
STICKLINE(C>=变线 AND C>=O,H,L,0,0),COLORRED;
STICKLINE(C>=变线 AND C>=O,C,O,6,1),COLORRED;
STICKLINE(C>变线 AND C<=O,H,L,0,1),COLORCYAN;
STICKLINE(C>变线 AND C<=O,C,O,7,0),COLORCYAN;
STICKLINE(C<变线 AND C<=O,H,L,0,1),COLORCYAN;
STICKLINE(C<变线 AND C<=O,C,O,7,0),COLORCYAN;
STICKLINE(C<变线 AND C<=O,H,L,0,1),COLORGRAY;
STICKLINE(C<变线 AND C>O,H,L,0,1),COLORGRAY;
STICKLINE(C<变线 AND C>O,C,O,7,1),COLORGRAY;
STICKLINE(C<变线 AND C<=O,C,O,7,1),COLORGRAY;
{分水岭操作线}
PM:MA(C,5),COLORGRAY,LINETHICK1;{可用13}
PARTLINE(PM,PM<REF(PM,1)),COLORGRAY,LINETHICK0;
PARTLINE(PM,PM>=REF(PM,1)),COLORRED,LINETHICK2;
PARTLINE(PM,PM=REF(PM,1)),COLORRED,LINETHICK2;
A:=MA(CLOSE,12)+ABS(MA(CLOSE,12)-REF(MA(CLOSE,12),1));{原公式为17,最终确定为12}
B:=MA(CLOSE,12)+MA(CLOSE,12)-REF(MA(CLOSE,12),1);
分水岭:=IF(MA(CLOSE,12)<B,B,MA(CLOSE,12));
操作线:=分水岭-(EMA(C,3)-分水岭);
AA:=CROSS(分水岭,操作线);
STICKLINE(AA,C,O,7,0),COLOR0000AA;
STICKLINE(AA,C,O,5,0),COLOR0033CC;
STICKLINE(AA,C,O,2,0),COLOR0055EE;
STICKLINE(AA,C,O,1,0),COLOR0099FF;
STICKLINE(AA,H,L,0,1),COLOR0099FF;
RR:=CROSS((MA(VOL,5)),(MA(VOL,10))) AND MA(C,2)>=MA(C,4); {AND VOL>=REF(VOL,1)}
STICKLINE(RR,C,O,7,0),COLOR0000AA;
STICKLINE(RR,C,O,5,0),COLOR0033CC;
STICKLINE(RR,C,O,2,0),COLOR0055EE;
STICKLINE(RR,C,O,1,0),COLOR0099EE;
STICKLINE(RR,H,L,0,1),COLOR0099FF;
MA5:MA(CLOSE,5),LINETHICK0;
MA10:MA(CLOSE,10),COLORCC66FF;
MA20:MA(CLOSE,20),COLORFFCC66,LINETHICK2;
MA60:MA(CLOSE,60),COLOR00FF99,LINETHICK2;
MA120:MA(C,120),COLORGRAY;
DRAWTEXT(CROSS(MA60,MA120),MA60,'牛'),COLORYELLOW,LINETHICK4;
DRAWTEXT(CROSS(MA120,MA60),MA60,'熊'),COLORWHITE,LINETHICK2;

投股票网 www.tou 18.cn

股市公式下载推荐