Miscellaneous
0
Views
0
Downloads
0
Favorites
DM
//+------------------------------------------------------------------+
//| |
//| Copyright © 1999-2007, MetaQuotes Software Corp. |
//| http://www.metaquotes.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright 2002, Finware.ru Ltd."
#property link "http://www.finware.ru/"
//----
#property indicator_separate_window
#property indicator_buffers 3
#property indicator_color1 Lime
#property indicator_color2 Red
#property indicator_color3 Gray
//---- input parameters
extern int Drow_style= 0; // Ñòèëü èñïîëíåíèÿ ãðàôèêà 0 - â âèäå òî÷å÷íîé ëèíèè, äðóãîå çíà÷åíèå - â âèäå ãèñòîãðàììû
//---- indicator buffers
double Ind_Buffer1[];
double Ind_Buffer2[];
double Ind_Buffer3[];
//---- double vars
double value1,value2,Rezalt,trend;
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int init()
{
//---- indicators
if (Drow_style==0)
{
SetIndexStyle(0,DRAW_ARROW);
SetIndexStyle(1,DRAW_ARROW);
SetIndexStyle(2,DRAW_ARROW);
//----
SetIndexArrow(0,159);
SetIndexArrow(1,159);
SetIndexArrow(2,159);
}
else
{
SetIndexStyle(0,DRAW_HISTOGRAM);
SetIndexStyle(1,DRAW_HISTOGRAM);
SetIndexStyle(2,DRAW_HISTOGRAM);
}
//----
SetIndexEmptyValue(0,0.0);
SetIndexEmptyValue(1,0.0);
SetIndexEmptyValue(2,0.0);
//----
SetIndexBuffer(0,Ind_Buffer1);
SetIndexBuffer(1,Ind_Buffer2);
SetIndexBuffer(2,Ind_Buffer3);
//----
IndicatorShortName ("DM");
SetIndexLabel (0, "DM_Up");
SetIndexLabel (1, "DM_Down");
SetIndexLabel (2, "DM_Straight");
IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS));
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
//---- get already counted bars
int shift,counted_bars=IndicatorCounted();
//---- check for possible errors
if (counted_bars<0) return(-1);
//----
if(counted_bars<64)for(shift=1;shift<=64;shift++)
{Ind_Buffer1[shift]=0.0;Ind_Buffer2[shift]=0.0;Ind_Buffer3[shift]=0.0;}
//----
shift=Bars-64-1;
if(counted_bars>64) shift=Bars-counted_bars-1;
while(shift>=0)
{
value1=
-0.057943686277445900*Open[shift+00]
-0.043658266634319700*Open[shift+01]
+0.016893339337967300*Open[shift+02]
+0.110448213843891000*Open[shift+03]
+0.205220247113110000*Open[shift+04]
+0.264664029548369000*Open[shift+05]
+0.264664029548369000*Open[shift+06]
+0.205220247113110000*Open[shift+07]
+0.110448213843891000*Open[shift+08]
+0.016893339337967300*Open[shift+09]
-0.043658266634319700*Open[shift+10]
-0.057943686277445900*Open[shift+11]
-0.034834636631794200*Open[shift+12]
+0.002212354734218340*Open[shift+13]
+0.028933121721909400*Open[shift+14]
+0.032424401776343200*Open[shift+15]
+0.015569833996195800*Open[shift+16]
-0.007660554868813180*Open[shift+17]
-0.022138347829420900*Open[shift+18]
-0.020552990368271800*Open[shift+19]
-0.006433347602730440*Open[shift+20]
+0.009627481503821010*Open[shift+21]
+0.017394469333231100*Open[shift+22]
+0.013176086997509700*Open[shift+23]
+0.001209424586624090*Open[shift+24]
-0.010002709133594700*Open[shift+25]
-0.013505578777899800*Open[shift+26]
-0.008035831519405070*Open[shift+27]
+0.001903891095510710*Open[shift+28]
+0.009480467257466930*Open[shift+29]
+0.010166090979082400*Open[shift+30]
+0.004303104789688430*Open[shift+31]
-0.003659787203963280*Open[shift+32]
-0.008411956859246820*Open[shift+33]
-0.007282846005800100*Open[shift+34]
-0.001620704470705190*Open[shift+35]
+0.004466014467332310*Open[shift+36]
+0.007048985722291220*Open[shift+37]
+0.004847799927165300*Open[shift+38]
-0.000217319809293247*Open[shift+39]
-0.004603538852047050*Open[shift+40]
-0.005574817063020290*Open[shift+41]
-0.002877047191674200*Open[shift+42]
+0.001371504969476030*Open[shift+43]
+0.004280506570424680*Open[shift+44]
+0.004136269885199370*Open[shift+45]
+0.001361513374633290*Open[shift+46]
-0.001973820228459360*Open[shift+47]
-0.003675699277522370*Open[shift+48]
-0.002836788589562860*Open[shift+49]
-0.000284631689719810*Open[shift+50]
+0.002153387731732640*Open[shift+51]
+0.002934855205103340*Open[shift+52]
+0.001758962821343280*Open[shift+53]
-0.000389897847025107*Open[shift+54]
-0.002031006983868290*Open[shift+55]
-0.002197277408694140*Open[shift+56]
-0.000975033303736501*Open[shift+57]
+0.000693883112457725*Open[shift+58]
+0.001751056105124850*Open[shift+59]
+0.001683817123497210*Open[shift+60]
+0.000645916394658871*Open[shift+61]
-0.001229513645906610*Open[shift+62]
-0.005497165615453070*Open[shift+63]
+0.001719892732445040*Open[shift+64];
value2=
0.210642090317950000*Open[shift+00]
+0.271656355551084000*Open[shift+01]
+0.271656355551084000*Open[shift+02]
+0.210642090317950000*Open[shift+03]
+0.113366214899538000*Open[shift+04]
+0.017339655129830400*Open[shift+05]
-0.044811701929405100*Open[shift+06]
-0.059474537088348700*Open[shift+07]
-0.035754954878029800*Open[shift+08]
+0.002270804329963180*Open[shift+09]
+0.029697524121816400*Open[shift+10]
+0.033281042507046500*Open[shift+11]
+0.015981183265287400*Open[shift+12]
-0.007862943901791450*Open[shift+13]
-0.022723234810281000*Open[shift+14]
-0.021095992789986800*Open[shift+15]
-0.006603314272564040*Open[shift+16]
+0.009881836012723110*Open[shift+17]
+0.017854024794657900*Open[shift+18]
+0.013524194354160800*Open[shift+19]
+0.001241377137939080*Open[shift+20]
-0.010266977018020800*Open[shift+21]
-0.013862391185810200*Open[shift+22]
-0.008248135223019260*Open[shift+23]
+0.001954191195740410*Open[shift+24]
+0.009730937704226890*Open[shift+25]
+0.010434675351580300*Open[shift+26]
+0.004416791230436310*Open[shift+27]
-0.003756477431473020*Open[shift+28]
-0.008634197655553740*Open[shift+29]
-0.007475256109987750*Open[shift+30]
-0.001663522884800100*Open[shift+31]
+0.004584004921651760*Open[shift+32]
+0.007235217324080300*Open[shift+33]
+0.004975877012459140*Open[shift+34]
-0.000223061318466289*Open[shift+35]
-0.004725162649865770*Open[shift+36]
-0.005722101672782540*Open[shift+37]
-0.002953057716881230*Open[shift+38]
+0.001407739624700190*Open[shift+39]
+0.004393595974558090*Open[shift+40]
+0.004245548609330800*Open[shift+41]
+0.001397484055608480*Open[shift+42]
-0.002025967830578520*Open[shift+43]
-0.003772809896144160*Open[shift+44]
-0.002911735497357070*Open[shift+45]
-0.000292151553936419*Open[shift+46]
+0.002210279441029960*Open[shift+47]
+0.003012392996694690*Open[shift+48]
+0.001805433970046320*Open[shift+49]
-0.000400198804275733*Open[shift+50]
-0.002084665438964100*Open[shift+51]
-0.002255328667062000*Open[shift+52]
-0.001000793323845250*Open[shift+53]
+0.000712215248254048*Open[shift+54]
+0.001797318361302890*Open[shift+55]
+0.001728302950591050*Open[shift+56]
+0.000662981267470111*Open[shift+57]
-0.001261996942755200*Open[shift+58]
-0.005642398702623070*Open[shift+59]
+0.001765331663815800*Open[shift+60];
//----
Rezalt=value2-value1;
//----
//---- +SSSSSSSSSSSSSSSS <<< Three colore code >>> SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+
trend=Rezalt-Ind_Buffer1[shift+1]-Ind_Buffer2[shift+1]-Ind_Buffer3[shift+1];
if(trend>0.0) {Ind_Buffer1[shift]=Rezalt; Ind_Buffer2[shift]=0; Ind_Buffer3[shift]=0;}
else{if(trend<0.0){Ind_Buffer1[shift]=0; Ind_Buffer2[shift]=Rezalt; Ind_Buffer3[shift]=0;}
else {Ind_Buffer1[shift]=0; Ind_Buffer2[shift]=0; Ind_Buffer3[shift]=Rezalt;}}
//---- +SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+
shift--;
}
return(0);
}
//+------------------------------------------------------------------+
Comments
Markdown Formatting Guide
# H1## H2
### H3
**bold text***italicized text*[title](https://www.example.com)`code````code block
```
> blockquote- Item 1- Item 2
1. First item2. Second item
---