Percent Change USStocks
Download scriptThis script functions as a real-time financial dashboard designed for the MetaTrader trading platform. Its primary purpose is to provide traders with a comprehensive overview of market performance across various major U.S. stocks, global indices, and specific industrial sectors, all displayed directly on a single chart window.
Core Functionality
The logic follows a structured process to gather, calculate, and display financial data:
1. Market Data Monitoring The script actively monitors 37 different financial instruments. These include major global indices (such as the Dow Jones, S&P 500, NASDAQ, FTSE 100, CAC 40, DAX, and NIKKEI) as well as individual high-profile stocks from diverse sectors like Technology, Industrials, Consumer Goods, and Finance.
2. Percentage Change Calculation For every instrument monitored, the script performs a specific mathematical calculation to determine the daily performance:
- It compares the current closing price of the day against the previous day's closing price.
- It converts this difference into a percentage value.
- This allows the user to see exactly how much an asset has gained or lost in relative terms rather than just looking at raw price points.
3. Visual Indicators and Color Coding To make the data easy to interpret at a glance, the script employs a dynamic color-coding system:
- Bullish Trend: If an instrument’s percentage change is positive (a gain), the text is displayed in a specific green color.
- Bearish Trend: If the change is negative (a loss), the text switches to a maroon/red color.
- Neutral State: If there is no movement, it remains in a neutral gray tone.
4. Organized Dashboard Layout Rather than displaying a messy list of numbers, the script organizes the information into a professional "Information Board" layout. It groups the stocks into logical categories with headers:
- Indices: Major benchmarks for broad market health.
- Industrial: Heavy manufacturing and energy (e.g., Exxon, General Motors).
- High Tech: Software and hardware giants (e.g., Microsoft, Intel).
- Wide Consumption: Retail and food staples (e.g., Walmart, Coca-Cola).
- Financial: Banking and credit institutions (e.g., J.P. Morgan, Bank of America).
User Experience
For the end user, this script acts as a "market ticker" on the screen. Instead of having to open dozens of different charts to see how the economy is performing, the trader can simply glance at one window to see a categorized summary of global market health, instantly identifying which sectors are leading and which are lagging based on the real-time color changes.
//|----------------------------------------------------------------------------|
//| 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