通达信,老师,飞狐,周期,指标4534239,通达信指标转换指标编写_技术互助答疑论坛股票软件指标公式技术理想股票技术论坛

p,26 s,12 m,9 x(0,-100,100)Q:=DATACOUNT;DIF:EMA(CLOSE,S)LINEDASH,colorE0FF;PARTLINE(DIF>REF(DIF,1),DIF)LINETHICK2,colorE0FF;A1:=EMA(CLOSE,P);DIFF:=DIF ...指标编写_技术互助答疑论坛股票软件指标公式技术

p,26 s,12 m,9 x(0,-100,100)
Q:=DATACOUNT;
DIF:EMA(CLOSE,S)LINEDASH,colorE0FF;
PARTLINE(DIF>REF(DIF,1),DIF)LINETHICK2,colorE0FF;
A1:=EMA(CLOSE,P);
DIFF:=DIF - A1;
DEA:EMA(DIFF,M)+A1,LINEDASH,COLORGREEN;
PARTLINE(DEA>REF(DEA,1),DEA)LINETHICK2,COLORGREEN;
J:DIF*3-DEA*2,LINEDASH,ColorFEDCBA;
PARTLINE(J>REF(J,1),J)LINETHICK2,ColorFEDCBA;
H1:=HHV(H,40);
L1:=LLV(L,40);
ZX:=(H1[Q]/2+L1[Q]/2)*(1+X/100);
PARTLINE(1,ZX)color9955;
MACD:2*(DIF-DEA),LINETHICK;
STICKLINE(MACD>0 AND MACD>REF(MACD,1),MACD+ZX,ZX,4,1)LINETHICK2,colorE0FF;
STICKLINE(MACD>0 AND MACD<=REF(MACD,1),MACD+ZX,ZX,3,1)colorE0FF;
STICKLINE(MACD<0 AND MACD<=REF(MACD,1),MACD+ZX,ZX,4,1)LINETHICK2,COLORGREEN;
STICKLINE(MACD<0 AND MACD>REF(MACD,1),MACD+ZX,ZX,3,1)COLORGREEN;
DRAWTEXT(ISLASTBAR,DIF,'F '+NUMTOSTR(DIF,2))SHIFT1,colorE0FF;
DRAWTEXT(ISLASTBAR,DEA,'A '+NUMTOSTR(DEA,2))SHIFT1,COLORGREEN;
DRAWTEXT(ISLASTBAR,J,'J '+NUMTOSTR(J,2))SHIFT1,ColorFEDCBA;
Y:=IF(DATATYPE=5,4,IF(DATATYPE=4,8,IF(DATATYPE=3,16,IF(DATATYPE=2,48,IF(DATATYPE=1,240,1)))));
IF DATATYPE=7 OR DATATYPE<6 THEN BEGIN
日DIF:MA("MACD 主图.DIF#DAY"(P,S,M,X),Y)LINEDASH,colorE0FF;
日DEA:MA("MACD 主图.DEA#DAY"(P,S,M,X),Y)LINEDASH,COLORGREEN;
日J:MA("MACD 主图.J#DAY"(P,S,M,X),Y)LINEDASH,ColorFEDCBA;
DRAWTEXT(ISLASTBAR,日DIF,'日F '+NUMTOSTR(日DIF,2))SHIFT1,colorE0FF;
DRAWTEXT(ISLASTBAR,日DEA,'日A '+NUMTOSTR(日DEA,2))SHIFT1,COLORGREEN;
DRAWTEXT(ISLASTBAR,日J,'日J '+NUMTOSTR(日J,2))SHIFT1,ColorFEDCBA;
END;
Y1:=IF(DATATYPE=4,2,IF(DATATYPE=3,4,IF(DATATYPE=2,12,IF(DATATYPE=1,60,1))));
IF DATATYPE=6 OR DATATYPE<5 THEN BEGIN
时DIF:MA("MACD 主图.DIF#MIN60"(P,S,M,X),Y1)LINEDOT,colorE0FF;
时DEA:MA("MACD 主图.DEA#MIN60"(P,S,M,X),Y1)LINEDOT,COLORGREEN;
时J:MA("MACD 主图.J#MIN60"(P,S,M,X),Y1)LINEDOT,ColorFEDCBA;
DRAWTEXT(ISLASTBAR,时DIF,'时F '+NUMTOSTR(时DIF,2))SHIFT1,colorE0FF;
DRAWTEXT(ISLASTBAR,时DEA,'时A '+NUMTOSTR(时DEA,2))SHIFT1,COLORGREEN;
DRAWTEXT(ISLASTBAR,时J,'时J '+NUMTOSTR(时J,2))SHIFT1,ColorFEDCBA;
END;
Y2:=IF(DATATYPE=6,5,IF(DATATYPE=5,20,IF(DATATYPE=4,40,IF(DATATYPE=3,80,IF(DATATYPE=2,240,1)))));
IF DATATYPE=8 OR DATATYPE<7 THEN BEGIN
周DIF:MA("MACD 主图.DIF#WEEK"(P,S,M,X),Y2)colorE0FF;
周DEA:MA("MACD 主图.DEA#WEEK"(P,S,M,X),Y2)COLORGREEN;
周J:MA("MACD 主图.J#WEEK"(P,S,M,X),Y2)ColorFEDCBA;
DRAWTEXT(ISLASTBAR,周DIF,'周F '+NUMTOSTR(周DIF,2))SHIFT1,colorE0FF;
DRAWTEXT(ISLASTBAR,周DEA,'周A '+NUMTOSTR(周DEA,2))SHIFT1,COLORGREEN;
DRAWTEXT(ISLASTBAR,周J,'周J '+NUMTOSTR(周J,2))SHIFT1,ColorFEDCBA;
END;
DRAWTEXTEX(1,0,50,0,'MACD 线状  粗线＝当前周期  实线＝周线  长虚线＝日线  短虚线＝小时')colorE0FF;

如果互助答疑不能解决需求，可以到《威客任务》发布有偿悬赏。