见过涨跌天数的主图源码_k线图

想找一见过涨跌天数的主图源码

 

解答如下：

涨跌天数的主图源码,股奴也要啊,刚好手里有一个

复制内容到剪贴板

代码:

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;