請老師把三個相似程序整合

程序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;