通达信因为不能调用分笔数据所以是个缺憾,没事综合了下一些老师的成果又加了点自己的东西做了一个山寨版的,,给就用通达信的朋友玩玩 大家觉得好了就玩下。。觉得不好就看看算了。。
{通达信缠论山寨版}
C1:=REF(C,1);
UP:=IF(C>C1,1,0);
DOWN:=IF(C<C1,0,1);
STICKLINE(UP,H,L,0,0),COLORRED;
STICKLINE(UP,O,C,3,0),COLORRED;
STICKLINE(DOWN,H,L,0,0),COLORGREEN;
STICKLINE(DOWN,O,C,3,0),COLORGREEN;
MA5:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
MA60:=MA(C,60);
DRAWKLINE(H,O,L,C);
DRAWTEXT_FIX(1,0.005,0.005,0,'缠论山寨版'),COLORYELLOW;
BI1:=ZIG(3,10);
BI2:=REF(BI1,1);
DRAWICON(BI1>BI2 AND REF(BI1,1)<REF(BI2,1),L*0.98,1);
DRAWICON(BI1<BI2 AND REF(BI1,1)>REF(BI2,1),H*1.02,2);
TJ1:=CROSS(MA5,MA10);
TJ2:=CROSS(MA10,MA20);
TJ3:=CROSS(MA20,MA60);
DRAWICON(TJ1,L*0.95,34);
DRAWICON(TJ2,L*0.93,35);
DRAWICON(TJ3,L*0.91,36);
TJ4:=CROSS(MA10,MA5);
TJ5:=CROSS(MA20,MA10);
TJ6:=CROSS(MA60,MA20);
DRAWICON(TJ4,H*1.05,37);
DRAWICON(TJ5,H*1.07,38);
DRAWICON(TJ6,H*1.09,39);
DRAWTEXT(ISLASTBAR,C,'缠论山寨版'),COLORYELLOW;