//+--------------------------------

//+------------------------------------------------------------------+
//| !channels.mq4 |
//| Copyright ?2011, MetaQuotes Software Corp. |
//| http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Nikolay Semko [e-mail]"
#property link "http://www.7ko.org" // in the development of

// praise and scold at: [e-mail]

#property indicator_chart_window
#property indicator_buffers 1


#property indicator_width1 1
#property indicator_minimum 0
//---- indicator parameters



extern int Start =0;
extern int BarAnaliz=400;
extern double k_shirina=4;
extern int tochnost =50;
extern double filtr = 0.55;
extern double MinShirina = 0;
extern double MaxShirina = 10000;
extern bool luch = true;
extern bool maxmin = true;
extern bool color_fill = true;

//---- indicator buffers

double Canals[];
double Shir[];
double Vertikal[];

double Shirina[2000];
double ShirinaU[2000];
double ShirinaD[2000];
double CanalR[2000];
double CanalL[2000];
double Kanals[20][9];

int preBars=0;
int p[9]={43200,10080,1440,240,60,30,15,5,1};
int FinishL;
int tick=0;
int bar=0;
int b=0;
//datetime x1,x2;
double sumPlus=0;
double sumMinus=0;
double yOptR,yOptL;
int prexL=0;
int prexR=0;
double ma=0;
int prevxR=-5;
int prevp=0;
int prevper=-5;
double sum1=0;
double sum2=0;
double curdeltaMax=-10000;
double curdeltaMin=10000;

