咨詢內容：

麻煩修改，非常感謝

DRAWGBK(C>O,RGB(10,0,0),RGB(0,0,0),1,2,1);

DRAWGBK(1=1,0,0,0,'忍者欲妖主',0)COLORFFFF00;

{========================額外==========================}

Z1:=STRCAT(DYBLOCK,' ');

Z2:=STRCAT(Z1,HYBLOCK);

Z3:=STRCAT(Z2,' ');

Z4:=STRCAT(Z3,GNBLOCK);

Z5:=STRCAT(Z4,' ');

Z6:=STRCAT(Z5,FGBLOCK);

DRAWTEXT_FIX(ISLASTBAR,0.10,0.058,0,STRCAT(Z6,ZHBLOCK)),COLOR0000FF;

DRAWTEXT_FIX(1,0,0.055,0,STRCAT('【所在板塊】：',STKNAME)),COLOR00FFFF;

K1:=BARSLAST(CURRBARSCOUNT=120);

GD1:=CONST(IF(ISLASTBAR=1,HHV(H,K1),0));

DD1:=CONST(IF(ISLASTBAR=1,LLV(L,K1),0));

KJ:=GD1-DD1;

GD4:=IF(CURRBARSCOUNT<=120/2,GD1,DRAWNULL);

DRAWTEXT(CURRBARSCOUNT=120,DD1+KJ/10,'====【牛B金鉆指標專業團購群***5專用】===='),COLOR889999;

DRAWNUMBER(ISLASTBAR AND 四,四,四),COLOR999999;

DRAWTEXT(TT4 AND 四,四,'參考'),COLOR18FF18;

DRAWNUMBER(ISLASTBAR AND 五,五,五),COLOR999999;

DRAWTEXT(TT4 AND 五,五,'支撐'),COLOR18CCFF;

DRAWNUMBER(ISLASTBAR AND 低,低*1.01,低),COLOR999900;

DRAWTEXT(TT4 AND 低,低*1.009,'低點'),COLORRED;

{－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－}

今日賣點:EMA(C,2),NODRAW,COLOR40FF00;

今日買點:EMA(SLOPE(C,21)*20+C,42),NODRAW,COLOR0000FF;

JC:=(REF(C,3)+REF(C,5)+REF(C,7)+REF(C,8)+REF(C,13)+REF(C,21))/6;

參考價:=SMA(JC,5,1),COLORCYAN;

價:=IF(C>=參考價,參考價,參考價*0.98 ), CIRCLEDOT,COLOR0000FF;

日:=150;

昨前:=3;

高1:=REF(HHV(H,日),昨前);

低1:=REF(LLV(L,日),昨前);

H1:=高1-(高1-低1)*0.191;

H2:=高1-(高1-低1)*0.382;

H3:=高1-(高1-低1)*0.5;

H4:=高1-(高1-低1)*0.618;

H5:=高1-(高1-低1)*0.809;

{－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－}

LC:=REF(CLOSE,1);

RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);

FF:=EMA(CLOSE,3);

MA15:=EMA(CLOSE,21);

高點:REFDATE(高1,DATE),COLORGREEN,LINETHICK3;

壓力:REFDATE(H1,DATE),COLORFFCC18,LINETHICK2;

目標:REFDATE(H2,DATE),COLORMAGENTA,LINETHICK2;

關鍵:REFDATE(H3,DATE),COLORWHITE,LINETHICK2;

參考:REFDATE(H4,DATE),COLORGREEN,LINETHICK2;

支撐:REFDATE(H5,DATE),COLORYELLOW,LINETHICK2;

低點:REFDATE(低1,DATE),COLORRED,LINETHICK2;

{－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－}

X_1:=IF(TDXDLL1(8888,C,L,C),TDXDLL1(1003,C,0,L),0);

X_2:=IF(TDXDLL1(8888,C,L,C),TDXDLL1(1002,TDXDLL1(1003,C,0,L),H,L),0);

X_3:=IF(TDXDLL1(8888,C,L,C),TDXDLL1(1034,H,C,L),0);

X_4:=IF(TDXDLL1(8888,C,L,C),TDXDLL1(1035,H,C,L),0);

X_5:=IF(TDXDLL1(8888,C,L,C),TDXDLL1(1044,H,C,L),0);

X_6:=IF(TDXDLL1(8888,C,L,C),TDXDLL1(1046,H,C,L),0);

X_7:=IF(TDXDLL1(8888,C,L,C),TDXDLL1(1002,C,H,L)<TDXDLL1(1002,TDXDLL1(1034,H,C,L),H,L) AND O<TDXDLL1(1034,H,C,L) AND TDXDLL1(1034,H,C,L)>TDXDLL1(1046,H,C,L),0);

X_8:=IF(TDXDLL1(8888,C,L,C),TDXDLL1(1002,TDXDLL1(1002,C,H,L)<TDXDLL1(1002,TDXDLL1(1034,H,C,L),H,L) AND O<TDXDLL1(1034,H,C,L) AND TDXDLL1(1034,H,C,L)>TDXDLL1(1046,H,C,L),H,L)=0 AND TDXDLL1(1002,C,H,L)<TDXDLL1(1002,TDXDLL1(1034,H,C,L),H,L) AND O<TDXDLL1(1034,H,C,L) AND TDXDLL1(1034,H,C,L)>TDXDLL1(1046,H,C,L),0);

X_9:=EMA(HHV(HIGH,1),8);

X_10:=EMA(CLOSE,8);

X_11:=X_10<REF(X_10,1) AND CLOSE<X_10;

X_12:=IF(X_9<REF(X_9,1) OR X_11,1,0);

?

?來源:程序化99網（ m.weiqiv.net.cn ）

博易技術人員： 無法修改 來源 程序化久久網