+14
je sors avant l open
ca va encore secouer..........
je sors avant l open
ca va encore secouer..........
Inputs: POINTS_PIVOTS(0), StartTime (0900), EndTime (2200), PlaceTextRight (true), PlotDailyMidPts (true), PlotDailyQuartPts (true), PivColor (yellow), R1Color (red), R2Color (red), R3Color (red), S1Color (green), S2Color (green), S3Color (green), S4Color (green), Mcolor (rgb(48,48,48)), Qcolor (magenta),//POC ?? STYLE_LIGNES (0), decimales (0), TLSize (1), TLStyle (3); //WTLSize (1), //WTLStyle (1); Variables: //OHCL var0 (0), var1 (0), var2 (0), var3 (0), var4 (0), var5 (0), var6 (0), var7 (0), var8 (0), var9 (0), var10 (0), var11 (0), var12 (0), var13 (0), var14 (0), var15 (0), var16 (0), var17 (0), var20 (0), var21 (0), var22 (0), var23 (0), var24 (0), var25 (0), var26 (0), var27 (0), //POINTS PIVOTS RR1 (0), RR2 (0), RR3 (0), SS1 (0), SS2 (0), SS3 (0), SS4 (0), PP (0), M1 (0), M2 (0), M3 (0), M4 (0), M5 (0), M6 (0), M7 (0), P1 (0),P11(0), P2 (0),P22(0), P3 (0),P33(0), P4 (0),P44(0), P5 (0),P55(0), P6 (0),P66(0), P7 (0),P77(0), RR1TL (0), RR2TL (0), RR3TL (0), SS1TL (0), SS2TL (0), SS3TL (0), SS4TL (0), PPTL (0), M1TL (0), M2TL (0), M3TL (0), M4TL (0), M5TL (0), M6TL (0), M7TL (0), P1TL (0),P11TL(0), P2TL (0),P22TL(0), P3TL (0),P33TL(0), P4TL (0),P44TL(0), P5TL (0),P55TL(0), P6TL (0),P66TL(0), P7TL (0),P77TL(0), HaveTLs (false), R1Txt (0), R2Txt (0), R3Txt (0), S1Txt (0), S2Txt (0), S3Txt (0), S4Txt (0), PPTxt (0), M1Txt (0), M2Txt (0), M3Txt (0), M4Txt (0), M5Txt (0), M6Txt (0), M7Txt (0), P1Txt (0),P11Txt(0), P2Txt (0),P22Txt(0), P3Txt (0),P33Txt(0), P4Txt (0),P44Txt(0), P5Txt (0),P55Txt(0), P6Txt (0),P66Txt(0), P7Txt (0),P77Txt(0), TextStyleHoriz (1), //0: texte droite de la barre //1: texte gauche de la barre //2: texte centre de la barre TextStyleVert (1); //0: texte en dessous de la barre //1: texte au-dessus de la barre //2: texte sur la barre //##########POINTS PIVOTS DAILY################# If Date <> Date[1] then begin If PlaceTextRight then TextStyleVert = 1; HaveTLs = false; var20 = var20 + 1 ; var21 = var22 ; var23 = var24 ; var25 = var26 ; var27 = Close[1] ; var22 = Open ; var24 = High ; var26 = Low ; PP = (var23 + var25 + var27)/3 ; RR1 = Roundinst(PP * 2 - var25); RR2 = Roundinst(PP + var23 - var25); RR3 = Roundinst(RR2 + var23 - var25); SS1 = Roundinst(PP * 2 - var23); SS2 = Roundinst(PP - var23 + var25); SS3 = Roundinst(SS2 - var23 + var25); SS4 = Roundinst(SS3 - var23 + var25); M1 = ((RR2 + RR3)*0.5); M2 = ((RR1 + RR2)*0.5); M3 = ((PP + RR1)*0.5); M4 = ((SS1 + PP)*0.5); M5 = ((SS1 + SS2)*0.5); M6 = ((SS2 + SS3)*0.5); M7 = ((SS3 + SS4)*0.5); P1 = ((RR2 + M1)*0.50);//M1 P11= ((RR3 +M1)*0.50); P2 = ((RR1 + M2)*0.50);//M2 P22= ((RR2+M2)*0.50); P3 = ((PP + M3)*0.50);//M3 P33= ((RR1 + M3)*0.5); P4 = ((PP + M4)*0.50);//M4 P44= ((SS1+ M4)*0.50); P5 = ((SS1 + M5)*0.50);//M5 P55= ((SS2 + M5)*0.50); P6 = ((SS2 + M6)*0.50);//M6 P66 = ((SS3 + M6)*0.50); P7 = ((SS3 + M7)*0.50);//M7 P77 = ((SS4 + M7)*0.50); end else begin If Time > StartTime and Time <= EndTime then begin if High > var24 then var24 = High ; if Low < var26 then var26 = Low ; end; end; //########################################################################################################################## If HaveTLs = false then begin HaveTLs = true; //#######################POINTS PIVOTS DAILY#################### RR1TL = TL_New(Date, StartTime, RR1, Date, EndTime, RR1); TL_SetColor(RR1TL, R1Color); TL_SetSize(RR1TL, TLSize); TL_SetStyle(RR1TL, TLStyle); RR2TL = TL_New(Date, StartTime, RR2, Date, EndTime, RR2); TL_SetColor(RR2TL, R2Color); TL_SetSize(RR2TL, TLSize); TL_SetStyle(RR2TL, TLStyle); RR3TL = TL_New(Date, StartTime, RR3, Date, EndTime, RR3); TL_SetColor(RR3TL, R3Color); TL_SetSize(RR3TL, TLSize); TL_SetStyle(RR3TL, TLStyle); SS1TL = TL_New(Date, StartTime, SS1, Date, EndTime, SS1); TL_SetColor(SS1TL, S1Color); TL_SetSize(SS1TL, TLSize); TL_SetStyle(SS1TL, TLStyle); SS2TL = TL_New(Date, StartTime, SS2, Date, EndTime, SS2); TL_SetColor(SS2TL, S2Color); TL_SetSize(SS2TL, TLSize); TL_SetStyle(SS2TL, TLStyle); SS3TL = TL_New(Date, StartTime, SS3, Date, EndTime, SS3); TL_SetColor(SS3TL, S3Color); TL_SetSize(SS3TL, TLSize); TL_SetStyle(SS3TL, TLStyle); SS4TL = TL_New(Date, StartTime, SS4, Date, EndTime, SS4); TL_SetColor(SS4TL, S3Color); TL_SetSize(SS4TL, TLSize); TL_SetStyle(SS4TL, TLStyle); PPTL = TL_New(Date, StartTime, PP, Date, EndTime, PP); TL_SetColor(PPTL, PivColor); TL_SetSize(PPTL, TLSize); TL_SetStyle(PPTL, TLStyle); R1Txt = Text_New(Date, StartTime, RR1, " R1 > " + NumToStr(RR1,decimales)); Text_SetStyle(R1Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(R1Txt, R1Color); R2Txt = Text_New(Date, StartTime, RR2, " R2 > " + NumToStr(RR2,decimales)); Text_SetStyle(R2Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(R2Txt, R2Color); R3Txt = Text_New(Date, StartTime, RR3, " R3 > " + NumToStr(RR3,decimales)); Text_SetStyle(R3Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(R3Txt, R3Color); S1Txt = Text_New(Date, StartTime, SS1, " S1 > " + NumToStr(SS1,decimales)); Text_SetStyle(S1Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(S1Txt, S1Color); S2Txt = Text_New(Date, StartTime, SS2, " S2 > " + NumToStr(SS2,decimales)); Text_SetStyle(S2Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(S2Txt, S2Color); S3Txt = Text_New(Date, StartTime, SS3, " S3 > " + NumToStr(SS3,decimales)); Text_SetStyle(S3Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(S3Txt, S3Color); S4Txt = Text_New(Date, StartTime, SS4, " S4 > " + NumToStr(SS4,decimales)); Text_SetStyle(S4Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(S4Txt, S4Color); PPTxt = Text_New(Date, StartTime, PP, " PP > " + NumToStr(PP,decimales)); Text_SetStyle(PPTxt, TextStyleHoriz, TextStyleVert); Text_SetColor(PPTxt, PivColor); if PlotDailyMidPts then begin M1TL = TL_New(Date, StartTime, M1, Date, EndTime, M1); TL_SetColor(M1TL, MColor); TL_SetSize(M1TL, TLSize); TL_SetStyle(M1TL, TLStyle); M2TL = TL_New(Date, StartTime, M2, Date, EndTime, M2); TL_SetColor(M2TL, MColor); TL_SetSize(M2TL, TLSize); TL_SetStyle(M2TL, TLStyle); M3TL = TL_New(Date, StartTime, M3, Date, EndTime, M3); TL_SetColor(M3TL, MColor); TL_SetSize(M3TL, TLSize); TL_SetStyle(M3TL, TLStyle); M4TL = TL_New(Date, StartTime, M4, Date, EndTime, M4); TL_SetColor(M4TL, MColor); TL_SetSize(M4TL, TLSize); TL_SetStyle(M4TL, TLStyle); M5TL = TL_New(Date, StartTime, M5, Date, EndTime, M5); TL_SetColor(M5TL, MColor); TL_SetSize(M5TL, TLSize); TL_SetStyle(M5TL, TLStyle); M6TL = TL_New(Date, StartTime, M6, Date, EndTime, M6); TL_SetColor(M6TL, MColor); TL_SetSize(M6TL, TLSize); TL_SetStyle(M6TL, TLStyle); M7TL = TL_New(Date, StartTime, M7, Date, EndTime, M7); TL_SetColor(M7TL, MColor); TL_SetSize(M7TL, TLSize); TL_SetStyle(M7TL, TLStyle); M1Txt = Text_New(Date, StartTime, M1, "M1 >" + NumToStr(M1,decimales)); Text_SetStyle(M1Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(M1Txt, MColor); M2Txt = Text_New(Date, StartTime, M2, "M2 >" + NumToStr(M2,decimales)); Text_SetStyle(M2Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(M2Txt, MColor); M3Txt = Text_New(Date, StartTime, M3, "M3 >" + NumToStr(M3,decimales)); Text_SetStyle(M3Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(M3Txt, MColor); M4Txt = Text_New(Date, StartTime, M4, "M4 > " + NumToStr(M4,decimales)); Text_SetStyle(M4Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(M4Txt, MColor); M5Txt = Text_New(Date, StartTime, M5, "M5 >" + NumToStr(M5,decimales)); Text_SetStyle(M5Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(M5Txt, MColor); M6Txt = Text_New(Date, StartTime, M6, "M6 >" + NumToStr(M6,decimales)); Text_SetStyle(M6Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(M6Txt, MColor); M7Txt = Text_New(Date, StartTime, M7, "M7 >" + NumToStr(M7,decimales)); Text_SetStyle(M7Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(M7Txt, MColor); end; ///Quart Middles --> POC ?? // if PlotDailyQuartPts then begin P1TL = TL_New(Date, StartTime, P1, Date, EndTime, P1); TL_SetColor(P1TL, QColor); TL_SetSize(P1TL, TLSize); TL_SetStyle(P1TL, TLStyle); P11TL = TL_New(Date, StartTime, P11, Date, EndTime, P11); TL_SetColor(P11TL, QColor); TL_SetSize(P11TL, TLSize); TL_SetStyle(P11TL, TLStyle); P2TL = TL_New(Date, StartTime, P2, Date, EndTime, P2); TL_SetColor(P2TL, QColor); TL_SetSize(P2TL, TLSize); TL_SetStyle(P2TL, TLStyle); P22TL = TL_New(Date, StartTime, P22, Date, EndTime, P22); TL_SetColor(P22TL, QColor); TL_SetSize(P22TL, TLSize); TL_SetStyle(P22TL, TLStyle); P3TL = TL_New(Date, StartTime, P3, Date, EndTime, P3); TL_SetColor(P3TL, QColor); TL_SetSize(P3TL, TLSize); TL_SetStyle(P3TL, TLStyle); P33TL = TL_New(Date, StartTime, P33, Date, EndTime, P33); TL_SetColor(P33TL, QColor); TL_SetSize(P33TL, TLSize); TL_SetStyle(P33TL, TLStyle); P4TL = TL_New(Date, StartTime, P4, Date, EndTime, P4); TL_SetColor(P4TL, QColor); TL_SetSize(P4TL, TLSize); TL_SetStyle(P4TL, TLStyle); P44TL = TL_New(Date, StartTime, P44, Date, EndTime, P44); TL_SetColor(P44TL, QColor); TL_SetSize(P44TL, TLSize); TL_SetStyle(P44TL, TLStyle); P5TL = TL_New(Date, StartTime, P5, Date, EndTime, P5); TL_SetColor(P5TL, QColor); TL_SetSize(P5TL, TLSize); TL_SetStyle(P5TL, TLStyle); P55TL = TL_New(Date, StartTime, P55, Date, EndTime, P55); TL_SetColor(P55TL, QColor); TL_SetSize(P55TL, TLSize); TL_SetStyle(P55TL, TLStyle); P6TL = TL_New(Date, StartTime, P6, Date, EndTime, P6); TL_SetColor(P6TL, QColor); TL_SetSize(P6TL, TLSize); TL_SetStyle(P6TL, TLStyle); P66TL = TL_New(Date, StartTime, P66, Date, EndTime, P66); TL_SetColor(P66TL, QColor); TL_SetSize(P66TL, TLSize); TL_SetStyle(P66TL, TLStyle); P7TL = TL_New(Date, StartTime, P7, Date, EndTime, P7); TL_SetColor(P7TL, QColor); TL_SetSize(P7TL, TLSize); TL_SetStyle(P7TL, TLStyle); P77TL = TL_New(Date, StartTime, P77, Date, EndTime, P77); TL_SetColor(P77TL, QColor); TL_SetSize(P77TL, TLSize); TL_SetStyle(P77TL, TLStyle); P1Txt = Text_New(Date, StartTime, P1, "-M1 >" + NumToStr(P1,decimales));// Text_SetStyle(P1Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P1Txt, QColor); P11Txt = Text_New(Date, StartTime, P11, "+M1 >" + NumToStr(P11,decimales)); Text_SetStyle(P11Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P11Txt, QColor); P2Txt = Text_New(Date, StartTime, P2, " -M2 >" + NumToStr(P2,decimales)); Text_SetStyle(P2Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P2Txt, QColor); P22Txt = Text_New(Date, StartTime, P22, "+M2 >" + NumToStr(P22,decimales)); Text_SetStyle(P22Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P22Txt, QColor); P3Txt = Text_New(Date, StartTime, P3, "-M3>" + NumToStr(P3,decimales));// Text_SetStyle(P3Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P3Txt, QColor); P33Txt = Text_New(Date, StartTime, P33, " +M3>" + NumToStr(P33,decimales)); Text_SetStyle(P33Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P33Txt, QColor); P4Txt = Text_New(Date, StartTime, P4, "+M4 > " + NumToStr(P4,decimales)); Text_SetStyle(P4Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P4Txt, QColor); P44Txt = Text_New(Date, StartTime, P44, "-M4 > " + NumToStr(P44,decimales)); Text_SetStyle(P44Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P44Txt, QColor); P5Txt = Text_New(Date, StartTime, P5, "+M5>" + NumToStr(P5,decimales));// Text_SetStyle(P5Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P5Txt, QColor); P55Txt = Text_New(Date, StartTime, P55, "-M5>" + NumToStr(P55,decimales)); Text_SetStyle(P55Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P55Txt, QColor); P6Txt = Text_New(Date, StartTime, P6, "+M6 >" + NumToStr(P6,decimales)); Text_SetStyle(P6Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P6Txt, QColor); P66Txt = Text_New(Date, StartTime, P66, "-M6 >" + NumToStr(P66,decimales)); Text_SetStyle(P66Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P66Txt, QColor); P7Txt = Text_New(Date, StartTime, P7, "+M7 >" + NumToStr(P7,decimales)); Text_SetStyle(P7Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P7Txt, QColor); P77Txt = Text_New(Date, StartTime, P77, "-M7 >" + NumToStr(P77,decimales)); Text_SetStyle(P77Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P77Txt, QColor); end; end //If HaveTLs = false then begin... else begin //########POINTS PIVOTS############# TL_SetEnd(RR1TL, Date, EndTime, RR1); TL_SetEnd(RR2TL, Date, EndTime, RR2); TL_SetEnd(RR3TL, Date, EndTime, RR3); TL_SetEnd(SS1TL, Date, EndTime, SS1); TL_SetEnd(SS2TL, Date, EndTime, SS2); TL_SetEnd(SS3TL, Date, EndTime, SS3); TL_SetEnd(SS4TL, Date, EndTime, SS4); TL_SetEnd(PPTL, Date, EndTime, PP); TL_SetEnd(M1TL, Date, EndTime, M1); TL_SetEnd(M2TL, Date, EndTime, M2); TL_SetEnd(M3TL, Date, EndTime, M3); TL_SetEnd(M4TL, Date, EndTime, M4); TL_SetEnd(M5TL, Date, EndTime, M5); TL_SetEnd(M6TL, Date, EndTime, M6); TL_SetEnd(M7TL, Date, EndTime, M7); TL_SetEnd(P1TL, Date, EndTime, P1); TL_SetEnd(P11TL, Date, EndTime, P11); TL_SetEnd(P2TL, Date, EndTime, P2); TL_SetEnd(P22TL, Date, EndTime, P22); TL_SetEnd(P3TL, Date, EndTime, P3); TL_SetEnd(P33TL, Date, EndTime, P33); TL_SetEnd(P4TL, Date, EndTime, P4); TL_SetEnd(P44TL, Date, EndTime, P44); TL_SetEnd(P5TL, Date, EndTime, P5); TL_SetEnd(P55TL, Date, EndTime, P55); TL_SetEnd(P6TL, Date, EndTime, P6); TL_SetEnd(P66TL, Date, EndTime, P66); TL_SetEnd(P7TL, Date, EndTime, P7); TL_SetEnd(P77TL, Date, EndTime, P77); If PlaceTextRight then begin //########POINTS PIVOTS############# Text_SetLocation(R1Txt, Date, EndTime, RR1); Text_SetLocation(R2Txt, Date, EndTime, RR2); Text_SetLocation(R3Txt, Date, EndTime, RR3); Text_SetLocation(S1Txt, Date, EndTime, SS1); Text_SetLocation(S2Txt, Date, EndTime, SS2); Text_SetLocation(S3Txt, Date, EndTime, SS3); Text_SetLocation(S4Txt, Date, EndTime, SS4); Text_SetLocation(PPTxt, Date, EndTime, PP); Text_SetLocation(M1TXt, Date, EndTime, M1); Text_SetLocation(M2TXt, Date, EndTime, M2); Text_SetLocation(M3TXt, Date, EndTime, M3); Text_SetLocation(M4TXt, Date, EndTime, M4); Text_SetLocation(M5TXt, Date, EndTime, M5); Text_SetLocation(M6TXt, Date, EndTime, M6); Text_SetLocation(M7TXt, Date, EndTime, M7); Text_SetLocation(P1TXt, Date, EndTime, P1); Text_SetLocation(P11TXt, Date, EndTime, P11); Text_SetLocation(P2TXt, Date, EndTime, P2); Text_SetLocation(P22TXt, Date, EndTime, P22); Text_SetLocation(P3TXt, Date, EndTime, P3); Text_SetLocation(P33TXt, Date, EndTime, P33); Text_SetLocation(P4TXt, Date, EndTime, P4); Text_SetLocation(P44TXt, Date, EndTime, P44); Text_SetLocation(P5TXt, Date, EndTime, P5); Text_SetLocation(P55TXt, Date, EndTime, P55); Text_SetLocation(P6TXt, Date, EndTime, P6); Text_SetLocation(P66TXt, Date, EndTime, P66); Text_SetLocation(P7TXt, Date, EndTime, P7); Text_SetLocation(P77TXt, Date, EndTime, P77); end; //If PlaceTextRight then begin... end; //If HaveTLs then begin...
Inputs: POINTS_PIVOTS(0), StartTime (0900), EndTime (2200), PlaceTextRight (true), PlotDailyMidPts (true), PlotDailyQuartPts (true), PivColor (yellow), R1Color (red), R2Color (red), R3Color (red), S1Color (green), S2Color (green), S3Color (green), S4Color (green), Mcolor (rgb(48,48,48)), Qcolor (magenta),//POC ?? STYLE_LIGNES (0), decimales (0), TLSize (1), TLStyle (3); //WTLSize (1), //WTLStyle (1); Variables: //OHCL var0 (0), var1 (0), var2 (0), var3 (0), var4 (0), var5 (0), var6 (0), var7 (0), var8 (0), var9 (0), var10 (0), var11 (0), var12 (0), var13 (0), var14 (0), var15 (0), var16 (0), var17 (0), var20 (0), var21 (0), var22 (0), var23 (0), var24 (0), var25 (0), var26 (0), var27 (0), //POINTS PIVOTS RR1 (0), RR2 (0), RR3 (0), SS1 (0), SS2 (0), SS3 (0), SS4 (0), PP (0), M1 (0), M2 (0), M3 (0), M4 (0), M5 (0), M6 (0), M7 (0), P1 (0),P11(0), P2 (0),P22(0), P3 (0),P33(0), P4 (0),P44(0), P5 (0),P55(0), P6 (0),P66(0), P7 (0),P77(0), RR1TL (0), RR2TL (0), RR3TL (0), SS1TL (0), SS2TL (0), SS3TL (0), SS4TL (0), PPTL (0), M1TL (0), M2TL (0), M3TL (0), M4TL (0), M5TL (0), M6TL (0), M7TL (0), P1TL (0),P11TL(0), P2TL (0),P22TL(0), P3TL (0),P33TL(0), P4TL (0),P44TL(0), P5TL (0),P55TL(0), P6TL (0),P66TL(0), P7TL (0),P77TL(0), HaveTLs (false), R1Txt (0), R2Txt (0), R3Txt (0), S1Txt (0), S2Txt (0), S3Txt (0), S4Txt (0), PPTxt (0), M1Txt (0), M2Txt (0), M3Txt (0), M4Txt (0), M5Txt (0), M6Txt (0), M7Txt (0), P1Txt (0),P11Txt(0), P2Txt (0),P22Txt(0), P3Txt (0),P33Txt(0), P4Txt (0),P44Txt(0), P5Txt (0),P55Txt(0), P6Txt (0),P66Txt(0), P7Txt (0),P77Txt(0), TextStyleHoriz (1), //0: texte droite de la barre //1: texte gauche de la barre //2: texte centre de la barre TextStyleVert (1); //0: texte en dessous de la barre //1: texte au-dessus de la barre //2: texte sur la barre //##########POINTS PIVOTS DAILY################# If Date <> Date[1] then begin If PlaceTextRight then TextStyleVert = 1; HaveTLs = false; var20 = var20 + 1 ; var21 = var22 ; var23 = var24 ; var25 = var26 ; var27 = Close[1] ; var22 = Open ; var24 = High ; var26 = Low ; PP = (var23 + var25 + var27)/3 ; RR1 = Roundinst(PP * 2 - var25); RR2 = Roundinst(PP + var23 - var25); RR3 = Roundinst(RR2 + var23 - var25); SS1 = Roundinst(PP * 2 - var23); SS2 = Roundinst(PP - var23 + var25); SS3 = Roundinst(SS2 - var23 + var25); SS4 = Roundinst(SS3 - var23 + var25); M1 = ((RR2 + RR3)*0.5); M2 = ((RR1 + RR2)*0.5); M3 = ((PP + RR1)*0.5); M4 = ((SS1 + PP)*0.5); M5 = ((SS1 + SS2)*0.5); M6 = ((SS2 + SS3)*0.5); M7 = ((SS3 + SS4)*0.5); P1 = ((RR2 + M1)*0.50);//M1 P11= ((RR3 +M1)*0.50); P2 = ((RR1 + M2)*0.50);//M2 P22= ((RR2+M2)*0.50); P3 = ((PP + M3)*0.50);//M3 P33= ((RR1 + M3)*0.5); P4 = ((PP + M4)*0.50);//M4 P44= ((SS1+ M4)*0.50); P5 = ((SS1 + M5)*0.50);//M5 P55= ((SS2 + M5)*0.50); P6 = ((SS2 + M6)*0.50);//M6 P66 = ((SS3 + M6)*0.50); P7 = ((SS3 + M7)*0.50);//M7 P77 = ((SS4 + M7)*0.50); end else begin If Time > StartTime and Time <= EndTime then begin if High > var24 then var24 = High ; if Low < var26 then var26 = Low ; end; end; //########################################################################################################################## If HaveTLs = false then begin HaveTLs = true; //#######################POINTS PIVOTS DAILY#################### RR1TL = TL_New(Date, StartTime, RR1, Date, EndTime, RR1); TL_SetColor(RR1TL, R1Color); TL_SetSize(RR1TL, TLSize); TL_SetStyle(RR1TL, TLStyle); RR2TL = TL_New(Date, StartTime, RR2, Date, EndTime, RR2); TL_SetColor(RR2TL, R2Color); TL_SetSize(RR2TL, TLSize); TL_SetStyle(RR2TL, TLStyle); RR3TL = TL_New(Date, StartTime, RR3, Date, EndTime, RR3); TL_SetColor(RR3TL, R3Color); TL_SetSize(RR3TL, TLSize); TL_SetStyle(RR3TL, TLStyle); SS1TL = TL_New(Date, StartTime, SS1, Date, EndTime, SS1); TL_SetColor(SS1TL, S1Color); TL_SetSize(SS1TL, TLSize); TL_SetStyle(SS1TL, TLStyle); SS2TL = TL_New(Date, StartTime, SS2, Date, EndTime, SS2); TL_SetColor(SS2TL, S2Color); TL_SetSize(SS2TL, TLSize); TL_SetStyle(SS2TL, TLStyle); SS3TL = TL_New(Date, StartTime, SS3, Date, EndTime, SS3); TL_SetColor(SS3TL, S3Color); TL_SetSize(SS3TL, TLSize); TL_SetStyle(SS3TL, TLStyle); SS4TL = TL_New(Date, StartTime, SS4, Date, EndTime, SS4); TL_SetColor(SS4TL, S3Color); TL_SetSize(SS4TL, TLSize); TL_SetStyle(SS4TL, TLStyle); PPTL = TL_New(Date, StartTime, PP, Date, EndTime, PP); TL_SetColor(PPTL, PivColor); TL_SetSize(PPTL, TLSize); TL_SetStyle(PPTL, TLStyle); R1Txt = Text_New(Date, StartTime, RR1, " R1 > " + NumToStr(RR1,decimales)); Text_SetStyle(R1Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(R1Txt, R1Color); R2Txt = Text_New(Date, StartTime, RR2, " R2 > " + NumToStr(RR2,decimales)); Text_SetStyle(R2Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(R2Txt, R2Color); R3Txt = Text_New(Date, StartTime, RR3, " R3 > " + NumToStr(RR3,decimales)); Text_SetStyle(R3Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(R3Txt, R3Color); S1Txt = Text_New(Date, StartTime, SS1, " S1 > " + NumToStr(SS1,decimales)); Text_SetStyle(S1Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(S1Txt, S1Color); S2Txt = Text_New(Date, StartTime, SS2, " S2 > " + NumToStr(SS2,decimales)); Text_SetStyle(S2Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(S2Txt, S2Color); S3Txt = Text_New(Date, StartTime, SS3, " S3 > " + NumToStr(SS3,decimales)); Text_SetStyle(S3Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(S3Txt, S3Color); S4Txt = Text_New(Date, StartTime, SS4, " S4 > " + NumToStr(SS4,decimales)); Text_SetStyle(S4Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(S4Txt, S4Color); PPTxt = Text_New(Date, StartTime, PP, " PP > " + NumToStr(PP,decimales)); Text_SetStyle(PPTxt, TextStyleHoriz, TextStyleVert); Text_SetColor(PPTxt, PivColor); if PlotDailyMidPts then begin M1TL = TL_New(Date, StartTime, M1, Date, EndTime, M1); TL_SetColor(M1TL, MColor); TL_SetSize(M1TL, TLSize); TL_SetStyle(M1TL, TLStyle); M2TL = TL_New(Date, StartTime, M2, Date, EndTime, M2); TL_SetColor(M2TL, MColor); TL_SetSize(M2TL, TLSize); TL_SetStyle(M2TL, TLStyle); M3TL = TL_New(Date, StartTime, M3, Date, EndTime, M3); TL_SetColor(M3TL, MColor); TL_SetSize(M3TL, TLSize); TL_SetStyle(M3TL, TLStyle); M4TL = TL_New(Date, StartTime, M4, Date, EndTime, M4); TL_SetColor(M4TL, MColor); TL_SetSize(M4TL, TLSize); TL_SetStyle(M4TL, TLStyle); M5TL = TL_New(Date, StartTime, M5, Date, EndTime, M5); TL_SetColor(M5TL, MColor); TL_SetSize(M5TL, TLSize); TL_SetStyle(M5TL, TLStyle); M6TL = TL_New(Date, StartTime, M6, Date, EndTime, M6); TL_SetColor(M6TL, MColor); TL_SetSize(M6TL, TLSize); TL_SetStyle(M6TL, TLStyle); M7TL = TL_New(Date, StartTime, M7, Date, EndTime, M7); TL_SetColor(M7TL, MColor); TL_SetSize(M7TL, TLSize); TL_SetStyle(M7TL, TLStyle); M1Txt = Text_New(Date, StartTime, M1, "M1 >" + NumToStr(M1,decimales)); Text_SetStyle(M1Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(M1Txt, MColor); M2Txt = Text_New(Date, StartTime, M2, "M2 >" + NumToStr(M2,decimales)); Text_SetStyle(M2Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(M2Txt, MColor); M3Txt = Text_New(Date, StartTime, M3, "M3 >" + NumToStr(M3,decimales)); Text_SetStyle(M3Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(M3Txt, MColor); M4Txt = Text_New(Date, StartTime, M4, "M4 > " + NumToStr(M4,decimales)); Text_SetStyle(M4Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(M4Txt, MColor); M5Txt = Text_New(Date, StartTime, M5, "M5 >" + NumToStr(M5,decimales)); Text_SetStyle(M5Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(M5Txt, MColor); M6Txt = Text_New(Date, StartTime, M6, "M6 >" + NumToStr(M6,decimales)); Text_SetStyle(M6Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(M6Txt, MColor); M7Txt = Text_New(Date, StartTime, M7, "M7 >" + NumToStr(M7,decimales)); Text_SetStyle(M7Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(M7Txt, MColor); end; ///Quart Middles --> POC ?? // if PlotDailyQuartPts then begin P1TL = TL_New(Date, StartTime, P1, Date, EndTime, P1); TL_SetColor(P1TL, QColor); TL_SetSize(P1TL, TLSize); TL_SetStyle(P1TL, TLStyle); P11TL = TL_New(Date, StartTime, P11, Date, EndTime, P11); TL_SetColor(P11TL, QColor); TL_SetSize(P11TL, TLSize); TL_SetStyle(P11TL, TLStyle); P2TL = TL_New(Date, StartTime, P2, Date, EndTime, P2); TL_SetColor(P2TL, QColor); TL_SetSize(P2TL, TLSize); TL_SetStyle(P2TL, TLStyle); P22TL = TL_New(Date, StartTime, P22, Date, EndTime, P22); TL_SetColor(P22TL, QColor); TL_SetSize(P22TL, TLSize); TL_SetStyle(P22TL, TLStyle); P3TL = TL_New(Date, StartTime, P3, Date, EndTime, P3); TL_SetColor(P3TL, QColor); TL_SetSize(P3TL, TLSize); TL_SetStyle(P3TL, TLStyle); P33TL = TL_New(Date, StartTime, P33, Date, EndTime, P33); TL_SetColor(P33TL, QColor); TL_SetSize(P33TL, TLSize); TL_SetStyle(P33TL, TLStyle); P4TL = TL_New(Date, StartTime, P4, Date, EndTime, P4); TL_SetColor(P4TL, QColor); TL_SetSize(P4TL, TLSize); TL_SetStyle(P4TL, TLStyle); P44TL = TL_New(Date, StartTime, P44, Date, EndTime, P44); TL_SetColor(P44TL, QColor); TL_SetSize(P44TL, TLSize); TL_SetStyle(P44TL, TLStyle); P5TL = TL_New(Date, StartTime, P5, Date, EndTime, P5); TL_SetColor(P5TL, QColor); TL_SetSize(P5TL, TLSize); TL_SetStyle(P5TL, TLStyle); P55TL = TL_New(Date, StartTime, P55, Date, EndTime, P55); TL_SetColor(P55TL, QColor); TL_SetSize(P55TL, TLSize); TL_SetStyle(P55TL, TLStyle); P6TL = TL_New(Date, StartTime, P6, Date, EndTime, P6); TL_SetColor(P6TL, QColor); TL_SetSize(P6TL, TLSize); TL_SetStyle(P6TL, TLStyle); P66TL = TL_New(Date, StartTime, P66, Date, EndTime, P66); TL_SetColor(P66TL, QColor); TL_SetSize(P66TL, TLSize); TL_SetStyle(P66TL, TLStyle); P7TL = TL_New(Date, StartTime, P7, Date, EndTime, P7); TL_SetColor(P7TL, QColor); TL_SetSize(P7TL, TLSize); TL_SetStyle(P7TL, TLStyle); P77TL = TL_New(Date, StartTime, P77, Date, EndTime, P77); TL_SetColor(P77TL, QColor); TL_SetSize(P77TL, TLSize); TL_SetStyle(P77TL, TLStyle); P1Txt = Text_New(Date, StartTime, P1, "-M1 >" + NumToStr(P1,decimales));// Text_SetStyle(P1Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P1Txt, QColor); P11Txt = Text_New(Date, StartTime, P11, "+M1 >" + NumToStr(P11,decimales)); Text_SetStyle(P11Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P11Txt, QColor); P2Txt = Text_New(Date, StartTime, P2, " -M2 >" + NumToStr(P2,decimales)); Text_SetStyle(P2Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P2Txt, QColor); P22Txt = Text_New(Date, StartTime, P22, "+M2 >" + NumToStr(P22,decimales)); Text_SetStyle(P22Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P22Txt, QColor); P3Txt = Text_New(Date, StartTime, P3, "-M3>" + NumToStr(P3,decimales));// Text_SetStyle(P3Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P3Txt, QColor); P33Txt = Text_New(Date, StartTime, P33, " +M3>" + NumToStr(P33,decimales)); Text_SetStyle(P33Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P33Txt, QColor); P4Txt = Text_New(Date, StartTime, P4, "+M4 > " + NumToStr(P4,decimales)); Text_SetStyle(P4Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P4Txt, QColor); P44Txt = Text_New(Date, StartTime, P44, "-M4 > " + NumToStr(P44,decimales)); Text_SetStyle(P44Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P44Txt, QColor); P5Txt = Text_New(Date, StartTime, P5, "+M5>" + NumToStr(P5,decimales));// Text_SetStyle(P5Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P5Txt, QColor); P55Txt = Text_New(Date, StartTime, P55, "-M5>" + NumToStr(P55,decimales)); Text_SetStyle(P55Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P55Txt, QColor); P6Txt = Text_New(Date, StartTime, P6, "+M6 >" + NumToStr(P6,decimales)); Text_SetStyle(P6Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P6Txt, QColor); P66Txt = Text_New(Date, StartTime, P66, "-M6 >" + NumToStr(P66,decimales)); Text_SetStyle(P66Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P66Txt, QColor); P7Txt = Text_New(Date, StartTime, P7, "+M7 >" + NumToStr(P7,decimales)); Text_SetStyle(P7Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P7Txt, QColor); P77Txt = Text_New(Date, StartTime, P77, "-M7 >" + NumToStr(P77,decimales)); Text_SetStyle(P77Txt, TextStyleHoriz, TextStyleVert); Text_SetColor(P77Txt, QColor); end; end //If HaveTLs = false then begin... else begin //########POINTS PIVOTS############# TL_SetEnd(RR1TL, Date, EndTime, RR1); TL_SetEnd(RR2TL, Date, EndTime, RR2); TL_SetEnd(RR3TL, Date, EndTime, RR3); TL_SetEnd(SS1TL, Date, EndTime, SS1); TL_SetEnd(SS2TL, Date, EndTime, SS2); TL_SetEnd(SS3TL, Date, EndTime, SS3); TL_SetEnd(SS4TL, Date, EndTime, SS4); TL_SetEnd(PPTL, Date, EndTime, PP); TL_SetEnd(M1TL, Date, EndTime, M1); TL_SetEnd(M2TL, Date, EndTime, M2); TL_SetEnd(M3TL, Date, EndTime, M3); TL_SetEnd(M4TL, Date, EndTime, M4); TL_SetEnd(M5TL, Date, EndTime, M5); TL_SetEnd(M6TL, Date, EndTime, M6); TL_SetEnd(M7TL, Date, EndTime, M7); TL_SetEnd(P1TL, Date, EndTime, P1); TL_SetEnd(P11TL, Date, EndTime, P11); TL_SetEnd(P2TL, Date, EndTime, P2); TL_SetEnd(P22TL, Date, EndTime, P22); TL_SetEnd(P3TL, Date, EndTime, P3); TL_SetEnd(P33TL, Date, EndTime, P33); TL_SetEnd(P4TL, Date, EndTime, P4); TL_SetEnd(P44TL, Date, EndTime, P44); TL_SetEnd(P5TL, Date, EndTime, P5); TL_SetEnd(P55TL, Date, EndTime, P55); TL_SetEnd(P6TL, Date, EndTime, P6); TL_SetEnd(P66TL, Date, EndTime, P66); TL_SetEnd(P7TL, Date, EndTime, P7); TL_SetEnd(P77TL, Date, EndTime, P77); If PlaceTextRight then begin //########POINTS PIVOTS############# Text_SetLocation(R1Txt, Date, EndTime, RR1); Text_SetLocation(R2Txt, Date, EndTime, RR2); Text_SetLocation(R3Txt, Date, EndTime, RR3); Text_SetLocation(S1Txt, Date, EndTime, SS1); Text_SetLocation(S2Txt, Date, EndTime, SS2); Text_SetLocation(S3Txt, Date, EndTime, SS3); Text_SetLocation(S4Txt, Date, EndTime, SS4); Text_SetLocation(PPTxt, Date, EndTime, PP); Text_SetLocation(M1TXt, Date, EndTime, M1); Text_SetLocation(M2TXt, Date, EndTime, M2); Text_SetLocation(M3TXt, Date, EndTime, M3); Text_SetLocation(M4TXt, Date, EndTime, M4); Text_SetLocation(M5TXt, Date, EndTime, M5); Text_SetLocation(M6TXt, Date, EndTime, M6); Text_SetLocation(M7TXt, Date, EndTime, M7); Text_SetLocation(P1TXt, Date, EndTime, P1); Text_SetLocation(P11TXt, Date, EndTime, P11); Text_SetLocation(P2TXt, Date, EndTime, P2); Text_SetLocation(P22TXt, Date, EndTime, P22); Text_SetLocation(P3TXt, Date, EndTime, P3); Text_SetLocation(P33TXt, Date, EndTime, P33); Text_SetLocation(P4TXt, Date, EndTime, P4); Text_SetLocation(P44TXt, Date, EndTime, P44); Text_SetLocation(P5TXt, Date, EndTime, P5); Text_SetLocation(P55TXt, Date, EndTime, P55); Text_SetLocation(P6TXt, Date, EndTime, P6); Text_SetLocation(P66TXt, Date, EndTime, P66); Text_SetLocation(P7TXt, Date, EndTime, P7); Text_SetLocation(P77TXt, Date, EndTime, P77); end; //If PlaceTextRight then begin... end; //If HaveTLs then begin...
Commentaire