大底中底绝底（副图源码）

分析家公式网,提供指标公式,股票软件用户登录 |

当前位置：分析家公式网 → 股票公式 → 飞狐公式 → 一键转帖：大底中底绝底（副图源码）

软件名称：[B]大底中底绝底（副图源码）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2011-03-01 06:15:35
软件简介:

STICKLINE(C,200,200,3,1),COLORBLUE;
STICKLINE(C,150,150,3,1),COLORGREEN;
STICKLINE(C,100,100,3,1),COLORYELLOW;
TYP:= (HIGH + LOW + CLOSE)/3;
AA:=EMA((TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)),2);
BB:=EMA((TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)),5);
CC:=EMA((TYP-MA(TYP,20))/(0.015*AVEDEV(TYP,20)),13);
STICKLINE(C,0,MA(BB-CC,3),3,1),COLOR866600;
CCI1:AA,COLORGREEN;
CCI2:BB,COLORRED;
CCI3:CC,COLORFF8800;
A:100;
B:-100;
零度轴:0,COLORRED;
N11:=1;
STICKLINE(((CROSS(((V*N11/100-EMA(V/100,5))/EMA(V/100,5)*2+(V*N11/100-EMA(V/100,10))/EMA(V/100,10))*
10,10) OR (((V*N11/100-EMA(V/100,5))/EMA(V/100,5)*2+(V*N11/100-EMA(V/100,10))/EMA(V/100,10))*10-REF
(((V*N11/100-EMA(V/100,5))/EMA(V/100,5)*2+(V*N11/100-EMA(V/100,10))/EMA(V/100,10))*10,1))>=10) AND
C>0 AND C>REF(C,1))*10,0,((V*N11/100-EMA(V/100,5))/EMA(V/100,5)*2+(V*N11/100-EMA(V/100,10))/EMA(V/100,
10))*30,3.2,1),COLORRED;

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)) * 4 / 5 + vhsl(i)
        vcyc1(i) = (vmid(i) * vhsl(i) + vcyc1(i-1) * vljhs(i -1) * (1 - vhsl(i)) * 4 / 5) / vljhs(i)
   vljhs2(i) = vljhs2(i -1) * (1 - vhsl(i)) * 12 / 13 + vhsl(i)
        vcyc2(i) = (vmid(i) * vhsl(i) + vcyc2(i-1) * vljhs2(i -1) * (1 - vhsl(i)) * 12 / 13) / vljhs2(i)
   vljhs3(i) = vljhs3(i -1) * (1 - vhsl(i)) * 33 / 34 + vhsl(i)
        vcyc3(i) = (vmid(i) * vhsl(i) + vcyc3(i-1) * vljhs3(i -1) * (1 - vhsl(i)) * 33 / 34) / 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

%>
cyc5:=cyc1,coloryellow;
cyc13:=cyc2,COLORMAGENTA;
cyc34:=cyc3,colorgreen;
cyc∞:=cycm,COLORCYAN;

A17:="KDJ.J";
A18:="KDJ.D";
A19:="KDJ.K";
A20:=REF(CLOSE,1);
A21:=((SMA((MAX((CLOSE - A20),0)),6,1)) / (SMA(ABS((CLOSE - A20)),6,1))) * 100;
A22:=DMA(AMOunt/VOL,hsl/100);
A23:=(100 * (CLOSE - A22))/A22;
循环低位:((((A17 < 5) AND (A21 < 20)) AND (A23 < -5)) AND (A18 < 20)) > 0;
STICKLINE(循环低位,0,300,2,0),COLORFF0000;
A24:=(((CLOSE - cyc13) /cyc13) * 100) ;
中底:((A24 < -18) AND (A21 < 20)) AND (A19 < 18),COLORYELLOW;
STICKLINE((中底 > 0),0,200,4,0),COLORYELLOW;
大底:((A24 < -24) AND (A21 < 20)) AND (A18 < 20),COLORRED;
STICKLINE((大底 > 0),0,100,8,0),COLORRED;
绝底:((A24 < -30) AND (A21 < 15)) AND (A18 < 15),COLORMAGENTA;
STICKLINE((绝底 > 0),0,70,12,0),COLORMAGENTA;

[url=http://www.70822.com/soft/sort013/sort02/down-31065.html]大底中底绝底（副图源码）[/url]