DRAWLINE(l=sysparam(5),l,barpos=SYSPARAM(3)-1,l,1),Color006A6A,linethick2,ColorFF15A6;
DRAWLINE(h=sysparam(4),h,barpos=SYSPARAM(3)-1,h,1),Color65636A,linethick2,ColorFF15A6;
x:ma(c,5);
n1:=sysparam(3);
n:=n1-sysparam(2)+1;
hh:=hhv(x,n);
ll:=llv(x,n);
tsh:=hhvbars(x,n);
tsl:=llvbars(x,n);
最高:hh[n1],POINTDOT;
最低:ll[n1],POINTDOT;
drawicon(barpos=n1-tsh[n1],l,5);
drawicon(barpos=n1-tsl[n1],l,4);
dx:=ma(indexc,5);//大盘的--代码再重复一遍
dn1:=sysparam(3);
dn:=dn1-sysparam(2)+1;
dhh:=hhv(dx,dn);
dll:=llv(dx,dn);
dtsh:=hhvbars(dx,dn);
dtsl:=llvbars(dx,dn);
d最高:=dhh[dn1];
d最低:=dll[dn1];
drawicon(barpos=dn1-dtsh[dn1],l,11);
drawicon(barpos=dn1-dtsl[dn1],l,10);
dzf: d最高/d最低*sgn(dtsl[dn1]-dtsh[dn1]),linethick0,colorred;//大盘涨幅
gzf: (最高/最低)*sgn(tsl[n1]-tsh[n1]),linethick0,colorred;//个股涨幅
indexc/d最低,linethick0,colorgreen;
c/最低,linethick0,colorgreen;
a:=(hhv(h,3)+llv(l,2))/2;
b:=ema((ema(a,3)+a)/2,2);
z:=if(a>b,a,b);
z0:=ema(z,2);
z1:if(z>z0,z,z0),linethick2;
f:=abs(z1-ref(z1,1));
stickline(c=o and c>ref(c,1),c,o,8,0),Color0000FF;
stickline(c=o and c<ref(c,1),c,o,8,0),ColorA6FF00;
stickline(c=o and c>ref(c,1),h,l,0,0),Color0000FF;
stickline(c=o and c<=ref(c,1),h,l,0,0),ColorA6FF00;
stickline(c=o and c<=ref(c,1),c,o,8,0),ColorA6FF00;
stickline(c>o,h,l,0,0),Color0000FF;
stickline(c<o,h,l,0,0),ColorA6FF00;
stickline(c>o,c,o,8,0),Color0000c8;
stickline(c>o,c,o,6,0),Color0000d4;
stickline(c>o,c,o,4,0),Color0000ef;
stickline(c>o,c,o,2,0),Color0000fd;
stickline(c>o,c,o,1,0),Color0000FF;
stickline(c<o,c,o,8,0),ColorA6cc00;
stickline(c<o,c,o,6,0),ColorabFf0c;
stickline(c<o,c,o,4,0),Colorbbef15;
stickline(c<o,c,o,2,0),Colorcff32e;
stickline(c<o,c,o,1,0),ColorA6FF00;
{股票公式www.88gs.com}
a1:=SYSPARAM(4)-sysparam(5);//画面高低差幅
ab:=sysparam(4)+a1/3;
P1:=0;
P2:=VOL;
N1:=SYSPARAM(2);
N2:=SYSPARAM(3);
FOR I=N1 TO N2 DO
BEGIN
IF P1<P2[I] THEN
P1:= P2[I];
END;
b:=p1;//最大量
d:=b/a1*2;//倍数系数
e:=sysparam(5)-a1/2;//最低位置
vx:=v/d+e;
stickline((c>o or c>ref(c,1)),e,vx,6,0),Color0090FF;
stickline(c<o or c<=ref(c,1),e,vx,6,0),COLORCYAN;
STICKLINE(C>=REF(C,1),e,vx,8,0),Color0000B7;
STICKLINE(C>=REF(C,1),e,vx,7,0),Color0000D5;
STICKLINE(C>=REF(C,1),e,vx,6,0),Color0000EC;
STICKLINE(C>=REF(C,1),e,vx,5,0),Color0000FF;
STICKLINE(C>=REF(C,1),e,vx,4,0),Color2F2FFF;
STICKLINE(C>=REF(C,1),e,vx,3,0),Color4444FF;
STICKLINE(C>=REF(C,1),e,vx,2,0),Color5B5BFF;
STICKLINE(C>=REF(C,1),e,vx,1,0),Color7575FF;
STICKLINE(C<REF(C,1),e,vx,8,0),Color262626;
STICKLINE(C<REF(C,1),e,vx,7,0),Color262626;
STICKLINE(C<REF(C,1),e,vx,6,0),Color333333;
STICKLINE(C<REF(C,1),e,vx,5,0),Color3A3A3A;
STICKLINE(C<REF(C,1),e,vx,4,0),Color4C4C4C;
STICKLINE(C<REF(C,1),e,vx,3,0),Color717171;
STICKLINE(C<REF(C,1),e,vx,2,0),Color8F8F8F;
STICKLINE(C<REF(C,1),e,vx,1,0),ColorB0B0B0;
jl:fft(ma(vx,3),20)COLORMAGENTA,coloryellow,linethick2;
cl:=ema(forcast(vx,5),55),linethick2;
partline(cl>ref(cl,1),cl),Color8450EE,linethick2;
partline(cl<ref(cl,1),cl),Color008244,linethick2;
PARTLINE(jl<ref(jl,1),jl),colorblue,linethick2;
DRAWTEXT(SYSPARAM(2)=BARSCOUNT(C),sysparam(4),'[版块]:'+BLKNAME),Color00A600;
wtm:=(cross(ma(c,5),ref(ma(c,5),1)) or ma(c,5)>ref(ma(c,5),1)) and c/ma(c,5)>1.028;
stickline(wtm,ma(c,5)*1.03,ma(c,5)*1.03,10,0);
ema(x+abs(ema(z1-x,2))*2,2),linethick2;
DRAWLINE(v=b,vx,barpos=SYSPARAM(3)-1,vx,1),ColorFF15A6,linethick2;
{开:=IF(CAPITAL<1,INDEXO,OPEN);
收:=IF(CAPITAL<1,INDEXC,CLOSE);
高:=IF(CAPITAL<1,INDEXH,HIGH);
低:=IF(CAPITAL<1,INDEXL,LOW);
JJ:=(收+高+低)/3;
波动线:EMA(JJ,5),COLORYELLOW,LINETHICK1;
SL:=EMA(收,3);
MV:=EMA(((SLOPE(收,22)*20)+收),55);
MM:=MA(MV,2);
SA:=(MM*0.985);
方向线:IF(((SL>MM)),MM,SA),LINETHICK2,COLORFF00FF;
 {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
