请教斑竹和高手，

请教斑竹和高手，
下面是不是一个完整的一口单资金管理系统，
条件是
穿越80，按照 UpFrl 价格买进一口单，
穿越20，按照 dnFrl 价格卖出一口单，
如果已经开了仓，跌穿blred平多仓，
如果已经开了仓，涨穿blred平空仓，



for Bar := 34 to BarCount - 1 do
begin
if not LastPositionActive then
{ Entry Rules }
begin
if (@RSI[bar-1]<80) and (@RSI[bar]>80) then
BuyAtStop (Bar , UpFrl, 'OPEN Buy');
if (@RSI[bar-1]>20) and (@RSI[bar]<20) then
shortAtStop (Bar , dnFrl, 'OPEN short');
end
else
{ Exit Rules }
begin
if (PositionLong (LastPosition)) then
SellAtStop (Bar , blred, LastPosition, ' Long Cover')
else
CoverAtStop (Bar, blred, LastPosition, ' Short Cover');

end;
end;


谢谢！

 

可否贴上完整代码啊。