通达信金银山谷主图源码
五:MA(C,5),COLORWHITE;
十:MA(C,10),COLORYELLOW;
三十:MA(C,30),COLORGREEN;
M120:MA(C,120),LINETHICK2,COLORLIGRAY;
山谷:=MA(C,5)>MA(C,10) AND MA(C,10)>MA(C,30) AND CROSS(MA(C,10),MA(C,30));
DRAWTEXT(山谷 AND MA(C,5)<MA(C,120),MA(C,30)-0.08,'银山谷'),COLORMAGENTA;
DRAWTEXT(山谷 AND MA(C,30)>MA(C,120),MA(C,30)-0.08,'金山谷'),COLORYELLOW;
{涨停做记号}
CM:=REF(C,1);
涨停:=IF((C-CM)*100/CM>=9.9,1,0);
STICKLINE(涨停,OPEN,CLOSE,3.8,0),COLORMAGENTA; {K线实体部分画洋红色，宽度为2，画实线实心柱}
STICKLINE(涨停,H,L,0,0),COLORLIRED; {K线影线部分画紫红色，宽度为0？，画实线实心柱};
{跌停做记号}
跌停:=IF((C-CM)*100/CM<=-9.9,1,0);
STICKLINE(跌停,OPEN,CLOSE,3.8,0),COLORGREEN; {K线实体部分画绿色，宽度为2，画实线实心柱}
STICKLINE(跌停,H,L,0,0),COLORGREEN;{K线影线部分画绿色，宽度为0？，画实线实心柱};
{黑码起飞点}
实在1:=MA(C,5)>MA(C,10) AND MA(C,10)>MA(C,20)
AND O<MA(C,10) AND C>MA(C,5)
AND C<30
AND V<MA(V,60);
DRAWTEXT(实在1,MA(C,20)*0.95,'一阳穿双'),COLORCYAN;
DRAWTEXT(实在1,MA(C,20)*0.9,'无量黑码等止跌'),COLORCYAN;
STICKLINE(实在1,MA(C,20)*0.9,MA(C,20)*0.95,0.01,0),COLORCYAN;
实在2:=MA(C,5)>MA(C,10) AND MA(C,10)>MA(C,20)
AND O<MA(C,10) AND C>MA(C,5)
AND C<30 AND V>MA(V,60)
AND COUNT(V>MA(V,60),2)=1;
DRAWTEXT(实在2,MA(C,20)*0.95,'一阳穿双'),COLORWHITE;
DRAWTEXT(实在2,MA(C,20)*0.9,'有量黑码起飞'),COLORWHITE;
STICKLINE(实在2,MA(C,20)*0.9,MA(C,20)*0.95,0.01,0),COLORWHITE;
