通达信金银山谷主图源码

五: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;