连连涨 发表于 2011-4-6 00:41

<P>{量价时空}<BR>INPUT:N(5);<BR>a0:=BARSCOUNT(c);a3:=SYSPARAM(3);a2:=SYSPARAM(2);<BR>a4:=SYSPARAM(4);a5:=SYSPARAM(5);<BR>nn0:=a3-a2;nn:=a0-a2;hh1:=(a4-a5)/10;<BR>y0:=a0&gt;=a2;vv0:=if(y0=1 and SYSPARAM(1)&gt;=a0,v,0);<BR>c1:=if(BETWEEN(c,a4-0*hh1,a4-1*hh1),vv0,0);<BR>c2:=if(BETWEEN(c,a4-1*hh1,a4-2*hh1),vv0,0);<BR>c3:=if(BETWEEN(c,a4-2*hh1,a4-3*hh1),vv0,0);<BR>c4:=if(BETWEEN(c,a4-3*hh1,a4-4*hh1),vv0,0);<BR>c5:=if(BETWEEN(c,a4-4*hh1,a4-5*hh1),vv0,0);<BR>c6:=if(BETWEEN(c,a4-5*hh1,a4-6*hh1),vv0,0);<BR>c7:=if(BETWEEN(c,a4-6*hh1,a4-7*hh1),vv0,0);<BR>c8:=if(BETWEEN(c,a4-7*hh1,a4-8*hh1),vv0,0);<BR>c9:=if(BETWEEN(c,a4-8*hh1,a4-9*hh1),vv0,0);<BR>c10:=if(BETWEEN(c,a4-9*hh1,a4-10*hh1),vv0,0);<BR>v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,nn0),0),2));<BR>v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,nn0),0),2));<BR>v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,nn0),0),2));<BR>v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,nn0),0),2));<BR>v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,nn0),0),2));<BR>v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,nn0),0),2));<BR>v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,nn0),0),2));<BR>v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,nn0),0),2));<BR>v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,nn0),0),2));<BR>v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,nn0),0),2));<BR>av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));<BR>FILLRGN(v1/av0&gt;=nn/nn0 and nn&gt;=0,a4-0*hh1,a4-1*hh1+0.05),Color008080;<BR>FILLRGN(v2/av0&gt;=nn/nn0 and nn&gt;=0,a4-1*hh1,a4-2*hh1+0.05),Color008080;<BR>FILLRGN(v3/av0&gt;=nn/nn0 and nn&gt;=0,a4-2*hh1,a4-3*hh1+0.05),Color008080;<BR>FILLRGN(v4/av0&gt;=nn/nn0 and nn&gt;=0,a4-3*hh1,a4-4*hh1+0.05),Color008080;<BR>FILLRGN(v5/av0&gt;=nn/nn0 and nn&gt;=0,a4-4*hh1,a4-5*hh1+0.05),Color008080;<BR>FILLRGN(v6/av0&gt;=nn/nn0 and nn&gt;=0,a4-5*hh1,a4-6*hh1+0.05),Color008080;<BR>FILLRGN(v7/av0&gt;=nn/nn0 and nn&gt;=0,a4-6*hh1,a4-7*hh1+0.05),Color008080;<BR>FILLRGN(v8/av0&gt;=nn/nn0 and nn&gt;=0,a4-7*hh1,a4-8*hh1+0.05),Color008080;<BR>FILLRGN(v9/av0&gt;=nn/nn0 and nn&gt;=0,a4-8*hh1,a4-9*hh1+0.05),Color008080;<BR>FILLRGN(v10/av0&gt;=nn/nn0 and nn&gt;=0,a4-9*hh1,a4-10*hh1+0.05),Color008080{,colormagenta};<BR>hh:=SYSPARAM(4);ll:=SYSPARAM(5);<BR>x:=ll-(hh-ll+MINDIFF)/n;<BR>y:=HHV(VOL,SYSPARAM(3)-SYSPARAM(2)+1);<BR>yvb:=y/(ll-x+MINDIFF);<BR>z:=VOL/yvb+x;<BR>STICKLINE(CLOSE&gt;REF(CLOSE,1),x,z,7,1),Color0000FF;<BR>STICKLINE(CLOSE&lt;=REF(CLOSE,1),x,z,7,0),ColorEAE000;<BR>五日:MA(z,5);<BR>十日:MA(z,10);<BR>DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,{STKNAME+'\n'+STKLABEL+'\n'+}BLKNAME)align4,COLORGREEN;</P>
<P>STICKLINE(C&gt;=O,C,O,7,0),COLORRED;<BR>STICKLINE(C&gt;=O,C,O,4,0),COLORB0B0FF;<BR>STICKLINE(C&gt;=O,C,O,2,0),COLORYELLOW;<BR>STICKLINE(C&gt;=O,H,L,0,0),COLORYELLOW;<BR>STICKLINE(C&lt;=O,C,O,7,0),COLORFF2020;<BR>STICKLINE(C&lt;=O,C,O,4,0),COLORFF6600;<BR>STICKLINE(C&lt;=O,C,O,2,0),COLORCYAN;<BR>STICKLINE(C&lt;=O,H,L,0,0),COLORCYAN;<BR>博弈线:=WMA(CLOSE,8),linethick3;<BR>byx:=WMA(CLOSE,8),linethick3;<BR>FILLRGN(byx&gt;ref(byx,1),byx,ref(byx,1)),COLORRED;<BR>{FILLRGN(byx }<BR>Var1:=SYSPARAM(3)-SYSPARAM(2)+1;<BR>Var2:=SYSPARAM(3)-BARPOS;<BR>Var3:=HHV(HIGH,Var1);<BR>Var4:=LLV(LOW,VaR1);<BR>Var5:=REFX(Var3,Var2); //主图最高价<BR>Var5:IF(SYSPARAM(3)&lt;&gt;SYSPARAM(1),SYSPARAM(6),Var5),COLORRED,POINTDOT;<BR>Var6:REFX(Var4,Var2),COLORWHITE,POINTDOT;&nbsp; //主图最低价<BR>黄191: (Var5-Var6)*0.191+Var6,COLORYELLOW,POINTDOT;<BR>黄382: (Var5-Var6)*0.382+Var6,COLORYELLOW,POINTDOT;<BR>黄500: (Var5-Var6)*0.500+Var6,COLORGREEN,POINTDOT;<BR>黄618: (Var5-Var6)*0.618+Var6,COLORYELLOW,POINTDOT;<BR>黄809: (Var5-Var6)*0.809+Var6,COLORYELLOW,POINTDOT;<BR>A:=LOW=LLV(LOW,240);<BR>A1:=BARSLAST(A);<BR>VERTLINE(A1=30);<BR>VERTLINE(A1=60);<BR>VERTLINE(A1=90);<BR>VERTLINE(A1=120);<BR>VERTLINE(A1=150);<BR>VERTLINE(A1=180);<BR>VERTLINE(A1=210);<BR>VERTLINE(A1=2400);<BR>DRAWTEXT(A1=30,HIGH,'第一时间');<BR>DRAWTEXT(A1=60,HIGH,'第二时间');<BR>DRAWTEXT(A1=90,HIGH,'第三时间');<BR>DRAWTEXT(A1=120,HIGH,'第四时间');<BR>DRAWTEXT(A1=150,HIGH,'第五时间');<BR>DRAWTEXT(A1=180,HIGH,'第六时间');<BR>DRAWTEXT(A1=210,HIGH,'第七时间');<BR>DRAWTEXT(A1=240,HIGH,'第八时间');<BR>Varr1:=SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1)*100;<BR>DRAWICON(CROSS(82,Varr1),HIGH+0.108,2);VERTLINE(CROSS(82,varr1)),POINTDOT;<BR>DRAWSL(CROSS(82,varr1),HHV(HIGH,1),0,8,1),colormagenta,POINTDOT;<BR>b1:=(SYSPARAM(4)-SYSPARAM(5))/(SYSPARAM(3)-SYSPARAM(2));<BR>DRAWSL(BARPOS=SYSPARAM(1),LOW,378*b1/100,0,0),COLORwhite,POINTDOT;<BR>DRAWSL(BARPOS=SYSPARAM(1),LOW,188*b1/100,0,0),COLORwhite,POINTDOT;<BR>DRAWSL(BARPOS=SYSPARAM(1),LOW,141*b1/100,0,0),COLORwhite,POINTDOT;<BR>DRAWSL(BARPOS=SYSPARAM(1),LOW,95*b1/100,0,0),COLORwhite,POINTDOT;<BR>DRAWSL(BARPOS=SYSPARAM(1),LOW,48*b1/100,0,0),COLORgreen,;<BR>DRAWSL(BARPOS=SYSPARAM(1),LOW,24.5*b1/100,0,0),COLORwhite,POINTDOT;<BR>DRAWSL(BARPOS=SYSPARAM(1),LOW,16.5*b1/100,0,0),COLORwhite,POINTDOT;<BR>DRAWSL(BARPOS=SYSPARAM(1),LOW,13*b1/100,0,0),COLORwhite,POINTDOT;<BR>DRAWSL(BARPOS=SYSPARAM(1),LOW,7*b1/100,0,0),COLORwhite,POINTDOT;</P>
<P>http://www.88gs.com/soft/UploadPic/2010-3/201032512561620369.png<BR></P>
页: [1]
查看完整版本: {量价时空}飞狐主图