DRAWGBK(C>0,RGB(0,0,110),RGB(0,25,0),0,' ',0);
Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(ISLASTBAR,0,0.01,0,STRCAT(Z3,GNBLOCK)),COLORYELLOW;
百日高量阴:=vol>=HHV(V,100) AND C
百阴顶:=DRAWLINE(百日高量阴,H,REF(百日高量阴,1),REF(H,1),1),COLORYELLOW,NODRAW;
百阴底:=DRAWLINE(百日高量阴,L,REF(百日高量阴,1),REF(L,1),1),COLORWHITE,NODRAW;
DRAWBAND(百阴顶,RGB(56,94,15),百阴底,RGB(0,0,0));
量顶:=DRAWLINE(CURRBARSCOUNT>10 AND V=HHV(V,100),H,ISLASTBAR, REF(H,BARSLAST(CURRBARSCOUNT>10 AND V=HHV(V,100))),1),COLORLIGRAY;
量底:=DRAWLINE(CURRBARSCOUNT>10 AND V=HHV(V,100),L,ISLASTBAR, REF(L,BARSLAST(CURRBARSCOUNT>10 AND V=HHV(V,100))),1),COLORGRAY;
DRAWBAND(量顶,RGB(57,81,162),量底,RGB(0,0,0));
高阳顶:=IF(CURRBARSCOUNT<=CONST(REF(BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1)),1)+1)+1,CONST(REF(REF(C,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1))),REF(BARSLAST(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1)),1)+1)),DRAWNULL),COLORWHITE,NODRAW;
高阳底:=IF(CURRBARSCOUNT<=CONST(REF(BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1)),1)+1)+1,CONST(REF(REF(L,BARSLAST(FILTER(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1),1))),REF(BARSLAST(TOPRANGE(V)>=20 AND C>=O AND C>=REF(C,1)),1)+1)),DRAWNULL),COLORWHITE,NODRAW;
DRAWBAND(高阳顶,RGB(128,42,42),高阳底,RGB(0,0,0));
高阴顶:=IF(CURRBARSCOUNT<=CONST(REF(BARSLAST(TOPRANGE(V)>=20 AND C=20 AND C=20 AND C
高阴底:=IF(CURRBARSCOUNT<=CONST(REF(BARSLAST(TOPRANGE(V)>=20 AND C=20 AND C=20 AND C
DRAWBAND(高阴顶,RGB(61,145,64),高阴底,RGB(0,0,0));
BL1:=MA(CLOSE,10);
UB1:=BL1+2*STD(CLOSE,10);
LB1:=BL1-2*STD(CLOSE,10);
上穿A:=crOSS(C,UB1);
上穿:=CROSS(LB1,C);
ZDT:=BARSLAST(上穿A);
上:=DRAWLINE(上穿,O,REF(上穿,1),REF(O,1),1),COLOR00FF00;
下:=DRAWLINE(上穿,L,REF(上穿,1),REF(L,1),1),COLOR00FF00;
DRAWBAND(上,RGB(128,128,105),下,RGB(0,0,0));
{筹码峰}
 

源码未粘贴完整...下载附件里源码..