打印本文
關閉窗口
程序A
MA5:MA(C,5);
N:=BARSLAST(DATE<>REF(DATE,1))+1;
NN:=REF(N,N);
M1:=REF(C,N);//昨天的收盤價為M1
M2:=REF(C,N+NN);//前天的收盤價為M2
M3:=REF(C,N+2*NN);//大前天的收盤價為M3
M4:=REF(C,N+3*NN);//前4天的收盤價為M4
M:IFELSE(M1>=M2&&M2>=M3||M1<=M2&&M2<=M3,M2,IFELSE(M2>=M1&&M1>=M3||M2<=M1&&M1<=M3,M1,
IFELSE(M2>=M3&&M3>=M1||M2<=M3&&M3<=M1,M3,
IFELSE(M3>=M1&&M1>=M2&&M2>=M4||M3<=M1&&M1<=M2&&M2<=M4,M1,NULL))));
COUNT(BARSBK=1||BARSSK=1,N)<100+1&&(ISLASTBP||NOT(BARSBK>=1)&&NOT(BARSSK>=1))&&(C>M+0.7||C>M),BK;
COUNT(BARSBK=1||BARSSK=1,N)<100+1&&(ISLASTSP||NOT(BARSBK>=1)&&NOT(BARSSK>=1))&&(C<M+0.7||C<M),SK;
C>=BKPRICE+3||C<=BKPRICE-5&&MA5<REF(MA5,1),SP;
C>=SKPRICE+5||C<=SKPRICE-3&&MA5>REF(MA5,1),BP;
AUTOFILTER;
MONO_SIGNAL;
MA5:MA(C,5);
N:=BARSLAST(DATE<>REF(DATE,1))+1;
NN:=REF(N,N);
M1:=REF(C,N);//昨天的收盤價為M1
M2:=REF(C,N+NN);//前天的收盤價為M2
M3:=REF(C,N+2*NN);//大前天的收盤價為M3
M4:=REF(C,N+3*NN);//前4天的收盤價為M4
M:IFELSE(M1>=M2&&M2>=M3||M1<=M2&&M2<=M3,M2,IFELSE(M2>=M1&&M1>=M3||M2<=M1&&M1<=M3,M1,
IFELSE(M2>=M3&&M3>=M1||M2<=M3&&M3<=M1,M3,
IFELSE(M3>=M1&&M1>=M2&&M2>=M4||M3<=M1&&M1<=M2&&M2<=M4,M1,NULL))));
COUNT(BARSBK=1||BARSSK=1,N)<100+1&&(ISLASTBP||NOT(BARSBK>=1)&&NOT(BARSSK>=1))&&(C>(M+30)+0.7||C>(M+30)),BK;
COUNT(BARSBK=1||BARSSK=1,N)<100+1&&(ISLASTSP||NOT(BARSBK>=1)&&NOT(BARSSK>=1))&&(C<(M+30)+0.7||C<(M+30)),SK;
C>=SKPRICE+5||C<=SKPRICE-3&&MA5>REF(MA5,1),BP;
AUTOFILTER;
MONO_SIGNAL;
MA5:MA(C,5);
N:=BARSLAST(DATE<>REF(DATE,1))+1;
NN:=REF(N,N);
M1:=REF(C,N);//昨天的收盤價為M1
M2:=REF(C,N+NN);//前天的收盤價為M2
M3:=REF(C,N+2*NN);//大前天的收盤價為M3
M4:=REF(C,N+3*NN);//前4天的收盤價為M4
M:IFELSE(M1>=M2&&M2>=M3||M1<=M2&&M2<=M3,M2,IFELSE(M2>=M1&&M1>=M3||M2<=M1&&M1<=M3,M1,
IFELSE(M2>=M3&&M3>=M1||M2<=M3&&M3<=M1,M3,
IFELSE(M3>=M1&&M1>=M2&&M2>=M4||M3<=M1&&M1<=M2&&M2<=M4,M1,NULL))));
COUNT(BARSBK=1||BARSSK=1,N)<100+1&&(ISLASTBP||NOT(BARSBK>=1)&&NOT(BARSSK>=1))&&(C>(M-10)+0.7||C>(M-10)),BK;
COUNT(BARSBK=1||BARSSK=1,N)<100+1&&(ISLASTSP||NOT(BARSBK>=1)&&NOT(BARSSK>=1))&&(C<(M-10)+0.7||C<(M-10)),SK;
C>=BKPRICE+3||C<=BKPRICE-5&&MA5<REF(MA5,1),SP;
C>=SKPRICE+5||C<=SKPRICE-3&&MA5>REF(MA5,1),BP;
AUTOFILTER;
MONO_SIGNAL;