软件名称：[B](波浪弦)多空量環[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：5.00 KB
官方主页：Home Page
更新时间：2010-10-10 08:26:07
软件简介:
DRAWGBK(CLOSE>1,COLORRGB(50,80,40),COLORRGB(20,70,110),1);
PARTLINE(CLOSE>1,0),POINTDOT,colorFFFFFF;
V3:=MA(VOL,2);
VAR1:=EMA(MA(IF(CLOSE>OPEN,(CLOSE-OPEN)*VOL/V3,IF(CLOSE<OPEN,(CLOSE-OPEN)*VOL/V3,0)),3),2);
VAR2:=EMA(MA(IF(CLOSE>REF(CLOSE,1),(CLOSE-REF(CLOSE,1))*VOL/V3,IF(CLOSE<REF(CLOSE,1),(CLOSE-REF(CLOSE,1))*VOL/V3,0)),4),2);
VAR3:=EMA(MA(IF(OPEN>REF(CLOSE,1),(OPEN-REF(CLOSE,1))*VOL/V3,IF(OPEN<REF(CLOSE,1),(OPEN-REF(CLOSE,1))*VOL/V3,0)),5),2);
VAR4:=EMA(MA(IF(CLOSE<OPEN,(OPEN-CLOSE)*VOL/V3,IF(CLOSE>OPEN,(OPEN-CLOSE)*VOL/V3,0)),6),2);
VAR5:=EMA(MA(IF(CLOSE<REF(CLOSE,1),(REF(CLOSE,1)-CLOSE)*VOL/V3,IF(CLOSE>REF(CLOSE,1),(REF(CLOSE,1)-CLOSE)*VOL/V3,0)),7),2);
VAR6:=EMA(MA(IF(OPEN<REF(CLOSE,1),(REF(CLOSE,1)-OPEN)*VOL/V3,IF(OPEN>REF(CLOSE,1),(REF(CLOSE,1)-OPEN)*VOL/V3,0)),8),2);
VAR7:=CLOSE>OPEN;
VAR8:=CLOSE>REF(CLOSE,1);
VAR9:=OPEN>REF(CLOSE,1);
多:=(VAR1+VAR2*2+VAR3)/6/4;
空:=(VAR4+VAR5*2+VAR6)/6/4;
SHT:=多;
LNG:=空;
AX1:=(MA(CLOSE,29)+MA(CLOSE,30))/2*1.105;
XXC:=(MA(CLOSE,29)+MA(CLOSE,30))/2;
BX2:=(MA(CLOSE,29)+MA(CLOSE,30))/2/1.142;
AX13:=MA(AX1,2);
BX23:=MA(BX2,2);
DX1:=HHV(AX13,35);
DX2:=LLV(BX23,35);
C34:=((DX1+DX2)/2+XXC)/2;
PVAR1:=EMA(MA(IF(CLOSE>OPEN,(CLOSE-OPEN)*VOL/V3,IF(CLOSE<OPEN,(CLOSE-OPEN)*VOL/V3,0)),5),2);
PVAR2:=EMA(MA(IF(CLOSE>C34,(CLOSE-C34)*VOL/V3,IF(CLOSE<C34,(CLOSE-C34)*VOL/V3,0)),6),2);
PVAR3:=EMA(MA(IF(OPEN>C34,(OPEN-C34)*VOL/V3,IF(OPEN<C34,(OPEN-C34)*VOL/V3,0)),7),2);
PVAR4:=EMA(MA(IF(CLOSE<OPEN,(OPEN-CLOSE)*VOL/V3,IF(CLOSE>OPEN,(OPEN-CLOSE)*VOL/V3,0)),8),2);
PVAR5:=EMA(MA(IF(CLOSE<C34,(C34-CLOSE)*VOL/V3,IF(CLOSE>C34,(C34-CLOSE)*VOL/V3,0)),9),2);
PVAR6:=EMA(MA(IF(OPEN<C34,(C34-OPEN)*VOL/V3,IF(OPEN>C34,(C34-OPEN)*VOL/V3,0)),10),2);
PVAR7:=CLOSE>OPEN;
PVAR8:=CLOSE>REF(CLOSE,1);
PVAR9:=OPEN>REF(CLOSE,1);
P多:=(PVAR1+PVAR2*2+PVAR3)/6/4;
P空:=(PVAR4+PVAR5*2+PVAR6)/6/4;
QQ多:(P多+多)/2,LINETHICK2,colorFF;
QQ空:(P空+空)/2,colorFFFF;
AP2:=QQ多*(1.89-(1-VOL/MA(VOL,12)/(VOL/MA(VOL,3))/9));
AP2A:=EMA(AP2,2)*1;
PSHT:=QQ多;
PLNG:=QQ空;
PARTLINE(PSHT<0,PSHT),LINETHICK2,color10B210;
PARTLINE(PLNG<0,PLNG),LINETHICK4,color66FF;
XX1:(EMA(EMA((PVAR1+PVAR2+PVAR3+600)/3-(PVAR4+PVAR5+PVAR6+600)/3,4),3))*1/4/4,colorFF00FF;
XX2:EMA((COUNT(PVAR8,10)/10+COUNT(PVAR7,10)/10+COUNT(PVAR9,10)/10)/3*MA((P多+多)/2,4)*1.75*1,5),colorFFFF00;
STICKLINE(QQ空>0,0,QQ空,1,0),colorFFFF00;
破解:=(EMA(EMA((PVAR1+PVAR2+PVAR3)/3-(PVAR4+PVAR5+PVAR6)/3,5),5))*1/400;
PARTLINE(PSHT<0 AND PSHT>XX1,PSHT),LINETHICK2,color660099;
STICKLINE(PSHT<0 AND PLNG>=0,PSHT,PLNG,1,0),color10B210;
STICKLINE(PSHT>=0 AND PLNG<=0,PSHT,0,1,0),colorFF;
STICKLINE(PSHT>=0 AND PLNG>=0 OR PSHT<0 AND PLNG<0,PSHT,PLNG,1,0),color808080;
STICKLINE(PSHT<0 AND PSHT>XX1,PSHT,0,1,0),color6600CC;
STICKLINE(PSHT<=AP2A AND PSHT>0,PSHT,0,1,0),colorFFFF;
XX2A:XX2,POINTDOT,LINETHICK3,colorFFCCFF;
QQ多A:QQ多,POINTDOT,LINETHICK4,colorCCFF99;
EHH:=HIGH>REF(HIGH,1);
ELL:=LOW<REF(LOW,1);
ESARL:=(MA(LLV(LOW,4),2)+EMA(LOW,3)*1.5)/2.5;
ESARH:=(MA(HHV(HIGH,4),2)+EMA(HIGH,3)*1.5)/2.5;
ESART:=LOW;
FEC:=CLOSE;
FEH:=HIGH;
FEL:=LOW;
<%
vc=ffl.vardata("fec")
vh=ffl.vardata("feh")
vl=ffl.vardata("fel")
vhh=ffl.vardata("Ehh")
vll=ffl.vardata("Ell")
vsarh=ffl.vardata("Esarh")
vsarl=ffl.vardata("Esarl")
vsart=ffl.vardata("Esart")
vcc=ffl.vardata("Ehh")
vee=ffl.vardata("Ell")
last=ubound(vc)
vsart(1)=vsarl(1)
vcc(1)=0.02
vee(1)=0.02
vcc1=0
vee1=0
for i=2 to last
if vc(i-1)>= vsart(i-1) and vsarl(i) > vsart(i-1) then
vsart(i)=vsarl(i)
elseif vc(i-1) >= vsart(i-1) and vsarl(i) <= vsart(i-1) then vsart(i)=vsart(i-1)
elseif vc(i-1) < vsart(i-1) and vsarh(i) < vsart(i-1) then vsart(i)=vsarh(i)
elseif vc(i-1) < vsart(i-1) and vsarh(i) >= vsart(i-1) then vsart(i)=vsart(i-1)
end if
rem if vc(i-1)>= vsart(i-1) and vsarl(i) > vsarl(i-1) then
rem vsart(i)=vsarl(i)
rem elseif vc(i-1) >= vsart(i-1) and vsarl(i) <= vsarl(i-1) then vsart(i)=vsarl(i-1) ----->changed by cheng
rem elseif vc(i-1) >= vsart(i-1) and vsarl(i) <= vsarl(i-1) then vsart(i)=vsart(i-1)
rem elseif vc(i-1) < vsart(i-1) and vsarh(i) < vsarh(i-1) then vsart(i)=vsarh(i)
rem elseif vc(i-1) < vsart(i-1) and vsarh(i) >= vsarh(i-1) then vsart(i)=vsarh(i-1) ----->changed by cheng
rem elseif vc(i-1) < vsart(i-1) and vsarh(i) >= vsarh(i-1) then vsart(i)=vsart(i-1)
rem end if
if vc(i-1) >= vsart(i-1) and vc(i) < vsart(i) then
vsart(i)=vh(i-1)
else
vcc1=1
end if
if vc(i-1) < vsart(i-1) and vc(i) >= vsart(i) then
vsart(i)=vl(i-1)
else
vee1=1
end if
next
ffl.vardata("Esart")=vsart
%>
ESARTA:=ESART;
QWSARL:=(EMA(LOW,9)+EMA(LOW,8))/2;
QWSARH:=(EMA(HIGH,9)+EMA(HIGH,8))/2;
QWSART:=LOW;
FQWC:=CLOSE;
FQWH:=HIGH;
FQWL:=LOW;
<%
vc=ffl.vardata("fqwc")
vh=ffl.vardata("fqwh")
vl=ffl.vardata("fqwl")
vsarh=ffl.vardata("qwsarh")
vsarl=ffl.vardata("qwsarl")
vsart=ffl.vardata("qwsart")
vcc=ffl.vardata("fqwc")
vee=ffl.vardata("fqwc")
last=ubound(vc)
vsart(1)=vsarl(1)
vcc(1)=0.02
vee(1)=0.02
vcc1=0
vee1=0
for i=2 to last
if vcc1=0 then vcc(i)=0.020
if vcc1=1 then vcc(i)=vcc(i-1)+0.0170
if vcc1=2 then vcc(i)=vcc(i-1)
if vcc(i)>0.150 then vcc(i)=0.15
if vee1=0 then vee(i)=0.020
if vee1=1 then vee(i)=vee(i-1)+0.0170
if vee1=2 then vee(i)=vee(i-1)
if vee(i)>0.15 then vee(i)=0.15
if vc(i-1)>= vsart(i-1) and vh(i) > vh(i-1) then
vsart(i)=vsart(i-1)+(vl(i)-vsart(i-1))*vcc(i)*1.05
rem elseif vc(i-1) >= vsart(i-1) and vh(i) <= vh(i-1) then vsart(i)=vsart(i-1) --------->changed by cheng
elseif vc(i-1) >= vsart(i-1) an
[url=http://www.70822.com/soft/sort013/sort02/down-25963.html](波浪弦)多空量環[/url]