[求助]麻烦老师写一个变色K线指标
作者:文华财经 来源:cxh99.com 发布时间:2023年10月21日
-
咨询内容:
老师,麻烦你帮我写一个变色K线指标。要求如下:1.全部符合五个条件,所有K线全变红色,(而不是只是其中一根K线变色),只要其中一个条件不符合,则变灰色:A:MACD金叉,2.CCI上穿0轴,3.KDj金叉,4,OBV快线金叉慢线,5.EMA均线(13 21 50 144)多头排列
2.全部符合五个条件,所有K线全变绿色,(而不是只是其中一根K线变色),只要其中一个条件不符合,则变灰色:A:MACD死叉,2.CCI下穿0轴,3.KDJ死叉,4,OBV快线死叉慢线。5.EMA均线(13 21 50 144)空头排列
附OBV双线指标:(m 34)VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);OBV:SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0),RGB(0,240,0);MAOBV:EMA(OBV,M),RGB(255,0,255);
要做成的效果如附图所示,另外,我要这个指标能用于WH6
来源:程序化99
-
文华技术人员:
老师,帮一下忙啊
来源: WWW.CXH99.COM
-
文华客服:
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA := EMA(DIFF,9);
MACD:=2*(DIFF-DEA),COLORSTICK;
TYP:=(CLOSE+HIGH+LOW)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
EMA13:=EMA(C,13);
EMA21:=EMA(C,21);
EMA50:=EMA(C,50);
EMA144:=EMA(C,144);
M:=34;
VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0),RGB(0,240,0);
MAOBV:=EMA(OBV,M),RGB(255,0,255);
COND1:=DIFF>DEA&&CCI>0&&K>D&&OBV>MAOBV&&EMA13>EMA21&&EMA21>EMA50&&EMA50>EMA144;
COND2:=DIFF<DEA&&CCI<0&&K<D&&OBV<MAOBV&&EMA13<EMA21&&EMA21<EMA50&&EMA50<EMA144;
DRAWCOLORKLINE(COND1,COLORRED,0);
DRAWCOLORKLINE(COND2,COLORGREEN,0);
DRAWCOLORKLINE(NOT(COND1)&&NOT(COND2),COLORGRAY,0);