Richiesta indicatore

• 09/03/2017 at 6:48 AM #45267
  massimo mamprin

  Buongiorno a tutti

  devo  scrivere codice per tracciare degli swing sui grafici

  chi mi può aiutare ?

  Mi interessa creare l’indicatore allegato in foto

  grazie

  

  massimo mamprin

  Participant

  Topics: 1

  Replies: 12

  Been thanked: 0 times
  09/03/2017 at 2:08 PM #45291
  Leonida1984

  Buongiorno MAssimo, non c’è alcuna foto.

  Buona Domenica!

  

  Leonida1984

  Participant

  Topics: 3

  Replies: 61

  Been thanked: 3 times
  09/04/2017 at 12:11 PM #45349
  Marco

  buongiorno anche io sono interessato all’inidicatore Gann Swing.

  questo è un codice programma trovato sul web ma mi da dei problemi con prorealtime.  c’è qualcuno che puo risolvere gli errori??

  Swing

  inputs: filter(2), stats(0); vars : xBar(0) , xHigh(0), xLow(0), xCount(0), xSwitch(0); vars : xSkip(0), xConfirm(0); vars : pBar(0) , pHigh(0), pLow(0); vars : bFirst(1); if xSwitch = 0 then begin if High >= xHigh then begin xHigh = High; xLow = Low; xBar = BarNumber; xSkip = 0; end else begin xSkip = xSkip + 1; if xSkip >= filter then begin xConfirm = 1; xCount = 1; while xCount < filter begin if (Low[xCount] <= Low[xCount-1]) or (xLow <= Low[filter-1]) then begin xCount = filter; xConfirm = 0; end; xCount = xCount + 1; end; if xConfirm = 1 then begin xSwitch = 1; if stats = 0 then plot1[BarNumber-xBar](xHigh,"Swing") else begin if bFirst = 0 then begin plot2[BarNumber-xBar](xHigh-pLow,"Range"); plot3[BarNumber-xBar](xBar -pBar,"Duration"); end; bFirst = 0; end; pHigh = xHigh; pLow = xLow; pBar = xBar; xHigh = High; xLow = Low; xBar = BarNumber; xSkip = 0; end; end; end; end else begin if Low <= xLow then begin xHigh = High; xLow = Low; xBar = BarNumber; xSkip = 0; end else begin xSkip = xSkip + 1; if xSkip >= filter then begin xConfirm = 1; xCount = 1; while xCount < filter begin if (High[xCount] >= High[xCount-1]) or (xHigh >= High[filter-1]) then begin xCount = filter; xConfirm = 0; end; xCount = xCount + 1; end; if xConfirm = 1 then begin xSwitch = 0; if stats = 0 then plot1[BarNumber-xBar](xLow,"Swing") else begin plot2[BarNumber-xBar](pHigh-xLow,"Range"); plot3[BarNumber-xBar](xBar -pBar,"Duration"); end; pHigh = xHigh; pLow = xLow; pBar = xBar; xLow = Low; xHigh = High; xBar = BarNumber; xSkip = 0; end; end; end; end; if ((date = lastcalcdate) and (time = lastcalctime)) then begin if xSwitch = 0 then begin if stats = 0 then plot1[BarNumber-xBar](xHigh,"Swing") else begin plot2[BarNumber-xBar](xHigh-pLow,"Range"); plot3[BarNumber-xBar](xBar -pBar,"Duration"); end; end else begin if stats = 0 then plot1[BarNumber-xBar](xLow,"Swing") else begin plot2[BarNumber-xBar](pHigh-xLow,"Range"); plot3[BarNumber-xBar](xBar -pBar,"Duration"); end; end; end;

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128

  inputs: filter(2), stats(0); vars  : xBar(0) , xHigh(0), xLow(0), xCount(0), xSwitch(0); vars  : xSkip(0), xConfirm(0); vars  : pBar(0) , pHigh(0), pLow(0); vars  : bFirst(1);   if xSwitch = 0  then begin   if High >= xHigh then    begin     xHigh  = High;     xLow   = Low;     xBar   = BarNumber;     xSkip  = 0;    end   else    begin     xSkip  = xSkip + 1;     if xSkip      >= filter then      begin        xConfirm    = 1;        xCount      = 1;        while xCount < filter         begin          if (Low[xCount] <= Low[xCount-1]) or (xLow <= Low[filter-1]) then            begin             xCount   = filter;             xConfirm = 0;            end;          xCount      = xCount + 1;         end;        if xConfirm   = 1 then         begin           xSwitch = 1;           if stats = 0 then              plot1[BarNumber-xBar](xHigh,"Swing")           else            begin             if bFirst = 0 then              begin                plot2[BarNumber-xBar](xHigh-pLow,"Range");                plot3[BarNumber-xBar](xBar -pBar,"Duration");              end;              bFirst = 0;            end;           pHigh   = xHigh;           pLow    = xLow;           pBar    = xBar;           xHigh   = High;           xLow    = Low;           xBar    = BarNumber;           xSkip   = 0;         end;      end;    end; end else begin   if Low <= xLow then    begin     xHigh = High;     xLow  = Low;     xBar  = BarNumber;     xSkip = 0;    end   else    begin     xSkip = xSkip + 1;     if xSkip >= filter then      begin       xConfirm = 1;       xCount   = 1;       while xCount < filter         begin          if (High[xCount] >= High[xCount-1]) or (xHigh >= High[filter-1]) then           begin            xCount   = filter;            xConfirm = 0;           end;          xCount   = xCount + 1;         end;       if xConfirm = 1 then        begin          xSwitch = 0;          if stats = 0 then            plot1[BarNumber-xBar](xLow,"Swing")          else           begin            plot2[BarNumber-xBar](pHigh-xLow,"Range");            plot3[BarNumber-xBar](xBar -pBar,"Duration");           end;          pHigh   = xHigh;          pLow    = xLow;          pBar    = xBar;          xLow    = Low;          xHigh   = High;          xBar    = BarNumber;          xSkip   = 0;        end;      end;    end; end;   if ((date = lastcalcdate) and (time = lastcalctime)) then begin   if xSwitch = 0 then    begin      if stats = 0 then        plot1[BarNumber-xBar](xHigh,"Swing")      else        begin          plot2[BarNumber-xBar](xHigh-pLow,"Range");          plot3[BarNumber-xBar](xBar -pBar,"Duration");        end;    end   else    begin      if stats = 0 then        plot1[BarNumber-xBar](xLow,"Swing")      else        begin          plot2[BarNumber-xBar](pHigh-xLow,"Range");          plot3[BarNumber-xBar](xBar -pBar,"Duration");        end;    end; end;

  Swing

  inputs: filter(2), stats(0); vars : xBar(0) , xHigh(0), xLow(0), xCount(0), xSwitch(0); vars : xSkip(0), xConfirm(0); vars : pBar(0) , pHigh(0), pLow(0); vars : bFirst(1); if xSwitch = 0 then begin if High >= xHigh then begin xHigh = High; xLow = Low; xBar = BarNumber; xSkip = 0; end else begin xSkip = xSkip + 1; if xSkip >= filter then begin xConfirm = 1; xCount = 1; while xCount < filter begin if (Low[xCount] <= Low[xCount-1]) or (xLow <= Low[filter-1]) then begin xCount = filter; xConfirm = 0; end; xCount = xCount + 1; end; if xConfirm = 1 then begin xSwitch = 1; if stats = 0 then plot1[BarNumber-xBar](xHigh,"Swing") else begin if bFirst = 0 then begin plot2[BarNumber-xBar](xHigh-pLow,"Range"); plot3[BarNumber-xBar](xBar -pBar,"Duration"); end; bFirst = 0; end; pHigh = xHigh; pLow = xLow; pBar = xBar; xHigh = High; xLow = Low; xBar = BarNumber; xSkip = 0; end; end; end; end else begin if Low <= xLow then begin xHigh = High; xLow = Low; xBar = BarNumber; xSkip = 0; end else begin xSkip = xSkip + 1; if xSkip >= filter then begin xConfirm = 1; xCount = 1; while xCount < filter begin if (High[xCount] >= High[xCount-1]) or (xHigh >= High[filter-1]) then begin xCount = filter; xConfirm = 0; end; xCount = xCount + 1; end; if xConfirm = 1 then begin xSwitch = 0; if stats = 0 then plot1[BarNumber-xBar](xLow,"Swing") else begin plot2[BarNumber-xBar](pHigh-xLow,"Range"); plot3[BarNumber-xBar](xBar -pBar,"Duration"); end; pHigh = xHigh; pLow = xLow; pBar = xBar; xLow = Low; xHigh = High; xBar = BarNumber; xSkip = 0; end; end; end; end; if ((date = lastcalcdate) and (time = lastcalctime)) then begin if xSwitch = 0 then begin if stats = 0 then plot1[BarNumber-xBar](xHigh,"Swing") else begin plot2[BarNumber-xBar](xHigh-pLow,"Range"); plot3[BarNumber-xBar](xBar -pBar,"Duration"); end; end else begin if stats = 0 then plot1[BarNumber-xBar](xLow,"Swing") else begin plot2[BarNumber-xBar](pHigh-xLow,"Range"); plot3[BarNumber-xBar](xBar -pBar,"Duration"); end; end; end;

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128

  inputs: filter(2), stats(0); vars  : xBar(0) , xHigh(0), xLow(0), xCount(0), xSwitch(0); vars  : xSkip(0), xConfirm(0); vars  : pBar(0) , pHigh(0), pLow(0); vars  : bFirst(1);   if xSwitch = 0  then begin   if High >= xHigh then    begin     xHigh  = High;     xLow   = Low;     xBar   = BarNumber;     xSkip  = 0;    end   else    begin     xSkip  = xSkip + 1;     if xSkip      >= filter then      begin        xConfirm    = 1;        xCount      = 1;        while xCount < filter         begin          if (Low[xCount] <= Low[xCount-1]) or (xLow <= Low[filter-1]) then            begin             xCount   = filter;             xConfirm = 0;            end;          xCount      = xCount + 1;         end;        if xConfirm   = 1 then         begin           xSwitch = 1;           if stats = 0 then              plot1[BarNumber-xBar](xHigh,"Swing")           else            begin             if bFirst = 0 then              begin                plot2[BarNumber-xBar](xHigh-pLow,"Range");                plot3[BarNumber-xBar](xBar -pBar,"Duration");              end;              bFirst = 0;            end;           pHigh   = xHigh;           pLow    = xLow;           pBar    = xBar;           xHigh   = High;           xLow    = Low;           xBar    = BarNumber;           xSkip   = 0;         end;      end;    end; end else begin   if Low <= xLow then    begin     xHigh = High;     xLow  = Low;     xBar  = BarNumber;     xSkip = 0;    end   else    begin     xSkip = xSkip + 1;     if xSkip >= filter then      begin       xConfirm = 1;       xCount   = 1;       while xCount < filter         begin          if (High[xCount] >= High[xCount-1]) or (xHigh >= High[filter-1]) then           begin            xCount   = filter;            xConfirm = 0;           end;          xCount   = xCount + 1;         end;       if xConfirm = 1 then        begin          xSwitch = 0;          if stats = 0 then            plot1[BarNumber-xBar](xLow,"Swing")          else           begin            plot2[BarNumber-xBar](pHigh-xLow,"Range");            plot3[BarNumber-xBar](xBar -pBar,"Duration");           end;          pHigh   = xHigh;          pLow    = xLow;          pBar    = xBar;          xLow    = Low;          xHigh   = High;          xBar    = BarNumber;          xSkip   = 0;        end;      end;    end; end;   if ((date = lastcalcdate) and (time = lastcalctime)) then begin   if xSwitch = 0 then    begin      if stats = 0 then        plot1[BarNumber-xBar](xHigh,"Swing")      else        begin          plot2[BarNumber-xBar](xHigh-pLow,"Range");          plot3[BarNumber-xBar](xBar -pBar,"Duration");        end;    end   else    begin      if stats = 0 then        plot1[BarNumber-xBar](xLow,"Swing")      else        begin          plot2[BarNumber-xBar](pHigh-xLow,"Range");          plot3[BarNumber-xBar](xBar -pBar,"Duration");        end;    end; end;

   

  

  Marco

  Participant

  Topics: 4

  Replies: 15

  Been thanked: 1 time
  09/04/2017 at 2:10 PM #45368
  Leonida1984

  inputs: filter(2), stats(0);

  vars  : xBar(0) , xHigh(0), xLow(0), xCount(0), xSwitch(0);

  vars  : xSkip(0), xConfirm(0);

  vars  : pBar(0) , pHigh(0), pLow(0);

  vars  : bFirst(1);

  Questa parte non va dichiarata su Prorealtime.

  Inoltre devi togliere tutte le punteggiature  (;)

  

  Leonida1984

  Participant

  Topics: 3

  Replies: 61

  Been thanked: 3 times
  09/04/2017 at 2:18 PM #45370
  Leonida1984

  Devi assegnare un valore alla variabile begin. Anche se a intuito penso vada tolta.

  

  Leonida1984

  Participant

  Topics: 3

  Replies: 61

  Been thanked: 3 times
  09/04/2017 at 2:43 PM #45372
  Marco

  ciao grazie mi da anche un errore su end???

  

  Marco

  Participant

  Topics: 4

  Replies: 15

  Been thanked: 1 time
  09/04/2017 at 2:57 PM #45374
  Marco

  mi da anche un errore sulla riga 28 carattere 6 mid ice  ” uno di questi caratteri mi sembra piu appropriato di [   usa la  ” ,”  o ” =”

  

  Marco

  Participant

  Topics: 4

  Replies: 15

  Been thanked: 1 time
  09/04/2017 at 6:20 PM #45413
  Leonida1984

  Ci sarà sicuramente qualche end in più o in meno. Verifica.

  buona giornata!

  

  Leonida1984

  Participant

  Topics: 3

  Replies: 61

  Been thanked: 3 times
• Author
  Posts