竹林走势指标 (源码)

a1:=(close*vol)/(close*100);
JJ:=(a1+ref(a1,1)+ref(a1,2)+ref(a1,3))/4;
A:=EMA(JJ,10);
B:=REF(A,1);
STICKLINE(A>B,A,B,8,0),COLORaa00bb;
STICKLINE(A>B,A,B,6.6,0),COLORbb11bb;
STICKLINE(A>B,A,B,4.4,0),COLORcc22bb;
STICKLINE(A>B,A,B,3.3,0),COLORdd33bb;
STICKLINE(A>B,A,B,2.2,0),COLORee44bb;
STICKLINE(A>B,A,B,1.1,0),COLORff55bb;
STICKLINE(A<B,A,B,8,0),COLORaaaacc ;
STICKLINE(A<B,A,B,6.6,0),COLORbbbbcc ;
STICKLINE(A<B,A,B,4.4,0),COLORcccccc ;
STICKLINE(A<B,A,B,3.3,0),COLORddddcc ;
STICKLINE(A<B,A,B,2.2,0),COLOReeeecc ;
STICKLINE(A<B,A,B,1.1,0),COLORffffcc ;
ema(a,5),colorwhite;
ema(a,10),coloryellow;
ema(a,20),colorff00ff;
ema(a,60),colorgreen;
STICKLINE( ema(a,250)>ref(ema(a,250),1) , ema(a,250) , ref( ema(a,250),1) , 8 ,0 ),colorred;
STICKLINE( ema(a,250)<ref( ema(a,250),1) , ema(a,250) , ref( ema(a,250),1) , 8 ,0 ),colorCYAN;
lhnh:=BARSLAST(DISPSTATUS=1)+1;
nnl:=DISPSTATUS=2;
hhhh:=HHV(a ,lhnh);
llll:=llV(a ,lhnh);
q809:=llll+(hhhh-llll)*0.809;
q618:=llll+(hhhh-llll)*0.618;
q500:=llll+(hhhh-llll)*0.5;
q382:=llll+(hhhh-llll)*0.382;
q191:=llll+(hhhh-llll)*0.191;
DRAWTEXT(nnl,hhhh,' 最高价：'+hhhh),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,q809,' 19.1%：'+q809),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,q618,' 38.2%：'+q618),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,q500,' 50%：'+q500),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,q382,' 61.8%：'+q382),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,q191,' 80.9%：'+q191),ALIGN0,Color00FFFF;
DRAWTEXT(nnl,llll,' 最低价：'+llll),ALIGN0,VALIGN2,Color00FFFF;
DRAWTEXTABS(5,5,'股票软件下载网 www.gpxiazai.com'),linethick1,COLOR00EEff;
DRAWTEXT(nnl,hhhh,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,LINETHICK3;
DRAWTEXT(nnl,q809,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2;
DRAWTEXT(nnl,q618,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2;
DRAWTEXT(nnl,q500,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ColorFFFF00,ALIGN2,LINETHICK3;
DRAWTEXT(nnl,q382,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2;
DRAWTEXT(nnl,q191,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2;
DRAWTEXT(nnl,llll,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,LINETHICK3;
DRAWTEXT(nnl,llll*0.98,'·'),ALIGN0,VALIGN2,Color00FFFF;
DRAWTEXT(nnl,hhhh,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,LINETHICK3;
DRAWTEXT(nnl,q809,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2;
DRAWTEXT(nnl,q618,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2;
DRAWTEXT(nnl,q500,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ColorFFFF00,ALIGN2,LINETHICK3;
DRAWTEXT(nnl,q382,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2;
DRAWTEXT(nnl,q191,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2;
DRAWTEXT(nnl,llll,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,LINETHICK3;
DRAWTEXT(nnl,llll*0.98,'·'),ALIGN0,VALIGN2,Color00FFFF;