void deinit()
{
Comment("");
for (int i =0;i0)
{
for (int i = 0; i

結果 (中文) 1:

//+------------------------------------------------------------------+|! channels.mq4 |//|版权所有? 2011 年，公司 |//|http://www.metaquotes.net |//+------------------------------------------------------------------+#property 版权所有"尼古拉 Semko [e-mail]"#property 链接"http://www.7ko.org"/ / 中的发展赞美和责骂: [e-mail]#property indicator_chart_window#property 1 indicator_buffers#property indicator_width1 1#property 0 indicator_minimum---指标参数extern int 开始 = 0;extern int BarAnaliz = 400;extern 双 k_shirina = 4;extern int tochnost = 50;extern 双基膜 = 0.55;extern 双 MinShirina = 0;extern 双 MaxShirina = 10000;extern bool 船票 = true;extern bool maxmin = true;extern bool color_fill = true;---指标缓冲器双管 [];双事儿 [];双 Vertikal [];双 Shirina [2000];双 ShirinaU [2000];双 ShirinaD [2000];双 CanalR [2000];双成功飞跃大西洋 [2000];双 Kanals [20] [9];int preBars = 0;int p [9] = {43200,10080,1440,240,60,30,15,5,1};int FinishL;刻度线 int = 0;int 栏 = 0;int b = 0;日期时间 x 1 x 2;双 sumPlus = 0;双 sumMinus = 0;双 yOptR，yOptL;int prexL = 0;int prexR = 0;双马 = 0;int prevxR =-; 5int prevp = 0;int prevper =-; 5双 sum1 = 0;双 sum2 = 0;双 curdeltaMax =-10000;双 curdeltaMin = 10000;空 deinit() {Comment("")为 (int 我 = 0; 我 < 20; i + +) {ObjectDelete("LineCanal9_"+DoubleToStr(i,0))ObjectDelete("LineCanal9_"+DoubleToStr(i,0)+"向上");ObjectDelete("LineCanal9_"+DoubleToStr(i,0)+"向下");ObjectDelete("LineCanal9_"+DoubleToStr(i,0)+"TRIUP");ObjectDelete("LineCanal9_"+DoubleToStr(i,0)+"TRIDown");ObjectDelete("Vertical_9_"+DoubleToStr(i,0)) } }//+------------------------------------------------------------------+//|自定义指标初始化函数 |//+------------------------------------------------------------------+int init) {---绘图设置IndicatorDigits(Digits+1)---指标缓冲映射LoadHist()---指标缓冲映射 SetIndexBuffer(0,Canals)IndicatorDigits(20)---进行的初始化return(0) }//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////int start) {LoadHist()RefreshRates()return(0)如果 (preBars = = 酒吧) return(0);preBars = 酒吧; int; j=AllCanals()运河 [0] = j;如果 (j > 0) {为 (int 我 = 0; 我BildCanals (j); }return(0) }//+------------------------------------------------------------------+///////////////////////////// Functions ////////////////////////////////+------------------------------------------------------------------+int BildCanals (int j){字符串名称;日期时间 x 1 x 2;双 y1、 y2;int color_i [] = {C 200，0，0'，C 200，100，0'，C 160，160，0'，C 100，200，0'，C'0，200，0'，C'0，200，100'，C'0，180，180'，C'0，60，120'，C'0，0，200'，C 100，0，200'，C 160，0，160'，C '160、 80、 120'};int color_i2 [] = {C 80，0，0'，C 80，40，0'，C 60，60，0'，C 40，80，0'，C'0，60，0'，C'0，70，50'，C'0，50，50'，C'0，20，40'，C'0，0，80'，C 40，0，80'，C 50，0，60'，C '60、 20、 50'};为 (int 我 = j; < 20; i + +) {ObjectDelete("LineCanal9_"+DoubleToStr(i,0))ObjectDelete("LineCanal9_"+DoubleToStr(i,0)+"向上");ObjectDelete("LineCanal9_"+DoubleToStr(i,0)+"向下");ObjectDelete("Vertical_9_"+DoubleToStr(i,0))ObjectDelete("LineCanal9_"+DoubleToStr(i,0)+"TRIUP");ObjectDelete("LineCanal9_"+DoubleToStr(i,0)+"TRIDown");Kanals [i] [2] = 0;Kanals [i] [1] = 0;Kanals [i] [0] = 0; } 字符串 comm ="通道数目 =";comm = comm + j;为 (我 = 0; 我{comm = comm +"
"+"频道吗?"+ DoubleToStr((i+1),0) +": 宽度-"+ DoubleToStr(Kanals[i][0],0) +"，通道长度-"+ DoubleToStr(Kanals[i][6],0) +"酒吧上期"+ DoubleToStr(Kanals[i][2],0);}Comment(comm) 为 (我 = 0; 我 {x 1 = iTime(NULL,0,Start);y1 = Kanals [i] [3];如果 (iTime(NULL,0,(Bars-1)) < =iTime(NULL,Kanals[i][2],Kanals[i][1])) {x 2 = iTime(NULL,Kanals[i][2],Kanals[i][1]);y2 = Kanals [i] [4]; }其他 {x 2 = iTime(NULL,0,(Bars-1));如果 (Kanals[i][6]!=0) y2 = y1-((iBarShift(NULL,Kanals[i][2],x2,FALSE)-iBarShift(NULL,Kanals[i][2],x1,FALSE))/Kanals[i][6])*(y1-Kanals[i][4]); } 名称 ="LineCanal9_"+DoubleToStr(i,0);如果 (ObjectFind(name)==-1) {如果 (!。ObjectCreate(name, OBJ_TREND, 0,x2,y2,x1,y1)) 的评论 ("错误 0 ="，GetLastError());ObjectSet (名称，OBJPROP_RAY，FALSE);ObjectSet (名称，OBJPROP_COLOR，color_i[i]);ObjectSet (名称，OBJPROP_STYLE，STYLE_DOT);ObjectSet (名称，OBJPROP_RAY，船票); 如果 (maxmin = = true)将其 (名称 +"向上"，OBJ_TREND，0，x2,(y2+Point*Kanals[i][7]),x1,(y1+Point*Kanals[i][7]));其他将其 (名称 +"向上"，OBJ_TREND，0，x2,(y2+k_shirina*Point*Kanals[i][0])，x1,(y1+k_shirina*Point*Kanals[i][0]));ObjectSet (名称 +"向上"，OBJPROP_RAY，FALSE);ObjectSet (名称 +"向上"，OBJPROP_COLOR，color_i[i]);ObjectSet (名称 +"向上"、 OBJPROP_STYLE、 STYLE_DASH);ObjectSet (名称 +"向上"，OBJPROP_RAY，船票); 如果 (maxmin = = true)将其 (名称 +"下"，OBJ_TREND，0，x2,(y2+Point*Kanals[i][8]),x1,(y1+Point*Kanals[i][8]));其他将其 (名称 +"下"，OBJ_TREND，0，x2,(y2-k_shirina*Point*Kanals[i][0])，x1,(y1-k_shirina*Point*Kanals[i][0]));ObjectSet (名称 +"下"，OBJPROP_RAY，FALSE);ObjectSet (名称 +"下"，OBJPROP_COLOR，color_i[i]);ObjectSet (名称 +"下"、 OBJPROP_STYLE、 STYLE_DASH);ObjectSet (名称 +"下"，OBJPROP_RAY，船票); 如果 (color_fill = = true) {将其 (名称 +"TRIUP"，OBJ_TRIANGLE，0，x2,(y2+Point*Kanals[i][7]),x1,(y1+Point*Kanals[i][7]),x2,(y2+Point*Kanals[i][8]));ObjectSet (名称 +"TRIUP"，OBJPROP_COLOR，color_i2[i]);将其 (名称 +"TRIDown"，OBJ_TRIANGLE，0，x1,(y1+Point*Kanals[i][7]),x1,(y1+Point*Kanals[i][8]),x2,(y2+Point*Kanals[i][8]));ObjectSet (名称 +"TRIDown"，OBJPROP_COLOR，color_i2[i]); } 如果 (!。ObjectCreate("Vertical_9_"+DoubleToStr(i,0)，OBJ_VLINE，0，x 2，8)) 的评论 ("硒栳赅 0 ="，GetLastError());ObjectSet("Vertical_9_"+DoubleToStr(i,0)，OBJPROP_COLOR，color_i[i]);ObjectSet("Vertical_9_"+DoubleToStr(i,0)，OBJPROP_STYLE，STYLE_DOT); }其他 {如果 (!。ObjectMove (名称，0，x 2，y2)) 的评论 ("硒栳赅 1 ="，GetLastError());如果 (!。ObjectMove (名称，1，x 1，y1)) 的评论 ("硒栳赅 2 ="，GetLastError()); 如果 (maxmin = = true) {ObjectMove (名称 +"向上"，0，x 2，y2+Point*Kanals[i][7]);ObjectMove (名称 +"向上"，1，x 1，y1+Point*Kanals[i][7]); ObjectMove (名称 +"向下"，0，x 2，y2+Point*Kanals[i][8]);ObjectMove (名称 +"向下"，1，x 1，y1+Point*Kanals[i][8]); 如果 (color_fill = = true) {ObjectMove (名称 +"TRIUP"，0，x2,(y2+Point*Kanals[i][7]));ObjectMove (名称 +"TRIUP"，1，x1,(y1+Point*Kanals[i][7]));ObjectMove (名称 +"TRIUP"，2，x2,(y2+Point*Kanals[i][8])); ObjectMove (名称 +"TRIDown"，0，x1,(y1+Point*Kanals[i][7]));ObjectMove (名称 +"TRIDown"，1，x1,(y1+Point*Kanals[i][8]));ObjectMove (名称 +"TRIDown"，2，x2,(y2+Point*Kanals[i][8])); } }其他 {ObjectMove (名称 +"向上"，0，x 2，y2+k_shirina*Point*Kanals[i][0]);ObjectMove (名称 +"向上"，1，x 1，y1+k_shirina*Point*Kanals[i][0]); ObjectMove (名称 +"向下"，0，x 2，y2-k_shirina*Point*Kanals[i][0]);ObjectMove (名称 +"向下"，1，x 1，y1-k_shirina*Point*Kanals[i][0]); } } }return(0)}////////////////////////////////////////////////////////AllCanals() int{int i1 = 0，i2，i3;int k = 0;int 我 = 0;每; intint; lastperint St，鳍;datetime S，F，prevS，CurStart;int; lastmin双工频;双 premin;ArrayInitialize(Kanals,0)lastper = 9;CurStart=iTime(NULL,Period(),Start)如果 (启动 = = 0) CurStart=iTime(NULL,1,0);prevS=iTime(NULL,p[0],(iBarShift(NULL,p[0],CurStart,FALSE)+BarAnaliz))ArrayInitialize(Vertikal,0)ArrayInitialize(Shir,0)为 (int jj = 0; jj{ArrayInitialize(Shirina,0)如果 (jj = = 8)S = CurStart;其他 S = iTime(NULL,p[jj+1],(iBarShift(NULL,p[jj+1],CurStart,FALSE)+BarAnaliz));F = prevS;prevS = S;St = iBarShift(NULL,p[jj],CurStart,FALSE);Fin=iBarShift(NULL,p[jj],F,FALSE)如果 (St = = 0 & & 鳍 = = 0) return(0);如果 (jj! = 8) {ArrShirina(St,Fin,(iBarShift(NULL,p[jj],S,FALSE))-St-7,p[jj])};打印 ("1111111111"，p [jj]，""，St，""，减摇鳍，""，(iBarShift(NULL,p[jj],S,FALSE))-St-7);}其他的 {ArrShirina(St,Fin,0,p[jj])};打印 ("888888888"，p [jj]，""，St，""，鳍);}lastmin = 翅片 + 1;如果 (jj = = 0) lmin = 10000000;如果 (jj = = 0) premin = Shirina [鳍-St-1];打印 (开始，""，p [jj]，"羊囵?-",(iBarShift(NULL,p[jj],S,FALSE)),"澡龛?-"，鳍);if(Fin>iBarShift(NULL,p[jj],S,FALSE))为 (我 = 鳍-1; 我 > (iBarShift(NULL,p[jj],S,FALSE))-1; 我 — —) {如果 (iTime(NULL,0,Bars-1) < =iTime(NULL,p[jj],i)) {i3=iBarShift(NULL,0,iTime(NULL,p[jj],i),FALSE)为 (i2 = 0; i2 < =p[jj]/Period();i2++)

結果 (中文) 3:

/ / / / | ------------------------------------------------------------------
！channels.mq4 | / / |版权所有？2011年计算机软件有限公司| |（http：／／／／／／www.metaquotes.net |

#property ------------------------------------------------------------------版权“尼古拉”#property SEMKO semkonv bk.ru“链接”（http：／／www.7ko.org”/ /发展/赞美和scold

在semkonv @ bk.ru#财产indicator_chart_window
#财产indicator_buffers 1


#财产indicator_width1 1
#财产indicator_minimum 0
/ ----指标参数



extern int启动= 0；
extern int baranaliz = 400；
外部双k_shirina = 4；
extern int tochnost = 50；
外部双重过滤= 0.55；
外部双minshirina = 0；
外部双maxshirina = 10000；
extern bool Luch = true；
extern bool最大最小=真实；
extern bool color_fill = true；

/ ----指示缓冲区

双管[ ]；
双Shir [ ]；
双vertikal [ ]；

双shirina [ 2000 ]；
双shirinau [ 2000 ]；
双shirinad [ 2000 ]；
双canalr [ 2000 ]；
双能[ 2000 ]；
双kanals [ 20 ] [ 9 ]；

int prebars = 0；
int p [ 9 ] = { 43200100801440240,60,30,15,5,1 }；
int finishl；
int蜱= 0；
int吧= 0；
int b = 0；
/ / DateTime X1，X2；
双sumplus = 0；

双summinus = 0；双yoptr，yoptl；

int int prexl = 0；prexr = 0；

int双我= 0；prevxr = 5；

int int prevp = 0；prevper = 5；其他人

双双sum2 = 0；= 0；

双curdeltamax = 10000；双curdeltamin = 10000；



（）{ void deinit如何（“”）；for（int I
= 0；i < 20

{；objectdelete（“linecanal9 _”doubletostr（，0）
objectdelete）；（“linecanal9 _”doubletostr（，0）“
”）；objectdelete（“linecanal9 _ doubletostr（1，0）”“下”（“
objectdelete）；linecanal9 doubletostr _”（I，0）”triup
（“”）；objectdelete linecanal9 doubletostr _”（I，0）”tridown
objectdelete（“”）；（9 _ doubletostr垂直_”I，0））；} }




/ / / / ------------------------------------------------------------------ |初始化函数自定义指标|
/ / ------------------------------------------------------------------
int（）{ //

----绘图设置
indicatordigits（数字1）；
/ ----指示缓冲区映射

loadhist()；
/ ----指示缓冲区映射

/ setindexbuffer（0，运河）；
/ indicatordigits（20）；

/ ----初始化做
返回（0）；
}
///////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////

int start()
{
/ loadhist()；
refreshrates()；
/返回（0）；
如果（prebars = =酒吧）返回（0）；
prebars =酒吧；


j = allcanals()；
管[ 0 ] = J；如果

（J > 0
{
）为（int i = 0；i < j；I）
bildcanals（J）；
}
返回（0）；
}
/ ------------------------------------------------------------------
/////////////////////////////功能//////////////////////////////
/ ------------------------------------------------------------------

int bildcanals（j）
{
字符串名称；
DateTime X1，X2；
双Y1，Y2；
int color_i [ ] = { C '200,0,0”，C '200100,0”，C '160160,0”，C '100200,0”，C '0200,0”，C '0200100 '，C '0180180”，C '0,60120”，C '0,0200”，C '100,0200”，C '160,0160”，C '160,80120”}；
彩色_ int〔〕＝｛c 2 C是80,0,0，80,40,0 60,60,0，C，C 40,80,0 0,60,0，C，C，C是0,70,50，0,50,50 0,20,40 C，C，C是0,0,80，40,0,80 50,0,60，C，C是60,20,50）；for（int i = j）；＜20；（）{“objectdelete预热器预热器linecanal9 _”doubletostr（，0））；
（objectdelete”linecanal9 _ doubletostr（，0）”；“UPS”）（“
objectdelete linecanal9 _”（doubletostr 0），“”）（“objectdelete；预热器9垂直_ _”doubletostr（，0））；预热器objectdelete（“linecanal9 doubletostr _”（I，0）”triup
（“”）；objectdelete linecanal9 doubletostr _”（I，0）”tridown”）；[英] kanals

[ 2 ] = 0；kanals [一] [ 1 ] = 0；0 kanals [一] [
] = 0；} =字符串


）；“number of通道通讯= =“

）j；for（i＝0；i < j；i）
{ =“通讯”，“通讯频道吗？”doubletostr（（1），0）”：doubletostr宽度”（kanals [一] [ 0 ]”，沟道长度为0）（kanals doubletostr“[我]，[ 6 ]0）“禁止期”doubletostr（kanals [我]的[ 2 ]，0）；}
评论（通讯）；

为（i = 0；i < j；I）
{
X1 = iTime（null，0，开始）；
Y1 = kanals [我] [ 3 ]；
如果（iTime（null，0，（bars-1））< = iTime（null，kanals [我]的[ 2 ]，kanals [我] [ 1 ]））
{
x2 iTime（null，kanals [我]的[ 2 ]，kanals [我] [ 1 ]）；
Y2 = kanals [我]的[ 4 ]；
}
别的
{
x2 iTime（null，0，（bars-1））；
如果（kanals [我] [ 6 ]！= 0）Y2 = y1 -（（ibarshift（null，kanals [我]的[ 2 ]，X2，ibarshift（null，false）kanals [一] [ 2 ]，X1，false））/ kanals [一] [ 6 ]）*（y1 - kanals [一] [ 4 ]


）；} doubletostr name =“linecanal9 _”（I，0）；if（（objectfind
name = = 1）

）{ if（！objectcreate（obj），_趋势，0，x2，y2），（x1，y1）”的错误- 0 =”，objectset GetLastError（））；（name，objprop

_雷，false）；objectset（name，objprop _颜色_ I i）
（objectset；_ name，objprop风格，风格_点）；
（name，objectsetobjprop_ray，Luch）；
（= =真
如果MAXMIN）
objectcreate（名称“”，obj_trend，0，（X2，Y2点* kanals [我] [ 7 ]），（X1，Y1点* kanals [我] [ 7 ]））；其他

objectcreate（名字””，obj_trend，0，（X2，Y2 k_shirina *点* kanals [我] [ 0 ]），（X1，Y1 k_shirina *点* kanals [我] [ 0 ]））；
ObjectSet（名称“”，objprop_ray，false）；
ObjectSet（名称“”，objprop_color color_i，[我]）；
ObjectSet（名称“”，objprop_style，_风格（DASH）；
objectset name“up”，objprop _雷，午饭）；if（


objectcreate极大= = TRUE（name），“下”的趋势。_（x2，y2 0点* kanals [一] [ 8 ]（X1，Y1），点* kanals [一] [ 8 ] objectcreate

）；其他（name，_ obj“下”的趋势，0，（X2，Y2 K点kanals _ shirina * * [一] [ 0 ]（X1，Y1），_ shirina * * k点kanals [一] [ 0 ] objectset）
（name）；“下”，objprop _雷，false）；
（objectset name“down”，objprop _颜色，[和]和色彩的_ objectset）；
（名称”下，objprop _”风格，风格_短跑）；
（名称”objectset下来”，objprop _雷，午饭（

）；如果是真彩色_菲尔= = {（

）objectcreate名称”triup卷”，_三角（X2，Y2，0点* kanals [和] [ 7 ]（X1，Y1），点“kanals [和] [ 7 ]（X2，Y2），点“kanals [和] [ 8 ]（））；
objectset名称”triup”，objprop _色彩，色彩的_ I2 [和]）；
（名称”objectcreate tridown卷”，_三角，0，（X1，Y1点* kanals [和]，[ 7 ]）（X1，Y1点* kanals [一] [ 8 ]（x2，y2），kanals点* [一] [ 8 ]（name）；“
objectset tridown objprop _颜色”，[我] _ I2



）；} if（！objectcreate（“垂直_ 9 _ doubletostr”（I，0），（0，_ VLINE，怎么x2,8（0），硒栳赅=“
objectset GetLastError（））；（9 _ doubletostr垂直_”（1，0），objprop _颜色_ I（我））（“
objectset；垂直_ 9 _ doubletostr”（I，0），objprop _风格，风格_点

）；} else { if（

！objectmove（名称，0，x2，y2））评论（“硒栳赅1 =”，getlasterror()）；如果（
！objectmove（名称，1，x1，y1））评论（“硒栳赅2 =”，getlasterror()）；
（= =真
如果MAXMIN）
{
objectmove（名称“上升”，0，X2，Y2点* kanals [我] [ 7 ]）；
objectmove（名称“上”，1，X1，Y1点* kanals [我] [ 7 ]）；

objectmove（叫“下”，0，X2，Y2点* kanals [我] [ 8 ]）；
objectmove（叫“下”，1，X1，Y1点* kanals [我] [ 8 ]

）；