6353 2007-10-26 22:15
转理想论坛 尹大哥帖【◆四度空间参考◆】
{N: 5,3,144 N1: 0,0,55 N2: 1,0, 20}
DRAWGBK(DATE>900101,COLORRGB(0,150,130),COLORRGB(0,0,0),1);
a:=c;al:=l;ah:=h;a1:=c;a2:=c;a3:=c;a4:=c;a5:=c;a6:=c;a7:=c;a8:=c;a9:=c;a10:=c;a11:=c;a12:=c;
a13:=c;a14:=c;a15:=c;a16:=c;a17:=c;a18:=c;a19:=c;a20:=c;av:=v;
for i=1 to datacount do begin
a1:=0;a2:=0;a3:=0;a4:=0;a5:=0;a6:=0;a7:=0;a8:=0;a9:=0;a10:=0;
a11:=0;a12:=0;a13:=0;a14:=0;a15:=0;a16:=0;a17:=0;a18:=0;a19:=0;a20:=0;
end
<%
bv=ffl.vardata("av")
bl=ffl.vardata("al")
bh=ffl.vardata("ah")
z=ffl.vardata("n")
z1=ffl.vardata("n1")
b=ffl.vardata("a")
b1=ffl.vardata("a1")
b2=ffl.vardata("a2")
b3=ffl.vardata("a3")
b4=ffl.vardata("a4")
b5=ffl.vardata("a5")
b6=ffl.vardata("a6")
b7=ffl.vardata("a7")
b8=ffl.vardata("a8")
b9=ffl.vardata("a9")
b10=ffl.vardata("a10")
b11=ffl.vardata("a11")
b12=ffl.vardata("a12")
b13=ffl.vardata("a13")
b14=ffl.vardata("a14")
b15=ffl.vardata("a15")
b16=ffl.vardata("a16")
b17=ffl.vardata("a17")
b18=ffl.vardata("a18")
b19=ffl.vardata("a19")
b20=ffl.vardata("a20")
u=ubound(b)
dim d(2000,20),d1(15,1)
for i=0 to 2000
for j=0 to 5
d(i,j)=0
next
next
y=0
for i=1 to 2000
if u-(i-1)*(z+1)-z1<0 then y=i-1: exit for end if
d(i,0)=u-(i-1)*(z+1)-z1
b16(d(i,0))=1
next
for i=1 to y
ch=0
cl=10000
for j=d(i,0) to d(i,0)+z
if j>u then exit for end if
if ch<bh(j) then ch=bh(j) end if
if cl>bl(j) then cl=bl(j) end if
next
d1(0,0)=(ch-cl)/15
d(i,18)=cl
d(i,19)=ch
d(i,20)=(ch-cl)/15
b17(d(i,0))=cl
b18(d(i,0))=ch
for j=1 to 15
d1(j,0)=cl+(j-0.5)*d1(0,0)
d1(j,1)=0
next
for j=d(i,0) to d(i,0)+z
if j>u then exit for end if
for k=1 to 15
if bh(j)>d1(k,0)-d1(0,0)/2 and bh(j)<=d1(k,0)+d1(0,0)/2 then d1(k,1)=bv(j)/6: end if
if bl(j)>d1(k,0)-d1(0,0)/2 and bl(j)<=d1(k,0)+d1(0,0)/2 then d1(k,1)=bv(j)/6: end if
if (bl(j)+bh(j))/2>d1(k,0)-d1(0,0)/2 and (bl(j)+bh(j))<=d1(k,0)+d1(0,0)/2 then d1(k,1)=bv(j)*2/3: end if
next
next
v0=0.1
for j=1 to 15
if v0< d1(j,1) then v0=d1(j,1) end if
next
for j=1 to 15
if i>=2 then d1(j,1)=round(d1(j,1)/v0*z/1.1) end if
if i=1 then d1(j,1)=round(d1(j,1)/v0*(u-d(i,0))) end if
next
t=d(i,0)
for j=t to t+d1(1,1)
b1(j)=d1(1,0)
next
for j=t to t+d1(2,1)
b2(j)=d1(2,0)
next
for j=t to t+d1(3,1)
b3(j)=d1(3,0)
next
for j=t to t+d1(4,1)
b4(j)=d1(4,0)
next
for j=t to t+d1(5,1)
b5(j)=d1(5,0)
next
for j=t to t+d1(6,1)
b6(j)=d1(6,0)
next
for j=t to t+d1(7,1)
b7(j)=d1(7,0)
next
for j=t to t+d1(8,1)
b8(j)=d1(8,0)
next
for j=t to t+d1(9,1)
b9(j)=d1(9,0)
next
for j=t to t+d1(10,1)
b10(j)=d1(10,0)
next
for j=t to t+d1(11,1)
b11(j)=d1(11,0)
next
for j=t to t+d1(12,1)
b12(j)=d1(12,0)
next
for j=t to t+d1(13,1)
b13(j)=d1(13,0)
next
for j=t to t+d1(14,1)
b14(j)=d1(14,0)
next
for j=t to t+d1(15,1)
b15(j)=d1(15,0)
next
next
on error resume next
ffl.vardata("a1")=b1
ffl.vardata("a2")=b2
ffl.vardata("a3")=b3
ffl.vardata("a4")=b4
ffl.vardata("a5")=b5
ffl.vardata("a6")=b6
ffl.vardata("a7")=b7
ffl.vardata("a8")=b8
ffl.vardata("a9")=b9
ffl.vardata("a10")=b10
ffl.vardata("a11")=b11
ffl.vardata("a12")=b12
ffl.vardata("a13")=b13
ffl.vardata("a14")=b14
ffl.vardata("a15")=b15
ffl.vardata("a16")=b16
ffl.vardata("a17")=b17
ffl.vardata("a18")=b18
ffl.vardata("a19")=b19
ffl.vardata("a20")=b20
%>
m:=n2/3000;
STICKLINE(a1>0,a1*(1-m),a1*(1+m),8,1),COLORGRAY;
STICKLINE(a2>0,a2*(1-m),a2*(1+m),8,1),COLORGRAY;
STICKLINE(a3>0,a3*(1-m),a3*(1+m),8,1),COLORGRAY;
STICKLINE(a4>0,a4*(1-m),a4*(1+m),8,1),COLORGRAY;
STICKLINE(a5>0,a5*(1-m),a5*(1+m),8,1),COLORGRAY;
STICKLINE(a6>0,a6*(1-m),a6*(1+m),8,1),COLORGRAY;
STICKLINE(a7>0,a7*(1-m),a7*(1+m),8,1),COLORGRAY;
STICKLINE(a8>0,a8*(1-m),a8*(1+m),8,1),COLORGRAY;
STICKLINE(a9>0,a9*(1-m),a9*(1+m),8,1),COLORGRAY;
STICKLINE(a10>0,a10*(1-m),a10*(1+m),8,1),COLORGRAY;
STICKLINE(a11>0,a11*(1-m),a11*(1+m),8,1),COLORGRAY;
STICKLINE(a12>0,a12*(1-m),a12*(1+m),8,1),COLORGRAY;
STICKLINE(a13>0,a13*(1-m),a13*(1+m),8,1),COLORGRAY;
STICKLINE(a14>0,a14*(1-m),a14*(1+m),8,1),COLORGRAY;
STICKLINE(a15>0,a15*(1-m),a15*(1+m),8,1),COLORGRAY;
STICKLINE(a16>0,a17,a18,1,1),COLORblue;
DRAWICON(a16=1,c,13);
{N: 5,3,144 N1: 0,0,55 N2: 1,0, 20}
a:=收盘价;al:=最低价;ah:=最高价;a1:=收盘价;a2:=收盘价;a3:=收盘价;a4:=收盘价;a5:=收盘价;a6:=收盘价;a7:=收盘价;a8:=收盘价;a9:=收盘价;a10:=收盘价;a11:=收盘价;a12:=收盘价;
a13:=收盘价;a14:=收盘价;a15:=收盘价;a16:=收盘价;a17:=收盘价;a18:=收盘价;a19:=收盘价;a20:=收盘价;av:=成交量;
<%
bv=ffl.vardata("av")
bl=ffl.vardata("al")
bh=ffl.vardata("ah")
z=ffl.vardata("n")
z1=ffl.vardata("n1")
b=ffl.vardata("a")
b1=ffl.vardata("a1")
b2=ffl.vardata("a2")
b3=ffl.vardata("a3")
b4=ffl.vardata("a4")
b5=ffl.vardata("a5")
b6=ffl.vardata("a6")
b7=ffl.vardata("a7")
b8=ffl.vardata("a8")
b9=ffl.vardata("a9")
b10=ffl.vardata("a10")
b11=ffl.vardata("a11")
b12=ffl.vardata("a12")
b13=ffl.vardata("a13")
b14=ffl.vardata("a14")
b15=ffl.vardata("a15")
b16=ffl.vardata("a16")
b17=ffl.vardata("a17")
b18=ffl.vardata("a18")
b19=ffl.vardata("a19")
b20=ffl.vardata("a20")
u=ubound(b)
dim d(2000,20),d1(15,1)
for i=0 to 2000
for j=0 to 5
d(i,j)=0
next
next
y=0
for i=1 to 2000
if u-(i-1)*(z+1)-z1<0 then y=i-1: exit for end if
d(i,0)=u-(i-1)*(z+1)-z1
b16(d(i,0))=1
next
for i=1 to y
ch=0
cl=10000
for j=d(i,0) to d(i,0)+z
if j>u then exit for end if
if ch<bh(j) then ch=bh(j) end if
if cl>bl(j) then cl=bl(j) end if
next
d1(0,0)=(ch-cl)/15
d(i,18)=cl
d(i,19)=ch
d(i,20)=(ch-cl)/15
b17(d(i,0))=cl
b18(d(i,0))=ch
for j=1 to 15
d1(j,0)=cl+(j-0.5)*d1(0,0)
d1(j,1)=0
next
for j=d(i,0) to d(i,0)+z
if j>u then exit for end if
for k=1 to 15
if bh(j)>d1(k,0)-d1(0,0)/2 and bh(j)<=d1(k,0)+d1(0,0)/2 then d1(k,1)=bv(j)/6: end if
if bl(j)>d1(k,0)-d1(0,0)/2 and bl(j)<=d1(k,0)+d1(0,0)/2 then d1(k,1)=bv(j)/6: end if
if (bl(j)+bh(j))/2>d1(k,0)-d1(0,0)/2 and (bl(j)+bh(j))<=d1(k,0)+d1(0,0)/2 then d1(k,1)=bv(j)*2/3: end if
next
next
v0=0.1
for j=1 to 15
if v0< d1(j,1) then v0=d1(j,1) end if
next
for j=1 to 15
if i>=2 then d1(j,1)=round(d1(j,1)/v0*z/1.1) end if
if i=1 then d1(j,1)=round(d1(j,1)/v0*(u-d(i,0))) end if
next
t=d(i,0)
for j=t to t+d1(1,1)
b1(j)=d1(1,0)
next
for j=t to t+d1(2,1)
b2(j)=d1(2,0)
next
for j=t to t+d1(3,1)
b3(j)=d1(3,0)
next
for j=t to t+d1(4,1)
b4(j)=d1(4,0)
next
for j=t to t+d1(5,1)
b5(j)=d1(5,0)
next
for j=t to t+d1(6,1)
b6(j)=d1(6,0)
next
for j=t to t+d1(7,1)
b7(j)=d1(7,0)
next
for j=t to t+d1(8,1)
b8(j)=d1(8,0)
next
for j=t to t+d1(9,1)
b9(j)=d1(9,0)
next
for j=t to t+d1(10,1)
b10(j)=d1(10,0)
next
for j=t to t+d1(11,1)
b11(j)=d1(11,0)
next
for j=t to t+d1(12,1)
b12(j)=d1(12,0)
next
for j=t to t+d1(13,1)
b13(j)=d1(13,0)
next
for j=t to t+d1(14,1)
b14(j)=d1(14,0)
next
for j=t to t+d1(15,1)
b15(j)=d1(15,0)
next
next
on error resume next
ffl.vardata("a1")=b1
ffl.vardata("a2")=b2
ffl.vardata("a3")=b3
ffl.vardata("a4")=b4
ffl.vardata("a5")=b5
ffl.vardata("a6")=b6
ffl.vardata("a7")=b7
ffl.vardata("a8")=b8
ffl.vardata("a9")=b9
ffl.vardata("a10")=b10
ffl.vardata("a11")=b11
ffl.vardata("a12")=b12
ffl.vardata("a13")=b13
ffl.vardata("a14")=b14
ffl.vardata("a15")=b15
ffl.vardata("a16")=b16
ffl.vardata("a17")=b17
ffl.vardata("a18")=b18
ffl.vardata("a19")=b19
ffl.vardata("a20")=b20
%>
m:=n2/3000;
画柱线(a1>0,a1*(1-m),a1*(1+m),8,1),COLORyellow;
画柱线(a2>0,a2*(1-m),a2*(1+m),8,1),COLORGRAY;
画柱线(a3>0,a3*(1-m),a3*(1+m),8,1),COLORGRAY;
画柱线(a4>0,a4*(1-m),a4*(1+m),8,1),COLORGRAY;
画柱线(a5>0,a5*(1-m),a5*(1+m),8,1),COLORGRAY;
画柱线(a6>0,a6*(1-m),a6*(1+m),8,1),COLORGRAY;
画柱线(a7>0,a7*(1-m),a7*(1+m),8,1),COLORGRAY;
画柱线(a8>0,a8*(1-m),a8*(1+m),8,1),COLORyellow;
画柱线(a9>0,a9*(1-m),a9*(1+m),8,1),COLORGRAY;
画柱线(a10>0,a10*(1-m),a10*(1+m),8,1),COLORGRAY;
画柱线(a11>0,a11*(1-m),a11*(1+m),8,1),COLORGRAY;
画柱线(a12>0,a12*(1-m),a12*(1+m),8,1),COLORGRAY;
画柱线(a13>0,a13*(1-m),a13*(1+m),8,1),COLORGRAY;
画柱线(a14>0,a14*(1-m),a14*(1+m),8,1),COLORGRAY;
画柱线(a15>0,a15*(1-m),a15*(1+m),8,1),COLORyellow;
画柱线(a16>0,a17,a18,1,1),COLORblue;
画图标(a16=1,收盘价,13);