Board logo

标题: [通达信指标/源码] [转载]自用M-K(源码) [打印本页]

作者: 龙听    时间: 2018-10-19 15:39     标题: [转载]自用M-K(源码)

  1. SQX:=(C-MA(CLOSE,13))*100;
  2. DIF:=EMA(MA(SQX,7),1),COLORWHITE;
  3. DEA:=EMA(DIF,7),COLORYELLOW;
  4. MACD:=(DIF-DEA)*2,COLORSTICK;
  5. STICKLINE(MACD>0  AND  MACD>REF(MACD,1),MACD,0,0.1,0),COLORRED;
  6. STICKLINE(MACD>0  AND  MACD
  7. STICKLINE(MACD<0  AND  MACD
  8. STICKLINE(MACD<0  AND  MACD>REF(MACD,1),MACD,0,0.1,0),COLORFF00A9;
  9. RSV:=((CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21)))*247.2-123.6;
  10. K:SMA(SMA( RSV,3,1),3,1),COLORWHITE;
  11. D:MA(EMA(K,3),3),COLORYELLOW;
  12. J:3*K-2*D,COLORMAGENTA;
  13. A11:=BARSLAST(REF(CROSS(DIF,DEA),1));
  14. B1:=REF(C,A11+1)>C AND REF(DIF,A11+1)
  15. A12:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));
  16. B2:=REF(C,A12+1)>C AND REF("KDJ.K",A12+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D");
  17. A13:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
  18. B3:=REF(C,A13+1)>C AND REF("RSI.RSI1",A13+1)<"RSI.RSI1"AND CROSS("RSI.RSI1","RSI.RSI2");
  19. C1:=BARSLAST(REF(CROSS(DEA,DIF),1));
  20. D1:=REF(C,C1+1)DIF AND CROSS(DEA,DIF);
  21. C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));
  22. D2:=REF(C,C2+1)"KDJ.K" AND CROSS("KDJ.D","KDJ.K");
  23. C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));
  24. D3:=REF(C,C3+1)"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1");
  25. MACD底背:IF(B1>0,50,0),LINETHICK2,COLORRED;
  26. KDJ底背:IF(B2>0,65,0),LINETHICK2,COLORFF00FF;
  27. RSI底背:IF(B3>0,80,0),LINETHICK2,COLORYELLOW;
  28. MACD顶背:IF(D1>0,-50,0),LINETHICK2,COLOR00FF00;
  29. KDJ顶背:IF(D2>0,-65,0),LINETHICK2,COLORFFCC66;
  30. RSI顶背:IF(D3>0,-80,0),LINETHICK2,COLORWHITE;
  31. DRAWICON((CROSS(K,D) AND K<0 ),K,11);
  32. DRAWICON((CROSS(D,K) AND K>0 ),D,12);
  33. DRAWICON(J<(REF(J,1))AND K>(REF(K,1)) AND D>(REF(D,1) AND J>0),REF(J,1),2);
  34. DRAWICON(J>(REF(J,1)) AND K<(REF(K,1)) AND D<(REF(D,1) AND J<0),REF(J,1),1);
复制代码

选股公式源码:
自用M-K金叉选股
  1. RSV:=((CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18)))*40-20;
  2. K:=SMA(SMA( RSV,3,1),3,1),COLORWHITE;
  3. D:=MA(EMA(K,3),3),COLORYELLOW;
  4. CROSS(K,D) AND K<0 AND EXIST((C/REF(C,1)>1.06 OR C/REF(C,1)<0.94) ,60) AND DYNAINFO(37)>0 AND FINANCE(7)<500000000;
复制代码





欢迎光临 龙听期货论坛 (http://www.qhlt.cn/) Powered by Discuz! 7.2