软件名称：[B]天谭K线主图【源码】[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2011-05-03 03:47:18
软件简介:

mid  := (o+c)/2;
hsl:=if(capital=0,v/sum(v,100),v/capital);
ljhs := hsl;
cyc1 := mid;
ljhs2:= hsl;
cyc2 := mid;
ljhs3:= hsl;
cyc3 := mid;
ljhsm:= hsl;
cycm := mid;

<%
vmid = ffl.vardata("mid")
vhsl = ffl.vardata("hsl")
vljhs = ffl.vardata("ljhs")
vljhs2 = ffl.vardata("ljhs2")
vljhs3 = ffl.vardata("ljhs3")
vljhsm = ffl.vardata("ljhsm")
vcyc1 = ffl.vardata("cyc1")
vcyc2 = ffl.vardata("cyc2")
vcyc3 = ffl.vardata("cyc3")
vcycm = ffl.vardata("cycm")

last=ubound(vmid)
for i=1 to last
   vljhs(i) = vljhs(i -1) * (1 - vhsl(i)) * 7 / 8 + vhsl(i)
        vcyc1(i) = (vmid(i) * vhsl(i) + vcyc1(i-1) * vljhs(i -1) * (1 - vhsl(i)) * 7 / 8) / vljhs(i)
   vljhs2(i) = vljhs2(i -1) * (1 - vhsl(i)) * 20 / 21 + vhsl(i)
        vcyc2(i) = (vmid(i) * vhsl(i) + vcyc2(i-1) * vljhs2(i -1) * (1 - vhsl(i)) * 20 / 21) / vljhs2(i)
   vljhs3(i) = vljhs3(i -1) * (1 - vhsl(i)) * 59 / 60 + vhsl(i)
        vcyc3(i) = (vmid(i) * vhsl(i) + vcyc3(i-1) * vljhs3(i -1) * (1 - vhsl(i)) * 59 / 60) / vljhs3(i)
   vljhsm(i) = vljhsm(i -1) * (1 - vhsl(i)) + vhsl(i)
        vcycm(i) = (vmid(i) * vhsl(i) + vcycm(i-1) * vljhsm(i -1) * (1 - vhsl(i))) / vljhsm(i)
next

ffl.vardata("ljhs") = vljhs
ffl.vardata("ljhs2") = vljhs2
ffl.vardata("ljhs3") = vljhs3
ffl.vardata("ljhsm") = vljhsm
ffl.vardata("cyc1") = vcyc1
ffl.vardata("cyc2") = vcyc2
ffl.vardata("cyc3") = vcyc3
ffl.vardata("cycm") = vcycm

%>

cyc8:cyc1,COLORFF00FF,LINETHICK3,;
cyc21:=cyc2;
cyc60:=cyc3;
cyc0:cycm,COLORCYAN,LINETHICK3;
VARBQ:=C=LLV(C,4) AND (REF(C,1)<REF(C,2) OR REF(C,1)<REF(C,3)) OR REF(C,1)=LLV(C,4) AND C<REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)<>HHV(C,4) AND C<REF(C,1) OR REF(C,3)=LLV(C,4) AND C<REF(C,1) AND C<REF(C,2);
主力吸筹:=VARBQ AND C>O AND H>=C AND L<=O;
VARDQ:=REF(C,1)=HHV(C,4) AND C<REF(C,2) OR (REF(C,2)=HHV(C,4) AND REF(C,1)>REF(C,3) OR REF(C,3)=HHV(C,4) AND REF(C,1)>REF(C,2)) AND REF(C,2)>=REF(C,4) AND C<REF(C,1);
VAR9Q:=C= HHV(C,4)AND (REF(C,1)>=REF(C,2) OR REF(C,1)>=REF(C,3)) OR REF(C,1)=HHV(C,4) AND CLOSE>=REF(C,2) OR REF(C,2)=HHV(C,4) AND REF(C,3)=LLV(C,4) AND C>=REF(C,1) OR REF(C,3)=HHV(C,4) AND C>=REF(C,1) AND C>=REF(C,2);


TYX3:=MA(REF(HHV((C+L+O+H)/4,40),1),3);
VARAQ:=C=HHV(C,4) AND REF(C,1)=LLV(C,4);
VARCQ:=REF(C,1)=LLV(C,4) AND C>=REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)<=REF(C,3) AND REF(C,2)<REF(C,4) AND C>=REF(C,1);
绿买:varcQ,LINETHICK0;
VARDQ:=REF(C,1)=HHV(C,4) AND C<REF(C,2) OR (REF(C,2)=HHV(C,4) AND REF(C,1)>REF(C,3) OR REF(C,3)=HHV(C,4) AND REF(C,1)>REF(C,2)) AND REF(C,2)>=REF(C,4) AND C<REF(C,1);
蓝抛:vardQ,LINETHICK0;
DRAWTEXT(绿买,LOW,'B'),COLORYELLOW;
DRAWTEXT(蓝抛,HIGH,'S'),COLORYELLOW;
上轨:MA(REF(HHV(C,30),1),2),COLORWHITE;
下轨:MA(REF(LLV(C,30),1),2),COLORGRAY;
A1:=C=HHV(C,13);
A2:=BARSLAST(A1);
A3:=IF(A2>0,REF(C,A2),REF(C,A2));
A4:=CROSS(C,REF(A3,1));
一号旗:=A4 AND COUNT(A4,5)=1;
DRAWTEXT(一号旗=1,L-0.3,'蓝旗'),COLORBLUE;
B1:=C=HHV(C,21);
B2:=BARSLAST(B1);
B3:=IF(B2>0,REF(C,B2),REF(C,B2));
B4:=CROSS(C,REF(B3,1));
二号旗:=B4 AND COUNT(B4,5)=1;
DRAWTEXT(二号旗=1,L-0.4,'黄旗'),COLORYELLOW;
C1:=C=HHV(C,34);
C2:=BARSLAST(C1);
C3:=IF(C2>0,REF(C,C2),REF(C,C2));
C4:=CROSS(C,REF(C3,1));
三号旗:=C4 AND COUNT(C4,5)=1;
DRAWTEXT(三号旗=1,L-0.5,'粉旗'),COLORMAGENTA;
D1:=C=HHV(C,89);
D2:=BARSLAST(D1);
D3:=IF(D2>0,REF(C,D2),REF(C,D2));
D4:=CROSS(C,REF(D3,1));
四号旗:=D4 AND COUNT(D4,5)=1;
DRAWTEXT(四号旗=1,L-0.4,'五面八面彩旗'),COLORRED;
金:DRAWTEXT(CLOSE>上轨,LOW,'金'),COLORYELLOW;

STICKLINE(REF(count(C<TYX3,5)=5,1) AND C>TYX3 AND C>O,C,O,5,0),COLORYELLOW;
TYX2:=MA(REF(HHV((C+L+O+H)/4,10),1),3);
STICKLINE(REF(count(C<TYX2,5)=5,1) AND C>TYX2 AND C>O,C,O,5,0),COLORBLUE;
TYX1:=MA(REF(HHV((C+L+O+H)/4,3),1),3);
STICKLINE(REF(count(C<TYX1,5)=5,1) AND C>TYX1 AND C>O,C,O,5,0), COLORE66878;
TYX4:=MA(REF(HHV((C+L+O+H)/4,1),1),3);
STICKLINE(REF(count(C<TYX4,5)=5,1) AND C>TYX4 AND C>O,C,O,5,0), COLORWHITE;

[url=http://www.70822.com/soft/sort013/sort02/down-33349.html]天谭K线主图【源码】[/url]