见过涨跌天数的主图源码

涨跌天数的主图源码,股奴也要啊,刚好手里有一个
复制内容到剪贴板
代码:
INPUT:N(10,1,100);
X:ZIG(4,n);
S:=FLATZIGA(X,0.01);
TJ:=S=1 OR S=0 AND BARPOS>1;
xj:=if(x<ref(x,1),PEAKBARS(4,10,1),0);
ss:=if(x>ref(x,1),TROUGHBARS(4,10,1),0);
t:=ss+xj;
k:=BARPOS;
Rq:=DATE;
k1:=0*c;
rq1:=0*c;
t1:=0*c;
w:=LBOUND(t);
FOR i=w to datacount do
if tj[i]=1 then begin
k1[i]:=k[i];
rq1[i]:=rq[i];
t1[i]:=t[i];
end;
tt:=t1;
x1:=if(s=1,x*1.03,x/1.03);
x2:=if(s=1,x*1.015,x/1.015);
x3:=if(s=1,x*1.045,x/1.045);
x4:=if(s=1,x*1.05,x/1.05);
zr:=DATEDIFF(rq[1],rq1);
DRAWNUMBER(tj,x4,t,0),align1,COLORYELLOW;{上升下降天数}
DRAWTEXT(s=1,x4,'上升'+' '+'天')align0,COLORYELLOW;
DRAWTEXT(s=0,x4,'下降'+' '+'天')align0,COLORYELLOW;