3
Views
0
Downloads
0
Favorites
ColorXPWMA_Digit
ÿþ//+---------------------------------------------------------------------+
//| ColorXPWMA_Digit.mq5 |
//| Copyright 2018, MetaQuotes Software Corp. |
//| https://mql5.com/ |
//+---------------------------------------------------------------------+
//| ;O @01>BK 8=48:0B>@0 A;54C5B ?>;>68BL D09; SmoothAlgorithms.mqh |
//| 2 ?0?:C (48@5:B>@8N): :0B0;>3_40==KE_B5@<8=0;0\\MQL5\Include |
//+---------------------------------------------------------------------+
#property copyright "Copyright 2018, MetaQuotes Software Corp."
#property link "https://mql5.com/"
#property version "1.00"
#property description "Power weighted moving average"
//---- >B@8A>2:0 8=48:0B>@0 2 >A=>2=>< >:=5
#property indicator_chart_window
//---- 4;O @0AGQB0 8 >B@8A>2:8 8=48:0B>@0 8A?>;L7>20= >48= 1CD5@
#property indicator_buffers 2
//---- 8A?>;L7>20=> 2A53> >4=> 3@0D8G5A:>5 ?>AB@>5=85
#property indicator_plots 1
//+-----------------------------------+
//| 0@0<5B@K >B@8A>2:8 8=48:0B>@0 |
//+-----------------------------------+
//---- >B@8A>2:0 8=48:0B>@0 2 2845 ;8=88
#property indicator_type1 DRAW_COLOR_LINE
//---- 2 :0G5AB25 F25B>2 B@QEF25B=>9 ;8=88 8A?>;L7>20=K
#property indicator_color1 clrMagenta,clrGray,clrLimeGreen
//---- ;8=8O 8=48:0B>@0 - =5?@5@K2=0O :@820O
#property indicator_style1 STYLE_SOLID
//---- B>;I8=0 ;8=88 8=48:0B>@0 @02=0 2
#property indicator_width1 2
//---- >B>1@065=85 <5B:8 8=48:0B>@0
#property indicator_label1 "ColoXPWMA_Digit"
//+-----------------------------------+
//| ?8A0=85 :;0AA0 CXMA |
//+-----------------------------------+
#include <SmoothAlgorithms.mqh>
//+-----------------------------------+
//---- >1JO2;5=85 ?5@5<5==>9 :;0AA0 CJJMA 87 D09;0 JJMASeries_Cls.mqh
CXMA XMA1;
//+-----------------------------------+
//| >1JO2;5=85 ?5@5G8A;5=89 |
//+-----------------------------------+
enum Applied_price_ //"8? :>=AB0=BK
{
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_, //TrendFollow_1 Price
PRICE_TRENDFOLLOW1_, //TrendFollow_2 Price
PRICE_DEMARK_ //Demark Price
};
//+-----------------------------------+
//| % + " + " |
//+-----------------------------------+
input string SirName="ColorXPWMA_Digit"; // 5@20O G0ABL 8<5=8 3@0D8G5A:8E >1J5:B>2
input uint iPeriod=14; //?5@8>4 PWMA
input double iPower=2.00001; //AB5?5=L PWMA
input Smooth_Method MA_SMethod=MODE_SMA_; // 5B>4 CA@54=5=8O
input uint MA_Length=5; //;C18=0 A3;06820=8O
input int MA_Phase=15; //?0@0<5B@ ?5@2>3> A3;06820=8O,
//---- 4;O JJMA 87<5=ONI89AO 2 ?@545;0E -100 ... +100, 2;8O5B =0 :0G5AB2> ?5@5E>4=>3> ?@>F5AA0;
//---- ;O VIDIA MB> ?5@8>4 CMO, 4;O AMA MB> ?5@8>4 <54;5==>9 A:>;L7OI59
input Applied_price_ IPC=PRICE_CLOSE_; //&5=>20O :>=AB0=B0
input int Shift=0; //!4283 8=48:0B>@0 ?> 3>@87>=B0;8 2 10@0E
input int PriceShift=0; //!4283 8=48:0B>@0 ?> 25@B8:0;8 2 ?C=:B0E
input uint Digit=2; //:>;8G5AB2> @07@O4>2 >:@C3;5=8O
input bool ShowPrice=true; //?>:07K20BL F5=>2CN <5B:C
//---- F25B0 F5=>2KE <5B>:
input color Price_color=clrGray; //F25B F5=>2>9 <5B:8
//+-----------------------------------+
//---- >1JO2;5=85 48=0<8G5A:8E <0AA82>2, :>B>@K5 1C4CB 2 40;L=59H5< 8A?>;L7>20=K 2 :0G5AB25 8=48:0B>@=KE 1CD5@>2
double ExtLineBuffer[];
double ColorExtLineBuffer[];
//---- >1JO2;5=85 F5;KE ?5@5<5==KE =0G0;0 >BAG5B0 40==KE
int min_rates_1,min_rates_total;
double dPriceShift,PointPow10,Pw[],SumPw;
//---- 1JO2;5=85 AB@8=3>2 4;O B5:AB>2KE <5B>:
string Price_name;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
void OnInit()
{
//---- ?@52@0I5=85 48=0<8G5A:>3> <0AA820 ExtLineBuffer 2 8=48:0B>@=K9 1CD5@
SetIndexBuffer(0,ExtLineBuffer,INDICATOR_DATA);
//---- >ACI5AB2;5=85 A42830 8=48:0B>@0 ?> 3>@87>=B0;8 =0 Shift
PlotIndexSetInteger(0,PLOT_SHIFT,Shift);
//---- 8=8F80;870F8O ?5@5<5==KE =0G0;0 >BAG5B0 40==KE
min_rates_1=int(iPeriod);
min_rates_total=min_rates_1+GetStartBars(MA_SMethod,MA_Length,MA_Phase);
ArrayResize(Pw,iPeriod);
SumPw=NULL;
for(int kkk=0; kkk<int(iPeriod); kkk++)
{
Pw[kkk]=pow(int(iPeriod)-kkk,iPower);
SumPw+=Pw[kkk];
}
//---- =8F80;870F8O A42830 ?> 25@B8:0;8
dPriceShift=_Point*PriceShift;
PointPow10=_Point*MathPow(10,Digit);
//---- =8F80;870F8O AB@8=3>2
Price_name=SirName+"Price";
//---- >ACI5AB2;5=85 A42830 =0G0;0 >BAGQB0 >B@8A>2:8 8=48:0B>@0
PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total);
//---- 8=8F80;870F88 ?5@5<5==>9 4;O :>@>B:>3> 8<5=8 8=48:0B>@0
string shortname;
StringConcatenate(shortname,"ColorXPWMA_Digit(",iPeriod," ,",DoubleToString(iPower,3),")");
//--- A>740=85 <5B:8 4;O >B>1@065=8O 2 DataWindow
PlotIndexSetString(0,PLOT_LABEL,shortname);
//--- A>740=85 8<5=8 4;O >B>1@065=8O 2 >B45;L=>< ?>4>:=5 8 2> 2A?;K20NI59 ?>4A:07:5
IndicatorSetString(INDICATOR_SHORTNAME,shortname);
//--- >?@545;5=85 B>G=>AB8 >B>1@065=8O 7=0G5=89 8=48:0B>@0
IndicatorSetInteger(INDICATOR_DIGITS,_Digits+1);
//--- 70?@5B =0 >B@8A>2:C 8=48:0B>@>< ?CABKE 7=0G5=89
PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,EMPTY_VALUE);
//---- ?@52@0I5=85 48=0<8G5A:>3> <0AA820 2 F25B>2>9, 8=45:A=K9 1CD5@
SetIndexBuffer(1,ColorExtLineBuffer,INDICATOR_COLOR_INDEX);
//----
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
//----
ObjectDelete(0,Price_name);
//----
ChartRedraw(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int OnCalculate(
const int rates_total, // :>;8G5AB2> 8AB>@88 2 10@0E =0 B5:CI5< B8:5
const int prev_calculated,// :>;8G5AB2> 8AB>@88 2 10@0E =0 ?@54K4CI5< B8:5
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[]
)
{
//---- ?@>25@:0 :>;8G5AB20 10@>2 =0 4>AB0B>G=>ABL 4;O @0AGQB0
if(rates_total<min_rates_total) return(0);
//---- >1JO2;5=8O ;>:0;L=KE ?5@5<5==KE
int first,bar;
double sum1,pwma,xpwma;
//---- @0AGQB AB0@B>2>3> =><5@0 first 4;O F8:;0 ?5@5AGQB0 10@>2
if(prev_calculated>rates_total || prev_calculated<=0) // ?@>25@:0 =0 ?5@2K9 AB0@B @0AGQB0 8=48:0B>@0
{
first=min_rates_1; // AB0@B>2K9 =><5@ 4;O @0AGQB0 2A5E 10@>2
}
else first=prev_calculated-1; // AB0@B>2K9 =><5@ 4;O @0AGQB0 =>2KE 10@>2
//---- >A=>2=>9 F8:; @0AGQB0 8=48:0B>@0
for(bar=first; bar<rates_total && !IsStopped(); bar++)
{
sum1=NULL;
for(int kkk=0; kkk<int(iPeriod); kkk++) sum1+=PriceSeries(IPC,bar-kkk,open,low,high,close)*Pw[kkk];
pwma=(SumPw!=0 ? sum1/SumPw : EMPTY_VALUE);
xpwma=XMA1.XMASeries(min_rates_1,prev_calculated,rates_total,MA_SMethod,MA_Phase,MA_Length,pwma,bar,false);
xpwma+=dPriceShift;
ExtLineBuffer[bar]=PointPow10*MathRound(xpwma/PointPow10);
}
//---- >B>1@065=85 F5=>2>9 <5B:8
if(ShowPrice)
{
int bar0=rates_total-1;
datetime time0=time[bar0]+1*PeriodSeconds();
SetRightPrice(0,Price_name,0,time0,ExtLineBuffer[bar0],Price_color);
}
//---- :>@@5:B8@>2:0 7=0G5=8O ?5@5<5==>9 first
if(prev_calculated>rates_total || prev_calculated<=0) // ?@>25@:0 =0 ?5@2K9 AB0@B @0AG5B0 8=48:0B>@0
first++; // AB0@B>2K9 =><5@ 4;O @0AG5B0 2A5E 10@>2
//---- A=>2=>9 F8:; @0A:@0A:8 A83=0;L=>9 ;8=88
for(bar=first; bar<rates_total && !IsStopped(); bar++)
{
double clr=1;
double trend=ExtLineBuffer[bar]-ExtLineBuffer[bar-1];
if(!trend) clr=ColorExtLineBuffer[bar-1];
else
{
if(trend>0) clr=2;
if(trend<0) clr=0;
}
ColorExtLineBuffer[bar]=clr;
}
//----
ChartRedraw(0);
return(rates_total);
}
//+------------------------------------------------------------------+
//| RightPrice creation |
//+------------------------------------------------------------------+
void CreateRightPrice(long chart_id,// chart ID
string name, // object name
int nwin, // window index
datetime time, // price level time
double price, // price level
color Color // Text color
)
//----
{
//----
ObjectCreate(chart_id,name,OBJ_ARROW_RIGHT_PRICE,nwin,time,price);
ObjectSetInteger(chart_id,name,OBJPROP_COLOR,Color);
ObjectSetInteger(chart_id,name,OBJPROP_BACK,true);
ObjectSetInteger(chart_id,name,OBJPROP_WIDTH,2);
//----
}
//+------------------------------------------------------------------+
//| RightPrice reinstallation |
//+------------------------------------------------------------------+
void SetRightPrice(long chart_id,// chart ID
string name, // object name
int nwin, // window index
datetime time, // price level time
double price, // price level
color Color // Text color
)
//----
{
//----
if(ObjectFind(chart_id,name)==-1) CreateRightPrice(chart_id,name,nwin,time,price,Color);
else ObjectMove(chart_id,name,0,time,price);
//----
}
//+------------------------------------------------------------------+
Comments