咨詢內容：

請老師幫忙修改

VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV1:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
OBV2:=EMA(OBV1,3)-MA(OBV1,9);
OBV3:=EMA(IF(OBV2>0,OBV2,0),3);
MAC3:=MA(C,3);
SHORT:=12;
LONG:=26;
MID:=9;
DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),COLORYELLOW;
DEA:EMA(DIF,MID),COLORFF9900;
MACD:=(DIF-DEA)*2;
STICKLINE(OBV3>REF(OBV3,1) AND MAC3>REF(MAC3,1),0,MACD,2,0),COLORYELLOW;
吸:=MACD<0 AND MACD>REF(MACD,1);
拉:=MACD>0 AND MACD>REF(MACD,1);
派:=MACD>0 AND MACD<REF(MACD,1);
落:=MACD<0 AND MACD<REF(MACD,1);
STICKLINE(吸,0,MACD,1,0),COLORMAGENTA;
STICKLINE(拉,0,MACD,1,0),COLORRED;
STICKLINE(派,0,MACD,1,0),COLORGREEN;
STICKLINE(落,0,MACD,1,0),COLORWHITE;
主力買:IF(DIF>REF(DIF,1),DIF,0),COLORRED,LINETHICK1;
主力賣:IF(DIF<REF(DIF,1),DIF,0),COLOR00FF00,LINETHICK2;
PARTLINE(DIF>REF(DIF,1),DIF,RGB(255,0,0)),LINETHICK4;
PARTLINE(DIF<REF(DIF,1),DIF,RGB(0,255,0)),LINETHICK4;





A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
A2:=BARSLAST(REF(CROSS(DEA,DIF),1));







S:=12;
P:=26;
M:=9;
DIFF1:EMA(CLOSE,S) - EMA(CLOSE,P);
DEA1:EMA(DIFF1,M);

MACDHS:=IF(MACD>0 AND MACD>=REF(MACD,1),MACD,0);
MACDHX:=IF(MACD>0 AND MACD<REF(MACD,1),MACD,0);
MACDLX:=IF(MACD<0 AND MACD<=REF(MACD,1),MACD,0);
MACDLS:=IF(MACD<0 AND MACD>REF(MACD,1),MACD,0);

DIFF:=DIFF1,COLORFFFFFF;

HMACD:=HHV(MACD,43);
DIFF2 := EMA(CLOSE,S) - EMA(CLOSE,P);
DEA2? := EMA(DIFF,M);
MACD1:=2*(DIFF-DEA),COLORSTICK;






AA1:=VALUEWHEN(MACD1>REF(MACD1,1)&&REFX(MACD1,1)<MACD1&&MACD1>0,MACD1);
AA2:=VALUEWHEN(MACD1<REF(MACD1,1)&&REFX(MACD1,1)>MACD1&&MACD1<0,MACD1);
T1:=MACD1>REF(MACD1,1)&&REFX(MACD1,1)<MACD1&&MACD1>0;
AA:=SUMBARS(T1,2)-1;
BB:=BARSLAST(CROSS(DIFF,DEA))+1;
CC:=IF(COUNT(T1,BB)>1&&T1&&MACD>REF(MACD,AA),COUNT(COUNT(T1,BB)>1&&T1&&MACD>REF(MACD,AA),BARSLAST(CROSS(COUNT(T1,BB)>0,0.5)&&T1)+1),1);
DRAWNUMBER(COUNT(T1,BB)>1&&T1&&MACD>REF(MACD,AA),MACD,CC+1,0,COLORYELLOW),ALIGN0;





DRAWTEXT(CROSS(COUNT(T1,BB)>0,0.5)&&T1&&AA1>REF(AA1,1),MACD,'新增量'),COLORWHITE,FONTSIZE16;



B1:=BARSLAST(CROSSDOWN(DIFF,DEA))+1;
T2:=MACD1<REF(MACD1,1)&&REFX(MACD1,1)>MACD1&&MACD1<0;

C1:=IF(COUNT(T2,B1)>1&&T2&&MACD<REF(MACD,A1),COUNT(COUNT(T2,B1)>1&&T2&&MACD<REF(MACD,A1),BARSLAST(CROSS(COUNT(T2,B1)>0,0.5)&&T2)+1),1);
DRAWNUMBER(COUNT(MACD1<REF(MACD1,1)&&REFX(MACD1,1)>MACD1&&MACD1<0,B1)>1&&MACD1<REF(MACD1,1)&&REFX(MACD1,1)>MACD1&&MACD1<0&&MACD<REF(MACD,A1),MACD,C1+1,0,COLORYELLOW),ALIGN0;

DRAWTEXT(CROSS(COUNT(MACD1<REF(MACD1,1)&&REFX(MACD1,1)>MACD1&&MACD1<0,B1)>0,0.5)&&MACD1<REF(MACD1,1)&&REFX(MACD1,1)>MACD1&&MACD1<0&&AA2>REF(AA2,1),MACD,'新余量'),VALIGN0,FONTSIZE18;

DRAWTEXT(CROSS(COUNT(MACD1<REF(MACD1,1)&&REFX(MACD1,1)>MACD1&&MACD1<0,B1)>0,0.5)&&MACD1<REF(MACD1,1)&&REFX(MACD1,1)>MACD1&&MACD1<0&&AA2<REF(AA2,1),MACD,'新增量'),VALIGN0,FONTSIZE18;

?

