//+------------------------------------------------------------------+ //| Psychological.mq5 | //| | //| Psychological Indicator (Ported from FXAccucharts) | //| Version 1.0 | //| Copyright © 2007, Bruce Hellstrom (brucehvn) | //| bhweb@speakeasy.net | //| http://www.metaquotes.ru | //+------------------------------------------------------------------+ //+--------------------------------------------------------------------------------+ //| This indicator is ported from the FXAccuCharts platform to MT4. The formula | //| used here has been tested on FXAccuCharts to insure it displays the same as | //| their default psychological indicator. | //| | //| Input Parameters: | //| PsychPeriod - Lookback periods for the indicator (25 default) | //| | //| Revision History | //| Version 1.0 | //| * Initial Revision | //+--------------------------------------------------------------------------------+ #property copyright "Copyright © 2007, Bruce Hellstrom (brucehvn)" #property link "http: //www.metaquotes.net/" //---- номер версии индикатора #property version "1.00" //---- отрисовка индикатора в отдельном окне #property indicator_separate_window //---- количество индикаторных буферов 1 #property indicator_buffers 1 //---- использовано всего одно графические построение #property indicator_plots 1 //+----------------------------------------------+ //| Параметры отрисовки индикатора | //+----------------------------------------------+ //---- отрисовка индикатора в виде линии #property indicator_type1 DRAW_LINE //---- в качестве цвета линии использован MediumOrchid цвет #property indicator_color1 clrMediumOrchid //---- линия индикатора - сплошная #property indicator_style1 STYLE_SOLID //---- толщина линии индикатора равна 2 #property indicator_width1 2 //---- отображение метки сигнальной линии #property indicator_label1 "ATR ratio" //+----------------------------------------------+ //| Параметры отображения горизонтальных уровней | //+----------------------------------------------+ #property indicator_level1 1 #property indicator_levelcolor clrGray #property indicator_levelstyle STYLE_DASHDOTDOT //+----------------------------------------------+ //| объявление констант | //+----------------------------------------------+ #define RESET 0 // Константа для возврата терминалу команды на пересчёт индикатора //+----------------------------------------------+ //| объявление перечислений | //+----------------------------------------------+ enum ENUM_APPLIED_PRICE_ //Тип константы { PRICE_CLOSE_ = 1, //PRICE_CLOSE PRICE_OPEN_, //PRICE_OPEN PRICE_HIGH_, //PRICE_HIGH PRICE_LOW_, //PRICE_LOW PRICE_MEDIAN_, //PRICE_MEDIAN PRICE_TYPICAL_, //PRICE_TYPICAL PRICE_WEIGHTED_, //PRICE_WEIGHTED PRICE_SIMPL_, //PRICE_SIMPL_ PRICE_QUARTER_, //PRICE_QUARTER_ PRICE_TRENDFOLLOW0_, //PRICE_TRENDFOLLOW0_ PRICE_TRENDFOLLOW1_, // TrendFollow_2 Price PRICE_DEMARK_ // Demark Price }; //+----------------------------------------------+ //| Входные параметры индикатора | //+----------------------------------------------+ input uint PsychPeriod=25; input ENUM_APPLIED_PRICE_ IPC=PRICE_CLOSE_; // ценовая константа input int Shift=0; // сдвиг индикатора по горизонтали в барах input uint HighLevel=75; // уровень перекупленности input uint MidlleLevel=50; // уровень перекупленности input uint LowLevel=25; // уровень перепроданности //+----------------------------------------------+ //---- объявление динамического массива, который будет в // дальнейшем использован в качестве индикаторного буфера double ExtLineBuffer[]; //---- Объявление целых переменных начала отсчёта данных int min_rates_total; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ void OnInit() { //---- Инициализация переменных начала отсчёта данных min_rates_total=int(PsychPeriod)+1; //---- превращение динамического массива ExtLineBuffer в индикаторный буфер SetIndexBuffer(0,ExtLineBuffer,INDICATOR_DATA); //---- инициализации переменной для короткого имени индикатора string shortname; StringConcatenate(shortname,"Psychological(",PsychPeriod," ",Shift,")"); //---- осуществление сдвига индикатора 1 по горизонтали на ATRShift PlotIndexSetInteger(0,PLOT_SHIFT,Shift); //---- создание метки для отображения в Окне данных PlotIndexSetString(0,PLOT_LABEL,shortname); //---- создание имени для отображения в отдельном подокне и во всплывающей подсказке IndicatorSetString(INDICATOR_SHORTNAME,shortname); //---- запрет на отрисовку индикатором пустых значений PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,EMPTY_VALUE); //---- индексация элементов в буферах как в таймсериях ArraySetAsSeries(ExtLineBuffer,true); //---- определение точности отображения значений индикатора IndicatorSetInteger(INDICATOR_DIGITS,0); //---- количество горизонтальных уровней индикатора 3 IndicatorSetInteger(INDICATOR_LEVELS,3); //---- значения горизонтальных уровней индикатора IndicatorSetDouble(INDICATOR_LEVELVALUE,0,HighLevel); IndicatorSetDouble(INDICATOR_LEVELVALUE,1,MidlleLevel); IndicatorSetDouble(INDICATOR_LEVELVALUE,2,LowLevel); //---- в качестве цветов линий горизонтальных уровней использованы IndicatorSetInteger(INDICATOR_LEVELCOLOR,0,clrMediumSeaGreen); IndicatorSetInteger(INDICATOR_LEVELCOLOR,1,clrGray); IndicatorSetInteger(INDICATOR_LEVELCOLOR,2,clrRed); //---- в линии горизонтального уровня использован короткий штрих-пунктир IndicatorSetInteger(INDICATOR_LEVELSTYLE,0,STYLE_DASHDOTDOT); IndicatorSetInteger(INDICATOR_LEVELSTYLE,1,STYLE_DASHDOTDOT); IndicatorSetInteger(INDICATOR_LEVELSTYLE,2,STYLE_DASHDOTDOT); //---- } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int OnCalculate( const int rates_total, // количество истории в барах на текущем тике const int prev_calculated,// количество истории в барах на предыдущем тике const datetime &time[], const double &open[], const double& high[], // ценовой массив максимумов цены для расчёта индикатора const double& low[], // ценовой массив минимумов цены для расчёта индикатора const double &close[], const long &tick_volume[], const long &volume[], const int &spread[] ) { //---- проверка количества баров на достаточность для расчёта if(rates_totalrates_total || prev_calculated<=0)// проверка на первый старт расчёта индикатора { limit=rates_total-min_rates_total-1; // стартовый номер для расчёта всех баров } else { limit=rates_total-prev_calculated; // стартовый номер для расчёта новых баров } //--- индексация элементов в массивах как в таймсериях ArraySetAsSeries(high,true); ArraySetAsSeries(low,true); ArraySetAsSeries(open,true); ArraySetAsSeries(close,true); //---- основной цикл расчёта индикатора for(bar=limit; bar>=0 && !IsStopped(); bar--) { int Count=0; int endctr=bar+1+int(PsychPeriod); for(int jctr=bar+1; jctrPriceSeries(IPC,jctr+1,open,low,high,close)) { Count++; } } if(PriceSeries(IPC,bar,open,low,high,close)>PriceSeries(IPC,bar+1,open,low,high,close)) { Count++; } if(PriceSeries(IPC,PsychPeriod,open,low,high,close)>PriceSeries(IPC,PsychPeriod+1,open,low,high,close)) { Count--; } double dCount=Count; ExtLineBuffer[bar]=(dCount/PsychPeriod) *100.0; } //---- return(rates_total); } //+------------------------------------------------------------------+ //| Получение значения ценовой таймсерии | //+------------------------------------------------------------------+ double PriceSeries ( uint applied_price,// Ценовая константа uint bar,// Индекс сдвига относительно текущего бара на указанное количество периодов назад или вперёд). const double &Open[], const double &Low[], const double &High[], const double &Close[] ) //PriceSeries(applied_price, bar, open, low, high, close) //+ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -+ { //---- switch(applied_price) { //---- Ценовые константы из перечисления ENUM_APPLIED_PRICE case PRICE_CLOSE: return(Close[bar]); case PRICE_OPEN: return(Open [bar]); case PRICE_HIGH: return(High [bar]); case PRICE_LOW: return(Low[bar]); case PRICE_MEDIAN: return((High[bar]+Low[bar])/2.0); case PRICE_TYPICAL: return((Close[bar]+High[bar]+Low[bar])/3.0); case PRICE_WEIGHTED: return((2*Close[bar]+High[bar]+Low[bar])/4.0); //---- case 8: return((Open[bar] + Close[bar])/2.0); case 9: return((Open[bar] + Close[bar] + High[bar] + Low[bar])/4.0); //---- case 10: { if(Close[bar]>Open[bar])return(High[bar]); else { if(Close[bar]Open[bar])return((High[bar]+Close[bar])/2.0); else { if(Close[bar]Open[bar]) res=(res+High[bar])/2; if(Close[bar]==Open[bar]) res=(res+Close[bar])/2; return(((res-Low[bar])+(res-High[bar]))/2); } //---- default: return(Close[bar]); } //---- //return(0); } //+------------------------------------------------------------------+