//[i] 85 双色双线macd+报警#property indicator_separate_window#property indicator_buffers 4#property indicator_color1 magenta#property indicator_color2 aqua#property indicator_color3 green#property indicator_color4 redextern bool 使用报警 = true;extern bool 使用邮件 = false;extern int 快均周 = 12;extern int 慢均周 = 26;extern int 信均周 = 9;double 紫快线[];double 青慢滑[];double 绿涨柱[];double 红跌柱[];bool 已报涨标记= false;bool 已报跌标记= false;//--------------------------------+int init() { indicatordigits(market**(symbol(), mode_digits)+1); setindexstyle(0, draw_line, style_solid); setindexbuffer(0, 紫快线); setindexdrawbegin(0, 慢均周); setindexstyle(1, draw_line, style_dot); setindexbuffer(1, 青慢滑); setindexdrawbegin(1, 信均周); setindexstyle(2, draw_h**togram, style_solid); setindexbuffer(2, 绿涨柱); setindexstyle(3, draw_h**togram, style_solid); setindexbuffer(3, 红跌柱); //setindexdrawbegin(2, 慢均周 + 信均周); indicatorshortname("macd("+快均周+", "+慢均周+", "+信均周+")"); setindexlabel(0, "macd"); setindexlabel(1, "信号线"); setindexlabel(2, "历史柱"); return(0); }//--------------------------------+int start() { int 最少计; double 差幅; int 已计= indicatorcounted(); if(已计<0) return(-1); if(已计>0) 已计--; 最少计= bars-已计; for(int i=0; i<最少计; i++) 紫快线[i]= ima(**,0,快均周, 0, mode_ema, price_close, i)-ima(**, 0, 慢均周, 0, mode_ema, price_close, i); for(i= 0; i<最少计; i++) 青慢滑[i]= imaonarray(紫快线, bars, 信均周, 0, mode_sma, i); //青慢滑[i]= alpha*紫快线[i] + alpha_1*青慢滑[i+1]; for(i=0; i<最少计; i++){ 绿涨柱[i]= 0; 红跌柱[i]= 0; 差幅= 紫快线[i]-青慢滑[i]; if(差幅>= 0) 绿涨柱[i]= 差幅*2; else 红跌柱[i]= 差幅*2; if(i==1){ if(绿涨柱[i]>0 && 红跌柱[i+1]<0) //if(绿涨柱[i]>绿涨柱[i+1]) { //--上穿 if(已报涨标记==false) { 已报涨标记= true; 已报跌标记= false; if(使用报警==true) alert("macd上穿", "\n 日期= ", timetostr(timecurrent(), time_date), " ", timehour(timecurrent()), ":", timeminute(timecurrent()), "\n 货币对= ", symbol(), " 时框= ", period()); if(使用邮件==true) sendmail("macd上穿", "macd上穿, 日期= "+timetostr(timecurrent(), time_date)+" "+timehour(timecurrent())+":"+timeminute(timecurrent())+" 货币对= "+symbol()+" 时框= "+period()); } } else if(红跌柱[i]<0 && 绿涨柱[i+1]>0) //else if(绿涨柱[i]<绿涨柱[i+1] ) { //--下穿 if(已报跌标记==false) { 已报跌标记= true; 已报涨标记= false; if(使用报警==true) alert("macd下穿", "\n 日期= ", timetostr(timecurrent(), time_date), " ", timehour(timecurrent()), ":", timeminute(timecurrent()), "\n 货币对= ", symbol(), " 时框= ", period()); if(使用邮件==true) sendmail("macd下穿", "macd下穿, 日期= "+timetostr(timecurrent(), time_date)+" "+timehour(timecurrent())+":"+timeminute(timecurrent())+" 货币对= "+symbol()+" 时框= "+period()); } } } } return(0); }//--------------------------------+你也不悬赏点分啥的把分看得那么重,我要是跟你一样把这玩意看的很重……多余不说,下次注意! 20210311