软件名称：[B]飞狐五线谱源码[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：4.00 KB
官方主页：Home Page
更新时间：2011-04-26 05:50:09
软件简介:

五线谱源码
a0:=BARSCOUNT(c);a3:=SYSPARAM(3);a2:=SYSPARAM(2);a4:=SYSPARAM(4);
a5:=SYSPARAM(5);a6:=SYSPARAM(1);n0:=a3-a2;nn:=a0-a2;h1:=(a4-a5)/8;
h2:=h1/4;l1:=llv(l,n0);ll2:=l1[a3];
y0:=a0>=a2;vv:=if(y0=1 and a6>=a0,v,0);
c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);
c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);
c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);
c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);
c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);
c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);
c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);
c8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);
c9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);
c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
x1:=v1/av0>=nn/n0 and nn>=0;x2:=v2/av0>=nn/n0 and nn>=0;
x3:=v3/av0>=nn/n0 and nn>=0;x4:=v4/av0>=nn/n0 and nn>=0;
x5:=v5/av0>=nn/n0 and nn>=0;x6:=v6/av0>=nn/n0 and nn>=0;
x7:=v7/av0>=nn/n0 and nn>=0;x8:=v8/av0>=nn/n0 and nn>=0;
MA1:=if(DATATYPE=7,ma("ma.m1#WEEK",3),if(DATATYPE=8,wma("ma.m1#MONTH",2),wma("ma.m1#DAY",10)));
jx1:=IF(CAPITAL=0,if(DATATYPE=7,1.11,if(DATATYPE=8,1.30,1.06)),if(DATATYPE=7,1.20,if(DATATYPE=8,1.38,1.14)));
jx2:=IF(CAPITAL=0,if(DATATYPE=7,1.09,if(DATATYPE=8,1.25,1.05)),if(DATATYPE=7,1.15,if(DATATYPE=8,1.33,1.11)));
jx3:=IF(CAPITAL=0,if(DATATYPE=7,0.985,if(DATATYPE=8,1.01,0.985)),if(DATATYPE=7,0.99,1.01));
jx4:=IF(CAPITAL=0,if(DATATYPE=7,0.88,if(DATATYPE=8,0.75,0.93)),if(DATATYPE=7,0.85,if(DATATYPE=8,0.75,0.90)));
jx5:=IF(CAPITAL=0,if(DATATYPE=7,0.85,if(DATATYPE=8,0.70,0.92)),if(DATATYPE=7,0.80,if(DATATYPE=8,0.70,0.86)));
FILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-1*h1+h1*0.5),Color002288;
FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-2*h1+h1*0.5),Color806000;
FILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-3*h1+h1*0.5),Color808300;
FILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-4*h1+h1*0.5),Color883D88;
FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-5*h1+h1*0.5),Color006868;
FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-6*h1+h1*0.5),color777700;
FILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-7*h1+h1*0.5),color804000;
FILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-8*h1+h1*0.5),color003377;
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and v8>0,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;
STICKLINE(C>REF(C,1),h,l,0,0),COLORRED;STICKLINE(C>REF(C,1),c,o,6,0),COLORRED;
STICKLINE(C<REF(C,1),h,l,0,0),COLORFFEE00;STICKLINE(C<REF(C,1),c,o,6,0),COLORFFEE00;
疯狂:ma1*jx1,COLOR0000DD,LINETHICK2;超买:ma1*jx2,COLOR00DDDD,LINETHICK2;轴心:ma1*jx3,COLOR0000FF;
PARTLINE(轴心<ref(轴心,1),轴心),COLOR00FF00;超卖:ma1*jx4,COLOR00DDDD,LINETHICK2;恐慌:ma1*jx5,COLOREEDD00,LINETHICK2;
fd:=(h/疯狂-1)*100;bl:=(h/c-1)*100;fk:=if(CAPITAL=0,count(h>疯狂,3)=3,count(h>疯狂,3)>=2 and fd>8 and bl<-4);
DRAWICON(cross(h,超买) or cross(c,超买),h*1.02,5);DRAWICON(l<超卖 and c>=超卖,l*0.99,4);DRAWICON(fk,h*1.01,11);
 

[url=http://www.70822.com/soft/sort013/sort02/down-33101.html]飞狐五线谱源码[/url]