[求助]这个指标能改成文化用吗?谢谢。 (文华财经WH6赢顺V6.7)

投资者咨询:[求助]这个指标能改成文化用吗?谢谢。 (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2019-5-21 8:34
 HaClose:=(O+C+H+L)/4;
HaOpen:=(IF(NOT(ISNULL(REF(HaOpen,1))),REF(HaOpen,1),O)+IF(NOT(ISNULL(REF(HaCLose,1))),REF(HaClose,1),C))/2;
HaHigh:=MAX(H,HaOpen);
HaLow:=MIN(L,HaOpen);
HH:=HaHigh; 
LL:=HaLow; 
HH1:=BARSLAST((HH > REF(HH,1))); 
LL1:=BARSLAST((LL < REF(LL,1))); 
PARTLINE((HH1 < LL1),LL,colorBB0066),LINETHICK2; 
PARTLINE((HH1 > LL1),HH,color1B8800),LINETHICK2; 
STICKLINE((HH1 < LL1),HaClose,HaOpen,9,0),color0000FF; 
STICKLINE((HH1 < LL1),HaHigh,HaLow,0,0),color0000FF; 
STICKLINE((HH1 > LL1),HaClose,HaOpen,9,0),colorFF0000; 
STICKLINE((HH1 > LL1),HaHigh,HaLow,0,0),colorFF0000; 
MA5:EMA(C,5),coloryellow,Linethick1;
Run:=IF("RSI.RSI$1"(6,12,24)>68 OR "RSI.RSI$1"(6,12,24)<32,0,1);
操盘:IF(Run AND CROSS("RSI.RSI$1"(6,12,24),"RSI.RSI$3"(6,12,24)),"多",
   IF(Run AND CROSS("RSI.RSI$3"(6,12,24),"RSI.RSI$1"(6,12,24)),"空","不操作"));
DRAWICON(操盘="空" ,HH,"SELL"); 
DRAWICON(操盘="多" ,LL,"BUY");
技术人员回复
日期:2019-5-21 8:41

1楼源码第二行调用了自身,帮您简单修改
 
参考:

HACLOSE:=(O+C+H+L)/4;
HAOPEN:=(REF(HACLOSE,1)+REF(HACLOSE,2))/2;
HAHIGH:=MAX(H,HAOPEN);
HALOW:=MIN(L,HAOPEN);
HH:=HAHIGH; 
LL:=HALOW; 
HH1:=BARSLAST((HH > REF(HH,1))); 
LL1:=BARSLAST((LL < REF(LL,1))); 
PARTLINE((HH1 < LL1),LL,COLORBB0066),LINETHICK2; 
PARTLINE((HH1 > LL1),HH,COLOR1B8800),LINETHICK2; 
STICKLINE1((HH1 < LL1),HACLOSE,HAOPEN,9,0),COLOR0000FF; 
STICKLINE1((HH1 < LL1),HAHIGH,HALOW,0,0),COLOR0000FF; 
STICKLINE1((HH1 > LL1),HACLOSE,HAOPEN,9,0),COLORFF0000; 
STICKLINE1((HH1 > LL1),HAHIGH,HALOW,0,0),COLORFF0000; 
MA5:EMA(C,5),COLORYELLOW,LINETHICK1;
LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),24,1)/SMA(ABS(CLOSE-LC),24,1)*100;
RUN:=IF(RSI1>68 OR RSI1<32,0,1);
操盘:=IF(RUN AND CROSS(RSI1,RSI2),1,IF(RUN AND CROSS(RSI2,RSI1),2,3));
DRAWICON(操盘=2 ,HH,'ICO5'); 
DRAWICON(操盘=1 ,LL,'ICO4'),VALIGN0;
投资者咨询:[求助]这个指标能改成文化用吗?谢谢。 (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2019-5-21 8:34
 谢谢。。。
投资者咨询:[求助]这个指标能改成文化用吗?谢谢。 (文华财经WH6赢顺V6.7)
来源:文华财经  日期:2019-5-21 8:34
 K线挤在一起了,看不清楚啊

图片点击可在新窗口打开查看
技术人员回复
日期:2019-5-21 9:16

这么改下

HACLOSE:=(O+C+H+L)/4;
HAOPEN:=(REF(HACLOSE,1)+REF(HACLOSE,2))/2;
HAHIGH:=MAX(H,HAOPEN);
HALOW:=MIN(L,HAOPEN);
HH:=HAHIGH; 
LL:=HALOW; 
HH1:=BARSLAST((HH > REF(HH,1))); 
LL1:=BARSLAST((LL < REF(LL,1))); 
PARTLINE((HH1 < LL1),LL,COLORBB0066),LINETHICK2; 
PARTLINE((HH1 > LL1),HH,COLOR1B8800),LINETHICK2; 
STICKLINE((HH1 < LL1),HACLOSE,HAOPEN,COLOR0000FF,0); 
STICKLINE((HH1 < LL1),HAHIGH,HALOW,COLOR0000FF,0); 
STICKLINE((HH1 > LL1),HACLOSE,HAOPEN,COLORFF0000,0); 
STICKLINE((HH1 > LL1),HAHIGH,HALOW,COLORFF0000,0); 
MA5:EMA(C,5),COLORYELLOW,LINETHICK1;
LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),24,1)/SMA(ABS(CLOSE-LC),24,1)*100;
RUN:=IF(RSI1>68 OR RSI1<32,0,1);
操盘:=IF(RUN AND CROSS(RSI1,RSI2),1,IF(RUN AND CROSS(RSI2,RSI1),2,3));
DRAWICON(操盘=2 ,HH,'ICO5'); 
DRAWICON(操盘=1 ,LL,'ICO4'),VALIGN0;