通达信凯恩斯主图源码

{凯恩斯}

A1:=DATE = 13181231;

七天线:MA(C,7),COLORGRAY;

工作线:(EMA(C,14)) * A1,POINTDOT,LINETHICK4,COLORYELLOW;

生命线:(MA(C,25)) * A1,LINETHICK2,COLORMAGENTA;

不惑线:(MA(C,40)) * A1,COLORCYAN;

姊妹线:(EMA(C,56)) * A1,,POINTDOT,COLORWHITE;

{www.88gs.com}

A3:=EMA((((SLOPE(C,21)) * 20) + C),68);

A4:=EMA(C,10);

A5:=REF(C,2);

A6:=((SMA((MAX((C - A5),0)),6,1)) / (SMA(ABS((C - A5)),6,1))) * 100;

A7:=IF(((A6 (REF(A6,1))) AND (A6 79)),A6,0);

A8:=LLV(L,21);

A9:=HHV(H,21);

A10:=EMA((((CLOSE - A8) / (A9 - A8)) * 100),5);

A11:=EMA((((CLOSE - A8) / (A9 - A8)) * 50),13);

A12:=EMA(((0.667 * (REF(A10,1))) + (0.333 * A10)),2);

A13:=LLV(L,55);

A14:=HHV(H,34);

A15:=EMA((((C - A13) / (A14 - A13)) * 100),3);

A16:=(A11 + A15) / 2;

A17:=EMA(((0.667 * (REF(A15,1))) + (0.333 * A10)),2);

A18:=EMA(A16,5);

A19:=EMA(((0.667 * (REF(A18,1))) + (0.333 * A18)),2);

A20:=CROSS(A10,A11);

A21:=(CROSS(A10,A19)) AND (A19 30);

A22:=A21 * 0.6;

A23:=((C + L) + H) / 3;

A24:=EMA(A23,6);

A25:=EMA(A24,5);

A26:=CROSS(A24,A25);

DRAWICON(A26,(LOW / 1.015),1),LINETHICK2,COLORMAGENTA;

DRAWTEXT(CROSS(A4,A3),L*0.9,'买!'),LINETHICK4,COLORYELLOW;

STICKLINE(((C = 工作线) AND (C = O)),H,L,0,1),COLORRED;

STICKLINE(((C = 工作线) AND (C = O)),O,C,2,1),COLORRED;

STICKLINE(((C = 工作线) AND (C = O)),H,L,0,0),COLORRED;

STICKLINE(((C = 工作线) AND (C = O)),O,C,2,0),COLORRED;

STICKLINE(((C 工作线) AND (C = O)),H,L,0,1),COLORGREEN;

STICKLINE(((C 工作线) AND (C = O)),O,C,2,1),COLORGREEN;

STICKLINE(((C 工作线) AND (C = O)),H,L,0,0),COLORGREEN;

STICKLINE(((C 工作线) AND (C = O)),O,C,2,0),COLORGREEN;