登陆 注册
顺水外汇EA交易网MT4 › 平台评测 › IB计划 › 多指标整合箭头 以及百分比方向 有高手帮修改一下 ...
比特币通信协议 - 币圈消息

比特币通信协议篇11、二、TURN简介。在典型的情况下，TURN客户端连接到内网中，并且通过一个或者多个NAT到 详细

返回列表 发新帖

多指标整合箭头 以及百分比方向 有高手帮修改一下

[复制链接]
198 0
金相玉映 发表于 2018-1-11 16:31:10 | 只看该作者 |阅读模式 打印 上一主题 下一主题
多指标整合
#property indicator_separate_window
#property indicator_minimum 0
#property indicator_maximum 1
#property indicator_buffers 2
#property indicator_color1 Blue
#property indicator_color2 Red
double UPBuffer[];
double DOWNBuffer[];
extern color     IndicatorsTextColor=Orange;
extern color     SeparatorsTextColor=Silver;
extern color     SignalUpColor=Blue;
extern color     SignalDownColor=Red;
extern int       FontSize=9;
extern int       SpaseSize=3;
extern int       SymbolCodeBuy=228;
extern int       SymbolCodeSell=230;
string FontName="Courier New";
string ShortName="Trend Analysis";
string Periods[]={"M1","M5","M15","M30","H1","H4","D1","W1"};//8
string Indicators[]={"MA_20","MA_50","MA100","ADX14","BEARS","BULLS","CCI14","DeM14","FORCE","MACD_","MOM14","RSI14","STOCH"};//14
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
IndicatorShortName(ShortName);
SetIndexBuffer(0,UPBuffer);
SetIndexBuffer(1,DOWNBuffer);
   SetIndexStyle(0, DRAW_ARROW);
   SetIndexStyle(1, DRAW_ARROW);
   SetIndexArrow(0, SymbolCodeBuy);
   SetIndexArrow(1, SymbolCodeSell);
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int x,y,i,j;
string name;
int CreateTable()
{
//-----------
for (i=3; iiMA(NULL,PERIOD_M1,20,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+1+1,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_M5,20,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_M5,20,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM5++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+1+2,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_M15,20,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_M15,20,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM15++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+1+3,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_M30,20,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_M30,20,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM30++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+1+4,CharToStr(Code),FontSize, "Wingdings", CodeColor);
if (iMA(NULL,PERIOD_H1,20,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_H1,20,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+1+5,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_H4,20,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_H4,20,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+1+6,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_D1,20,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_D1,20,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+1+7,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_W1,20,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_W1,20,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+1+8,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_M1,50,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_M1,50,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+2+1,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_M5,50,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_M5,50,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM5++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+2+2,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_M15,50,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_M15,50,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM15++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+2+3,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_M30,50,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_M30,50,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM30++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+2+4,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_H1,50,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_H1,50,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+2+5,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_H4,50,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_H4,50,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+2+6,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_D1,50,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_D1,50,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+2+7,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_W1,50,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_W1,50,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+2+8,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_M1,100,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_M1,100,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+3+1,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_M5,100,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_M5,100,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM5++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+3+2,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_M15,100,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_M15,100,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM15++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+3+3,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_M30,100,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_M30,100,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM30++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+3+4,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_H1,100,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_H1,100,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+3+5,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_H4,100,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_H4,100,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+3+6,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_D1,100,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_D1,100,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+3+7,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMA(NULL,PERIOD_W1,100,0,MODE_SMA,PRICE_CLOSE,0)>iMA(NULL,PERIOD_W1,100,0,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+3+8,CharToStr(Code),FontSize,"Wingdings",CodeColor);
//-----Average Directional Movement Index
if (iADX(NULL,PERIOD_M1,14,PRICE_CLOSE,MODE_MAIN,0)>iADX(NULL,PERIOD_M1,14,PRICE_CLOSE,MODE_MAIN,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+4+1,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iADX(NULL,PERIOD_M5,14,PRICE_CLOSE,MODE_MAIN,0)>iADX(NULL,PERIOD_M5,14,PRICE_CLOSE,MODE_MAIN,1))
{Code=SymbolCodeBuy;SumUpsM5++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+4+2,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iADX(NULL,PERIOD_M15,14,PRICE_CLOSE,MODE_MAIN,0)>iADX(NULL,PERIOD_M15,14,PRICE_CLOSE,MODE_MAIN,1))
{Code=SymbolCodeBuy;SumUpsM15++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+4+3,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iADX(NULL,PERIOD_M30,14,PRICE_CLOSE,MODE_MAIN,0)>iADX(NULL,PERIOD_M30,14,PRICE_CLOSE,MODE_MAIN,1))
{Code=SymbolCodeBuy;SumUpsM30++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+4+4,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iADX(NULL,PERIOD_H1,14,PRICE_CLOSE,MODE_MAIN,0)>iADX(NULL,PERIOD_H1,14,PRICE_CLOSE,MODE_MAIN,1))
{Code=SymbolCodeBuy;SumUpsH1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+4+5,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iADX(NULL,PERIOD_H4,14,PRICE_CLOSE,MODE_MAIN,0)>iADX(NULL,PERIOD_H4,14,PRICE_CLOSE,MODE_MAIN,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+4+6,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iADX(NULL,PERIOD_D1,14,PRICE_CLOSE,MODE_MAIN,0)>iADX(NULL,PERIOD_D1,14,PRICE_CLOSE,MODE_MAIN,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+4+7,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iADX(NULL,PERIOD_W1,14,PRICE_CLOSE,MODE_MAIN,0)>iADX(NULL,PERIOD_W1,14,PRICE_CLOSE,MODE_MAIN,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+4+8,CharToStr(Code),FontSize,"Wingdings",CodeColor);
//-----Bears
if (iBearsPower(NULL,PERIOD_M1, 13,PRICE_CLOSE,0)>iBearsPower(NULL,PERIOD_M1, 13,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+5+1,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iBearsPower(NULL,PERIOD_M5, 13,PRICE_CLOSE,0)>iBearsPower(NULL,PERIOD_M5, 13,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM5++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+5+2,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iBearsPower(NULL,PERIOD_M15, 13,PRICE_CLOSE,0)>iBearsPower(NULL,PERIOD_M15, 13,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM15++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+5+3,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iBearsPower(NULL,PERIOD_M30, 13,PRICE_CLOSE,0)>iBearsPower(NULL,PERIOD_M30, 13,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM30++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+5+4,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iBearsPower(NULL,PERIOD_H1, 13,PRICE_CLOSE,0)>iBearsPower(NULL,PERIOD_H1, 13,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+5+5,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iBearsPower(NULL,PERIOD_H4, 13,PRICE_CLOSE,0)>iBearsPower(NULL,PERIOD_H4, 13,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+5+6,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iBearsPower(NULL,PERIOD_D1, 13,PRICE_CLOSE,0)>iBearsPower(NULL,PERIOD_D1, 13,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+5+7,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iBearsPower(NULL,PERIOD_W1, 13,PRICE_CLOSE,0)>iBearsPower(NULL,PERIOD_W1, 13,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+5+8,CharToStr(Code),FontSize, "Wingdings",CodeColor);
//----Bulls
if (iBullsPower(NULL,PERIOD_M1, 13,PRICE_CLOSE,0)>iBullsPower(NULL,PERIOD_M1, 13,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+6+1,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iBullsPower(NULL,PERIOD_M5, 13,PRICE_CLOSE,0)>iBullsPower(NULL,PERIOD_M5, 13,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM5++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+6+2,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iBullsPower(NULL,PERIOD_M15, 13,PRICE_CLOSE,0)>iBullsPower(NULL,PERIOD_M15, 13,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM15++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+6+3,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iBullsPower(NULL,PERIOD_M30, 13,PRICE_CLOSE,0)>iBullsPower(NULL,PERIOD_M30, 13,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM30++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+6+4,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iBullsPower(NULL,PERIOD_H1, 13,PRICE_CLOSE,0)>iBullsPower(NULL,PERIOD_H1, 13,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+6+5,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iBullsPower(NULL,PERIOD_H4, 13,PRICE_CLOSE,0)>iBullsPower(NULL,PERIOD_H4, 13,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+6+6,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iBullsPower(NULL,PERIOD_D1, 13,PRICE_CLOSE,0)>iBullsPower(NULL,PERIOD_D1, 13,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+6+7,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iBullsPower(NULL,PERIOD_W1, 13,PRICE_CLOSE,0)>iBullsPower(NULL,PERIOD_W1, 13,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+6+8,CharToStr(Code),FontSize,"Wingdings",CodeColor);
//------CCI
if (iCCI(NULL,PERIOD_M1,14,PRICE_CLOSE,0)>iCCI(NULL,PERIOD_M1,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+7+1,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iCCI(NULL,PERIOD_M5,14,PRICE_CLOSE,0)>iCCI(NULL,PERIOD_M5,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM5++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+7+2,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iCCI(NULL,PERIOD_M15,14,PRICE_CLOSE,0)>iCCI(NULL,PERIOD_M15,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM15++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+7+3,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iCCI(NULL,PERIOD_M30,14,PRICE_CLOSE,0)>iCCI(NULL,PERIOD_M30,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM30++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+7+4,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iCCI(NULL,PERIOD_H1,14,PRICE_CLOSE,0)>iCCI(NULL,PERIOD_H1,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+7+5,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iCCI(NULL,PERIOD_H4,14,PRICE_CLOSE,0)>iCCI(NULL,PERIOD_H4,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+7+6,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iCCI(NULL,PERIOD_D1,14,PRICE_CLOSE,0)>iCCI(NULL,PERIOD_D1,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+7+7,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iCCI(NULL,PERIOD_W1,14,PRICE_CLOSE,0)>iCCI(NULL,PERIOD_W1,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+7+8,CharToStr(Code),FontSize,"Wingdings",CodeColor);
//----Dem
if (iDeMarker(NULL,PERIOD_M1, 13, 0)>iDeMarker(NULL,PERIOD_M1, 13, 1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+8+1,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iDeMarker(NULL,PERIOD_M5, 13, 0)>iDeMarker(NULL,PERIOD_M5, 13, 1))
{Code=SymbolCodeBuy;SumUpsM5++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+8+2,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iDeMarker(NULL,PERIOD_M15, 13, 0)>iDeMarker(NULL,PERIOD_M15, 13, 1))
{Code=SymbolCodeBuy;SumUpsM15++; CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+8+3,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iDeMarker(NULL,PERIOD_M30, 13, 0)>iDeMarker(NULL,PERIOD_M30, 13, 1))
{Code=SymbolCodeBuy;SumUpsM30++; CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+8+4,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iDeMarker(NULL,PERIOD_H1, 13, 0)>iDeMarker(NULL,PERIOD_H1, 13, 1))
{Code=SymbolCodeBuy;SumUpsH1++; CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+8+5,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iDeMarker(NULL,PERIOD_H4, 13, 0)>iDeMarker(NULL,PERIOD_H4, 13, 1))
{Code=SymbolCodeBuy;SumUpsH4D1++; CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+8+6,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iDeMarker(NULL,PERIOD_D1, 13, 0)>iDeMarker(NULL,PERIOD_D1, 13, 1))
{Code=SymbolCodeBuy;SumUpsH4D1++; CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+8+7,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iDeMarker(NULL,PERIOD_W1, 13, 0)>iDeMarker(NULL,PERIOD_W1, 13, 1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+8+8,CharToStr(Code),FontSize,"Wingdings",CodeColor);
//-----Force
if (iForce(NULL,PERIOD_M1,13,MODE_SMA,PRICE_CLOSE,0)>iForce(NULL,PERIOD_M1,13,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+9+1,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iForce(NULL,PERIOD_M5,13,MODE_SMA,PRICE_CLOSE,0)>iForce(NULL,PERIOD_M5,13,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM5++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+9+2,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iForce(NULL,PERIOD_M15,13,MODE_SMA,PRICE_CLOSE,0)>iForce(NULL,PERIOD_M15,13,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM15++; CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+9+3,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iForce(NULL,PERIOD_M30,13,MODE_SMA,PRICE_CLOSE,0)>iForce(NULL,PERIOD_M30,13,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM30++; CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+9+4,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iForce(NULL,PERIOD_H1,13,MODE_SMA,PRICE_CLOSE,0)>iForce(NULL,PERIOD_H1,13,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH1++; CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+9+5,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iForce(NULL,PERIOD_H4,13,MODE_SMA,PRICE_CLOSE,0)>iForce(NULL,PERIOD_H4,13,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH4D1++; CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+9+6,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iForce(NULL,PERIOD_D1,13,MODE_SMA,PRICE_CLOSE,0)>iForce(NULL,PERIOD_D1,13,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH4D1++; CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+9+7,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iForce(NULL,PERIOD_W1,13,MODE_SMA,PRICE_CLOSE,0)>iForce(NULL,PERIOD_W1,13,MODE_SMA,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+9+8,CharToStr(Code),FontSize,"Wingdings",CodeColor);
//-----MACD
if (iMACD(NULL,PERIOD_M1,12,26,9,PRICE_CLOSE,MODE_MAIN,0)>iMACD(NULL,PERIOD_M1,12,26,9,PRICE_CLOSE,MODE_MAIN,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+10+1,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMACD(NULL,PERIOD_M5,12,26,9,PRICE_CLOSE,MODE_MAIN,0)>iMACD(NULL,PERIOD_M5,12,26,9,PRICE_CLOSE,MODE_MAIN,1))
{Code=SymbolCodeBuy;SumUpsM5++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+10+2,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMACD(NULL,PERIOD_M15,12,26,9,PRICE_CLOSE,MODE_MAIN,0)>iMACD(NULL,PERIOD_M15,12,26,9,PRICE_CLOSE,MODE_MAIN,1))
{Code=SymbolCodeBuy;SumUpsM15++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+10+3,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMACD(NULL,PERIOD_M30,12,26,9,PRICE_CLOSE,MODE_MAIN,0)>iMACD(NULL,PERIOD_M30,12,26,9,PRICE_CLOSE,MODE_MAIN,1))
{Code=SymbolCodeBuy;SumUpsM30++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+10+4,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMACD(NULL,PERIOD_H1,12,26,9,PRICE_CLOSE,MODE_MAIN,0)>iMACD(NULL,PERIOD_H1,12,26,9,PRICE_CLOSE,MODE_MAIN,1))
{Code=SymbolCodeBuy;SumUpsH1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+10+5,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMACD(NULL,PERIOD_H4,12,26,9,PRICE_CLOSE,MODE_MAIN,0)>iMACD(NULL,PERIOD_H4,12,26,9,PRICE_CLOSE,MODE_MAIN,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+10+6,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMACD(NULL,PERIOD_D1,12,26,9,PRICE_CLOSE,MODE_MAIN,0)>iMACD(NULL,PERIOD_D1,12,26,9,PRICE_CLOSE,MODE_MAIN,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+10+7,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMACD(NULL,PERIOD_W1,12,26,9,PRICE_CLOSE,MODE_MAIN,0)>iMACD(NULL,PERIOD_W1,12,26,9,PRICE_CLOSE,MODE_MAIN,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+10+8,CharToStr(Code),FontSize,"Wingdings",CodeColor);
//-----MOM
if (iMomentum(NULL,PERIOD_M1,14,PRICE_CLOSE,0)>iMomentum(NULL,PERIOD_M1,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+11+1,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMomentum(NULL,PERIOD_M5,14,PRICE_CLOSE,0)>iMomentum(NULL,PERIOD_M5,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM5++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+11+2,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMomentum(NULL,PERIOD_M15,14,PRICE_CLOSE,0)>iMomentum(NULL,PERIOD_M15,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM15++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+11+3,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMomentum(NULL,PERIOD_M30,14,PRICE_CLOSE,0)>iMomentum(NULL,PERIOD_M30,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM30++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+11+4,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMomentum(NULL,PERIOD_H1,14,PRICE_CLOSE,0)>iMomentum(NULL,PERIOD_H1,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+11+5,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMomentum(NULL,PERIOD_H4,14,PRICE_CLOSE,0)>iMomentum(NULL,PERIOD_H4,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+11+6,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMomentum(NULL,PERIOD_D1,14,PRICE_CLOSE,0)>iMomentum(NULL,PERIOD_D1,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+11+7,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iMomentum(NULL,PERIOD_W1,14,PRICE_CLOSE,0)>iMomentum(NULL,PERIOD_W1,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+11+8,CharToStr(Code),FontSize,"Wingdings",CodeColor);
//-----RSI
if (iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,0)>iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+12+1,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iRSI(NULL,PERIOD_M5,14,PRICE_CLOSE,0)>iRSI(NULL,PERIOD_M5,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM5++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+12+2,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iRSI(NULL,PERIOD_M15,14,PRICE_CLOSE,0)>iRSI(NULL,PERIOD_M15,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM15++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+12+3,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iRSI(NULL,PERIOD_M30,14,PRICE_CLOSE,0)>iRSI(NULL,PERIOD_M30,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsM30++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+12+4,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iRSI(NULL,PERIOD_H1,14,PRICE_CLOSE,0)>iRSI(NULL,PERIOD_H1,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+12+5,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iRSI(NULL,PERIOD_H4,14,PRICE_CLOSE,0)>iRSI(NULL,PERIOD_H4,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+12+6,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iRSI(NULL,PERIOD_D1,14,PRICE_CLOSE,0)>iRSI(NULL,PERIOD_D1,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+12+7,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iRSI(NULL,PERIOD_W1,14,PRICE_CLOSE,0)>iRSI(NULL,PERIOD_W1,14,PRICE_CLOSE,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+12+8,CharToStr(Code),FontSize,"Wingdings",CodeColor);
//----STOCH
if (iStochastic(NULL,PERIOD_M1,5,3,3,MODE_SMA,0,MODE_MAIN,0)>iStochastic(NULL,PERIOD_M1,5,3,3,MODE_SMA,0,MODE_MAIN,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+13+1,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iStochastic(NULL,PERIOD_M5,5,3,3,MODE_SMA,0,MODE_MAIN,0)>iStochastic(NULL,PERIOD_M5,5,3,3,MODE_SMA,0,MODE_MAIN,1))
{Code=SymbolCodeBuy;SumUpsM5++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+13+2,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iStochastic(NULL,PERIOD_M15,5,3,3,MODE_SMA,0,MODE_MAIN,0)>iStochastic(NULL,PERIOD_M15,5,3,3,MODE_SMA,0,MODE_MAIN,1))
{Code=SymbolCodeBuy; SumUpsM15++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+13+3,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iStochastic(NULL,PERIOD_M30,5,3,3,MODE_SMA,0,MODE_MAIN,0)>iStochastic(NULL,PERIOD_M30,5,3,3,MODE_SMA,0,MODE_MAIN,1))
{Code=SymbolCodeBuy; SumUpsM30++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+13+4,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iStochastic(NULL,PERIOD_H1,5,3,3,MODE_SMA,0,MODE_MAIN,0)>iStochastic(NULL,PERIOD_H1,5,3,3,MODE_SMA,0,MODE_MAIN,1))
{Code=SymbolCodeBuy; SumUpsH1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+13+5,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iStochastic(NULL,PERIOD_H4,5,3,3,MODE_SMA,0,MODE_MAIN,0)>iStochastic(NULL,PERIOD_H4,5,3,3,MODE_SMA,0,MODE_MAIN,1))
{Code=SymbolCodeBuy; SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+13+6,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iStochastic(NULL,PERIOD_D1,5,3,3,MODE_SMA,0,MODE_MAIN,0)>iStochastic(NULL,PERIOD_D1,5,3,3,MODE_SMA,0,MODE_MAIN,1))
{Code=SymbolCodeBuy; SumUpsH4D1++;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+13+7,CharToStr(Code),FontSize,"Wingdings",CodeColor);
if (iStochastic(NULL,PERIOD_W1,5,3,3,MODE_SMA,0,MODE_MAIN,0)>iStochastic(NULL,PERIOD_W1,5,3,3,MODE_SMA,0,MODE_MAIN,1))
{Code=SymbolCodeBuy;CodeColor=SignalUpColor;}else{Code=SymbolCodeSell;CodeColor=SignalDownColor;}
ObjectSetText("s"+13+8,CharToStr(Code),FontSize,"Wingdings",CodeColor);
//--------copyright
ObjectCreate("Statistic", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("Statistic","STATS:",FontSize*2,FontName,IndicatorsTextColor);
ObjectSet("Statistic", OBJPROP_XDISTANCE, FontSize*1);  
ObjectSet("Statistic", OBJPROP_YDISTANCE, (18-1)*FontSize+18*SpaseSize);
//-------results
ObjectCreate("UpH4D1", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("UpH4D1",CharToStr(SymbolCodeBuy),FontSize,"Wingdings",SignalUpColor);
ObjectSet("UpH4D1", OBJPROP_XDISTANCE, FontSize*60);  
ObjectSet("UpH4D1", OBJPROP_YDISTANCE, (5-1)*FontSize+5*SpaseSize);
ObjectCreate("DownH4D1", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("DownH4D1",CharToStr(SymbolCodeSell),FontSize,"Wingdings",SignalDownColor);
ObjectSet("DownH4D1", OBJPROP_XDISTANCE, FontSize*60);  
ObjectSet("DownH4D1", OBJPROP_YDISTANCE, (6-1)*FontSize+6*SpaseSize);
ObjectCreate("UpPerH4D1", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("UpPerH4D1", OBJPROP_XDISTANCE, FontSize*65);  
ObjectSet("UpPerH4D1", OBJPROP_YDISTANCE, (5-1)*FontSize+5*SpaseSize);
ObjectCreate("DownPerH4D1", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("DownPerH4D1", OBJPROP_XDISTANCE, FontSize*65);  
ObjectSet("DownPerH4D1", OBJPROP_YDISTANCE, (6-1)*FontSize+6*SpaseSize);
double UpPerH4D1=NormalizeDouble(SumUpsH4D1*100/26,1);
double DownPerH4D1=NormalizeDouble(100-UpPerH4D1,1);
ObjectSetText("UpPerH4D1",DoubleToStr(UpPerH4D1,0)+"%",FontSize,FontName,SeparatorsTextColor);
ObjectSetText("DownPerH4D1",DoubleToStr(DownPerH4D1,0)+"%",FontSize,FontName,SeparatorsTextColor);
ObjectCreate("Trend", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("Trend", OBJPROP_XDISTANCE, FontSize*63);  
ObjectSet("Trend", OBJPROP_YDISTANCE, (9-1)*FontSize+9*SpaseSize);
if (UpPerH4D1>DownPerH4D1)
{ObjectSetText("Trend",CharToStr(SymbolCodeBuy),FontSize*2,"Wingdings",SignalUpColor);}
else
{ObjectSetText("Trend",CharToStr(SymbolCodeSell),FontSize*2,"Wingdings",SignalDownColor);}
ObjectCreate("UpM5", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("UpM5",CharToStr(SymbolCodeBuy),FontSize,"Wingdings",SignalUpColor);
ObjectSet("UpM5", OBJPROP_XDISTANCE, FontSize*16);  
ObjectSet("UpM5", OBJPROP_YDISTANCE, (18-1)*FontSize+18*SpaseSize);
ObjectCreate("DownM5", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("DownM5",CharToStr(SymbolCodeSell),FontSize,"Wingdings",SignalDownColor);
ObjectSet("DownM5", OBJPROP_XDISTANCE, FontSize*16);  
ObjectSet("DownM5", OBJPROP_YDISTANCE, (19-1)*FontSize+19*SpaseSize);
ObjectCreate("UpPerM5", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("UpPerM5", OBJPROP_XDISTANCE, FontSize*18);  
ObjectSet("UpPerM5", OBJPROP_YDISTANCE, (18-1)*FontSize+18*SpaseSize);
ObjectCreate("DownPerM5", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("DownPerM5", OBJPROP_XDISTANCE, FontSize*18);  
ObjectSet("DownPerM5", OBJPROP_YDISTANCE, (19-1)*FontSize+19*SpaseSize);
ObjectCreate("UpM15", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("UpM15",CharToStr(SymbolCodeBuy),FontSize,"Wingdings",SignalUpColor);
ObjectSet("UpM15", OBJPROP_XDISTANCE, FontSize*22);  
ObjectSet("UpM15", OBJPROP_YDISTANCE, (18-1)*FontSize+18*SpaseSize);
ObjectCreate("DownM15", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("DownM15",CharToStr(SymbolCodeSell),FontSize,"Wingdings",SignalDownColor);
ObjectSet("DownM15", OBJPROP_XDISTANCE, FontSize*22);  
ObjectSet("DownM15", OBJPROP_YDISTANCE, (19-1)*FontSize+19*SpaseSize);
ObjectCreate("UpPerM15", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("UpPerM15", OBJPROP_XDISTANCE, FontSize*24);  
ObjectSet("UpPerM15", OBJPROP_YDISTANCE, (18-1)*FontSize+18*SpaseSize);
ObjectCreate("DownPerM15", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("DownPerM15", OBJPROP_XDISTANCE, FontSize*24);  
ObjectSet("DownPerM15", OBJPROP_YDISTANCE, (19-1)*FontSize+19*SpaseSize);
ObjectCreate("UpM30", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("UpM30",CharToStr(SymbolCodeBuy),FontSize,"Wingdings",SignalUpColor);
ObjectSet("UpM30", OBJPROP_XDISTANCE, FontSize*28);  
ObjectSet("UpM30", OBJPROP_YDISTANCE, (18-1)*FontSize+18*SpaseSize);
ObjectCreate("DownM30", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("DownM30",CharToStr(SymbolCodeSell),FontSize,"Wingdings",SignalDownColor);
ObjectSet("DownM30", OBJPROP_XDISTANCE, FontSize*28);  
ObjectSet("DownM30", OBJPROP_YDISTANCE, (19-1)*FontSize+19*SpaseSize);
ObjectCreate("UpPerM30", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("UpPerM30", OBJPROP_XDISTANCE, FontSize*30);  
ObjectSet("UpPerM30", OBJPROP_YDISTANCE, (18-1)*FontSize+18*SpaseSize);
ObjectCreate("DownPerM30", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("DownPerM30", OBJPROP_XDISTANCE, FontSize*30);  
ObjectSet("DownPerM30", OBJPROP_YDISTANCE, (19-1)*FontSize+19*SpaseSize);
ObjectCreate("UpH1", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("UpH1",CharToStr(SymbolCodeBuy),FontSize,"Wingdings",SignalUpColor);
ObjectSet("UpH1", OBJPROP_XDISTANCE, FontSize*34);  
ObjectSet("UpH1", OBJPROP_YDISTANCE, (18-1)*FontSize+18*SpaseSize);
ObjectCreate("DownH1", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("DownH1",CharToStr(SymbolCodeSell),FontSize,"Wingdings",SignalDownColor);
ObjectSet("DownH1", OBJPROP_XDISTANCE, FontSize*34);  
ObjectSet("DownH1", OBJPROP_YDISTANCE, (19-1)*FontSize+19*SpaseSize);
ObjectCreate("UpPerH1", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("UpPerH1", OBJPROP_XDISTANCE, FontSize*36);  
ObjectSet("UpPerH1", OBJPROP_YDISTANCE, (18-1)*FontSize+18*SpaseSize);
ObjectCreate("DownPerH1", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("DownPerH1", OBJPROP_XDISTANCE, FontSize*36);  
ObjectSet("DownPerH1", OBJPROP_YDISTANCE, (19-1)*FontSize+19*SpaseSize);
ObjectCreate("Look", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("Look","LOOK IT",FontSize*2,FontName,IndicatorsTextColor);
ObjectSet("Look", OBJPROP_XDISTANCE, FontSize*40);  
ObjectSet("Look", OBJPROP_YDISTANCE, (18-1)*FontSize+18*SpaseSize);
double UpPerM5=NormalizeDouble(SumUpsM5*100/13,1);
double DownPerM5=NormalizeDouble(100-UpPerM5,1);
ObjectSetText("UpPerM5",DoubleToStr(UpPerM5,0)+"%",FontSize,FontName,SeparatorsTextColor);
ObjectSetText("DownPerM5",DoubleToStr(DownPerM5,0)+"%",FontSize,FontName,SeparatorsTextColor);
double UpPerM15=NormalizeDouble(SumUpsM15*100/13,1);
double DownPerM15=NormalizeDouble(100-UpPerM15,1);
ObjectSetText("UpPerM15",DoubleToStr(UpPerM15,0)+"%",FontSize,FontName,SeparatorsTextColor);
ObjectSetText("DownPerM15",DoubleToStr(DownPerM15,0)+"%",FontSize,FontName,SeparatorsTextColor);
double UpPerM30=NormalizeDouble(SumUpsM30*100/13,1);
double DownPerM30=NormalizeDouble(100-UpPerM30,1);
ObjectSetText("UpPerM30",DoubleToStr(UpPerM30,0)+"%",FontSize,FontName,SeparatorsTextColor);
ObjectSetText("DownPerM30",DoubleToStr(DownPerM30,0)+"%",FontSize,FontName,SeparatorsTextColor);
double UpPerH1=NormalizeDouble(SumUpsH1*100/13,1);
double DownPerH1=NormalizeDouble(100-UpPerH1,1);
ObjectSetText("UpPerH1",DoubleToStr(UpPerH1,0)+"%",FontSize,FontName,SeparatorsTextColor);
ObjectSetText("DownPerH1",DoubleToStr(DownPerH1,0)+"%",FontSize,FontName,SeparatorsTextColor);
ObjectCreate("R3", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("R3","R3",FontSize,FontName,SeparatorsTextColor);
ObjectSet("R3", OBJPROP_XDISTANCE, FontSize*70);  
ObjectSet("R3", OBJPROP_YDISTANCE, (4-1)*FontSize+4*SpaseSize);
ObjectCreate("R3V", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("R3V", OBJPROP_XDISTANCE, FontSize*74);  
ObjectSet("R3V", OBJPROP_YDISTANCE, (4-1)*FontSize+4*SpaseSize);
ObjectCreate("R2", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("R2","R2",FontSize,FontName,SeparatorsTextColor);
ObjectSet("R2", OBJPROP_XDISTANCE, FontSize*70);  
ObjectSet("R2", OBJPROP_YDISTANCE, (5-1)*FontSize+5*SpaseSize);
ObjectCreate("R2V", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("R2V", OBJPROP_XDISTANCE, FontSize*74);  
ObjectSet("R2V", OBJPROP_YDISTANCE, (5-1)*FontSize+5*SpaseSize);
ObjectCreate("R1", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("R1","R1",FontSize,FontName,SeparatorsTextColor);
ObjectSet("R1", OBJPROP_XDISTANCE, FontSize*70);  
ObjectSet("R1", OBJPROP_YDISTANCE, (6-1)*FontSize+6*SpaseSize);
ObjectCreate("R1V", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("R1V", OBJPROP_XDISTANCE, FontSize*74);  
ObjectSet("R1V", OBJPROP_YDISTANCE, (6-1)*FontSize+6*SpaseSize);
ObjectCreate("PP", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("PP","PP",FontSize,FontName,SeparatorsTextColor);
ObjectSet("PP", OBJPROP_XDISTANCE, FontSize*70);  
ObjectSet("PP", OBJPROP_YDISTANCE, (7-1)*FontSize+7*SpaseSize);
ObjectCreate("PPV", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("PPV", OBJPROP_XDISTANCE, FontSize*74);  
ObjectSet("PPV", OBJPROP_YDISTANCE, (7-1)*FontSize+7*SpaseSize);
ObjectCreate("S1", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("S1","S1",FontSize,FontName,SeparatorsTextColor);
ObjectSet("S1", OBJPROP_XDISTANCE, FontSize*70);  
ObjectSet("S1", OBJPROP_YDISTANCE, (8-1)*FontSize+8*SpaseSize);
ObjectCreate("S1V", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("S1V", OBJPROP_XDISTANCE, FontSize*74);  
ObjectSet("S1V", OBJPROP_YDISTANCE, (8-1)*FontSize+8*SpaseSize);
ObjectCreate("S2", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("S2","S2",FontSize,FontName,SeparatorsTextColor);
ObjectSet("S2", OBJPROP_XDISTANCE, FontSize*70);  
ObjectSet("S2", OBJPROP_YDISTANCE, (9-1)*FontSize+9*SpaseSize);
ObjectCreate("S2V", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("S2V", OBJPROP_XDISTANCE, FontSize*74);  
ObjectSet("S2V", OBJPROP_YDISTANCE, (9-1)*FontSize+9*SpaseSize);
ObjectCreate("S3", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("S3","S3",FontSize,FontName,SeparatorsTextColor);
ObjectSet("S3", OBJPROP_XDISTANCE, FontSize*70);  
ObjectSet("S3", OBJPROP_YDISTANCE, (10-1)*FontSize+10*SpaseSize);
ObjectCreate("S3V", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("S3V", OBJPROP_XDISTANCE, FontSize*74);  
ObjectSet("S3V", OBJPROP_YDISTANCE, (10-1)*FontSize+10*SpaseSize);
   double yesterday_close=iClose(NULL,PERIOD_D1,1);
   double yesterday_high=iHigh(NULL,PERIOD_D1,1);
   double yesterday_low=iLow(NULL,PERIOD_D1,1);
   double PP = NormalizeDouble((yesterday_high + yesterday_low + yesterday_close)/3,Digits);
   double R1 = NormalizeDouble((2*PP)-yesterday_low,Digits);
   double S1 = NormalizeDouble((2*PP)-yesterday_high,Digits);
   double R2 = NormalizeDouble(PP+(yesterday_high-yesterday_low),Digits);
   double S2 = NormalizeDouble(PP-(yesterday_high-yesterday_low),Digits);
   double R3 = NormalizeDouble(2*PP+(yesterday_high-2*yesterday_low),Digits);
   double S3 = NormalizeDouble(2*PP-(2*yesterday_high-yesterday_low),Digits);
   ObjectSetText("R3V",DoubleToStr(R3,4),FontSize, FontName, SeparatorsTextColor);
   ObjectSetText("R2V",DoubleToStr(R2,4),FontSize, FontName, SeparatorsTextColor);
   ObjectSetText("R1V",DoubleToStr(R1,4),FontSize, FontName, SeparatorsTextColor);
   ObjectSetText("PPV",DoubleToStr(PP,4),FontSize, FontName, SeparatorsTextColor);
   ObjectSetText("S1V",DoubleToStr(S1,4),FontSize, FontName, SeparatorsTextColor);
   ObjectSetText("S2V",DoubleToStr(S2,4),FontSize, FontName, SeparatorsTextColor);
   ObjectSetText("S3V",DoubleToStr(S3,4),FontSize, FontName, SeparatorsTextColor);
ObjectCreate("BalanceInfo", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("BalanceInfo","Balance",FontSize, FontName,IndicatorsTextColor);
ObjectSet("BalanceInfo", OBJPROP_XDISTANCE, FontSize*60);  
ObjectSet("BalanceInfo", OBJPROP_YDISTANCE, (13-1)*FontSize+13*SpaseSize);
ObjectCreate("BalanceV", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("BalanceV", OBJPROP_XDISTANCE,FontSize*60);  
ObjectSet("BalanceV", OBJPROP_YDISTANCE,(15-1)*FontSize+15*SpaseSize);
if (AccountCurrency()=="RUR")
{
ObjectSetText("BalanceV",DoubleToStr(NormalizeDouble(AccountBalance()/iClose("USDRUR",PERIOD_H1,1),2),2)+"$",FontSize*2, FontName,SeparatorsTextColor);
}
if (AccountCurrency()=="EUR")
{
ObjectSetText("BalanceV",DoubleToStr(NormalizeDouble(AccountBalance()*iClose("EURUSD",PERIOD_H1,1),2),2)+"$",FontSize*2, FontName,SeparatorsTextColor);
}
if (AccountCurrency()=="USD")
{
ObjectSetText("BalanceV",DoubleToStr(AccountBalance(),2)+"$",FontSize*2,FontName,SeparatorsTextColor);
}
ObjectCreate("ProfitV", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSet("ProfitV", OBJPROP_XDISTANCE,FontSize*60);  
ObjectSet("ProfitV", OBJPROP_YDISTANCE,(18-1)*FontSize+18*SpaseSize);
if (AccountProfit()/AccountBalance()*100>0)
{ Code=74; CodeColor=SignalUpColor;}
if (AccountProfit()/AccountBalance()*100<0)
{ Code=76;CodeColor=SignalDownColor;}
if (AccountProfit()/AccountBalance()*100==0)
{ Code=75;CodeColor=SeparatorsTextColor;}
ObjectSetText("ProfitV",DoubleToStr(AccountProfit()/AccountBalance()*100,2)+"%",FontSize*2,FontName,CodeColor);
ObjectCreate("ProfitTrend", OBJ_LABEL, WindowFind(ShortName), 0, 0);
ObjectSetText("ProfitTrend",CharToStr(Code),FontSize*2, "Wingdings",CodeColor );
ObjectSet("ProfitTrend", OBJPROP_XDISTANCE,FontSize*76);  
ObjectSet("ProfitTrend", OBJPROP_YDISTANCE,(18-1)*FontSize+18*SpaseSize);
return(0);
}
收藏
收藏0
 转播
转播
 分享
分享
 分享
淘帖0
回复

使用道具 举报

返回列表 发表新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

金相玉映新手上路

关注0

粉丝1

帖子2

发布主题
推荐阅读更多+
阅读排行更多+
让每个MT4外汇EA交易者实现人生巅峰
微信:18391752892
周一至周日 0:00-24:00
意见反馈：3313198376@qq.com

扫一扫关注我们

Powered by 顺水鱼MT4外汇EA网! X3.2© 2001-2017 顺水MT4外汇EA公司.( 陕ICP备17014341号-1)