if ((((HOLDING>0) and (LOW<STOPPRICE)) and (ENTERBARS>0))) then
begin
SELL(1,ABS(HOLDING),LIMITR,MIN(OPEN,STOPPRICE));
BUYED:=0;
end
if ((((HOLDING<0) and (HIGH>STOPPRICE)) and (ENTERBARS>0))) then
begin
SELLSHORT(1,ABS(HOLDING),LIMITR,MAX(OPEN,STOPPRICE));
SELLED:=0;
end
if ((((HOLDING>0) and (ENTERBARS>0)) and REF((CLOSE>=OPEN),1))) then
begin
SELL((LOW<=RL2),ABS(HOLDING),LIMITR,MIN(OPEN,RL2));
BUYED:=0;
end
if ((((HOLDING<0) and (ENTERBARS>0)) and REF((CLOSE<=OPEN),1))) then
begin
SELLSHORT((HIGH>=RH2),ABS(HOLDING),LIMITR,MAX(OPEN,RH2));
SELLED:=0;
end
if (((HOLDING=0) and BUYCOND)) then
begin
BUY(1,M,LIMITR,MAX(OPEN,RH1));
CHANGEPRICE:=HIGH;
STOPPRICE:=(MAX(OPEN,RH1)-(159*MINDIFF));
BUYPRICE:=MAX(OPEN,RH1);
BUYED:=1;
end
if (((HOLDING=0) and SELLCOND)) then
begin
BUYSHORT(1,M,LIMITR,MIN(OPEN,RL1));
CHANGEPRICE:=LOW;
STOPPRICE:=(MIN(OPEN,RL1)+(0*MINDIFF));
SELLPRICE:=MIN(OPEN,RL1);
SELLED:=1;
end
if (((HOLDING>0) and (HIGH>CHANGEPRICE))) then
begin
CHANGEPRICE:=HIGH;
if ((CHANGEPRICE>(BUYPRICE+(250*MINDIFF)))) then STOPPRICE:=(CHANGEPRICE-(0*MINDIFF));
end
if (((HOLDING<0) and (LOW<CHANGEPRICE))) then
begin
CHANGEPRICE:=LOW;
if ((CHANGEPRICE<(SELLPRICE-(309*MINDIFF)))) then STOPPRICE:=(CHANGEPRICE+(0*MINDIFF));
end