通达信智慧波段副图 源码

[复制链接]
查看598 | 回复0 | 2022-7-24 09:01:31 | 显示全部楼层 |阅读模式

 通达信智慧波段副图 源码

{牛牛指标网提供:www.tdx001.com}

复制内容到剪贴板
  1. JM:=1;   
  2.   
  3. TT:=39;   
  4. N:=5;   
  5. VAR1A:=4*SMA((CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,5,1)-   
  6. 3*SMA(SMA((CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,5,1),3.2,1);   
  7. VAR2A:=8;   
  8. {DRAWICON(CROSS(VAR1A,VAR2A),8,3)};   
  9. VARO5A:=LLV(LOW,27);   
  10. VARO6A:=HHV(HIGH,34);   
  11. VARO7A:=EMA((CLOSE-VARO5A)/(VARO6A-VARO5A)*4,4)*25;   
  12. AA:=REF(CLOSE,1);   
  13. BBB:=SMA(MAX(CLOSE-AA,0),5,1)/SMA(ABS(CLOSE-AA),5,1)*1000;   
  14. HHH:=BBB-LLV(BBB,10);   
  15. SS:=(MA(HHH,2)*3+HHH*13)/64;   
  16. 短线买点:=IF(SS>13,MA(SS,2),SS);   
  17. MM:=WINNER(H/2+L/2)*100;   
  18. WW:=3;   
  19. VAR2:=((CLOSE > REF(CLOSE,1)) AND (CLOSE > REF(CLOSE,2)));   
  20. VAR3:=((REF(VAR2,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));   
  21. VAR4:=((REF(VAR3,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));   
  22. VAR5:=((REF(VAR4,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));   
  23. VAR6:=((REF(VAR5,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));   
  24. VAR7:=((REF(VAR6,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));   
  25. VAR8:=((REF(VAR7,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));   
  26. VAR9:=((REF(VAR8,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));   
  27. VARA:=((REF(VAR9,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));   
  28. VARB:=((REF(VARA,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));   
  29. VARC:=((REF(VARB,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));   
  30. VARD:=((REF(VARC,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));   
  31. VARE:=((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,2)));   
  32. VARF:=((REF(VARE,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));   
  33. VAR10:=((REF(VARF,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));   
  34. VAR11:=((REF(VAR10,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));   
  35. VAR12:=((REF(VAR11,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));   
  36. VAR13:=((REF(VAR12,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));   
  37. VAR14:=((REF(VAR13,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));   
  38. VAR15:=((REF(VAR14,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));   
  39. VAR16:=((REF(VAR15,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));   
  40. VAR17:=((REF(VAR16,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));   
  41. VAR18:=((REF(VAR17,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));   
  42. VAR19:=((REF(VAR18,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));   
  43. VAR1AA:=(REF((((((((((((VARE OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18) OR VAR19),1) AND VAR2);   
  44. VARAA:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;   
  45. VARBA:=SMA(VARAA,3,1);   
  46. VARCA:=SMA(VARBA,3,1);   
  47. 智慧波段1:EMA(3*VARBA-2*VARCA,3)*JM,COLORYELLOW;   
  48. 加速:=智慧波段1;   
  49. 买入:IF(MM>REF(MM,1) AND VAR1A>REF(VAR1A,1)   
  50. AND 短线买点>REF(短线买点,1) AND VAR1A<80 AND 短线买点>5   
  51. AND VAR1AA=1 AND REF(加速,1)<TT,150,0)*JM,COLORRED,LINETHICK2;   
  52. R加速:=REF(加速,1);   
  53. DRAWICON(CROSS(R加速,加速),加速,2);   
  54. DRAWICON(CROSS(加速,R加速) AND R加速<50,R加速,11);   
  55.   
  56. {MC:=IF(C<REF(L,1)*1.01,1,0);   
  57. DRAWICON(CROSS(MC,0.9),100,2)};   
  58.   
  59.   
  60. B1:=(HHV(H,9)-C)/(HHV(H,9)-LLV(LOW,9))*100- 70;   
  61. B2:=SMA(B1,9,1)+100;   
  62. B3:=(C-LLV(L,9))/(HHV(H,9)- LLV(L,9))*100;   
  63. B4:=SMA(B3,3,1);   
  64. B5:=SMA(B4,3,1)+100;   
  65. B6:=(B5-B2);   
  66. 模量:=VOL*240;   
  67. LF:=100*(EMA(IF(C>O,模量,0),10)-EMA(IF(C<O,模量,0),10))/EMA(VOL,5);   
  68. JF:=50*EMA((2*C-REF(C,1)-REF(O,1)),10)/EMA(H-L,5);   
  69. LJF:=SMA((JF+LF)/2,3,1);   
  70. 量价指标:=JF+LF;   
  71. 量价趋势:=LJF;   
  72. 量价动力:=3*LJF-2*SMA(LJF,3,1);   
  73.   
  74. SZ:=ABS((C-O)/O)*10000;   
  75.   
  76.   
  77. 买2:IF((MM>REF(MM,1) AND VAR1A>REF(VAR1A,1)   
  78. AND 短线买点>REF(短线买点,1) AND VAR1A<80 AND 短线买点>5 AND (CROSS(加速,R加速))   
  79. AND R加速<55   
  80. AND REF(SZ,1)<150)   
  81. OR (MM>REF(MM,1) AND VAR1A>REF(VAR1A,1)   
  82. AND 短线买点>REF(短线买点,1) AND VAR1A<80 AND 短线买点>5 AND (CROSS(加速,R加速))   
  83. AND  R加速<55 AND REF(SZ,1)<150)*JM   
  84. ,100,0),COLORYELLOW;   
  85.   
  86. 买3:IF((MM>REF(MM,1) AND VAR1A>REF(VAR1A,1)   
  87. AND 短线买点>REF(短线买点,1) AND VAR1A<80 AND 短线买点>5 AND (CROSS(加速,R加速))   
  88. AND CROSS(量价指标,REF(量价指标,1)) AND REF(量价指标,1)<量价趋势*1.4 AND   
  89. R加速<55)   
  90. OR (MM>REF(MM,1) AND VAR1A>REF(VAR1A,1)   
  91. AND 短线买点>REF(短线买点,1) AND VAR1A<80 AND 短线买点>5 AND (CROSS(加速,R加速))   
  92. AND CROSS(量价指标,量价趋势) AND R加速<55)*JM   
  93. ,70,0),COLORRED;   
  94.   
  95.   
  96.   
  97. 买4:IF((MM>REF(MM,1) AND VAR1A>REF(VAR1A,1)   
  98. AND 短线买点>REF(短线买点,1) AND VAR1A<80 AND 短线买点>5 AND (CROSS(加速,R加速))   
  99. AND CROSS(量价指标,REF(量价指标,1)) AND REF(量价指标,1)<量价趋势*1.4)   
  100. OR (MM>REF(MM,1) AND VAR1A>REF(VAR1A,1)   
  101. AND 短线买点>REF(短线买点,1) AND VAR1A<80 AND 短线买点>5 AND (CROSS(加速,R加速))   
  102. AND CROSS(量价指标,量价趋势))*JM,40,0),COLORMAGENTA;   
  103.    

73144563.jpg

73144563.jpg

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则