请问老师如何在下面指标,有顶背离三个字时在K线最高价画向右的绿色虚线,底背离时在K线最低价画向右的红色虚线
PB2:=(EMA(CLOSE,M2)+MA(CLOSE,M2*2)+MA(CLOSE,M2*4))/3;
A:=(3*C+L+O+H)/6;//3倍收盘价与最高价、最低价、开盘价之和的均值。
B:(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;
//对A值做加权均值计算。
G:MA(B,M);//对B值做10周期平均计算。
PB6:(EMA(CLOSE,M6)+MA(CLOSE,M6*2)+MA(CLOSE,M6*4))/3,RGB(128,128,128),DOT; //定义6条瀑布线
DRAWTEXT(CROSS(B,G),B,'涨'),RGB(255,0,0),VALIGN0;
DRAWTEXT(CROSSDOWN(B,G),G,'跌'),RGB(0,240,0),VALIGN2;
IF(B>G,B,NULL),RGB(128,0,0);
IF(B>G,G,NULL),RGB(128,0,0);
IF(B<G,B,NULL),RGB(0,128,0);
IF(B<G,G,NULL),RGB(0,128,0);
RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
RSV24:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;
K24:=SMA(RSV24,3,1);
D24:=SMA(K24,3,1);
J24:=3*K24-2*D24;
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);//短周期与长周期的收盘价的指数平滑移动平均值做差。
DEA := EMA(DIFF,9);//DIFF的M个周期指数平滑移动平均
//2*(DIFF-DEA),COLORSTICK;//DIFF减DEA的2倍画柱状线
LC := REF(CLOSE,1);//前一周期收盘价
RSI1:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;//当根K线收盘价与前一周期收盘价做差,在该差值与0之间取最大值,做N1周期移动平均。收盘价与前一周期收盘价做差值,取该差值的N1周期移动平均值,两平均值之间做比值。
RSI2:=SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100;//当根K线收盘价与前一周期收盘价做差,在该差值与0之间取最大值,做N2周期移动平均。收盘价与前一周期收盘价做差值,取该差值的N2周期移动平均值,两平均值之间做比值。
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
DRAWTEXT(REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA)>0,L-1,'MCD底背离'),COLOR00FFFF;
//{MACD底背离}
A2:=BARSLAST(REF(CROSS(K,D),1));
DRAWTEXT(REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D),L-0.10,'KD底背离'),COLORFF00FF;
//{KDJ底背离}
A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));
DRAWTEXT(REF(C,A3+1)>C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2)>0,L-3,'RSI底背离'),COLOR0000FF;
//{RSI底背离};
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
DRAWTEXT(REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF)>0,H+3,'★MACD顶背离'),COLOR00FF00;
//{MACD顶背离};
C2:=BARSLAST(REF(CROSS(D,K),1));
DRAWTEXT(REF(C,C2+1)<C AND REF(K,C2+1)>D AND CROSS(D,K)>0,H+1,'KD顶背离'),COLORFFFFCC;
//{KDJ顶背离}
C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));
DRAWTEXT(REF(C,C3+1)<C AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1)>0,H+1,'RSI顶背离'),COLORFF9900;
//{RSI顶背离};
DRAWICON(CROSS(C,VALUEWHEN(V>HV(V,60),H)),H,1);