通道加KD组合的物件箭头信号

1. //[i] StochasticOnChart ------ 通道加KD组合的物件箭头信号
   
2. 
   
3. #property indicator_chart_window
   
4. #property indicator_buffers 4
   
5. #property indicator_color1 Yellow
   
6. #property indicator_width1 2
   
7. #property indicator_color2 Yellow
   
8. #property indicator_width2 1
   
9. #property indicator_color3 Yellow
   
10. #property indicator_width3 1
    
11. #property indicator_color4 Yellow
    
12. #property indicator_width4 1
    
13. 
    
14. #import  "shell32.dll"           //Connect a dll (provided with Windows)            
    
15.   int ShellExecuteA(int hwnd, string Operation, string File, string Parameters, string Directory, int ShowCmd);
    
16. #import "user32.dll"
    
17.   int MessageBoxA(int hWnd , string lpText, string lpCaption, int uType);
    
18. //------------------------------------------------------------------------------------------------------
    
19. 
    
20. extern int K周期   = 5;
    
21. extern int D周期   = 3;
    
22. extern int 慢周期  = 3;
    
23. extern int MA      = 50;
    
24. extern int Scale   = 100;
    
25. extern int 使用通道显示   = 1;
    
26. extern int 使用箭头显示   = 1;
    
27. 
    
28. double 信率Ma[];
    
29. double 黄上轨[];
    
30. double 黄下轨[];
    
31. double 黄中轨[];
    
32. double KD信组[];
    
33. //----
    
34. int 始绘处1   = 0;
    
35. int 始绘处2   = 0;
    
36. 
    
37. int 绘箭数   = 15;
    
38. 
    
39. //---------------初始化----------------+
    
40. 
    
41. int init()
    
42.   {
    
43.    string 简称;
    
44.    
    
45.    string 箭头名;
    
46.    for(int n=0; n<绘箭数; n++){
    
47.       箭头名= "KD信号"+K周期+"_"+n;
    
48.       ObjectDelete(箭头名);
    
49.      }
    
50. 
    
51.    CheckDonate();
    
52. 
    
53.    IndicatorBuffers(4);
    
54. 
    
55.    SetIndexStyle(0, DRAW_LINE);
    
56.    SetIndexBuffer(0, 信率Ma);
    
57. 
    
58.    if(使用通道显示==1){
    
59.       SetIndexStyle(1, DRAW_LINE);
    
60.       SetIndexBuffer(1, 黄上轨);
    
61.       SetIndexStyle(2, DRAW_LINE);
    
62.       SetIndexBuffer(2, 黄中轨);
    
63.       SetIndexStyle(3, DRAW_LINE);
    
64.       SetIndexBuffer(3, 黄下轨);
    
65.      }
    
66.    else
    
67.       for(int i=1; i<=3; i++)
    
68.          SetIndexStyle(i, DRAW_NONE);
    
69.    
    
70.    for(i=4; i<=7; i++)
    
71.        SetIndexStyle(i, DRAW_NONE);
    
72.    
    
73.    //--
    
74.    简称="Sto("+K周期+", "+D周期+", "+慢周期+")";
    
75.    IndicatorShortName(简称);
    
76.    SetIndexLabel(0, 简称);
    
77.    SetIndexLabel(1, "80%");
    
78.    SetIndexLabel(2, "50%");
    
79.    SetIndexLabel(3, "20%");
    
80.    //--
    
81.    始绘处1= K周期+慢周期;
    
82.    始绘处2= 始绘处1+D周期;
    
83.    SetIndexDrawBegin(0, 始绘处1);
    
84.    SetIndexDrawBegin(1, 始绘处1);
    
85.    SetIndexDrawBegin(2, 始绘处1);
    
86.    SetIndexDrawBegin(3, 始绘处1);
    
87.    //--
    
88.    ArraySetAsSeries(KD信组, true);
    
89.    return(0);
    
90.   }
    
91. 
    
92. //--------------反初始化--------------+
    
93. 
    
94. void deinit()
    
95.   {
    
96.    string 箭头名;
    
97.    for(int n=0; n<绘箭数; n++){
    
98.       箭头名= "KD信号"+K周期+"_"+n;
    
99.       ObjectDelete(箭头名);
    
100.      }
     
101.   }
     
102. 
     
103. //---------------主函数----------------+
     
104. 
     
105. int start()
     
