以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  请帮忙转换一下,原来是文华的  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=87630)

--  作者:wang123321
--  发布时间:2015/11/23 15:58:25
--  请帮忙转换一下,原来是文华的
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;//收盘价与N周期最低值做差,N周期最高值与N周期最低值做差,两差之间做比值定义为RSV
K:=SMA(RSV,3,1);//RSV的移动平均
D:=SMA(K,3,1);//K值的移动平均
J:=3*K-2*D;
JCN:=BARSLAST(CROSS(K,D))+1;
SCN:=BARSLAST(CROSSDOWN(K,D))+1;
HJ:=HHV(J,JCN);
LJ:=LLV(J,SCN);
DRAWNUMBER(J=HJ&&J>REFX(J,1),H,H,2,COLORGREEN);
DRAWNUMBER(J=LJ&&J<REFX(J,1),L,L,2,COLORYELLOW);
AN1:=BARSLAST(J=HJ&&J>REFX(J,1)&&HJ>120);
AN2:=BARSLAST(CROSSUP(K,D));
ABC:=VALUEWHEN(K>D&&J=HJ&&J>REFX(J,1)&&HJ>120,H);
BN1:=BARSLAST(J=LJ&&J>REFX(J,1)&&LJ<-35);
BN2:=BARSLAST(CROSSDOWN(K,D));
BBC:=VALUEWHEN(J=LJ&&J<REFX(J,1)&&LJ<-35,L);
LLLL:=VALUEWHEN(CROSSUP(COUNT(J=LJ&&J<REFX(J,1),SCN),0.5),L);
LLLL1:=VALUEWHEN(J=LJ&&J<REFX(J,1),L);
HHHH:=VALUEWHEN(CROSSUP(COUNT(J=HJ&&J>REFX(J,1),JCN),0.5),H);
HHHH1:=VALUEWHEN(J=HJ&&J>REFX(J,1),H);
K<D&&CROSSDOWN(C,LLLL),SK(\'B\');
K>D&&CROSSUP(C,HHHH),BK(\'A\');
C<=LLLL-(HHHH1-LLLL),BP(\'B\');
C>=HHHH+(HHHH-LLLL1),SP(\'A\');
HH1:=IF(K<D,REF(HHVBARS(J,JCN)+1,SCN),NULL);
DRAWSL(HH1>0&&CROSSDOWN(K,D),REF(H,HH1),0,BARPOS,3,COLORMAGENTA),DOT;
HH2:=BARSLAST(HH1>0&&CROSSDOWN(K,D))+REF(HH1,BARSLAST(HH1>0&&CROSSDOWN(K,D)));
DRAWNUMBER(ISLASTBAR,REF(H,HH2),REF(H,HH2),0,COLORMAGENTA);
TT1:=IF(K<D,REF(HHVBARS(H,JCN)+1,SCN),NULL);
DRAWSL(TT1>0&&CROSSDOWN(K,D),REF(H,TT1),0,BARPOS,3,COLORMAGENTA),DOT;
TT2:=BARSLAST(TT1>0&&CROSSDOWN(K,D))+REF(TT1,BARSLAST(TT1>0&&CROSSDOWN(K,D)));
DRAWNUMBER(ISLASTBAR,REF(H,TT2),REF(H,TT2),0,COLORMAGENTA);
LL1:=IF(K>D,REF(LLVBARS(J,SCN)+1,JCN),NULL);
DRAWSL(LL1>0&&CROSSUP(K,D),REF(L,LL1),0,BARPOS,3,COLORGREEN),DOT;
LL2:=BARSLAST(LL1>0&&CROSSUP(K,D))+REF(LL1,BARSLAST(LL1>0&&CROSSUP(K,D)));
SS1:=IF(K>D,REF(LLVBARS(L,SCN)+1,JCN),NULL);
DRAWSL(SS1>0&&CROSSUP(K,D),REF(L,SS1),0,BARPOS,3,COLORGREEN),DOT;
SS2:=BARSLAST(SS1>0&&CROSSUP(K,D))+REF(SS1,BARSLAST(SS1>0&&CROSSUP(K,D)));
DRAWNUMBER(ISLASTBAR,REF(L,SS2),REF(L,SS2),0,COLORGREEN);
DRAWNUMBER(ISLASTBAR,REF(L,LL2),REF(L,LL2),0,COLORGREEN);
SETALLSIGPRICETYPE(TRACING_ORDER);
CROSSDOWN(C,HHHH),SP(\'A\');
CROSSUP(C,LLLL),BP(\'B\');
CROSSDOWN(C,REF(HHHH,BARSBK)),SP(\'A\');
CROSSUP(C,REF(LLLL,BARSSK)),BP(\'B\');
AUTOFILTER;