Const
n_1 = -0.128;
n_2 = -0.272;
n_3 = -0.414;
n_4 = -0.618;
n1 = 0;
n2 = 0.236;
n3 = 0.382;
n4 = 0.500;
n5 = 0.705;
n6 = 0.886;
n7 = 1.000;
n8 = 1.128;
n9 = 1.272;
n10 = 1.414;
n11 = 1.618;
n12 = 0.114;
n13 = 0.295;
n14 = 0.618;
n15 = 0.764;

Var
Hw, Lw : float;
RangeW : Float;
mm9, mm21 : float;
Compra, Venda, verde, vermelho, RompUp, RompDown : boolean;

begin
    If (currentdate <= 1231231) then
 Begin 
  
  Se (date <> date[1]) then
    Begin
      NoPlot(1); NoPlot(2); NoPlot(3); NoPlot(4); NoPlot(5);
      NoPlot(6); NoPlot(7); NoPlot(8); NoPlot(9); NoPlot(10);
      NoPlot(11); NoPlot(12); NoPlot(13); NoPlot(14); NoPlot(15);
      NoPlot(16); NoPlot(17); NoPlot(18); NoPlot(19); NoPlot(20);
      NoPlot(21); 
    End;

// Alvos Semanais

  Hw := HighW(1);
  Lw := LowW(1);
  RangeW := Hw - Lw;
  Begin
    Plot(Hw) ;  Plot2(Lw);  Plot3(Hw - (RangeW * n1));
    Plot4(Hw - (RangeW * n13)); Plot5(Hw - (RangeW * n3)); 
    Plot6(Hw - (RangeW * n4));  Plot7(Hw - (RangeW * n5));
    Plot8(Hw - (RangeW * n6));  Plot9(Hw - (RangeW * n7));
    Plot10(Hw - (RangeW * n8));   Plot11(Hw - (RangeW * n9));
    Plot12(Hw - (RangeW * n10));  Plot13(Hw - (RangeW * n11));
    Plot14(Hw - (RangeW * n_1));  Plot15(Hw - (RangeW * n_2));
    Plot16(Hw - (RangeW * n_3));  Plot17(Hw - (RangeW * n_4));
    Plot18(Hw - (RangeW * n12));  Plot19(Hw - (RangeW * n13));
    Plot20(Hw - (RangeW * n14));  Plot21(Hw - (RangeW * n15));
  End;    
 
  SetPlotColor(1,65535); SetPlotColor(2,65535);SetPlotColor(3,65535);
  SetPlotColor(4,65535); SetPlotColor(5,65535);SetPlotColor(6,65535);
  SetPlotColor(7,65535); SetPlotColor(8,65535);SetPlotColor(9,65535);
  SetPlotColor(10,65535); SetPlotColor(11,65535);SetPlotColor(12,65535);
  SetPlotColor(13,65535); SetPlotColor(14,65535);SetPlotColor(15,65535);
  SetPlotColor(16,65535); SetPlotColor(17,65535);SetPlotColor(18,65535);
  SetPlotColor(19,65535); SetPlotColor(20,65535);SetPlotColor(21,65535);

  // azul = 16711680
  // amarelo = 65535
  // white = 16777215

 End;    
    Begin   
 mm9 := MediaExp(9,Close);
 mm21 := MediaExp(21,Close);
                 
 RompUp := mm9 > mm21;
 RompDown := mm9 < mm21;

 Compra := not RompUp[1] e RompUp;
 Venda := not RompDown[1] e RompDown;
                         
 If compra then PlotText("Compra", cllime, 0,9);
 If Venda then PlotText("Venda", clWhite, 2,9);
End;
end;