Tableau de bord Semafor

Bonjour,

J'utilise un tableau de bord pour analyser les différentes paires sur le forex. Le semafor me donne de bonnes indications des bas et des hauts du marché. Quel tableau de bord utilisez-vous ?

Surtout, ma demande est la suivante. J'aimerais adapter la présentation du tableau en deux colonnes (2 fois quinze paires). Qui peux m'aider ?

//+------------------------------------------------------------------+ //| _TRO_Dashboard_3LZZ.mq4 | //| Copyright © 2008-2017, "TRO" | //| | //+------------------------------------------------------------------+ #property copyright "Copyright © 2008, Avery T. Horton, Jr. aka TheRumpledOne" #property copyright "Copyright © 2017, Titus, [email protected]" #property link "[email protected]" #property indicator_separate_window //#property indicator_chart_window #property indicator_buffers 0 #property indicator_minimum 0 #property indicator_maximum 1 extern bool SoundAlert=False; extern int corner = 0; extern double Period1=12; extern double Period2=34; extern double Period3=69; string Dev_Step_1="5,3"; string Dev_Step_2="5,3"; string Dev_Step_3="5,2"; int Symbol_1_Kod=140;//129 int Symbol_2_Kod=141;//130 int Symbol_3_Kod=142;//131 int time; string sSymbol_1_Kod = "Œ"; string sSymbol_2_Kod = "‚"; string sSymbol_3_Kod = "Ž"; string note_TimeFrames = "M1;5,15,30,60H1;240H4;1440D1;10080W1;43200MN|0-CurrentTF"; string Arrow_Codes = "140=1; 141=2; 142=3"; extern string _ = "PAIRS"; //extern string pairs = "GBPUSD;"; extern string pairs = "XAUUSD;AUDCAD;AUDCHF;AUDJPY;AUDNZD;AUDUSD;CADCHF;CADJPY;CHFJPY;EURAUD;EURCAD;EURCHF;EURGBP;EURJPY;EURNZD;EURUSD;GBPAUD;GBPCAD;GBPCHF;GBPJPY;GBPNZD;GBPUSD;NZDCAD;NZDCHF;NZDJPY;NZDUSD;USDCAD;USDCHF;USDJPY"; //extern string pairs = "GBPUSD;EURUSD;USDCHF;USDJPY;USDCAD;GBPJPY;EURJPY;GBPCHF;"; extern string timeFrames = "M1;M5;M15;H1;H4"; //extern string timeFrames = "M1;M5;M15;H1;H4;D1;W1"; extern int myUp = 1; extern int myEq = -1; extern int myDn = 0; extern color ColorUp = Blue; extern color ColorNeutral = DimGray ; extern color ColorDn = Red ; extern color ValueColor = DodgerBlue; extern int ValueSize = 10; extern string ValueFont = "Verdana"; bool showSCORE = false ; int window; int totalPairs; int totalTimeFrames; int totalLabels; int aTimes[]; string aPairs[]; string sTimes[]; color ColorLabels = White; color MA_color; color srsi_color; color cad_color; string MA_arrow; string srsi_arrow; string cad_arrow; string labelNames; string shortName; int INC_UP ; int INC_UC ; int INC_DN; int MAMode; int PRMode; int RSIMode; int largeurinterligne =21; string strMAType; string strRSIType; bool ShowCount = true; string Pair0 = "" ; string Pair1 = "" ; string Pair2 = "" ; string Pair3 = "" ; string Pair4 = "" ; string Pair5 = "" ; string Pair6 = "" ; string Pair7 = "" ; string Pair8 = "" ; string Pair9 = "" ; string Pair10 = "" ; string Pair11 = "" ; string Pair12 = "" ; string Pair13 = "" ; string Pair14 = "" ; string Pair15 = "" ; string Pair16 = "" ; string Pair17 = "" ; string Pair18 = "" ; string Pair19 = "" ; string Pair20 = "" ; string Pair21 = "" ; string Pair22 = "" ; string Pair23 = "" ; string Pair24 = "" ; string Pair25 = "" ; string Pair26 = "" ; string Pair27 = "" ; string Pair28 = "" ; double cVal = 0, pVal = 0; double cdayClose; double cdayOpen; color ColorPrice ; double point ; int xPoint ; //---- buffers double FP_BuferUp; double FP_BuferDn; double NP_BuferUp; double NP_BuferDn; double HP_BuferUp; double HP_BuferDn; int OldBars = -1 ; bool Trigger[28][9]; string tAlert ; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { // corner = 0; shortName = MakeUniqueName("3LZZ1 ",""); labelNames = shortName; IndicatorShortName(shortName); pairs = StringUpperCase(StringTrimLeft(StringTrimRight(pairs))); if (StringSubstr(pairs,StringLen(pairs),1) != ";") pairs = StringConcatenate(pairs,";"); bool isMini = IsMini(); int s = 0; int i = StringFind(pairs,";",s); string current; while (i > 0) { current = StringSubstr(pairs,s,i-s); if (isMini) current = StringConcatenate(current,"m"); time = stringToTimeFrame(current); current = StringSubstr(pairs,s,i-s); if (isMini) current = StringConcatenate(current,"m"); if (iClose(current,0,0) > 0) { ArrayResize(aPairs,ArraySize(aPairs)+1); aPairs[ArraySize(aPairs)-1] = current; } s = i + 1; i = StringFind(pairs,";",s); } timeFrames = StringUpperCase(StringTrimLeft(StringTrimRight(timeFrames))); if (StringSubstr(timeFrames,StringLen(timeFrames),1) != ";") timeFrames = StringConcatenate(timeFrames,";"); s = 0; i = StringFind(timeFrames,";",s); //int time; while (i > 0) { current = StringSubstr(timeFrames,s,i-s); time = stringToTimeFrame(current); if (time > 0) { ArrayResize(sTimes,ArraySize(sTimes)+1); ArrayResize(aTimes,ArraySize(aTimes)+1); sTimes[ArraySize(sTimes)-1] = TimeFrameToString(time); aTimes[ArraySize(aTimes)-1] = time; } s = i + 1; i = StringFind(timeFrames,";",s); } totalTimeFrames = ArraySize(aTimes); totalPairs = ArraySize(aPairs); totalLabels = 0; Pair0 = aPairs[0]; Pair1 = aPairs[1]; Pair2 = aPairs[2]; Pair3 = aPairs[3]; Pair4 = aPairs[4]; Pair5 = aPairs[5]; Pair6 = aPairs[6]; Pair7 = aPairs[7]; Pair8 = aPairs[8]; Pair9 = aPairs[9]; Pair10 = aPairs[10]; Pair11 = aPairs[11]; Pair12 = aPairs[12]; Pair13 = aPairs[13]; Pair14 = aPairs[14]; Pair15 = aPairs[15]; Pair16 = aPairs[16]; Pair17 = aPairs[17]; Pair18 = aPairs[18]; Pair19 = aPairs[19]; Pair20 = aPairs[20]; Pair21 = aPairs[21]; Pair22 = aPairs[22]; Pair23 = aPairs[23]; Pair24 = aPairs[24]; Pair25 = aPairs[25]; Pair26 = aPairs[26]; Pair27 = aPairs[27]; Pair28 = aPairs[28]; return(0); } //+------------------------------------------------------------------+ //| Custom indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { while (totalLabels>0) { ObjectDelete(StringConcatenate(labelNames,totalLabels)); totalLabels--;} return(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { ObjectsDeleteAll(window); int m,n; int i,k; if( Bars != OldBars ) { for( m = 0, n = 0 ; m < 30 ; m++, n+=9) {Trigger[m][n] = True ; } } window = WindowFind(shortName); totalLabels = 0; for (i=0,m=30; i < totalPairs; i++, m+=29) { INC_UP = 0; INC_UC = 0; INC_DN = 0; for (k=0,n=70; k < totalTimeFrames; k++, n+=40) { tAlert = "" ; showPair(aPairs[i],aTimes[k],sTimes[k],m,n); if ( Trigger[i][k] && SoundAlert ) { if( tAlert != "" ) { Trigger[i][k] = False ; Alert(aPairs[i]," ", sTimes[k], " " , tAlert); } } } // for k if (ShowCount) DoShowCount(m,n); } // for i if (Pair1 == "") Pair1 = Symbol(); OldBars = Bars ; return(0); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ void DoShowCount( int xdistance, int ydistance ) { int x_Pair, y_Pair , y_Inc ; x_Pair = 10; y_Pair = 40; y_Inc = 25; double PERp,PERC,PER; int yInc = -125; PER = INC_UP; PERC= PER*100; PERp= PERC / totalTimeFrames ; // 7 string PER_Str =DoubleToStr(PERp,Point); color xColor = Yellow ; if( PERp > 50) { xColor = LimeGreen ; } else if( PERp < 50 ) { xColor = Crimson ; } if(ValueSize>12) ValueSize=12; setObject(next()," FX DASHBOARD 3LZZ © 2008-2017 ",70,5, Gray ,ValueFont,7,0); if(showSCORE){ setObject(next(),PER_Str,725,xdistance+10, xColor ,"Arial bold",10,0);} setObject(next(),Pair0,x_Pair,largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair1,x_Pair,2*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair2,x_Pair,3*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair3,x_Pair,4*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair4,x_Pair,5*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair5,x_Pair,6*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair6,x_Pair,7*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair7,x_Pair,8*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair8,x_Pair,9*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair9,x_Pair,10*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair10,x_Pair,11*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair11,x_Pair,12*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair12,x_Pair,13*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair13,x_Pair,14*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair14,x_Pair,15*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair15,x_Pair,16*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair16,x_Pair,17*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair17,x_Pair,18*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair18,x_Pair,19*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair19,x_Pair,20*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair20,x_Pair,21*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair21,x_Pair,22*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair22,x_Pair,23*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair23,x_Pair,24*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair24,x_Pair,25*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair25,x_Pair,26*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair26,x_Pair,27*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair27,x_Pair,28*largeurinterligne, ValueColor ,ValueFont,ValueSize); setObject(next(),Pair28,x_Pair,29*largeurinterligne, ValueColor ,ValueFont,ValueSize); string cTitle = "" ; setObject(next(),cTitle,340,3, ValueColor ,"Verdana Bold",ValueSize); setObject(next(),"PAIR",x_Pair,18, ValueColor ,ValueFont,ValueSize); setObject(next(),sTimes[0],100,18, ValueColor ,ValueFont,ValueSize); setObject(next(),sTimes[1],140,18, ValueColor ,ValueFont,ValueSize); setObject(next(),sTimes[2],180,18, ValueColor ,ValueFont,ValueSize); setObject(next(),sTimes[3],220,18, ValueColor ,ValueFont,ValueSize); setObject(next(),sTimes[4],260,18, ValueColor ,ValueFont,ValueSize); setObject(next(),sTimes[5],300,18, ValueColor ,ValueFont,ValueSize); setObject(next(),sTimes[6],340,18, ValueColor ,ValueFont,ValueSize); // setObject(next(),"%",525,18, ValueColor ,ValueFont,ValueSize); x_Pair = x_Pair + 55 ; } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ void DoPrice( string dpSymbol, int dp_xAxis, int dp_yAxis ) { cdayClose = iClose(dpSymbol,PERIOD_D1,0); cdayOpen = iOpen(dpSymbol,PERIOD_D1,0); if(cdayClose > cdayOpen) { ColorPrice = LimeGreen ; } else { if(cdayClose < cdayOpen) { ColorPrice = Red ; } else {ColorPrice = Yellow ; } } double xPrice, xPsycho, bid, ask, bidmod, askmod ; point = MarketInfo(dpSymbol,MODE_POINT); bid = MarketInfo(dpSymbol,MODE_BID); ask = MarketInfo(dpSymbol,MODE_ASK); if ( point == 0.01 ) { xPsycho = 0.25; xPoint = 2 ; } else { xPsycho = 0.0025; xPoint = 4 ; } bidmod = MathMod(bid ,xPsycho) ; askmod = MathMod(ask ,xPsycho) ; xPrice = cdayClose - bidmod ; if(bidmod == 0 || askmod == 0) { ColorPrice = Orange ; } setObject(next(),DoubleToStr(cdayClose,xPoint),dp_xAxis, dp_yAxis, ColorPrice ,ValueFont,ValueSize); } //+------------------------------------------------------------------+ void showPair(string pair, int timeFrame,string label, int xdistance, int ydistance) { DoWork(pair,timeFrame,0) ; if (HP_BuferUp != 0 ) { tAlert = "3-LZZ HI" ; INC_UP = INC_UP +1 ; MA_color = ColorUp; MA_arrow = sSymbol_3_Kod ; } else { if (HP_BuferDn != 0 ) { tAlert = "3-LZZ LO" ; INC_DN = INC_DN +1 ; MA_color = ColorDn; MA_arrow = sSymbol_3_Kod ; } else { if (NP_BuferUp != 0 ) { tAlert = "2-LZZ HI" ; INC_UP = INC_UP +1 ; MA_color = ColorUp; MA_arrow = sSymbol_2_Kod ; } else { if (NP_BuferDn != 0 ) { tAlert = "2-LZZ LO" ; INC_DN = INC_DN +1 ; MA_color = ColorDn; MA_arrow = sSymbol_2_Kod ; } else { if (FP_BuferUp != 0 ) { tAlert = "1-LZZ HI" ; INC_UP = INC_UP +1 ; MA_color = ColorUp; MA_arrow = sSymbol_1_Kod ; } else { if (FP_BuferDn != 0 ) { tAlert = "1-LZZ LO" ; INC_DN = INC_DN +1 ; MA_color = ColorDn; MA_arrow = sSymbol_1_Kod ; } else { INC_UC = INC_UC +1 ; MA_color = ColorNeutral; MA_arrow = "Ÿ"; } }}}}} setLabel(" " ,xdistance+10,ydistance+30," ",MA_color,MA_arrow); } //+------------------------------------------------------------------+ //| Custom functions and procedures | //+------------------------------------------------------------------+ string next() { totalLabels++; return(totalLabels); } //+------------------------------------------------------------------+ void setLabel(string text,int x,int y,string sarv, color theColor, string arrow, bool isADX=true) { setObject(next(),arrow ,y,x,theColor,"Wingdings",14,0); //"Wingdings" } //+------------------------------------------------------------------+ void setObject(string name,string text,int x,int y,color theColor, string font = "Verdana",int size=10,int angle=0) { string labelName = StringConcatenate(labelNames,name); if (ObjectFind(labelName) == -1) { ObjectCreate(labelName,OBJ_LABEL,window,0,0); ObjectSet(labelName,OBJPROP_CORNER,corner); if (angle != 0) ObjectSet(labelName,OBJPROP_ANGLE,angle); } ObjectSet(labelName,OBJPROP_XDISTANCE,x); ObjectSet(labelName,OBJPROP_YDISTANCE,y); ObjectSetText(labelName,text,size,font,theColor); } //+------------------------------------------------------------------+ int stringToTimeFrame(string tfs) { int tf=0; tfs = StringTrimLeft(StringTrimRight(StringUpperCase(tfs))); if (tfs=="M1" || tfs=="1") tf=PERIOD_M1; if (tfs=="M5" || tfs=="5") tf=PERIOD_M5; if (tfs=="M15"|| tfs=="15") tf=PERIOD_M15; if (tfs=="M30"|| tfs=="30") tf=PERIOD_M30; if (tfs=="H1" || tfs=="60") tf=PERIOD_H1; if (tfs=="H4" || tfs=="240") tf=PERIOD_H4; if (tfs=="D1" || tfs=="1440") tf=PERIOD_D1; if (tfs=="W1" || tfs=="10080") tf=PERIOD_W1; if (tfs=="MN" || tfs=="43200") tf=PERIOD_MN1; if (tfs=="MN1" || tfs=="43200") tf=PERIOD_MN1; return(tf); } //+------------------------------------------------------------------+ string TimeFrameToString(int tf) { string tfs; switch(tf) { case PERIOD_M1: tfs="M1" ; break; case PERIOD_M5: tfs="M5" ; break; case PERIOD_M15: tfs="M15" ; break; case PERIOD_M30: tfs="M30" ; break; case PERIOD_H1: tfs="H1" ; break; case PERIOD_H4: tfs="H4" ; break; case PERIOD_D1: tfs="D1" ; break; case PERIOD_W1: tfs="W1" ; break; case PERIOD_MN1: tfs="MN1"; } return(tfs); } //+------------------------------------------------------------------+ string StringUpperCase(string str) { string s = str; int lenght = StringLen(str) - 1; int char4; while(lenght >= 0) { char4 = StringGetChar(s, lenght); if((char4 > 96 && char4 < 123) || (char4 > 223 && char4 < 256)) s = StringSetChar(s, lenght, char4 - 32); else if(char4 > -33 && char4 < 0) s = StringSetChar(s, lenght, char4 + 224); lenght--; } return(s); } //+------------------------------------------------------------------+ string MakeUniqueName(string first, string rest) { string result = first+(MathRand()%1001)+rest; while (WindowFind(result)> 0) result = first+(MathRand()%1001)+rest; return(result); } //+------------------------------------------------------------------+ bool IsMini() { if (StringFind(Symbol(),"m") > -1) return(true); else return(false); } //+------------------------------------------------------------------+ void DoWork( string myPair, int TimeFrame , int myShift ) { datetime TimeArray[]; int i,limit,y=0,counted_bars=IndicatorCounted(); // Plot defined time frame on to current time frame ArrayCopySeries(TimeArray,MODE_TIME,Symbol(),TimeFrame); limit=1; for(i=0,y=0;i<limit;i++) { if (Time[i]<TimeArray[y]) y++; FP_BuferUp=iCustom(myPair,TimeFrame,"3_Level_ZZ_Semafor",Period1,Period2,Period3, Dev_Step_1,Dev_Step_2,Dev_Step_3, Symbol_1_Kod,Symbol_2_Kod,Symbol_3_Kod,0,y); FP_BuferDn =iCustom(myPair,TimeFrame,"3_Level_ZZ_Semafor",Period1,Period2,Period3, Dev_Step_1,Dev_Step_2,Dev_Step_3, Symbol_1_Kod,Symbol_2_Kod,Symbol_3_Kod,1,y); NP_BuferUp =iCustom(myPair,TimeFrame,"3_Level_ZZ_Semafor",Period1,Period2,Period3, Dev_Step_1,Dev_Step_2,Dev_Step_3, Symbol_1_Kod,Symbol_2_Kod,Symbol_3_Kod,2,y); NP_BuferDn =iCustom(myPair,TimeFrame,"3_Level_ZZ_Semafor",Period1,Period2,Period3, Dev_Step_1,Dev_Step_2,Dev_Step_3, Symbol_1_Kod,Symbol_2_Kod,Symbol_3_Kod,3,y); HP_BuferUp =iCustom(myPair,TimeFrame,"3_Level_ZZ_Semafor",Period1,Period2,Period3, Dev_Step_1,Dev_Step_2,Dev_Step_3, Symbol_1_Kod,Symbol_2_Kod,Symbol_3_Kod,4,y); HP_BuferDn =iCustom(myPair,TimeFrame,"3_Level_ZZ_Semafor",Period1,Period2,Period3, Dev_Step_1,Dev_Step_2,Dev_Step_3, Symbol_1_Kod,Symbol_2_Kod,Symbol_3_Kod,5,y); } // for } /* FP_BuferUp[i]=iCustom(NULL,TimeFrame,"3_Level_ZZ_Semafor",Period1,Period2,Period3, Dev_Step_1,Dev_Step_2,Dev_Step_3, Symbol_1_Kod,Symbol_2_Kod,Symbol_3_Kod,0,y); FP_BuferDn[i]=iCustom(NULL,TimeFrame,"3_Level_ZZ_Semafor",Period1,Period2,Period3, Dev_Step_1,Dev_Step_2,Dev_Step_3, Symbol_1_Kod,Symbol_2_Kod,Symbol_3_Kod,1,y); NP_BuferUp[i]=iCustom(NULL,TimeFrame,"3_Level_ZZ_Semafor",Period1,Period2,Period3, Dev_Step_1,Dev_Step_2,Dev_Step_3, Symbol_1_Kod,Symbol_2_Kod,Symbol_3_Kod,2,y); NP_BuferDn[i]=iCustom(NULL,TimeFrame,"3_Level_ZZ_Semafor",Period1,Period2,Period3, Dev_Step_1,Dev_Step_2,Dev_Step_3, Symbol_1_Kod,Symbol_2_Kod,Symbol_3_Kod,3,y); HP_BuferUp[i]=iCustom(NULL,TimeFrame,"3_Level_ZZ_Semafor",Period1,Period2,Period3, Dev_Step_1,Dev_Step_2,Dev_Step_3, Symbol_1_Kod,Symbol_2_Kod,Symbol_3_Kod,4,y); HP_BuferDn[i]=iCustom(NULL,TimeFrame,"3_Level_ZZ_Semafor",Period1,Period2,Period3, Dev_Step_1,Dev_Step_2,Dev_Step_3, Symbol_1_Kod,Symbol_2_Kod,Symbol_3_Kod,5,y); // +++++++++++++++++++++++++++++++++++++ Refresh buffers if (TimeFrame>Period()) { int PerINT=TimeFrame/Period()+1; datetime TimeArr[]; ArrayResize(TimeArr,PerINT); ArrayCopySeries(TimeArr,MODE_TIME,Symbol(),Period()); for(i=0;i<PerINT+1;i++) {if (TimeArr[i]>=TimeArray[0]) { /******************************************************** Refresh buffers: buffer[i] = buffer[0]; ********************************************************/ /* FP_BuferUp[i]=FP_BuferUp[0]; FP_BuferDn[i]=FP_BuferDn[0]; NP_BuferUp[i]=NP_BuferUp[0]; NP_BuferDn[i]=NP_BuferDn[0]; HP_BuferUp[i]=HP_BuferUp[0]; HP_BuferDn[i]=HP_BuferDn[0]; } } double zu =iCustom("GBPUSD",15,"3_Level_ZZ_Semafor",Period1,Period2,Period3, Dev_Step_1,Dev_Step_2,Dev_Step_3, Symbol_1_Kod,Symbol_2_Kod,Symbol_3_Kod,2,y); double zd =iCustom("GBPUSD",15,"3_Level_ZZ_Semafor",Period1,Period2,Period3, Dev_Step_1,Dev_Step_2,Dev_Step_3, Symbol_1_Kod,Symbol_2_Kod,Symbol_3_Kod,3,y); Comment( "zu=", DoubleToStr(zu, Digits), "\n", "zd=", DoubleToStr(zd, Digits), "\n" ) ; */