运用涨跌家数编的，用了几年对趋势分析还行，换点分买书，故发源码。

股海大盘：
y:=(h+l)/2;
平衡线:Sma(y,13,1) ;
aa:=sma(c,7,2);
PDAA:=IF(AA<=C,AA,C);
PDAA2:=IF(AA>C,AA,C);
DRAWTEXT(aa>ref(aa,1) and ref(aa,1)>ref(aa,2) AND BARSTATUS=2,o*0.99 ,'  短线：向上           '),COLORMAGENTA;
DRAWTEXT(aa<ref(aa,1) and ref(aa,1)>ref(aa,2) AND BARSTATUS=2,o*0.99,' ★短线：卖出'+PDAA2),colorwhite;
A1:=MA(C,13);
ZX:=REF(A1,13/2+1);
DRAWTEXT(C>ZX AND REF(C,1)>REF(ZX,1) AND BARSTATUS=2,c*0.96,'  中线：向上 '),COLORMAGENTA;
DRAWTEXT(C<ZX AND REF(C,1)>REF(ZX,1) AND BARSTATUS=2,o*0.96,'  中线：卖出'+ZX),COLORGREEN;
{短线逃顶提示}
TD1:=(HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100-70;
TD2:=SMA(TD1,9,1)+100;
TD3:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
TD4:=SMA(TD3,3,1);
TD5:=SMA(TD4,3,1)+100;
TD6:=TD5-TD2;
S:=IF(TD6>100,TD6-100,0);
DRAWTEXT(REF(S,2)<REF(S,1) AND REF(S,1)>S AND BARSTATUS=2,h*1.03,'短线逃顶提示' ),COLOR33CC66;
DRAWRECTABS(0,0,30,35,rgb(250,60,80)),color000099;
DRAWRECTABS(0,30,30,45,rgb(250,250,80)),color009999;
DRAWTEXTABS(2,5,'股海'),colorFFFFFF,LINETHICK1;
DRAWTEXTABS(2,18,'养心'),colorFFFFFF,LINETHICK1;
DRAWTEXTABS(4,30,'图'),color0000FF,LINETHICK1;
GJ1:MA(ADVANCE/(ADVANCE+DECLINE)*h/30+l*0.98,7);
GJ2:MA(DECLINE/(ADVANCE+DECLINE)*h/30+l*0.98,7);
FILLRGN(GJ1,GJ2,GJ1>GJ2   and gj1>ref(gj1,1) ,rgb(255,0,0),
GJ1<GJ2  ,rgb(0,0,255),GJ1>GJ2 and gj1<ref(gj1,1),rgb(0,255,55));
DRAWTEXT(gj1<ref(gj1,1) and o>ref(c,1) and c<ref(c,1),h*1.01,'小心'),COLORYELLOW;
DRAWTEXT(BARSTATUS=2 and gj2<gj1 AND (GJ1-GJ2)<REF((GJ1-GJ2),1),h*1.01,'    ---小心后市'),COLORGREEN;
PARTLINE(平衡线,gj2>平衡线 AND 平衡线>MA(平衡线,21),rgb(255,0,0),gj2<平衡线 AND 平衡线<MA(平衡线,21),rgb(0,0,255),
not(gj2<平衡线 AND 平衡线<MA(平衡线,21)),rgb(255,255,0) ),LINETHICK2;