209 lines
8.9 KiB
Plaintext
209 lines
8.9 KiB
Plaintext
//+---------------------------------------------------------------------+
|
|
//| StochasticDiffSign.mq5 |
|
|
//| Copyright © 2009, DesO'Regan |
|
|
//| oregan_des@hotmail.com |
|
|
//+---------------------------------------------------------------------+
|
|
//| Äëÿ ðàáîòû èíäèêàòîðà ñëåäóåò ïîëîæèòü ôàéë SmoothAlgorithms.mqh |
|
|
//| â ïàïêó (äèðåêòîðèþ): êàòàëîã_äàííûõ_òåðìèíàëà\\MQL5\Include |
|
|
//+---------------------------------------------------------------------+
|
|
#property copyright "Copyright © 2009, DesO'Regan"
|
|
#property link "oregan_des@hotmail.com"
|
|
//---- íîìåð âåðñèè èíäèêàòîðà
|
|
#property version "1.00"
|
|
//---- îòðèñîâêà èíäèêàòîðà â îòäåëüíîì îêíå
|
|
#property indicator_chart_window
|
|
//---- êîëè÷åñòâî èíäèêàòîðíûõ áóôåðîâ 2
|
|
#property indicator_buffers 2
|
|
//---- èñïîëüçîâàíî äâà ãðàôè÷åñêèõ ïîñòðîåíèÿ
|
|
#property indicator_plots 2
|
|
//+----------------------------------------------+
|
|
//| îáúÿâëåíèå êîíñòàíò |
|
|
//+----------------------------------------------+
|
|
#define RESET 0 // Êîíñòàíòà äëÿ âîçâðàòà òåðìèíàëó êîìàíäû íà ïåðåñ÷¸ò èíäèêàòîðà
|
|
//+----------------------------------------------+
|
|
//| Ïàðàìåòðû îòðèñîâêè ìåäâåæüåãî èíäèêàòîðà |
|
|
//+----------------------------------------------+
|
|
//--- îòðèñîâêà èíäèêàòîðà 1 â âèäå ñèìâîëà
|
|
#property indicator_type1 DRAW_ARROW
|
|
//--- â êà÷åñòâå öâåòà ìåäâåæüåé ëèíèè èíäèêàòîðà èñïîëüçîâàí ðîçîâûé öâåò
|
|
#property indicator_color1 clrMagenta
|
|
//--- òîëùèíà ëèíèè èíäèêàòîðà 1 ðàâíà 4
|
|
#property indicator_width1 4
|
|
//--- îòîáðàæåíèå áû÷åé ìåòêè èíäèêàòîðà
|
|
#property indicator_label1 "StochasticDiffSign Sell"
|
|
//+----------------------------------------------+
|
|
//| Ïàðàìåòðû îòðèñîâêè áû÷üãî èíäèêàòîðà |
|
|
//+----------------------------------------------+
|
|
//--- îòðèñîâêà èíäèêàòîðà 2 â âèäå ñèìâîëà
|
|
#property indicator_type2 DRAW_ARROW
|
|
//--- â êà÷åñòâå öâåòà áû÷åé ëèíèè èíäèêàòîðà èñïîëüçîâàí çåë¸íûé öâåò
|
|
#property indicator_color2 clrLimeGreen
|
|
//--- òîëùèíà ëèíèè èíäèêàòîðà 2 ðàâíà 4
|
|
#property indicator_width2 4
|
|
//--- îòîáðàæåíèå ìåäâåæüåé ìåòêè èíäèêàòîðà
|
|
#property indicator_label2 "StochasticDiffSign Buy"
|
|
//+----------------------------------------------+
|
|
//| Îïèñàíèå êëàññà CXMA |
|
|
//+----------------------------------------------+
|
|
#include <SmoothAlgorithms.mqh>
|
|
//+----------------------------------------------+
|
|
//---- îáúÿâëåíèå ïåðåìåííûõ êëàññà CXMA èç ôàéëà SmoothAlgorithms.mqh
|
|
CXMA XMA1;
|
|
//+----------------------------------------------+
|
|
//| îáúÿâëåíèå ïåðå÷èñëåíèé |
|
|
//+----------------------------------------------+
|
|
/*enum SmoothMethod - ïåðå÷èñëåíèå îáúÿâëåíî â ôàéëå SmoothAlgorithms.mqh
|
|
{
|
|
MODE_SMA_, //SMA
|
|
MODE_EMA_, //EMA
|
|
MODE_SMMA_, //SMMA
|
|
MODE_LWMA_, //LWMA
|
|
MODE_JJMA, //JJMA
|
|
MODE_JurX, //JurX
|
|
MODE_ParMA, //ParMA
|
|
MODE_T3, //T3
|
|
MODE_VIDYA, //VIDYA
|
|
MODE_AMA, //AMA
|
|
}; */
|
|
//+----------------------------------------------+
|
|
//| ÂÕÎÄÍÛÅ ÏÀÐÀÌÅÒÐÛ ÈÍÄÈÊÀÒÎÐÀ |
|
|
//+----------------------------------------------+
|
|
input int KPeriod=5;
|
|
input int DPeriod=3;
|
|
input int Slowing=3;
|
|
input ENUM_MA_METHOD iMA_Method=MODE_SMA;
|
|
input ENUM_STO_PRICE Price_field=STO_LOWHIGH;
|
|
input Smooth_Method XMA_Method=MODE_T3; //ìåòîä ñãëàæèâàíèÿ èíäèêàòîðà
|
|
input uint XLength=13; //ãëóáèíà ñãëàæèâàíèÿ
|
|
input int XPhase=15; //ïàðàìåòð ñãëàæèâàíèÿ,
|
|
//---- äëÿ JJMA èçìåíÿþùèéñÿ â ïðåäåëàõ -100 ... +100, âëèÿåò íà êà÷åñòâî ïåðåõîäíîãî ïðîöåññà;
|
|
//---- Äëÿ VIDIA ýòî ïåðèîä CMO, äëÿ AMA ýòî ïåðèîä ìåäëåííîé ñêîëüçÿùåé
|
|
//+----------------------------------------------+
|
|
//---- Îáúÿâëåíèå öåëûõ ïåðåìåííûõ íà÷àëà îòñ÷¸òà äàííûõ
|
|
int min_rates_1,min_rates_total;
|
|
//--- îáúÿâëåíèå äèíàìè÷åñêèõ ìàññèâîâ, êîòîðûå â äàëüíåéøåì áóäóò èñïîëüçîâàíû â êà÷åñòâå èíäèêàòîðíûõ áóôåðîâ
|
|
double SellBuffer[],BuyBuffer[];
|
|
//---- Îáúÿâëåíèå öåëûõ ïåðåìåííûõ äëÿ õåíäëîâ èíäèêàòîðîâ
|
|
int Stochastic_Handle,ATR_Handle;
|
|
//+------------------------------------------------------------------+
|
|
//| Custom indicator initialization function |
|
|
//+------------------------------------------------------------------+
|
|
int OnInit()
|
|
{
|
|
//--- ïîëó÷åíèå õåíäëà èíäèêàòîðà iATR
|
|
int ATR_Period=15;
|
|
ATR_Handle=iATR(NULL,0,ATR_Period);
|
|
if(ATR_Handle==INVALID_HANDLE)
|
|
{
|
|
Print(" Íå óäàëîñü ïîëó÷èòü õåíäë èíäèêàòîðà iATR");
|
|
return(INIT_FAILED);
|
|
}
|
|
|
|
//---- ïîëó÷åíèå õåíäëà èíäèêàòîðà iStochastic
|
|
Stochastic_Handle=iStochastic(NULL,0,KPeriod,DPeriod,Slowing,iMA_Method,Price_field);
|
|
if(Stochastic_Handle==INVALID_HANDLE)
|
|
{
|
|
Print(" Íå óäàëîñü ïîëó÷èòü õåíäë èíäèêàòîðà iStochastic");
|
|
return(INIT_FAILED);
|
|
}
|
|
//---- Èíèöèàëèçàöèÿ ïåðåìåííûõ íà÷àëà îòñ÷¸òà äàííûõ
|
|
min_rates_1=int(KPeriod+DPeriod+Slowing);
|
|
min_rates_total=min_rates_1+GetStartBars(XMA_Method,XLength,XPhase)+3;
|
|
min_rates_total=int(MathMax(ATR_Period,min_rates_total))+1;
|
|
|
|
//--- ïðåâðàùåíèå äèíàìè÷åñêîãî ìàññèâà â èíäèêàòîðíûé áóôåð
|
|
SetIndexBuffer(0,SellBuffer,INDICATOR_DATA);
|
|
//--- îñóùåñòâëåíèå ñäâèãà íà÷àëà îòñ÷åòà îòðèñîâêè èíäèêàòîðà 1
|
|
PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total);
|
|
//---- óñòàíîâêà çíà÷åíèé èíäèêàòîðà 1, êîòîðûå íå áóäóò âèäèìû íà ãðàôèêå
|
|
PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,0.0);
|
|
//--- ñèìâîë äëÿ èíäèêàòîðà
|
|
PlotIndexSetInteger(0,PLOT_ARROW,176);
|
|
//--- èíäåêñàöèÿ ýëåìåíòîâ â áóôåðå êàê â òàéìñåðèè
|
|
ArraySetAsSeries(SellBuffer,true);
|
|
//--- ïðåâðàùåíèå äèíàìè÷åñêîãî ìàññèâà â èíäèêàòîðíûé áóôåð
|
|
SetIndexBuffer(1,BuyBuffer,INDICATOR_DATA);
|
|
//--- îñóùåñòâëåíèå ñäâèãà íà÷àëà îòñ÷åòà îòðèñîâêè èíäèêàòîðà 2
|
|
PlotIndexSetInteger(1,PLOT_DRAW_BEGIN,min_rates_total);
|
|
//---- óñòàíîâêà çíà÷åíèé èíäèêàòîðà, êîòîðûå íå áóäóò âèäèìû íà ãðàôèêå
|
|
PlotIndexSetDouble(1,PLOT_EMPTY_VALUE,0.0);
|
|
//--- ñèìâîë äëÿ èíäèêàòîðà
|
|
PlotIndexSetInteger(1,PLOT_ARROW,176);
|
|
//--- èíäåêñàöèÿ ýëåìåíòîâ â áóôåðå êàê â òàéìñåðèè
|
|
ArraySetAsSeries(BuyBuffer,true);
|
|
|
|
//--- ñîçäàíèå èìåíè äëÿ îòîáðàæåíèÿ â îòäåëüíîì ïîäîêíå è âî âñïëûâàþùåé ïîäñêàçêå
|
|
IndicatorSetString(INDICATOR_SHORTNAME,"StochasticDiffSign("+string(KPeriod)+")");
|
|
//--- îïðåäåëåíèå òî÷íîñòè îòîáðàæåíèÿ çíà÷åíèé èíäèêàòîðà
|
|
IndicatorSetInteger(INDICATOR_DIGITS,2);
|
|
//---- çàâåðøåíèå èíèöèàëèçàöèè
|
|
return(INIT_SUCCEEDED);
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| 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(BarsCalculated(Stochastic_Handle)<rates_total || BarsCalculated(ATR_Handle)<rates_total || rates_total<min_rates_total) return(RESET);
|
|
|
|
//---- îáúÿâëåíèÿ ëîêàëüíûõ ïåðåìåííûõ
|
|
int to_copy,limit,bar,maxbar;
|
|
double Sto[],Sign[],ATR[],diff,xdiff;
|
|
static double xdiff1,xdiff2;
|
|
|
|
//---- ðàñ÷åò ñòàðòîâîãî íîìåðà limit äëÿ öèêëà ïåðåñ÷åòà áàðîâ
|
|
if(prev_calculated>rates_total || prev_calculated<=0)// ïðîâåðêà íà ïåðâûé ñòàðò ðàñ÷åòà èíäèêàòîðà
|
|
{
|
|
limit=rates_total-min_rates_1-1; // ñòàðòîâûé íîìåð äëÿ ðàñ÷åòà âñåõ áàðîâ
|
|
}
|
|
else limit=rates_total-prev_calculated; // ñòàðòîâûé íîìåð äëÿ ðàñ÷åòà íîâûõ áàðîâ
|
|
|
|
to_copy=limit+1;
|
|
maxbar=rates_total-1-min_rates_1;
|
|
|
|
//---- êîïèðóåì âíîâü ïîÿâèâøèåñÿ äàííûå â ìàññèâû
|
|
if(CopyBuffer(Stochastic_Handle,MAIN_LINE,0,to_copy,Sto)<=0) return(RESET);
|
|
if(CopyBuffer(Stochastic_Handle,SIGNAL_LINE,0,to_copy,Sign)<=0) return(RESET);
|
|
if(CopyBuffer(ATR_Handle,MAIN_LINE,0,to_copy,ATR)<=0) return(RESET);
|
|
//---- èíäåêñàöèÿ ýëåìåíòîâ â ìàññèâàõ êàê â òàéìñåðèÿõ
|
|
ArraySetAsSeries(Sto,true);
|
|
ArraySetAsSeries(Sign,true);
|
|
ArraySetAsSeries(ATR,true);
|
|
ArraySetAsSeries(High,true);
|
|
ArraySetAsSeries(Low,true);
|
|
|
|
//---- îñíîâíîé öèêë ðàñêðàñêè èíäèêàòîðà
|
|
for(bar=limit; bar>=0 && !IsStopped(); bar--)
|
|
{
|
|
diff=Sto[bar]-Sign[bar];
|
|
xdiff=XMA1.XMASeries(maxbar,prev_calculated,rates_total,XMA_Method,XPhase,XLength,diff,bar,true);
|
|
//---
|
|
BuyBuffer[bar]=0.0;
|
|
SellBuffer[bar]=0.0;
|
|
//---
|
|
if(xdiff2>xdiff1 && xdiff1<xdiff) BuyBuffer[bar]=Low[bar]-ATR[bar]*3/8;
|
|
if(xdiff2<xdiff1 && xdiff1>xdiff) SellBuffer[bar]=High[bar]+ATR[bar]*3/8;
|
|
//---
|
|
if(bar)
|
|
{
|
|
xdiff2=xdiff1;
|
|
xdiff1=xdiff;
|
|
}
|
|
}
|
|
//----
|
|
return(rates_total);
|
|
}
|
|
//+------------------------------------------------------------------+
|