|
{价量主图} 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; a:=SYSPARAM(4)-sysparam(5);//画面高低差幅 ab:=sysparam(4)+a/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/a*2;//倍数系数 e:=sysparam(5)-a/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,0.8,0),ColorAAAAFF; STICKLINE(C>=REF(C,1),e,vx,0.2,0),ColorCACAFF;} 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; {STICKLINE(C<REF(C,1),e,vx,0.8,0),ColorC5C5C5; STICKLINE(C<REF(C,1),e,vx,0.2,0),ColorE7E7E7;} 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;股票论坛 www.55188.com |
|
|
