炮兵部队(通达信)

RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:SMA(RSV,M1,1);
D:SMA(K,M2,1);
J:3*K-2*D;
W:=(K>D AND REF(K<D,1));
DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);
DEA:EMA(DIF,MID);
MACD:(DIF-DEA)*2,COLORSTICK;
TR:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),N);
DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),N);
PDI: DMP*100/TR;
MDI: DMM*100/TR;
ADX: EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,M);
ADXR:EXPMEMA(ADX,M);
炮:HHVBARS(HIGH,200);
MACD1:REF(DIF<DEA,1) AND DIF>DEA;
防炮: REF(K<D,1) AND K>D AND K<30 AND PDI>ADX AND REF(PDI<ADX,1);
终极炮: REF(K<D,1) AND K>D AND K>80 AND PDI>ADX>ADXR;
极炮: REF(K<D,1) AND K>D AND PDI>MDI AND REF( PDI > MDI,1) AND REF( PDI<MDI,2);
终极: K>D AND K>82 AND PDI > MDI AND REF(PDI < MDI,2);
DRAWTEXT(极炮,100,'极炮');
DRAWTEXT(终极,100,'终极');
STICKLINE(极炮,1,60,8,50),COLORYELLOW;
STICKLINE(MACD1,1,80,2,50),COLORWHITE;
DRAWTEXT(MACD1,50,'炮弹');
STICKLINE(终极炮,1,80,20,50),COLORWHITE;
DRAWTEXT(终极炮,100,'终极炮');
STICKLINE(终极炮,1,80,20,50),COLORWHITE;
DRAWTEXT(防炮,70,'防炮');
STICKLINE(防炮,1,40,10,50),COLORYELLOW;
迫击炮: MDI<ADXR AND ADXR <ADX AND ADX <PDI AND PDI<D AND D<K;
DRAWTEXT(迫击炮,60,'迫击炮');
STICKLINE(迫击炮,1,50,9,50),COLORYELLOW;