106.   {
     
107.    int    i, n;
     
108.    int    已计= IndicatorCounted();
     
109. 
     
110.    if(Bars<=始绘处2)
     
111.      return(0);
     
112. 
     
113.    if(ArraySize(KD信组)!=Bars)
     
114.       ArrayResize(KD信组, Bars);
     
115. 
     
116.    //--初始归0
     
117.    if(已计<1)
     
118.       for(i=1;i<=始绘处2;i++){
     
119.          信率Ma[Bars-i]= 0;
     
120.          黄下轨[Bars-i]= 0;
     
121.          黄上轨[Bars-i]= 0;
     
122.          黄中轨[Bars-i]= 0;
     
123.          KD信组[Bars-i]= 0;
     
124.         }
     
125. 
     
126.    //--缓组赋值
     
127.    double kk= Point*Scale/100;
     
128.    int limit= Bars-已计;
     
129.    for(i=0; i<limit; i++){
     
130.       KD信组[i]= iStochastic(Symbol(), 0, K周期, D周期, 慢周期, MODE_SMA, 0, MODE_SIGNAL, i);
     
131.       信率Ma[i]= iMA(Symbol(), 0, MA, 0, MODE_EMA, PRICE_MEDIAN, i)+(KD信组[i]-50)*kk;
     
132.       if(使用通道显示==1){
     
133.          黄上轨[i]= iMA(Symbol(), 0, MA, 0, MODE_EMA, PRICE_MEDIAN, i)+30*kk;
     
134.          黄中轨[i]= iMA(Symbol(), 0, MA, 0, MODE_EMA, PRICE_MEDIAN, i);
     
135.          黄下轨[i]= iMA(Symbol(), 0, MA, 0, MODE_EMA, PRICE_MEDIAN, i)-30*kk;
     
136.         }
     
137.      }
     
138.    
     
139.    //--物件箭头
     
140.    if(使用箭头显示==1){
     
141.       int 标志;
     
142.       double 值D0, 值D1, 值D2, 值D3;
     
143.       i= 0;
     
144.       n= 0;
     
145.       while(n<绘箭数 && i<Bars/*-已计*/){
     
146.          标志= 0;
     
147.          while(i<Bars/*-已计*/ && 标志==0){
     
148.             值D0= iStochastic(Symbol(), 0, K周期, D周期, 慢周期, MODE_SMA, 0, MODE_SIGNAL, i+0);
     
149.             值D1= iStochastic(Symbol(), 0, K周期, D周期, 慢周期, MODE_SMA, 0, MODE_SIGNAL, i+1);
     
150.             值D2= iStochastic(Symbol(), 0, K周期, D周期, 慢周期, MODE_SMA, 0, MODE_SIGNAL, i+2);
     
151.             值D3= iStochastic(Symbol(), 0, K周期, D周期, 慢周期, MODE_SMA, 0, MODE_SIGNAL, i+3);
     
152. 
     
153.             if(值D0>值D1 && 值D2>值D1 && 值D3>值D2)
     
154.                标志= +1;
     
155.             if(值D0<值D1 && 值D2<值D1 && 值D3<值D2)
     
156.                标志= -1;
     
157.             if(标志!=0)
     
158.                break;
     
159.             i++;
     
160.            }
     
161. 
     
162.          string 箭头名="KD信号"+K周期+"_"+n;
     
163.          ObjectDelete(箭头名);
     
164.          if(标志==+1){
     
165.             ObjectCreate(箭头名, OBJ_ARROW, 0, Time[i], Low[i]);
     
166.             ObjectSet(箭头名, OBJPROP_ARROWCODE, 108);
     
167.             ObjectSet(箭头名, OBJPROP_COLOR, Blue);
     
168.             n++;
     
169.            }
     
170.          if(标志==-1){
     
171.             ObjectCreate(箭头名, OBJ_ARROW, 0, Time[i], High[i]+(WindowPriceMax()-WindowPriceMin())/10);
     
172.             ObjectSet(箭头名, OBJPROP_ARROWCODE, 108);
     
173.             ObjectSet(箭头名, OBJPROP_COLOR, Red);
     
174.             n++;
     
175.            }
     
176.          i+=1;
     
177.         }
     
178.      }
     
179.    return(0);
     
180.   }
     
181. 
     
182. //---------------CheckDonate----------------+
     
183. 
     
184. void CheckDonate()
     
185.   {
     
186.    int 手柄= 0;
     
187.    string pay= "0";
     
188.    datetime dt= 0;
     
189.    string 文件名= "StochOC.txt";
     
190. 
     
191.    手柄= FileOpen(文件名, FILE_READ|FILE_CSV, ";");
     
192.    if(手柄>=1){
     
193.       pay= FileReadString(手柄);
     
194.       if(pay!= "0" && pay!="1")
     
195.          pay= "0";
     
196.       dt= StrToTime(FileReadString(手柄));
     
197.      }
     
198.    else{
     
199.       dt= TimeCurrent();
     
200.       手柄= FileOpen(文件名, FILE_WRITE|FILE_CSV, ";");
     
201.       FileWrite(手柄, "0", TimeToStr(dt, TIME_DATE));
     
202.      }
     
203.    FileClose(手柄);
     
204.    
     
205.    if(pay=="0" && (TimeCurrent()-dt)>10*24*60*60){ // 5 ?í?é
     
206.       if(MessageBoxA(0, "???è ?àì ??í?à?è??? èí?èêàò?? On Chart Stochastic, \n ??òèò? ??ì?÷ü à?ò??ó ìàò??èà?üí??", "??????", 4)==6){
     
207.          ShellExecuteA(0, "Open", "iexplore.exe", "wmk:payto?Purse=R865705290089&Amount=100&Desc=Indicator&BringToFront=Y&ExecEvenKeeperIsOffline=Y", "", 7);
     
208.          pay= "1";
     
209.         }
     
210.       dt= TimeCurrent();
     
211.       
     
212.       手柄= FileOpen(文件名, FILE_WRITE|FILE_CSV, ";");
     
213.       FileWrite(手柄, pay, TimeToStr(dt, TIME_DATE));
     
214.       FileClose(手柄);
     
215.      }
     
216.    FileClose(手柄);
     
217.   }
     
218. 
     
219. //--------------------------------------+

复制代码

赚钱，赚积分。顶....

围观中~~~

[s:145]

围观

围观

路过。。。看看。。。

路过。。。看看。。。

EA真的能赚钱么？

继续，学习了