极品等价K线主副图均可 EA

极品等价K线主副图均可

rn

源码

rn

INPUT:N(5,1,100);
rnfc:=c;fo:=o;cc:0*c,PRECISION4,LINETHICK0;oo:0*c,PRECISION4,LINETHICK0;t1:=0*c;t2:=0*c;
rnfor i=1 to datacount do begin
rn  if i=1 and fc[i]>fo[i] then
rn  cc[i]:=fc[i];
rn  oo[i]:=fc[i];
rn  if i=1 and fc[i]<fo[i] then
rn  cc[i]:=fc[i];
rn  oo[i]:=fc[i];
rn  if i>1 then
rn  cc[i]:=cc[i-1];
rn  oo[i]:=oo[i-1];
rn  if i>1 and fc[i]>cc[i]*(1+n/1000) then begin
rn  cc[i]:=cc[i-1]*(1+n/1000);
rn  oo[i]:=cc[i-1];
rnend;
rn  if i>1 and fc[i]<oo[i]/(1+n/1000) then begin
rn  oo[i]:=oo[i-1]/(1+n/1000);
rn  cc[i]:=oo[i-1];
rnend;
rn  if oo[i]=oo[i-1] then
rn    t1[i]:=t1[i-1]+1;
rn  if cc[i]=cc[i-1] then
rn    t2[i]:=t2[i-1]+1;
rnend;
rno1:=ref(oo,t1+1);
rnc1:=ref(cc,t2+1);
rn格子点数:abs(cc-oo),PRECISION4,linethick0;
rnSTICKLINE(c1=oo,ref(cc,1),ref(oo,1),1,1)COLORRED;
rnSTICKLINE(c1=oo,cc,oo,8,1)COLORRED;
rnSTICKLINE(o1=cc,ref(cc,1),ref(oo,1),1,1)COLORCYAN;
rnSTICKLINE(o1=cc,cc,oo,8,1)COLORCYAN;

rn