//|----------------------------------------------------------------------------|
//| Percent Change U.S.Stocks.mq4 |
//| Àâòîð: Äèìîí Áàðìåí © Copyright 2009 |
//| ICQ: 241448448 |
//|----------------------------------------------------------------------------|
//| Âåðñèÿ: 12.02.2009 |
//| Ãîòîâíîñòü: 100% |
//| Òåñòèðîâàíèå: Ïðîâåäåíî 100% |
//| Îïèñàíèå: Èíäèêàòîð ïðîöåíòíîãî èçìåíåíèÿ öåíû çà äåíü àìåðèêàíñêèõ àêöèé |
//| âõîäÿùèõ â èíäåêñ Dow Jones à òàêæå âàæíåéøèõ ìèðîâûõ èíäåêñîâ |
//|----------------------------------------------------------------------------|
//| Ïàðàìåòðû: Íèæå |
//|----------------------------------------------------------------------------|
#property copyright "Äèìîí Áàðìåí © Copyright 2009"
#property indicator_chart_window
//------------------------------Ïàðàìåòðû--------------------------------- 1 --|
extern color BullishColor=DarkOliveGreen;
extern color BearishColor=Maroon;
extern color NeutralColor=DimGray;
//-----------------------Èíèöèàëèçàöèÿ è óäàëåíèå------------------------- 2 --|
int init()
{
ObjectCreate("Ïðîöåíò1",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò2",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò3",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò4",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò5",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò6",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò7",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò8",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò9",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò10",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò11",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò12",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò13",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò14",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò15",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò16",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò17",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò18",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò19",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò20",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò21",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò22",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò23",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò24",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò25",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò26",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò27",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò28",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò29",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò30",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò31",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò32",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò33",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò34",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò35",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò36",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Ïðîöåíò37",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Íàäïèñü1",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Íàäïèñü2",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Íàäïèñü3",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Íàäïèñü4",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Íàäïèñü5",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Íàäïèñü6",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Íàäïèñü7",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Íàäïèñü8",OBJ_LABEL,0,0,0,0,0);
ObjectCreate("Íàäïèñü9",OBJ_LABEL,0,0,0,0,0);
return(0);
return(0);
}
int deinit()
{
ObjectDelete ("Ïðîöåíò1");
ObjectDelete ("Ïðîöåíò2");
ObjectDelete ("Ïðîöåíò3");
ObjectDelete ("Ïðîöåíò4");
ObjectDelete ("Ïðîöåíò5");
ObjectDelete ("Ïðîöåíò6");
ObjectDelete ("Ïðîöåíò7");
ObjectDelete ("Ïðîöåíò8");
ObjectDelete ("Ïðîöåíò9");
ObjectDelete ("Ïðîöåíò10");
ObjectDelete ("Ïðîöåíò11");
ObjectDelete ("Ïðîöåíò12");
ObjectDelete ("Ïðîöåíò13");
ObjectDelete ("Ïðîöåíò14");
ObjectDelete ("Ïðîöåíò15");
ObjectDelete ("Ïðîöåíò16");
ObjectDelete ("Ïðîöåíò17");
ObjectDelete ("Ïðîöåíò18");
ObjectDelete ("Ïðîöåíò19");
ObjectDelete ("Ïðîöåíò20");
ObjectDelete ("Ïðîöåíò21");
ObjectDelete ("Ïðîöåíò22");
ObjectDelete ("Ïðîöåíò23");
ObjectDelete ("Ïðîöåíò24");
ObjectDelete ("Ïðîöåíò25");
ObjectDelete ("Ïðîöåíò26");
ObjectDelete ("Ïðîöåíò27");
ObjectDelete ("Ïðîöåíò28");
ObjectDelete ("Ïðîöåíò29");
ObjectDelete ("Ïðîöåíò30");
ObjectDelete ("Ïðîöåíò31");
ObjectDelete ("Ïðîöåíò32");
ObjectDelete ("Ïðîöåíò33");
ObjectDelete ("Ïðîöåíò34");
ObjectDelete ("Ïðîöåíò35");
ObjectDelete ("Ïðîöåíò36");
ObjectDelete ("Ïðîöåíò37");
ObjectDelete ("Íàäïèñü1");
ObjectDelete ("Íàäïèñü2");
ObjectDelete ("Íàäïèñü3");
ObjectDelete ("Íàäïèñü4");
ObjectDelete ("Íàäïèñü5");
ObjectDelete ("Íàäïèñü6");
ObjectDelete ("Íàäïèñü7");
ObjectDelete ("Íàäïèñü8");
ObjectDelete ("Íàäïèñü9");
return(0);
}
//-----------------Âû÷èñëåíèå ïðîöåíòà è ïðèñâîåíèå öâåòà----------------- 3 --|
int start()
{
double CH1;
if (iClose("DJI" , PERIOD_D1, 1) == 0)
{
CH1= 0.0000;
}
else
{
CH1 = (( (iClose("DJI" ,PERIOD_D1 ,0) * 100 ) /
iClose("DJI" , PERIOD_D1, 1) - 100 ) );
}
color lColor1 = NeutralColor;
if ( CH1 > 0 )
lColor1 = BullishColor;
if ( CH1 < 0 )
lColor1 = BearishColor;
double CH2;
if (iClose("S&P500" , PERIOD_D1, 1) == 0)
{
CH2= 0.0000;
}
else
{
CH2 = (( (iClose("S&P500" ,PERIOD_D1 ,0) * 100 ) /
iClose("S&P500" , PERIOD_D1, 1) - 100 ) );
}
color lColor2 = NeutralColor;
if ( CH2 > 0 )
lColor2 = BullishColor;
if ( CH2 < 0 )
lColor2 = BearishColor;
double CH3;
if (iClose("NQCOMP" , PERIOD_D1, 1) == 0)
{
CH3= 0.0000;
}
else
{
CH3 = (( (iClose("NQCOMP" ,PERIOD_D1 ,0) * 100 ) /
iClose("NQCOMP" , PERIOD_D1, 1) - 100 ) );
}
color lColor3 = NeutralColor;
if ( CH3 > 0 )
lColor3 = BullishColor;
if ( CH3 < 0 )
lColor3 = BearishColor;
double CH4;
if (iClose("#IBM" , PERIOD_D1, 1) == 0)
{
CH4= 0.0000;
}
else
{
CH4 = (( (iClose("#IBM" ,PERIOD_D1 ,0) * 100 ) /
iClose("#IBM" , PERIOD_D1, 1) - 100 ) );
}
color lColor4 = NeutralColor;
if ( CH4 > 0 )
lColor4 = BullishColor;
if ( CH4 < 0 )
lColor4 = BearishColor;
double CH5;
if (iClose("#AA" , PERIOD_D1, 1) == 0)
{
CH5= 0.0000;
}
else
{
CH5 = (( (iClose("#AA" ,PERIOD_D1 ,0) * 100 ) /
iClose("#AA" , PERIOD_D1, 1) - 100 ) );
}
color lColor5 = NeutralColor;
if ( CH5 > 0 )
lColor5 = BullishColor;
if ( CH5 < 0 )
lColor5 = BearishColor;
double CH6;
if (iClose("#VZ" , PERIOD_D1, 1) == 0)
{
CH6= 0.0000;
}
else
{
CH6 = (( (iClose("#VZ" ,PERIOD_D1 ,0) * 100 ) /
iClose("#VZ" , PERIOD_D1, 1) - 100 ) );
}
color lColor6 = NeutralColor;
if ( CH6 > 0 )
lColor6 = BullishColor;
if ( CH6 < 0 )
lColor6 = BearishColor;
double CH7;
if (iClose("#DD" , PERIOD_D1, 1) == 0)
{
CH7= 0.0000;
}
else
{
CH7 = (( (iClose("#DD" ,PERIOD_D1 ,0) * 100 ) /
iClose("#DD" , PERIOD_D1, 1) - 100 ) );
}
color lColor7 = NeutralColor;
if ( CH7 > 0 )
lColor7 = BullishColor;
if ( CH7 < 0 )
lColor7 = BearishColor;
double CH8;
if (iClose("#XOM" , PERIOD_D1, 1) == 0)
{
CH8= 0.0000;
}
else
{
CH8 = (( (iClose("#XOM" ,PERIOD_D1 ,0) * 100 ) /
iClose("#XOM" , PERIOD_D1, 1) - 100 ) );
}
color lColor8 = NeutralColor;
if ( CH8 > 0 )
lColor8 = BullishColor;
if ( CH8 < 0 )
lColor8 = BearishColor;
double CH9;
if (iClose("#CVX" , PERIOD_D1, 1) == 0)
{
CH9= 0.0000;
}
else
{
CH9 = (( (iClose("#CVX" ,PERIOD_D1 ,0) * 100 ) /
iClose("#CVX" , PERIOD_D1, 1) - 100 ) );
}
color lColor9 = NeutralColor;
if ( CH9 > 0 )
lColor9 = BullishColor;
if ( CH9 < 0 )
lColor9 = BearishColor;
double CH10;
if (iClose("#GM" , PERIOD_D1, 1) == 0)
{
CH10= 0.0000;
}
else
{
CH10 = (( (iClose("#GM" ,PERIOD_D1 ,0) * 100 ) /
iClose("#GM" , PERIOD_D1, 1) - 100 ) );
}
color lColor10 = NeutralColor;
if ( CH10 > 0 )
lColor10 = BullishColor;
if ( CH10 < 0 )
lColor10 = BearishColor;
double CH11;
if (iClose("#GE" , PERIOD_D1, 1) == 0)
{
CH11= 0.0000;
}
else
{
CH11 = (( (iClose("#GE" ,PERIOD_D1 ,0) * 100 ) /
iClose("#GE" , PERIOD_D1, 1) - 100 ) );
}
color lColor11 = NeutralColor;
if ( CH11 > 0 )
lColor11 = BullishColor;
if ( CH11 < 0 )
lColor11 = BearishColor;
double CH12;
if (iClose("#CAT" , PERIOD_D1, 1) == 0)
{
CH12= 0.0000;
}
else
{
CH12 = (( (iClose("#CAT" ,PERIOD_D1 ,0) * 100 ) /
iClose("#CAT" , PERIOD_D1, 1) - 100 ) );
}
color lColor12 = NeutralColor;
if ( CH12 > 0 )
lColor12 = BullishColor;
if ( CH12 < 0 )
lColor12 = BearishColor;
double CH13;
if (iClose("#BA" , PERIOD_D1, 1) == 0)
{
CH13= 0.0000;
}
else
{
CH13 = (( (iClose("#BA" ,PERIOD_D1 ,0) * 100 ) /
iClose("#BA" , PERIOD_D1, 1) - 100 ) );
}
color lColor13 = NeutralColor;
if ( CH13 > 0 )
lColor13 = BullishColor;
if ( CH13 < 0 )
lColor13 = BearishColor;
double CH14;
if (iClose("#HPQ" , PERIOD_D1, 1) == 0)
{
CH14= 0.0000;
}
else
{
CH14 = (( (iClose("#HPQ" ,PERIOD_D1 ,0) * 100 ) /
iClose("#HPQ" , PERIOD_D1, 1) - 100 ) );
}
color lColor14 = NeutralColor;
if ( CH14 > 0 )
lColor14 = BullishColor;
if ( CH14 < 0 )
lColor14 = BearishColor;
double CH15;
if (iClose("#INTC" , PERIOD_D1, 1) == 0)
{
CH15= 0.0000;
}
else
{
CH15 = (( (iClose("#INTC" ,PERIOD_D1 ,0) * 100 ) /
iClose("#INTC" , PERIOD_D1, 1) - 100 ) );
}
color lColor15 = NeutralColor;
if ( CH15 > 0 )
lColor15 = BullishColor;
if ( CH15 < 0 )
lColor15 = BearishColor;
double CH16;
if (iClose("#MSFT" , PERIOD_D1, 1) == 0)
{
CH16= 0.0000;
}
else
{
CH16 = (( (iClose("#MSFT" ,PERIOD_D1 ,0) * 100 ) /
iClose("#MSFT" , PERIOD_D1, 1) - 100 ) );
}
color lColor16 = NeutralColor;
if ( CH16 > 0 )
lColor16 = BullishColor;
if ( CH16 < 0 )
lColor16 = BearishColor;
double CH17;
if (iClose("#HON" , PERIOD_D1, 1) == 0)
{
CH17= 0.0000;
}
else
{
CH17 = (( (iClose("#HON" ,PERIOD_D1 ,0) * 100 ) /
iClose("#HON" , PERIOD_D1, 1) - 100 ) );
}
color lColor17 = NeutralColor;
if ( CH17 > 0 )
lColor17 = BullishColor;
if ( CH17 < 0 )
lColor17 = BearishColor;
double CH18;
if (iClose("#UTX" , PERIOD_D1, 1) == 0)
{
CH18= 0.0000;
}
else
{
CH18 = (( (iClose("#UTX" ,PERIOD_D1 ,0) * 100 ) /
iClose("#UTX" , PERIOD_D1, 1) - 100 ) );
}
color lColor18 = NeutralColor;
if ( CH18 > 0 )
lColor18 = BullishColor;
if ( CH18 < 0 )
lColor18 = BearishColor;
double CH19;
if (iClose("#EK" , PERIOD_D1, 1) == 0)
{
CH19= 0.0000;
}
else
{
CH19 = (( (iClose("#EK" ,PERIOD_D1 ,0) * 100 ) /
iClose("#EK" , PERIOD_D1, 1) - 100 ) );
}
color lColor19 = NeutralColor;
if ( CH19 > 0 )
lColor19 = BullishColor;
if ( CH19 < 0 )
lColor19 = BearishColor;
double CH20;
if (iClose("#MCD" , PERIOD_D1, 1) == 0)
{
CH20= 0.0000;
}
else
{
CH20 = (( (iClose("#MCD" ,PERIOD_D1 ,0) * 100 ) /
iClose("#MCD" , PERIOD_D1, 1) - 100 ) );
}
color lColor20 = NeutralColor;
if ( CH20 > 0 )
lColor20 = BullishColor;
if ( CH20 < 0 )
lColor20 = BearishColor;
double CH21;
if (iClose("#KO" , PERIOD_D1, 1) == 0)
{
CH21= 0.0000;
}
else
{
CH21 = (( (iClose("#KO" ,PERIOD_D1 ,0) * 100 ) /
iClose("#KO" , PERIOD_D1, 1) - 100 ) );
}
color lColor21 = NeutralColor;
if ( CH21 > 0 )
lColor21 = BullishColor;
if ( CH21 < 0 )
lColor21 = BearishColor;
double CH22;
if (iClose("#JNJ" , PERIOD_D1, 1) == 0)
{
CH22= 0.0000;
}
else
{
CH22 = (( (iClose("#JNJ" ,PERIOD_D1 ,0) * 100 ) /
iClose("#JNJ" , PERIOD_D1, 1) - 100 ) );
}
color lColor22 = NeutralColor;
if ( CH22 > 0 )
lColor22 = BullishColor;
if ( CH22 < 0 )
lColor22 = BearishColor;
double CH23;
if (iClose("#PG" , PERIOD_D1, 1) == 0)
{
CH23= 0.0000;
}
else
{
CH23 = (( (iClose("#PG" ,PERIOD_D1 ,0) * 100 ) /
iClose("#PG" , PERIOD_D1, 1) - 100 ) );
}
color lColor23 = NeutralColor;
if ( CH23 > 0 )
lColor23 = BullishColor;
if ( CH23 < 0 )
lColor23 = BearishColor;
double CH24;
if (iClose("#MO" , PERIOD_D1, 1) == 0)
{
CH24= 0.0000;
}
else
{
CH24 = (( (iClose("#MO" ,PERIOD_D1 ,0) * 100 ) /
iClose("#MO" , PERIOD_D1, 1) - 100 ) );
}
color lColor24 = NeutralColor;
if ( CH24 > 0 )
lColor24 = BullishColor;
if ( CH24 < 0 )
lColor24 = BearishColor;
double CH25;
if (iClose("#WMT" , PERIOD_D1, 1) == 0)
{
CH25= 0.0000;
}
else
{
CH25 = (( (iClose("#WMT" ,PERIOD_D1 ,0) * 100 ) /
iClose("#WMT" , PERIOD_D1, 1) - 100 ) );
}
color lColor25 = NeutralColor;
if ( CH25 > 0 )
lColor25 = BullishColor;
if ( CH25 < 0 )
lColor25 = BearishColor;
double CH26;
if (iClose("#HD" , PERIOD_D1, 1) == 0)
{
CH26= 0.0000;
}
else
{
CH26 = (( (iClose("#HD" ,PERIOD_D1 ,0) * 100 ) /
iClose("#HD" , PERIOD_D1, 1) - 100 ) );
}
color lColor26 = NeutralColor;
if ( CH26 > 0 )
lColor26 = BullishColor;
if ( CH26 < 0 )
lColor26 = BearishColor;
double CH27;
if (iClose("#MRK" , PERIOD_D1, 1) == 0)
{
CH27= 0.0000;
}
else
{
CH27 = (( (iClose("#MRK" ,PERIOD_D1 ,0) * 100 ) /
iClose("#MRK" , PERIOD_D1, 1) - 100 ) );
}
color lColor27 = NeutralColor;
if ( CH27 > 0 )
lColor27 = BullishColor;
if ( CH27 < 0 )
lColor27 = BearishColor;
double CH28;
if (iClose("#T" , PERIOD_D1, 1) == 0)
{
CH28= 0.0000;
}
else
{
CH28 = (( (iClose("#T" ,PERIOD_D1 ,0) * 100 ) /
iClose("#T" , PERIOD_D1, 1) - 100 ) );
}
color lColor28 = NeutralColor;
if ( CH28 > 0 )
lColor28 = BullishColor;
if ( CH28 < 0 )
lColor28 = BearishColor;
double CH29;
if (iClose("#C" , PERIOD_D1, 1) == 0)
{
CH29= 0.0000;
}
else
{
CH29 = (( (iClose("#C" ,PERIOD_D1 ,0) * 100 ) /
iClose("#C" , PERIOD_D1, 1) - 100 ) );
}
color lColor29 = NeutralColor;
if ( CH29 > 0 )
lColor29 = BullishColor;
if ( CH29 < 0 )
lColor29 = BearishColor;
double CH30;
if (iClose("#JPM" , PERIOD_D1, 1) == 0)
{
CH30= 0.0000;
}
else
{
CH30 = (( (iClose("#JPM" ,PERIOD_D1 ,0) * 100 ) /
iClose("#JPM" , PERIOD_D1, 1) - 100 ) );
}
color lColor30 = NeutralColor;
if ( CH30 > 0 )
lColor30 = BullishColor;
if ( CH30 < 0 )
lColor30 = BearishColor;
double CH31;
if (iClose("#AXP" , PERIOD_D1, 1) == 0)
{
CH31= 0.0000;
}
else
{
CH31 = (( (iClose("#AXP" ,PERIOD_D1 ,0) * 100 ) /
iClose("#AXP" , PERIOD_D1, 1) - 100 ) );
}
color lColor31 = NeutralColor;
if ( CH31 > 0 )
lColor31 = BullishColor;
if ( CH31 < 0 )
lColor31 = BearishColor;
double CH32;
if (iClose("FTSE100" , PERIOD_D1, 1) == 0)
{
CH32= 0.0000;
}
else
{
CH32 = (( (iClose("FTSE100" ,PERIOD_D1 ,0) * 100 ) /
iClose("FTSE100" , PERIOD_D1, 1) - 100 ) );
}
color lColor32 = NeutralColor;
if ( CH32 > 0 )
lColor32 = BullishColor;
if ( CH32 < 0 )
lColor32 = BearishColor;
double CH33;
if (iClose("CAC40" , PERIOD_D1, 1) == 0)
{
CH33= 0.0000;
}
else
{
CH33 = (( (iClose("CAC40" ,PERIOD_D1 ,0) * 100 ) /
iClose("CAC40" , PERIOD_D1, 1) - 100 ) );
}
color lColor33 = NeutralColor;
if ( CH33 > 0 )
lColor33 = BullishColor;
if ( CH33 < 0 )
lColor33 = BearishColor;
double CH34;
if (iClose("DAX" , PERIOD_D1, 1) == 0)
{
CH34= 0.0000;
}
else
{
CH34 = (( (iClose("DAX" ,PERIOD_D1 ,0) * 100 ) /
iClose("DAX" , PERIOD_D1, 1) - 100 ) );
}
color lColor34 = NeutralColor;
if ( CH34 > 0 )
lColor34 = BullishColor;
if ( CH34 < 0 )
lColor34 = BearishColor;
double CH35;
if (iClose("NIKKEI" , PERIOD_D1, 1) == 0)
{
CH35= 0.0000;
}
else
{
CH35 = (( (iClose("NIKKEI" ,PERIOD_D1 ,0) * 100 ) /
iClose("NIKKEI" , PERIOD_D1, 1) - 100 ) );
}
color lColor35 = NeutralColor;
if ( CH35 > 0 )
lColor35 = BullishColor;
if ( CH35 < 0 )
lColor35 = BearishColor;
double CH36;
if (iClose("#PFE" , PERIOD_D1, 1) == 0)
{
CH36= 0.0000;
}
else
{
CH36 = (( (iClose("#PFE" ,PERIOD_D1 ,0) * 100 ) /
iClose("#PFE" , PERIOD_D1, 1) - 100 ) );
}
color lColor36 = NeutralColor;
if ( CH36 > 0 )
lColor36 = BullishColor;
if ( CH36 < 0 )
lColor36 = BearishColor;
double CH37;
if (iClose("#BAC" , PERIOD_D1, 1) == 0)
{
CH37= 0.0000;
}
else
{
CH37 = (( (iClose("#BAC" ,PERIOD_D1 ,0) * 100 ) /
iClose("#BAC" , PERIOD_D1, 1) - 100 ) );
}
color lColor37 = NeutralColor;
if ( CH37 > 0 )
lColor37 = BullishColor;
if ( CH37 < 0 )
lColor37 = BearishColor;
//------------------------Îáúÿâëåíèå íàçâàíèé----------------------------- 4 --|
string Ïðîöåíò1 ="Dow Jones "+DoubleToStr(CH1,2)+"% ("
+DoubleToStr(iClose("DJI" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò2 ="S&P 500 "+DoubleToStr(CH2,2)+"% ("
+DoubleToStr(iClose("S&P500" ,PERIOD_D1 ,0),2)+")";
string Ïðîöåíò3 ="NASDAQ Composite "+DoubleToStr(CH3,2)+"% ("
+DoubleToStr(iClose("NQCOMP" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò4 ="IBM "+DoubleToStr(CH4,2)+"% ("
+DoubleToStr(iClose("#IBM" , PERIOD_D1, 0),2)+")";
// Ïðîìûøëåííîñòü - Industrial
string Ïðîöåíò5 ="Alcoa "+DoubleToStr(CH5,2)+"% ("
+DoubleToStr(iClose("#AA" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò6 ="Verizon Communications "+DoubleToStr(CH6,2)+"% ("
+DoubleToStr(iClose("#VZ" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò7 ="Du Pont "+DoubleToStr(CH7,2)+"% ("
+DoubleToStr(iClose("#DD" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò8 ="Exxon Mobile "+DoubleToStr(CH8,2)+"% ("
+DoubleToStr(iClose("#XOM" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò9 ="Chevron "+DoubleToStr(CH9,2)+"% ("
+DoubleToStr(iClose("#CVX" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò10 ="General Motors "+DoubleToStr(CH10,2)+"% ("
+DoubleToStr(iClose("#GM" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò11 ="General Electric "+DoubleToStr(CH11,2)+"% ("
+DoubleToStr(iClose("#GE" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò12 ="Caterpillar "+DoubleToStr(CH12,2)+"% ("
+DoubleToStr(iClose("#CAT" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò13 ="Boeing "+DoubleToStr(CH13,2)+"% ("
+DoubleToStr(iClose("#BA" , PERIOD_D1, 0),2)+")";
// Âûñîêèå òåõíîëîãèè - High Tech
string Ïðîöåíò14 ="Hewlett Packard "+DoubleToStr(CH14,2)+"% ("
+DoubleToStr(iClose("#HPQ" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò15 ="Intel "+DoubleToStr(CH15,2)+"% ("
+DoubleToStr(iClose("#INTC" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò16 ="Microsoft "+DoubleToStr(CH16,2)+"% ("
+DoubleToStr(iClose("#MSFT" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò17 ="Honeywell International "+DoubleToStr(CH17,2)+"% ("
+DoubleToStr(iClose("#HON" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò18 ="United Technologies "+DoubleToStr(CH18,2)+"% ("
+DoubleToStr(iClose("#UTX" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò19 ="Eastman Kodak "+DoubleToStr(CH19,2)+"% ("
+DoubleToStr(iClose("#EK" , PERIOD_D1, 0),2)+")";
// Øèðîêîå ïîòðåáëåíèå - Wide Consumption
string Ïðîöåíò20 ="McDonalds "+DoubleToStr(CH20,2)+"% ("
+DoubleToStr(iClose("#MCD" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò21 ="Coca Cola "+DoubleToStr(CH21,2)+"% ("
+DoubleToStr(iClose("#KO" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò22 ="Johnson & Johnson "+DoubleToStr(CH22,2)+"% ("
+DoubleToStr(iClose("#JNJ" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò23 ="Procter & Gamble "+DoubleToStr(CH23,2)+"% ("
+DoubleToStr(iClose("#PG" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò24 ="Altria Group "+DoubleToStr(CH24,2)+"% ("
+DoubleToStr(iClose("#MO" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò25 ="Wal-Mart Stores "+DoubleToStr(CH25,2)+"% ("
+DoubleToStr(iClose("#WMT" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò26 ="Home Depot "+DoubleToStr(CH26,2)+"% ("
+DoubleToStr(iClose("#HD" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò27 ="Merck "+DoubleToStr(CH27,2)+"% ("
+DoubleToStr(iClose("#MRK" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò28 ="AT%T "+DoubleToStr(CH28,2)+"% ("
+DoubleToStr(iClose("#T" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò36 ="Pfizer "+DoubleToStr(CH36,2)+"% ("
+DoubleToStr(iClose("#PFE" , PERIOD_D1, 0),2)+")";
// Ôèíàíñîâûå ó÷ðåæäåíèÿ - Financial
string Ïðîöåíò37 ="Bank of America "+DoubleToStr(CH37,2)+"% ("
+DoubleToStr(iClose("#BAC" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò29 ="Citigroup "+DoubleToStr(CH29,2)+"% ("
+DoubleToStr(iClose("#C" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò30 ="J.P. Morgan Chase "+DoubleToStr(CH30,2)+"% ("
+DoubleToStr(iClose("#JPM" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò31 ="American Express "+DoubleToStr(CH31,2)+"% ("
+DoubleToStr(iClose("#AXP" , PERIOD_D1, 0),2)+")";
// Èíäåêñû äðóãèå
string Ïðîöåíò32 ="FTSE "+DoubleToStr(CH32,2)+"% ("
+DoubleToStr(iClose("FTSE100" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò33 ="CAC "+DoubleToStr(CH33,2)+"% ("
+DoubleToStr(iClose("CAC40" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò34 ="DAX "+DoubleToStr(CH34,2)+"% ("
+DoubleToStr(iClose("DAX" , PERIOD_D1, 0),2)+")";
string Ïðîöåíò35 ="NIKKEI "+DoubleToStr(CH35,2)+"% ("
+DoubleToStr(iClose("NIKKEI" , PERIOD_D1, 0),2)+")";
string Íàäïèñü1 ="Industrial";
string Íàäïèñü2 ="--------------------------------";
string Íàäïèñü3 ="High Tech";
string Íàäïèñü4 ="--------------------------------";
string Íàäïèñü5 ="Wide Consumption";
string Íàäïèñü6 ="--------------------------------";
string Íàäïèñü7 ="Financial";
string Íàäïèñü8 ="--------------------------------";
string Íàäïèñü9 ="--------------------------------";
//-----------------------------Ïîñòðîåíèå--------------------------------- 5 --|
ObjectSetText("Ïðîöåíò1",Ïðîöåíò1,14,"Verdana",lColor1);
ObjectSet("Ïðîöåíò1",OBJPROP_XDISTANCE,5);
ObjectSet("Ïðîöåíò1",OBJPROP_YDISTANCE,5);
ObjectSetText("Ïðîöåíò2",Ïðîöåíò2,14,"Verdana",lColor2);
ObjectSet("Ïðîöåíò2",OBJPROP_XDISTANCE,5);
ObjectSet("Ïðîöåíò2",OBJPROP_YDISTANCE,20);
ObjectSetText("Ïðîöåíò3",Ïðîöåíò3,14,"Verdana",lColor3);
ObjectSet("Ïðîöåíò3",OBJPROP_XDISTANCE,5);
ObjectSet("Ïðîöåíò3",OBJPROP_YDISTANCE,35);
ObjectSetText("Ïðîöåíò4",Ïðîöåíò4,9,"Verdana",lColor4);
ObjectSet("Ïðîöåíò4",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò4",OBJPROP_YDISTANCE,186);
ObjectSetText("Ïðîöåíò5",Ïðîöåíò5,9,"Verdana",lColor5);
ObjectSet("Ïðîöåíò5",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò5",OBJPROP_YDISTANCE,79);
ObjectSetText("Ïðîöåíò6",Ïðîöåíò6,9,"Verdana",lColor6);
ObjectSet("Ïðîöåíò6",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò6",OBJPROP_YDISTANCE,383);
ObjectSetText("Ïðîöåíò7",Ïðîöåíò7,9,"Verdana",lColor7);
ObjectSet("Ïðîöåíò7",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò7",OBJPROP_YDISTANCE,89);
ObjectSetText("Ïðîöåíò8",Ïðîöåíò8,9,"Verdana",lColor8);
ObjectSet("Ïðîöåíò8",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò8",OBJPROP_YDISTANCE,99);
ObjectSetText("Ïðîöåíò9",Ïðîöåíò9,9,"Verdana",lColor9);
ObjectSet("Ïðîöåíò9",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò9",OBJPROP_YDISTANCE,109);
ObjectSetText("Ïðîöåíò10",Ïðîöåíò10,9,"Verdana",lColor10);
ObjectSet("Ïðîöåíò10",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò10",OBJPROP_YDISTANCE,119);
ObjectSetText("Ïðîöåíò11",Ïðîöåíò11,9,"Verdana",lColor11);
ObjectSet("Ïðîöåíò11",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò11",OBJPROP_YDISTANCE,129);
ObjectSetText("Ïðîöåíò12",Ïðîöåíò12,9,"Verdana",lColor12);
ObjectSet("Ïðîöåíò12",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò12",OBJPROP_YDISTANCE,139);
ObjectSetText("Ïðîöåíò13",Ïðîöåíò13,9,"Verdana",lColor13);
ObjectSet("Ïðîöåíò13",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò13",OBJPROP_YDISTANCE,149);
ObjectSetText("Ïðîöåíò14",Ïðîöåíò14,9,"Verdana",lColor14);
ObjectSet("Ïðîöåíò14",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò14",OBJPROP_YDISTANCE,196);
ObjectSetText("Ïðîöåíò15",Ïðîöåíò15,9,"Verdana",lColor15);
ObjectSet("Ïðîöåíò15",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò15",OBJPROP_YDISTANCE,206);
ObjectSetText("Ïðîöåíò16",Ïðîöåíò16,9,"Verdana",lColor16);
ObjectSet("Ïðîöåíò16",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò16",OBJPROP_YDISTANCE,216);
ObjectSetText("Ïðîöåíò17",Ïðîöåíò17,9,"Verdana",lColor17);
ObjectSet("Ïðîöåíò17",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò17",OBJPROP_YDISTANCE,226);
ObjectSetText("Ïðîöåíò18",Ïðîöåíò18,9,"Verdana",lColor18);
ObjectSet("Ïðîöåíò18",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò18",OBJPROP_YDISTANCE,236);
ObjectSetText("Ïðîöåíò19",Ïðîöåíò19,9,"Verdana",lColor19);
ObjectSet("Ïðîöåíò19",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò19",OBJPROP_YDISTANCE,246);
ObjectSetText("Ïðîöåíò20",Ïðîöåíò20,9,"Verdana",lColor20);
ObjectSet("Ïðîöåíò20",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò20",OBJPROP_YDISTANCE,283);
ObjectSetText("Ïðîöåíò21",Ïðîöåíò21,9,"Verdana",lColor21);
ObjectSet("Ïðîöåíò21",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò21",OBJPROP_YDISTANCE,293);
ObjectSetText("Ïðîöåíò22",Ïðîöåíò22,9,"Verdana",lColor22);
ObjectSet("Ïðîöåíò22",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò22",OBJPROP_YDISTANCE,303);
ObjectSetText("Ïðîöåíò23",Ïðîöåíò23,9,"Verdana",lColor23);
ObjectSet("Ïðîöåíò23",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò23",OBJPROP_YDISTANCE,313);
ObjectSetText("Ïðîöåíò24",Ïðîöåíò24,9,"Verdana",lColor24);
ObjectSet("Ïðîöåíò24",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò24",OBJPROP_YDISTANCE,323);
ObjectSetText("Ïðîöåíò25",Ïðîöåíò25,9,"Verdana",lColor25);
ObjectSet("Ïðîöåíò25",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò25",OBJPROP_YDISTANCE,333);
ObjectSetText("Ïðîöåíò26",Ïðîöåíò26,9,"Verdana",lColor26);
ObjectSet("Ïðîöåíò26",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò26",OBJPROP_YDISTANCE,343);
ObjectSetText("Ïðîöåíò27",Ïðîöåíò27,9,"Verdana",lColor27);
ObjectSet("Ïðîöåíò27",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò27",OBJPROP_YDISTANCE,353);
ObjectSetText("Ïðîöåíò28",Ïðîöåíò28,9,"Verdana",lColor28);
ObjectSet("Ïðîöåíò28",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò28",OBJPROP_YDISTANCE,373);
ObjectSetText("Ïðîöåíò29",Ïðîöåíò29,9,"Verdana",lColor29);
ObjectSet("Ïðîöåíò29",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò29",OBJPROP_YDISTANCE,430);
ObjectSetText("Ïðîöåíò30",Ïðîöåíò30,9,"Verdana",lColor30);
ObjectSet("Ïðîöåíò30",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò30",OBJPROP_YDISTANCE,440);
ObjectSetText("Ïðîöåíò31",Ïðîöåíò31,9,"Verdana",lColor31);
ObjectSet("Ïðîöåíò31",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò31",OBJPROP_YDISTANCE,450);
ObjectSetText("Ïðîöåíò32",Ïðîöåíò32,9,"Verdana",lColor32);
ObjectSet("Ïðîöåíò32",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò32",OBJPROP_YDISTANCE,469);
ObjectSetText("Ïðîöåíò33",Ïðîöåíò33,9,"Verdana",lColor33);
ObjectSet("Ïðîöåíò33",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò33",OBJPROP_YDISTANCE,479);
ObjectSetText("Ïðîöåíò34",Ïðîöåíò34,9,"Verdana",lColor34);
ObjectSet("Ïðîöåíò34",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò34",OBJPROP_YDISTANCE,489);
ObjectSetText("Ïðîöåíò35",Ïðîöåíò35,9,"Verdana",lColor35);
ObjectSet("Ïðîöåíò35",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò35",OBJPROP_YDISTANCE,499);
ObjectSetText("Ïðîöåíò36",Ïðîöåíò36,9,"Verdana",lColor36);
ObjectSet("Ïðîöåíò36",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò36",OBJPROP_YDISTANCE,363);
ObjectSetText("Ïðîöåíò37",Ïðîöåíò37,9,"Verdana",lColor37);
ObjectSet("Ïðîöåíò37",OBJPROP_XDISTANCE,10);
ObjectSet("Ïðîöåíò37",OBJPROP_YDISTANCE,420);
ObjectSetText("Íàäïèñü1",Íàäïèñü1,9,"Verdana",NeutralColor);
ObjectSet("Íàäïèñü1",OBJPROP_XDISTANCE,5);
ObjectSet("Íàäïèñü1",OBJPROP_YDISTANCE,61);
ObjectSetText("Íàäïèñü2",Íàäïèñü2,9,"Verdana",NeutralColor);
ObjectSet("Íàäïèñü2",OBJPROP_XDISTANCE,5);
ObjectSet("Íàäïèñü2",OBJPROP_YDISTANCE,69);
ObjectSetText("Íàäïèñü3",Íàäïèñü3,9,"Verdana",NeutralColor);
ObjectSet("Íàäïèñü3",OBJPROP_XDISTANCE,5);
ObjectSet("Íàäïèñü3",OBJPROP_YDISTANCE,168);
ObjectSetText("Íàäïèñü4",Íàäïèñü4,9,"Verdana",NeutralColor);
ObjectSet("Íàäïèñü4",OBJPROP_XDISTANCE,5);
ObjectSet("Íàäïèñü4",OBJPROP_YDISTANCE,176);
ObjectSetText("Íàäïèñü5",Íàäïèñü5,9,"Verdana",NeutralColor);
ObjectSet("Íàäïèñü5",OBJPROP_XDISTANCE,5);
ObjectSet("Íàäïèñü5",OBJPROP_YDISTANCE,265);
ObjectSetText("Íàäïèñü6",Íàäïèñü6,9,"Verdana",NeutralColor);
ObjectSet("Íàäïèñü6",OBJPROP_XDISTANCE,5);
ObjectSet("Íàäïèñü6",OBJPROP_YDISTANCE,273);
ObjectSetText("Íàäïèñü7",Íàäïèñü7,9,"Verdana",NeutralColor);
ObjectSet("Íàäïèñü7",OBJPROP_XDISTANCE,5);
ObjectSet("Íàäïèñü7",OBJPROP_YDISTANCE,402);
ObjectSetText("Íàäïèñü8",Íàäïèñü8,9,"Verdana",NeutralColor);
ObjectSet("Íàäïèñü8",OBJPROP_XDISTANCE,5);
ObjectSet("Íàäïèñü8",OBJPROP_YDISTANCE,410);
ObjectSetText("Íàäïèñü9",Íàäïèñü9,9,"Verdana",NeutralColor);
ObjectSet("Íàäïèñü9",OBJPROP_XDISTANCE,5);
ObjectSet("Íàäïèñü9",OBJPROP_YDISTANCE,459);
return(0);
}
//--------------------------------Êîíåö----------------------------------- 6 --|
Comments