公式网-网站导航


网站搜索：  

公式在线 发表于2009/11/12 7:15:37

神偷主图（付通达信）源码

神偷主图（付通达信）源码

C/C++ Code复制内容到剪贴板
  1. input:N(88,1,1111),N1(888,1,1111);   
  2. a1:=IF((CLOSE < 800),((AMOUNT / VOL) / 100),((((CLOSE * 2) + HIGH) + LOW) / 4));   
  3. a2:=((HHV(HIGH,15)) + (LLV(LOW,30))) / 2;   
  4. a3:=EMA((MA(a1,5)),10);   
  5. a4:=EMA((MA(a1,15)),10);   
  6. a5:=EMA((MA(a1,13)),21);   
  7. a6:=((a3 + a4) + a5) / 3;   
  8. 决策线:EMA((MA(CLOSE,5)),3),colorGreen;   
  9. 多空带:((((REF(a6,1)) + a6) + (REF(a6,2))) / 3),linethick0;   
  10. a7:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 1.191;   
  11. a8:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 1.236;   
  12. a9:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.809;   
  13. a10:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.764;   
  14. a11:=(((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.618;   
  15. 地线:(a9),linethick1,Coloryellow;   
  16. 天线:(a7),linethick1,ColorFF0000;   
  17. 支撑线:(a10),linethick2,Color73740F;   
  18. 阻力线:(a8),linethick2,Color509046;   
  19. a12:=((EMA((MA(a1,3)),3)) + (WMA(a1,5))) / 2;   
  20. a13:=REF(a12,1);   
  21. a14:=BARSCOUNT(CLOSE);   
  22. a15:=IF((a14 = 1),0,(((a12 - a13) / a13) * 100));   
  23. a16:=REF(CLOSE,1);   
  24. a17:=IF((a14 = 1),0,(((CLOSE - a16) / a16) * 100));   
  25. a18:=IF((a14 = 1),((CLOSE + OPEN) / 2),a13);   
  26. a19:=REF(a12,2);   
  27. a20:=((a12 + a13) + a19) / 3;   
  28. a21:=((ABS((a12 - a20)) + ABS((a13 - a20))) + ABS((a19 - a20))) / 3;   
  29. a22:=IF((a14 < 3),0,((a21 / a12) * 100));   
  30. a23:=IF((((a15 > 0.5) AND ((a22 > 0.215) OR (LOW > a18))) AND (CLOSE >= OPEN)),1,0);   
  31. a24:=IF((((a15 < (0 - 0.3)) AND ((a22 > 0.2) OR (HIGH < a18))) AND ((OPEN >= CLOSE) OR (a17 < -1))),1,0);   
  32. B:((COUNT(a23,BARSLAST(a24))) = 1) AND a23,linethick0;   
  33. D:((COUNT(a24,BARSLAST(a23))) = 1) AND a24,linethick0;   
  34. DRAWTEXT(B,(LOW * 0.98),'㊣'),linethick3,ALIGN1,colorWhite;   
  35. DRAWTEXT(D,(HIGH * 1.035),'Ｓ'),linethick3,ALIGN1,colorGreen;   
  36. STICKLINE(((B > 0) OR (D > 0)),a1,(a1 * 0.998),8,0),ColorFF0000;   
  37. a25:=(EMA(CLOSE,12)) - (EMA(CLOSE,26));   
  38. a26:=EMA(a25,9);   
  39. a27:=2 * (a25 - a26);   
  40. a28:=IF((((((((REF(a27,1)) < (REF(a27,2))) AND ((REF(a27,2)) < (REF(a27,3)))) AND (a27 > (REF(a27,1)))) AND (a27 >= 0)) AND ((LLV(a27,4)) > 0)) AND (COUNT((a27 < 0.18),5))),(a27 * 2),0);   
  41. a29:=IF(((COUNT((CROSS(a26,a25)),8)) AND (CROSS(a25,a26))),(a27 * 4),0);   
  42. a30:=(a28 > 0) AND (CLOSE >= (((REF(a6,1)) + a6) + (REF(a6,2))) / 3);   
  43. DRAWICON(a30,LOW,12),ALIGN1;   
  44. a31:=(((CLOSE / a16) - 1) * 100) >= 7;   
  45. a32:=HIGH - ((HIGH - LOW) / 3);   
  46. a33:=LOW + ((HIGH - LOW) / 3);   
  47. a34:=(CLOSE > 0) AND a31;   
  48. a35:=((HIGH - LOW) * 0.618) + LOW;   
  49. a36:=((HIGH - LOW) * 0.382) + LOW;   
  50. STICKLINE(a34,a32,a33,8,0),colorYellow;   
  51. STICKLINE(a34,((HIGH + LOW) / 2),((HIGH + LOW) / 2),8,0);   
  52. STICKLINE(a34,CLOSE,a35,8,0),colorRed;   
  53. STICKLINE(a34,CLOSE,a35,7,0),Color1414FF;   
  54. STICKLINE(a34,CLOSE,a35,6,0),Color2828FF;   
  55. STICKLINE(a34,CLOSE,a35,5,0),Color3D3DFF;   
  56. STICKLINE(a34,CLOSE,a35,4,0),Color5151FF;   
  57. STICKLINE(a34,CLOSE,a35,3,0),Color6565FF;   
  58. STICKLINE(a34,CLOSE,a35,2,0),Color7A7AFF;   
  59. STICKLINE(a34,CLOSE,a35,1,0),Color8E8EFF;   
  60. STICKLINE(a34,a36,OPEN,8,0),colorGreen;   
  61. STICKLINE(a34,a36,OPEN,7,0),Color28FF28;   
  62. STICKLINE(a34,a36,OPEN,6,0),Color3DFF3D;   
  63. STICKLINE(a34,a36,OPEN,5,0),Color51FF51;   
  64. STICKLINE(a34,a36,OPEN,4,0),Color65FF65;   
  65. STICKLINE(a34,a36,OPEN,3,0),Color7AFF7A;   
  66. STICKLINE(a34,a36,OPEN,2,0),Color8EFF8E;   
  67. STICKLINE(a34,a36,OPEN,1,0),ColorA2FFA2;   
  68. a37:=((CLOSE - (EMA(a1,25))) / (EMA(a1,25))) * 100;   
  69. DRAWTEXT(((a37 > 12) AND (CROSS(决策线,CLOSE))),HIGH,'卖出');   
  70. a41:=LOW < a11;   
  71. DRAWICON(a41,LOW,1);   
  72. DRAWICON((((CROSS(CLOSE,(REF(a9,1)))) AND (a15 < -3)) OR (((LOW < 支撑线) AND (CLOSE > 支撑线)) AND (a15 < -3.5))),LOW,7),ALIGN1;   
  73. DRAWTEXT((CROSS(CLOSE,(REF(a10,1)))),(LOW * 0.96),'仓1/2'),colorYellow;   
  74. DRAWTEXT((CROSS(CLOSE,(REF(((((REF(a6,1)) + a6) + (REF(a6,2))) / 3 * 0.681),1)))),(LOW * 0.98),'1/2仓'),Color005EFF;   
  75. DRAWTEXT(a41,HIGH,'满仓出击');   
  76. a43:=((SMA((MAX((CLOSE - a16),0)),5,1)) / (SMA(ABS((CLOSE - a16)),5,1))) * 100;   
  77. DRAWTEXT(((CROSS(a43,10)) AND (a15 < -4)),(LOW * 0.92),'◢◣'),ALIGN1,colorRed;   
  78. DRAWTEXT((((a15 < -5) AND (a37 < -24)) AND (a43 < 12)),(LOW * 0.95),'▲'),ALIGN1,colorMagenta;   
  79. a44:=LOW > (REF(HIGH,1));   
  80. a45:=HIGH < (REF(LOW,1));   
  81. DRAWTEXT(a44,((REF(HIGH,1)) * 1.003),'─'),ALIGN1,colorWhite;   
  82. DRAWTEXT(a44,(LOW * 1.003),'─'),ALIGN1,colorWhite;   
  83. DRAWTEXT(a45,((REF(LOW,1)) * 1.003),'─'),ALIGN1,colorGreen;   
  84. DRAWTEXT(a45,(HIGH * 1.003),'─'),ALIGN1,colorGreen;   
  85. 突破:REF(EMA(C,5),1)COLORMAGENTA,LINETHICK2;   
  86. /////////////////////////////////////////////////   
  87. A1X:=(EMA(C,5)-突破)/突破*100;   
  88. 出击:PARTLINE(A1X>=0,REF(EMA(C,5),BARSLAST(CROSS(A1X,0))+1)),COLORYELLOW,LINETHICK2;   
  89. 休假:PARTLINE(A1X<0,REF(EMA(C,5),BARSLAST(CROSS(0,A1X))+1)),COLORBLUE,LINETHICK3;   
  90. STICKLINE(A1X>=0,REF(EMA(C,5),BARSLAST(CROSS(A1X,0))+1),突破,0.5,-1),COLORRED;   
  91. STICKLINE(A1X<0,REF(EMA(C,5),BARSLAST(CROSS(0,A1X))+1),突破,0,-1),COLORGREEN;   
  92. PARTLINE(A1X<0,突破),COLORGREEN,LINETHICK2;   
  93. //////////////////////////////////////////////////   
  94. VAR0:=EMA(EMA(EMA(CLOSE,2),2),2);   
  95. 海岸线:=(HHV(VAR0,13)*0.98),LINETHICK3,colorFF00;   
  96. K1:=EMA(CLOSE,3),colorFF0000;   
  97. K2:=EMA(CLOSE,5),colorFF0000;   
  98. K3:=EMA(CLOSE,8),colorFF0000;   
  99. K4:=EMA(CLOSE,13),colorFF0000;   
  100. K5:=EMA(CLOSE,15),colorFF0000;   
  101. QQ:=(((((MA(K1,1)+MA(K2,3))+MA(K3,5))+MA(K4,7))+MA(K5,9))/5),LINETHICK2,colorFF00FF;   
  102. K6:=EMA(CLOSE,30),colorFFFF;   
  103. 暗器24:=IF(CROSS(K6,QQ),海岸线,0);   
  104. DRAWTEXT((暗器24>0),LOW,'■神偷'),colorFFFF;   
  105. //////////////////////////////////////////////////   

 

C/C++ Code复制内容到剪贴板
  1. 改为通达信版本   
  2. 公式非常好，谢谢。为便于广大通达信使用者，改为通达信。   
  3. INPUT:N(88,1,1111),N1(888,1,1111);   
  4.   
  5. A1:=IF((CLOSE < 800),((AMOUNT / VOL) / 100),((((CLOSE * 2) + HIGH) + LOW) / 4));   
  6. A2:=((HHV(HIGH,15)) + (LLV(LOW,30))) / 2;   
  7. A3:=EMA((MA(A1,5)),10);   
  8. A4:=EMA((MA(A1,15)),10);   
  9. A5:=EMA((MA(A1,13)),21);   
  10. A6:=((A3 + A4) + A5) / 3;   
  11. 决策线:EMA((MA(CLOSE,5)),3),COLORGREEN;   
  12. 多空带:((((REF(A6,1)) + A6) + (REF(A6,2))) / 3),LINETHICK0;   
  13. A7:=(((REF(A6,1)) + A6) + (REF(A6,2))) / 3 * 1.191;   
  14. A8:=(((REF(A6,1)) + A6) + (REF(A6,2))) / 3 * 1.236;   
  15. A9:=(((REF(A6,1)) + A6) + (REF(A6,2))) / 3 * 0.809;   
  16. A10:=(((REF(A6,1)) + A6) + (REF(A6,2))) / 3 * 0.764;   
  17. A11:=(((REF(A6,1)) + A6) + (REF(A6,2))) / 3 * 0.618;   
  18. 地线:(A9),LINETHICK1,COLORYELLOW;   
  19. 天线:(A7),LINETHICK1,COLORFF0000;   
  20. 支撑线:(A10),LINETHICK2,COLOR73740F;   
  21. 阻力线:(A8),LINETHICK2,COLOR509046;   
  22. A12:=((EMA((MA(A1,3)),3)) + (EMA(A1,5))) / 2;   
  23. A13:=REF(A12,1);   
  24. A14:=BARSCOUNT(CLOSE);   
  25. A15:=IF((A14 = 1),0,(((A12 - A13) / A13) * 100));   
  26. A16:=REF(CLOSE,1);   
  27. A17:=IF((A14 = 1),0,(((CLOSE - A16) / A16) * 100));   
  28. A18:=IF((A14 = 1),((CLOSE + OPEN) / 2),A13);   
  29. A19:=REF(A12,2);   
  30. A20:=((A12 + A13) + A19) / 3;   
  31. A21:=((ABS((A12 - A20)) + ABS((A13 - A20))) + ABS((A19 - A20))) / 3;   
  32. A22:=IF((A14 < 3),0,((A21 / A12) * 100));   
  33. A23:=IF((((A15 > 0.5) AND ((A22 > 0.215) OR (LOW > A18))) AND (CLOSE >= OPEN)),1,0);   
  34. A24:=IF((((A15 < (0 - 0.3)) AND ((A22 > 0.2) OR (HIGH < A18))) AND ((OPEN >= CLOSE) OR (A17 < -1))),1,0);   
  35. B:((COUNT(A23,BARSLAST(A24))) = 1) AND A23,LINETHICK0;   
  36. D:((COUNT(A24,BARSLAST(A23))) = 1) AND A24,LINETHICK0;   
  37. DRAWTEXT(B,(LOW * 0.98),'㊣'),LINETHICK3,,COLORWHITE;   
  38. DRAWTEXT(D,(HIGH * 1.035),'Ｓ'),LINETHICK3,,COLORGREEN;   
  39. STICKLINE(((B > 0) OR (D > 0)),A1,(A1 * 0.998),8,0),COLORFF0000;   
  40. A25:=(EMA(CLOSE,12)) - (EMA(CLOSE,26));   
  41. A26:=EMA(A25,9);   
  42. A27:=2 * (A25 - A26);   
  43. A28:=IF((((((((REF(A27,1)) < (REF(A27,2))) AND ((REF(A27,2)) < (REF(A27,3)))) AND (A27 > (REF(A27,1)))) AND (A27 >= 0)) AND ((LLV(A27,4)) > 0)) AND (COUNT((A27 < 0.18),5))),(A27 * 2),0);   
  44. A29:=IF(((COUNT((CROSS(A26,A25)),8)) AND (CROSS(A25,A26))),(A27 * 4),0);   
  45. A30:=(A28 > 0) AND (CLOSE >= (((REF(A6,1)) + A6) + (REF(A6,2))) / 3);   
  46. DRAWICON(A30,LOW,12),;   
  47. A31:=(((CLOSE / A16) - 1) * 100) >= 7;   
  48. A32:=HIGH - ((HIGH - LOW) / 3);   
  49. A33:=LOW + ((HIGH - LOW) / 3);   
  50. A34:=(CLOSE > 0) AND A31;   
  51. A35:=((HIGH - LOW) * 0.618) + LOW;   
  52. A36:=((HIGH - LOW) * 0.382) + LOW;   
  53. STICKLINE(A34,A32,A33,8,0),COLORYELLOW;   
  54. STICKLINE(A34,((HIGH + LOW) / 2),((HIGH + LOW) / 2),8,0);   
  55. STICKLINE(A34,CLOSE,A35,8,0),COLORRED;   
  56. STICKLINE(A34,CLOSE,A35,7,0),COLOR1414FF;   
  57. STICKLINE(A34,CLOSE,A35,6,0),COLOR2828FF;   
  58. STICKLINE(A34,CLOSE,A35,5,0),COLOR3D3DFF;   
  59. STICKLINE(A34,CLOSE,A35,4,0),COLOR5151FF;   
  60. STICKLINE(A34,CLOSE,A35,3,0),COLOR6565FF;   
  61. STICKLINE(A34,CLOSE,A35,2,0),COLOR7A7AFF;   
  62. STICKLINE(A34,CLOSE,A35,1,0),COLOR8E8EFF;   
  63. STICKLINE(A34,A36,OPEN,8,0),COLORGREEN;   
  64. STICKLINE(A34,A36,OPEN,7,0),COLOR28FF28;   
  65. STICKLINE(A34,A36,OPEN,6,0),COLOR3DFF3D;   
  66. STICKLINE(A34,A36,OPEN,5,0),COLOR51FF51;   
  67. STICKLINE(A34,A36,OPEN,4,0),COLOR65FF65;   
  68. STICKLINE(A34,A36,OPEN,3,0),COLOR7AFF7A;   
  69. STICKLINE(A34,A36,OPEN,2,0),COLOR8EFF8E;   
  70. STICKLINE(A34,A36,OPEN,1,0),COLORA2FFA2;   
  71. A37:=((CLOSE - (EMA(A1,25))) / (EMA(A1,25))) * 100;   
  72. DRAWTEXT(((A37 > 12) AND (CROSS(决策线,CLOSE))),HIGH,'卖出');   
  73. A41:=LOW < A11;   
  74. DRAWICON(A41,LOW,1);   
  75. DRAWICON((((CROSS(CLOSE,(REF(A9,1)))) AND (A15 < -3)) OR (((LOW < 支撑线) AND (CLOSE > 支撑线)) AND (A15 < -3.5))),LOW,7),;   
  76. DRAWTEXT((CROSS(CLOSE,(REF(A10,1)))),(LOW * 0.96),'仓1/2'),COLORYELLOW;   
  77. DRAWTEXT((CROSS(CLOSE,(REF(((((REF(A6,1)) + A6) + (REF(A6,2))) / 3 * 0.681),1)))),(LOW * 0.98),'1/2仓'),COLOR005EFF;   
  78. DRAWTEXT(A41,HIGH,'满仓出击');   
  79. A43:=((SMA((MAX((CLOSE - A16),0)),5,1)) / (SMA(ABS((CLOSE - A16)),5,1))) * 100;   
  80. DRAWTEXT(((CROSS(A43,10)) AND (A15 < -4)),(LOW * 0.92),'◢◣'),,COLORRED;   
  81. DRAWTEXT((((A15 < -5) AND (A37 < -24)) AND (A43 < 12)),(LOW * 0.95),'▲'),,COLORMAGENTA;   
  82. A44:=LOW > (REF(HIGH,1));   
  83. A45:=HIGH < (REF(LOW,1));   
  84. DRAWTEXT(A44,((REF(HIGH,1)) * 1.003),'─'),,COLORWHITE;   
  85. DRAWTEXT(A44,(LOW * 1.003),'─'),,COLORWHITE;   
  86. DRAWTEXT(A45,((REF(LOW,1)) * 1.003),'─'),,COLORGREEN;   
  87. DRAWTEXT(A45,(HIGH * 1.003),'─'),,COLORGREEN;   
  88. 突破:REF(EMA(C,5),1)COLORMAGENTA,LINETHICK2;   
  89.   
  90. A1X:=(EMA(C,5)-突破)/突破*100;   
  91. 出击:IF(A1X>=0,REF(EMA(C,5),BARSLAST(CROSS(A1X,0))+1),DRAWNULL),COLORYELLOW,LINETHICK2;   
  92. 休假:IF(A1X<0,REF(EMA(C,5),BARSLAST(CROSS(0,A1X))+1),DRAWNULL),COLORBLUE,LINETHICK3;   
  93. STICKLINE(A1X>=0,REF(EMA(C,5),BARSLAST(CROSS(A1X,0))+1),突破,0.5,-1),COLORRED;   
  94. STICKLINE(A1X<0,REF(EMA(C,5),BARSLAST(CROSS(0,A1X))+1),突破,0,-1),COLORGREEN;   
  95. IF(A1X<0,突破,DRAWNULL),COLORGREEN,LINETHICK2;   
  96.   
  97. VAR0:=EMA(EMA(EMA(CLOSE,2),2),2);   
  98. 海岸线:=(HHV(VAR0,13)*0.98),LINETHICK3,COLORRED;   
  99. K1:=EMA(CLOSE,3),COLORFF0000;   
  100. K2:=EMA(CLOSE,5),COLORFF0000;   
  101. K3:=EMA(CLOSE,8),COLORFF0000;   
  102. K4:=EMA(CLOSE,13),COLORFF0000;   
  103. K5:=EMA(CLOSE,15),COLORFF0000;   
  104. QQ:=(((((MA(K1,1)+MA(K2,3))+MA(K3,5))+MA(K4,7))+MA(K5,9))/5),LINETHICK2,COLORFF00FF;   
  105. K6:=EMA(CLOSE,30),COLORYELLOW;   
  106. 暗器24:=IF(CROSS(K6,QQ),海岸线,0);   
  107. DRAWTEXT((暗器24>0),LOW,'■神偷'),COLORYELLOW;   

 



网站搜索：  



Copyright © 2009-2010 gszb.com ™,All Rights Reserved.　
公式网-www.gszx.com.cn-股票指标公式网