Waddah_Attar_Trend_Alert - MetaTrader 5脚本

//+------------------------------------------------------------------+
//|购买信号功能                                              |
//+------------------------------------------------------------------+
空白买入信号(细绳信号先生姓名，// 电子邮件和推送消息的指标名称文本
双倍的&颜色数组[],// 颜色索引缓冲区
整数颜色指数，// 用于生成信号的颜色索引缓冲区中的颜色索引
常量 整数费率_总计，// 当前柱数
常量 整数前_计算，// 前一个价格变动的柱数
常量 双倍的&关闭[],// 收盘价
常量 整数＆传播[]）// 传播
{
//---
静止的 单位计数器=0;
如果(Rates_total!=Prev_calculated) 计数器=0;

布尔值买入信号=错误的;
布尔值系列测试=数组获取系列（颜色数组）；
整数索引，索引1；
如果（系列测试）
{
索引=整数(条数);
索引1=索引+1;
}
别的
{
索引=Rates_total-整数(条数)-1;
索引1=索引-1;
}
如果(ColorArray[index1]!=ColorIndex && ColorArray[index]==ColorIndex) BuySignal=真的;
如果(BuySignal && 计数器<=NumberofAlerts)
{
计数器++；
Mql日期时间TM；
构建时间（时间当前(),tm);
细绳文字=字符串时间（时间当前(),TIME_DATE)+” “+细绳(tm.小时)+“：”+细绳(tm.分钟);
系列测试=数组获取系列（关闭）；
如果（系列测试）索引=整数(条数);
别的索引=Rates_total-整数(条数)-1;
双倍的 问=关闭[指数];
双倍的 出价=关闭[指数];
系列测试=数组获取系列（传播）;
如果（系列测试）索引=整数(条数);
别的索引=Rates_total-整数(条数)-1;
出价+=_观点*传播[索引]；
细绳问=双精度转字符串（问,_数字）；
细绳出价=双精度转字符串（出价,_数字）；
细绳sPeriod=GetStringTimeframe(图表周期());
如果（声音打开）警报（"买入信号 \n 询问=",问,“\n 出价=”,出价,“\n 当前时间=”，文本，“\n 符号=”,象征(),“句号=”,s 期间);
如果（电子邮件）发送邮件(信号先生姓名+“：买入信号提醒”,“在询问处买入信号=”+问+“，出价=”+出价+“，日期=”+文字+“符号=”+象征()+“句号=”+s句点）；
如果（推开）发送通知(信号先生姓名+": 在 Ask=" 处买入信号+问+“，出价=”+出价+“，日期=”+文字+“符号=”+象征()+“句号=”+s句点）；
}

//---
}
//+------------------------------------------------------------------+
//|卖出信号函数                                             |
//+------------------------------------------------------------------+
空白卖出信号(细绳信号先生姓名，// 电子邮件和推送消息的指标名称文本
双倍的&颜色数组[],// 颜色索引缓冲区
整数颜色指数，// 用于生成信号的颜色索引缓冲区中的颜色索引
常量 整数费率_总计，// 当前柱数
常量 整数前_计算，// 前一个价格变动的柱数
常量 双倍的&关闭[],// 收盘价
常量 整数＆传播[]）// 传播
{
//---
静止的 单位计数器=0;
如果(Rates_total!=Prev_calculated) 计数器=0;

布尔值卖出信号=错误的;
布尔值系列测试=数组获取系列（颜色数组）；
整数索引，索引1；
如果（系列测试）
{
索引=整数(条数);
索引1=索引+1;
}
别的
{
索引=Rates_total-整数(条数)-1;
索引1=索引-1;
}
如果(ColorArray[index1]!=ColorIndex && ColorArray[index]==ColorIndex) 卖出信号=真的;
如果(SellSignal && 计数器<=NumberofAlerts)
{
计数器++；
Mql日期时间TM；
构建时间（时间当前(),tm);
细绳文字=字符串时间（时间当前(),TIME_DATE)+” “+细绳(tm.小时)+“：”+细绳(tm.分钟);
系列测试=数组获取系列（关闭）；
如果（系列测试）索引=整数(条数);
别的索引=Rates_total-整数(条数)-1;
双倍的 问=关闭[指数];
双倍的 出价=关闭[指数];
系列测试=数组获取系列（传播）;
如果（系列测试）索引=整数(条数);
别的索引=Rates_total-整数(条数)-1;
出价+=_观点*传播[索引]；
细绳问=双精度转字符串（问,_数字）；
细绳出价=双精度转字符串（出价,_数字）；
细绳sPeriod=GetStringTimeframe(图表周期());
如果（声音打开）警报（"卖出信号 \n 询问=",问,“\n 出价=”,出价,“\n 当前时间=”，文本，“\n 符号=”,象征(),“句号=”,s 期间);
如果（电子邮件）发送邮件(信号先生姓名+“：卖出信号警报”,“卖出信号在询问=”+问+“，出价=”+出价+“，日期=”+文字+“符号=”+象征()+“句号=”+s句点）；
如果（推开）发送通知(信号先生姓名+": 在 Ask=" 时卖出信号+问+“，出价=”+出价+“，日期=”+文字+“符号=”+象征()+“句号=”+s句点）；
}
//---
}
//+------------------------------------------------------------------+
//|获取字符串形式的时间范围                                  |
//+------------------------------------------------------------------+
细绳获取字符串时间范围(ENUM_TIMEFRAMES大体时间）
{
//----
返回（字符串子串（枚举转字符串（大体时间），7,-1））；
//----
}

//---
买入信号(“Waddah_Attar_Trend_Alert”,ColorIndBuffer,0,rates_total,prev_calculated,close,spread);
卖出信号(“Waddah_Attar_Trend_Alert”,ColorIndBuffer,1,rates_total,prev_calculated,close,spread);
//---