A1:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,3)+EMA((OPEN+HIGH+LOW+CLOSE)/4,6)+EMA((OPEN+HIGH+LOW+CLOSE)/4,9))/3;
A2:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,5)+EMA((OPEN+HIGH+LOW+CLOSE)/4,10)+EMA((OPEN+HIGH+LOW+CLOSE)/4,20))/3;
A3:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,7)+EMA((OPEN+HIGH+LOW+CLOSE)/4,14)+EMA((OPEN+HIGH+LOW+CLOSE)/4,28))/3;
A4:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,9)+EMA((OPEN+HIGH+LOW+CLOSE)/4,18)+EMA((OPEN+HIGH+LOW+CLOSE)/4,36))/3;
A5:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,11)+EMA((OPEN+HIGH+LOW+CLOSE)/4,22)+EMA((OPEN+HIGH+LOW+CLOSE)/4,44))/3;
A6:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,13)+EMA((OPEN+HIGH+LOW+CLOSE)/4,26)+EMA((OPEN+HIGH+LOW+CLOSE)/4,52))/3;
A7:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,21)+EMA((OPEN+HIGH+LOW+CLOSE)/4,34)+EMA((OPEN+HIGH+LOW+CLOSE)/4,68))/3;
ma1:=FORCAST(A1,6);
ma2:=FORCAST(A2,6);
ma3:=FORCAST(A3,6);
ma4:=FORCAST(A4,6);
ma5:=FORCAST(A5,6);
ma6:=FORCAST(A6,6);
ma7:FORCAST(A7,6),colorf00ff0,linethick2;
partline(ma7,ma7<ref(ma7,1)),colorgreen,linethick2;
DRAWTEXTABS(5,5,'萃富网 www.cuiv.com'),linethick1,COLOR00EEff;
partline(ma2,ma2<ref(ma2,1),rgb(0,255,0),ma2>ref(ma2,1),rgb(255,0,255)),dotline;
partline(ma3,ma3<ref(ma3,1),rgb(0,255,0),ma3>ref(ma3,1),rgb(255,0,255)),dotline;
partline(ma4,ma4<ref(ma4,1),rgb(0,255,0),ma4>ref(ma4,1),rgb(255,0,255)),dotline;
partline(ma5,ma5<ref(ma5,1),rgb(0,255,0),ma5>ref(ma5,1),rgb(255,0,255)),dotline;
partline(ma6,ma6<ref(ma6,1),rgb(0,255,0),ma6>ref(ma6,1),rgb(255,0,255)),dotline;
partline(ma1,ma1<ref(ma1,1),rgb(0,255,0),ma1>ref(ma1,1),rgb(255,0,255)),dotline;
TOWERC:=FORCAST(EMA((3*CLOSE+2*OPEN+HIGH+LOW)/7,3),6);
DIRECTIONMAX:=MAX(REF(TOWERC,1),REF(TOWERC,1));
DIRECTIONMIN:=MIN(REF(TOWERC,1),REF(TOWERC,1));
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,DIRECTIONMAX,8,0),color0000FF;
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,DIRECTIONMIN,8,0),color00FF00;