软件名称：[B]成本均线[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：解密版
软件大小：2.00 KB
官方主页：Home Page
更新时间：2009-06-05 05:16:52
软件简介:

MID:=(OPEN+CLOSE)/2;
HSL:=IF(CAPITAL=0,VOL/SUM(VOL,0),VOL/CAPITAL);
IF CAPITAL=0 THEN BEGIN
HSL:=VOL/SUM(VOL,0);
A:=SETLBOUND(4,1);
FOR I=1 TO MIN(-1,DATACOUNT) DO BEGIN
HSL[I]:=0;
END;
END;
LJHS[1]:=HSL[1];
CYC1[1]:=MID[1];
LJHS2[1]:=HSL[1];
CYC2[1]:=MID[1];
LJHS3[1]:=HSL[1];
CYC3[1]:=MID[1];
LJHSM[1]:=HSL[1];
CYC∞[1]:=MID[1];
DD:=MID[1]*(BARPOS<0);
FOR I=LBOUND(HSL)+1 TO DATACOUNT DO BEGIN
LJHS[I]:=(LJHS[I-1])*(1-HSL[I])*(N1-1)/N1+HSL[I];
CYC1[I]:=(MID[I]*HSL[I]+(CYC1[I-1])*(LJHS[I-1])*(1-HSL[I])*(N1-1)/N1)/LJHS[I]+DD[I];
LJHS2[I]:=(LJHS2[I-1])*(1-HSL[I])*(N2-1)/N2+HSL[I];
CYC2[I]:=(MID[I]*HSL[I]+(CYC2[I-1])*(LJHS2[I-1])*(1-HSL[I])*(N2-1)/N2)/LJHS2[I]+DD[I];
LJHS3[I]:=(LJHS3[I-1])*(1-HSL[I])*(N3-1)/N3+HSL[I];
CYC3[I]:=(MID[I]*HSL[I]+(CYC3[I-1])*(LJHS3[I-1])*(1-HSL[I])*(N3-1)/N3)/LJHS3[I]+DD[I];
LJHSM[I]:=(LJHSM[I-1])*(1-HSL[I])+HSL[I];
CYC∞[I]:=(MID[I]*HSL[I]+(CYC∞[I-1])*(LJHSM[I-1])*(1-HSL[I]))/LJHSM[I]+DD[I];
END;
CYC1,colorFFFF;
CYC2,colorFF00FF;
CYC3,colorFF00;
CYC∞:CYC∞,LINETHICK2,colorFF0000;
MA240:EMA(CLOSE,240),LINETHICK2,colorFFFF00;
LTPBD:=SELFDATA('LSTQ');
STICKLINE(LTPBD-REF(LTPBD,1)<>0,OPEN,CLOSE,8,0),colorFF00FF;
STICKLINE(LTPBD-REF(LTPBD,1)<>0,HIGH,LOW,1,0),colorFF00FF;
 

[url=http://www.70822.com/soft/sort013/sort02/down-9743.html]成本均线[/url]