万水千山（副图 源码）

DRAWGBK(C, COLORRGB(50,90,180), COLORRGB(0,50,30),1);
KS:=(C-MA(C,13))/MA(C,13)*(-100);
QB:=EMA(KS/10+EMA(C,10),3);
QA:=EMA(C,10),color336600;
FILLRGN(QB<QA,QA,QB),color669900;
FILLRGN(QB>QA,QA,QB),color664400;
DRAWTEXT((SYSPARAM(2) = BARPOS),CLOSE,(((((((((((((((
'总股本:'+ NUMTOSTR(FINANCE(1),0)) + '万股')
+ ' 流通:') + NUMTOSTR(FINANCE(7),0)) + '万股')
+ ' 净资产:') + NUMTOSTR(FINANCE(34),2)) + '元')
+ ' 收益:') + NUMTOSTR(FINANCE(33),2))+ '元')
+ ' 公积金:') + NUMTOSTR(FINANCE(18),2))+ '元')
+ ' 市盈率:') + NUMTOSTR(DYNAINFO(39),2)) ,ALIGN4,colorCCFFCC;
aa:=IF(CLOSE>=REF(CLOSE,3),1,0);
bb:=IF(CLOSE>=REF(CLOSE,5),1,0);
cc:=IF(CLOSE>=REF(CLOSE,7),1,0);
dd:=IF(CLOSE>=REF(CLOSE,8),1,0);
ee:=IF(CLOSE>=REF(CLOSE,13),1,0);
fff:=IF(CLOSE>=REF(CLOSE,21),1,0);
gz2:=aa+bb+cc+dd+ee+fff;
kk:=0;
for i=1 TO 4  DO
kk:=kk+REF(gz2,i);
kkk:=kk/4;
DRAWTEXT(kkk=0 and gz2>0 and CLOSE>REF(CLOSE,1),LOW*0.92,'☆--买'),COLORff00ff;
DRAWTEXT(kkk=6 and gz2<6 ,HIGH*1.08,'卖--☆'),COLORRED,align2;
X1:=HHV(H,3);
X2:=LLV(L,3);
Xc:=c;
Xh:=h;
Xl:=l;
for i=1 to datacount do
IF Xh[i]>x1[i-1] and Xc[i]>Xc[i-1] Then ly[i]:=x2[i];
ELSE IF Xl[i]<x2[i-1] and Xc[i]<Xc[i-1] Then ly[i]:=x1[i];
ELSE  ly[i]:=ly[i-1];
PARTLINE(c>=ly,ly)color0066ff,LINETHICK2;
B1:=REF(CLOSE,1);
B2:=REF(CLOSE,2);
B3:=REF(CLOSE,3);
B4:=REF(CLOSE,4);
CMAX:=MAX(MAX(MAX(CLOSE,B1),B2),B3);
CMIN:=MIN(MIN(MIN(CLOSE,B1),B2),B3);
买入:STICKLINE(B1=CMIN AND CLOSE>=B2 OR (B2=CMIN AND B1<=B3 OR
B3=CMIN AND B1<=B2) AND B2<B4 AND CLOSE>=B1,B1,B2,8,0),COLORffffff;
持股:STICKLINE(CLOSE=CMAX AND (B1>=B2 OR B1>=B3) OR B1=CMAX AND (B2=CMIN OR B3=CMIN) AND CLOSE>=B2 OR
B2=CMAX AND B3=CMIN AND CLOSE>=B1 OR B3=CMAX AND CLOSE>=B1 AND CLOSE>=B2,B1,CLOSE,8,0),COLOR0000ff;
变盘:STICKLINE(CLOSE=CMAX AND B1=CMIN,B2,CLOSE,8,0),COLOR0099ef;
抛售:STICKLINE(B1=CMAX AND CLOSE<B2 OR (B2=CMAX AND B1>B3 OR
B3=CMAX AND B1>B2) AND B2>=B4 AND CLOSE<B1,B1,B2,8,0),COLOR00ffff;
下跌:STICKLINE(CLOSE=CMIN AND (B1<B2 OR B1<B3) OR B1=CMIN AND (B2=CMAX OR B3=CMAX) AND CLOSE<B2 OR
B2=CMIN AND B3=CMAX AND CLOSE<B1 OR B3=CMIN AND CLOSE<B1 AND CLOSE<B2,B1,CLOSE,8,1),COLOR00ff00;
STICKLINE(B1=CMAX AND CLOSE=CMIN,B2,CLOSE,8,0),COLOR009900;
成交:v,LINETHICK0;
换手:100*V/CAPITAL,PRECISION2,LINETHICK0;