请帮忙改指标
{MYEMA}
EMA1: ema(c,5);//(5,13,34,89);
EMA2: ema(c,13);
EMA3: ema(c,34);
EMA4: ema(c,89);
****************************************************************
EMA1:="MYEMA.EMA1"(5,13,34,89);
EMA2:="MYEMA.EMA2"(5,13,34,89);
EMA3:="MYEMA.EMA3"(5,13,34,89);
MACD:=EMA1-REF(EMA1,3);
XA:=REF(MA(CLOSE,4),1);
XB:=REF(MA(CLOSE,7),1);
XC:=REF(MA(CLOSE,12),1);
HG2:=MAX(MAX(XA,XB),XC);
LW2:=MIN(MIN(XA,XB),XC);
CASEA:=BETWEEN(XA,XB,XC);
CASEB:=MAX(XB,XC);
CASEC:=MIN(XB,XC);
CASED:=IF(XA=HG2,CASEB,CASEC);
MD2:=IF(CASEA=1,XA,CASED);
ENTER:=CLOSE>EMA1 AND MACD>REF(MACD,1) AND CLOSE>=MD2;
EXIT:=CLOSE<EMA2 AND CLOSE<EMA1 AND MACD<REF(MACD,1);
NONE:=ENTER<>1 AND EXIT<>1;
DAYEN:=BARSLAST(ENTER);
DAYEX:=BARSLAST(EXIT);
DAYE:=MIN(DAYEN,DAYEX);
PENTER:=IF(NONE=1 AND DAYEN<DAYEX,1,0);
PEXIT:=IF(NONE=1 AND DAYEX<DAYEN,1,0);
STOP:=CLOSE<=EMA1 AND CLOSE<=EMA2 AND CLOSE<=EMA3;
X1:=MA(CLOSE,4);
X2:=MA(CLOSE,7);
X3:=MA(CLOSE,12);
HG:=MAX(MAX(X1,X2),X3);
LW:=MIN(MIN(X1,X2),X3);
CASE1:=BETWEEN(X1,X2,X3);
CASE2:=MAX(X2,X3);
CASE3:=MIN(X2,X3);
CASE4:=IF(X1=HG,CASE2,CASE3);
MD:=IF(CASE1=1,X1,CASE4);
XX:=MA(CLOSE,4);
XY:=CLOSE+REF(CLOSE,2)-REF(CLOSE,3)+(REF(MA(CLOSE,4),1)+REF(MA(CLOSE,4),3)-MA(CLOSE,4)-REF(MA(CLOSE,4),4))*8/7;
XZ:=MA(CLOSE,12);
X:=MA(CLOSE,33);
VR:=IF(YEAR>=2005 AND MONTH>3 OR YEAR>=2006,0,1);
CASE11:=MAX(MAX(XX,XY),MD)*VR;
CASE22:=MAX(MIN(MIN(XX,XY),XZ),MIN(MIN(XX,XZ),X))*VR;
SUP11:=(1-CASE22/CLOSE)*100*VR;
SUP22:=(-(CASE11/CLOSE-1)*100)*VR;
BUY:=ENTER OR PENTER-STOP;
IF(BUY>0.5,SUP11,SUP22),COLORSTICK,LINETHICK3,colorFFFF;
***************************************************************************
EMA1:="MYEMA.EMA1"(5,13,34,89);
EMA2:="MYEMA.EMA2"(5,13,34,89);
EMA3:="MYEMA.EMA3"(5,13,34,89);
MACD:=EMA1-REF(EMA1,3);
XA:=REF(MA(CLOSE,4),1);
XB:=REF(MA(CLOSE,7),1);
XC:=REF(MA(CLOSE,12),1);
HG2:=MAX(MAX(XA,XB),XC);
LW2:=MIN(MIN(XA,XB),XC);
CASEA:=BETWEEN(XA,XB,XC);
CASEB:=MAX(XB,XC);
CASEC:=MIN(XB,XC);
CASED:=IF(XA=HG2,CASEB,CASEC);
MD2:=IF(CASEA=1,XA,CASED);
ENTER:=CLOSE>EMA1 AND MACD>REF(MACD,1) AND CLOSE>=MD2;
EXIT:=CLOSE<EMA2 AND CLOSE<EMA1 AND MACD<REF(MACD,1);
NONE:=ENTER<>1 AND EXIT<>1;
DAYEN:=BARSLAST(ENTER);
DAYEX:=BARSLAST(EXIT);
DAYE:=MIN(DAYEN,DAYEX);
PENTER:=IF(NONE=1 AND DAYEN<DAYEX,1,0);
PEXIT:=IF(NONE=1 AND DAYEX<DAYEN,1,0);
STOP:=CLOSE<=EMA1 AND CLOSE<=EMA2 AND CLOSE<=EMA3;
X1:=MA(CLOSE,4);
X2:=MA(CLOSE,7);
X3:=MA(CLOSE,12);
HG:=MAX(MAX(X1,X2),X3);
LW:=MIN(MIN(X1,X2),X3);
CASE1:=BETWEEN(X1,X2,X3);
CASE2:=MAX(X2,X3);
CASE3:=MIN(X2,X3);
CASE4:=IF(X1=HG,CASE2,CASE3);
MD:=IF(CASE1=1,X1,CASE4);
XX:=MA(CLOSE,4);
XY:=CLOSE+REF(CLOSE,2)-REF(CLOSE,3)+(REF(MA(CLOSE,4),1)+REF(MA(CLOSE,4),3)-MA(CLOSE,4)-REF(MA(CLOSE,4),4))*8/7;
XZ:=MA(CLOSE,12);
X:=MA(CLOSE,33);
VR:=IF(YEAR>=2005 AND MONTH>3 OR YEAR>=2006,0,1);
CASE11:=MAX(MAX(XX,XY),MD)*VR;
CASE22:=MAX(MIN(MIN(XX,XY),XZ),MIN(MIN(XX,XZ),X))*VR;
BUY:=ENTER OR PENTER-STOP;
IF(BUY>0.5,CASE22,CASE11),CROSSDOT,colorFFFF;
***********************************************************
EMA1:="MYEMA.EMA1"(5,13,34,89);
EMA2:="MYEMA.EMA2"(5,13,34,89);
EMA3:="MYEMA.EMA3"(5,13,34,89);
MACD:=EMA1-REF(EMA1,3);
XA:=REF(MA(CLOSE,4),1);
XB:=REF(MA(CLOSE,7),1);
XC:=REF(MA(CLOSE,12),1);
HG2:=MAX(MAX(XA,XB),XC);
LW2:=MIN(MIN(XA,XB),XC);
CASEA:=BETWEEN(XA,XB,XC);
CASEB:=MAX(XB,XC);
CASEC:=MIN(XB,XC);
CASED:=IF(XA=HG2,CASEB,CASEC);
MD2:=IF(CASEA=1,XA,CASED);
ENTER:=CLOSE>EMA1 AND MACD>REF(MACD,1) AND CLOSE>=MD2;
EXIT:=CLOSE<EMA2 AND CLOSE<EMA1 AND MACD<REF(MACD,1);
NONE:=ENTER<>1 AND EXIT<>1;
DAYEN:=BARSLAST(ENTER);
DAYEX:=BARSLAST(EXIT);
DAYE:=MIN(DAYEN,DAYEX);
PENTER:=IF(NONE=1 AND DAYEN<DAYEX,1,0);
PEXIT:=IF(NONE=1 AND DAYEX<DAYEN,1,0);
STOP:=CLOSE<=EMA1 AND CLOSE<=EMA2 AND CLOSE<=EMA3;
VR:=IF(YEAR>=2005 AND MONTH>3 OR YEAR>=2006,0,1);
BUY:=ENTER OR PENTER-STOP;
CASE1:=(IF(CLOSE>=基 AND CLOSE<=基,1,0))*VR;
CASE2:=(IF(VOL>=秖 AND VOL<=秖,1,0))*VR;
ENTERLONG:BUY>0.5 AND REF(BUY,1)<0.5 AND REF(BUY,2)<0.5 AND REF(BUY,3)<0.5 AND CASE1=1 AND CASE2=1;
EXITLONG:BUY<0.5 AND REF(BUY,1)>0.5 AND REF(BUY,2)>0.5 AND REF(BUY,3)>0.5 AND CASE1=1 AND CASE2=1;
**********************************************************************************************************************
VR:=IF(YEAR>=2005 AND MONTH>3 OR YEAR>=2006,0,1);
X1:=MA(CLOSE,4);
X2:=MA(CLOSE,7);
X3:=MA(CLOSE,12);
HG:=MAX(MAX(X1,X2),X3);
LW:=MIN(MIN(X1,X2),X3);
CASE1:=BETWEEN(X1,X2,X3);
CASE2:=MAX(X2,X3);
CASE3:=MIN(X2,X3);
CASE4:=IF(X1=HG,CASE2,CASE3);
MD:=IF(CASE1=1,X1,CASE4);
XA:=REF(MA(CLOSE,4),1);
XB:=REF(MA(CLOSE,7),1);
XC:=REF(MA(CLOSE,12),1);
HG2:=MAX(MAX(XA,XB),XC);
LW2:=MIN(MIN(XA,XB),XC);
CASEA:=BETWEEN(XA,XB,XC);
CASEB:=MAX(XB,XC);
CASEC:=MIN(XB,XC);
CASED:=IF(XA=HG2,CASEB,CASEC);
MD2:=IF(CASEA=1,XA,CASED);
秅戳眏翴:HG*VR,LINETHICK0;
秅戳い翴:MD*VR,LINETHICK0;
秅戳畓翴:LW*VR,LINETHICK0;
よ计沮┛菠:0,LINETHICK0;
セ秅戳眏翴:HG2*VR;
セ秅戳い翴:MD2*VR;
セ秅戳畓翴:LW2*VR;
[ 本帖最后由 韵翔 于 2008-7-6 12:05 编辑 ]
