[求助]請(qǐng)老師幫忙編寫(xiě)一個(gè)晉級(jí)程序　[文華財(cái)經(jīng)]

請(qǐng)幫忙完成以下程序的編寫(xiě)：開(kāi)多倉(cāng)條件分別為A1、A2、A3、A4；平多倉(cāng)條件分別為B1、B2、B3、B4；持多倉(cāng)過(guò)程中的遞進(jìn)條件分別為A21、A31、A41。開(kāi)空倉(cāng)條件分別為C1、C2、C3、C4；平空倉(cāng)條件分別為D1、D2、D3、D4；持多倉(cāng)過(guò)程中的遞進(jìn)條件分別為C21、C31、C41。而且如果以A1開(kāi)多倉(cāng)，在持多倉(cāng)過(guò)程中A21、A31、A41條件未出現(xiàn)過(guò)的情況下，以B1條件平多倉(cāng)；同理，如果以A2條件開(kāi)多倉(cāng)，在持多倉(cāng)過(guò)程中A31、A41未出現(xiàn)過(guò)的情況下，以B2條件平多倉(cāng)；如果以A3條件開(kāi)多倉(cāng)，在持多倉(cāng)過(guò)程中A41未出現(xiàn)過(guò)的情況下，以B3條件平多倉(cāng)；以A4條件開(kāi)多倉(cāng)，唯一以B4條件平多倉(cāng)；如果以A1開(kāi)多倉(cāng)，在持多倉(cāng)過(guò)程中A21條件出現(xiàn)過(guò)，則以B2條件平多倉(cāng)，A31條件出現(xiàn)過(guò)，以B3條件平多倉(cāng)，A41條件出現(xiàn)過(guò)，以B4條件平多倉(cāng)（既僅出現(xiàn)A1時(shí)平倉(cāng)條件為B1；出現(xiàn)了A2和A21后平倉(cāng)條件為B2；如果出現(xiàn)了A3和A31則平倉(cāng)條件遞進(jìn)到B3；如果出現(xiàn)了A4和A41則平倉(cāng)條件遞進(jìn)到最后一級(jí)B4）。做空同理。

A1,BK('A1');
A2,BK('A2');
A3,BK('A3');
A4,BK('A4');
NOT(EXIST(A21||A31||A41),BARSBK)&&B1,SP('A1');
NOT(EXIST(A31||A41),BARSBK)&&B2,SP('A2');
NOT(EXIST(A41),BARSBK)&&B3,SP('A3');
B4,SP('A4');
EXIST(A21,BARSBK)&&NOT(EXIST(A31,BARSBK))&&B2,SP('A1');
EXIST(A31,BARSBK)&&B3,SP('A1');
EXIST(A41,BARSBK)&&B4,SP('A1');
C1,SK('B1');
C2,SK('B2');
C3,SK('B3');
C4,SK('B4');
NOT(EXIST(C21||C31||C41),BARSSK)&&D1,BP('B1');
NOT(EXIST(C31||C41),BARSSK)&&D2,BP('B2');
NOT(EXIST(C41),BARSSK)&&D3,BP('B3');
D4,BP('B4');
EXIST(C21,BARSSK)&&NOT(EXIST(C31,BARSSK))&&D2,BP('B1');
EXIST(C31,BARSSK)&&D3,BP('B1');
EXIST(C41,BARSSK)&&D4,BP('B1');
AUTOFILTER;

模型僅供參考。