?來源:程序化99網（ m.kzuj.com.cn ）

博易技術人員： VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV1:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
OBV2:=EMA(OBV1,3)-MA(OBV1,9);
OBV3:=EMA(IF(OBV2>0,OBV2,0),3);
MAC3:=MA(C,3);
SHORT:=12;
LONG:=26;
MID:=9;
DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),COLORYELLOW;
DEA:EMA(DIF,MID),COLORFF9900;
MACD:=(DIF-DEA)*2;
STICKLINE(OBV3>REF(OBV3,1) AND MAC3>REF(MAC3,1),0,MACD,2,0),COLORYELLOW;
吸:=MACD<0 AND MACD>REF(MACD,1);
拉:=MACD>0 AND MACD>REF(MACD,1);
派:=MACD>0 AND MACD<REF(MACD,1);
落:=MACD<0 AND MACD<REF(MACD,1);
STICKLINE(吸,0,MACD,1,0),COLORMAGENTA;
STICKLINE(拉,0,MACD,1,0),COLORRED;
STICKLINE(派,0,MACD,1,0),COLORGREEN;
STICKLINE(落,0,MACD,1,0),COLORWHITE;
主力買:IF(DIF>REF(DIF,1),DIF,0),COLORRED,LINETHICK1;
主力賣:IF(DIF<REF(DIF,1),DIF,0),COLOR00FF00,LINETHICK2;
PARTLINE(DIF>REF(DIF,1),DIF),COLOR0000FF,LINETHICK4;
PARTLINE(DIF<REF(DIF,1),DIF),COLOR00FF00,LINETHICK4;





A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
A2:=BARSLAST(REF(CROSS(DEA,DIF),1));







S:=12;
P:=26;
M:=9;
DIFF1:EMA(CLOSE,S) - EMA(CLOSE,P);
DEA1:EMA(DIFF1,M);

MACDHS:=IF(MACD>0 AND MACD>=REF(MACD,1),MACD,0);
MACDHX:=IF(MACD>0 AND MACD<REF(MACD,1),MACD,0);
MACDLX:=IF(MACD<0 AND MACD<=REF(MACD,1),MACD,0);
MACDLS:=IF(MACD<0 AND MACD>REF(MACD,1),MACD,0);

DIFF:=DIFF1,COLORFFFFFF;

HMACD:=HHV(MACD,43);
DIFF2 := EMA(CLOSE,S) - EMA(CLOSE,P);
DEA2? := EMA(DIFF,M);
MACD1:=2*(DIFF-DEA),COLORSTICK;






AA1:=VALUEWHEN(MACD1>REF(MACD1,1)&&REFX(MACD1,1)<MACD1&&MACD1>0,MACD1);
AA2:=VALUEWHEN(MACD1<REF(MACD1,1)&&REFX(MACD1,1)>MACD1&&MACD1<0,MACD1);
T1:=MACD1>REF(MACD1,1)&&REFX(MACD1,1)<MACD1&&MACD1>0;
AA:=SUMBARS(T1,2)-1;
BB:=BARSLAST(CROSS(DIFF,DEA))+1;
CC:=IF(COUNT(T1,BB)>1&&T1&&MACD>REF(MACD,AA),COUNT(COUNT(T1,BB)>1&&T1&&MACD>REF(MACD,AA),BARSLAST(CROSS(COUNT(T1,BB)>0,0.5)&&T1)+1),1);
DRAWNUMBER(COUNT(T1,BB)>1&&T1&&MACD>REF(MACD,AA),MACD,CC+1,0),COLORYELLOW,ALIGN0;





DRAWTEXT(CROSS(COUNT(T1,BB)>0,0.5)&&T1&&AA1>REF(AA1,1),MACD,'新增量'),COLORWHITE,FONTSIZE16;



B1:=BARSLAST(CROSS(DEA,DIFF))+1;
T2:=MACD1<REF(MACD1,1)&&REFX(MACD1,1)>MACD1&&MACD1<0;

C1:=IF(COUNT(T2,B1)>1&&T2&&MACD<REF(MACD,A1),COUNT(COUNT(T2,B1)>1&&T2&&MACD<REF(MACD,A1),BARSLAST(CROSS(COUNT(T2,B1)>0,0.5)&&T2)+1),1);
DRAWNUMBER(COUNT(MACD1<REF(MACD1,1)&&REFX(MACD1,1)>MACD1&&MACD1<0,B1)>1&&MACD1<REF(MACD1,1)&&REFX(MACD1,1)>MACD1&&MACD1<0&&MACD<REF(MACD,A1),MACD,C1+1,0),COLORYELLOW,ALIGN0;

DRAWTEXT(CROSS(COUNT(MACD1<REF(MACD1,1)&&REFX(MACD1,1)>MACD1&&MACD1<0,B1)>0,0.5)&&MACD1<REF(MACD1,1)&&REFX(MACD1,1)>MACD1&&MACD1<0&&AA2>REF(AA2,1),MACD,'新余量'),VALIGN0,FONTSIZE18;

DRAWTEXT(CROSS(COUNT(MACD1<REF(MACD1,1)&&REFX(MACD1,1)>MACD1&&MACD1<0,B1)>0,0.5)&&MACD1<REF(MACD1,1)&&REFX(MACD1,1)>MACD1&&MACD1<0&&AA2<REF(AA2,1),MACD,'新增量'),VALIGN0,FONTSIZE18; 來源 程序化久久網