Список проголосовавших за комментарий "roev_ae, вот по закрытиям как то так<br/> <br/> var Bar: integer;<br/> var pos1position, pos1num, pos2position, pos2num, pos3position, pos3num: integer;<br/> <br/> pos1position:=0;<br/> pos2position:=0;<br/> pos3position:=0;<br/> <br/> for Bar := 20 to BarCount — 1 do begin<br/> <br/> {position1}<br/> case pos1position of<br/> 0:<br/> begin<br/> if priceclose(bar)>priceclose(bar-1) then begin<br/> buyatclose(bar,'le1');<br/> pos1position:=1;<br/> pos1num:=lastposition;<br/> end;<br/> end;<br/> 1:<br/> begin<br/> if priceclose(bar)<priceclose(bar-1) then begin<br/> sellatclose(bar,pos1num,'lx1');<br/> pos1position:=0;<br/> end;<br/> end;<br/> end;<br/> <br/> {position2}<br/> case pos2position of<br/> 0:<br/> begin<br/> if priceclose(bar)>priceclose(bar-2) then begin<br/> buyatclose(bar,'le2');<br/> pos2position:=1;<br/> pos2num:=lastposition;<br/> end;<br/> end;<br/> 1:<br/> begin<br/> if priceclose(bar)<priceclose(bar-2) then begin<br/> sellatclose(bar,pos2num,'lx2');<br/> pos2position:=0;<br/> end;<br/> end;<br/> end;<br/> <br/> {position3}<br/> case pos3position of<br/> 0:<br/> begin<br/> if priceclose(bar)>priceclose(bar-3) then begin<br/> buyatclose(bar,'le3');<br/> pos3position:=1;<br/> pos3num:=lastposition;<br/> end;<br/> end;<br/> 1:<br/> begin<br/> if priceclose(bar)<priceclose(bar-3) then begin<br/> sellatclose(bar,pos3num,'lx3');<br/> pos3position:=0;<br/> end;<br/> end;<br/> end;<br/> <br/> end;"