02-11-2009, 11:28 PM
var ADXPane, BAR, DMIPositive: integer;
{ Plot indicators }
ADXPane:=CreatePane(075,true,true);
PlotSeries(ADXSeries(14),ADXPane,#fuchsia,#thick);
PlotSeries(DISeries(14),ADXPane,#green,#thin);
PlotSeries(DIMinusSeries(14),ADXPane,#red,#thin);
DrawText('DMI(14)',ADXPane,4,4,004,10);
for Bar:=14 to BarCount-1 do
begin
if DI(Bar,14)>DIMinus(Bar,14) then begin
DMIPositive:=1;
SetBackgroundColor(Bar,787); //Green
end
else begin
DMIPositive:=0;
SetBackgroundColor(Bar,877); //Red
end;
if LastPositionActive then begin
if DMIPositive=0 then //If long but DMI- is over DMI+
SellAtMarket(Bar+1,LastPosition,'closedLong')
end
else
if DMIPositive1 then
BuyAtMarket(Bar+1,'');
end;
| |
|
|
|
03-11-2009, 01:02 AM
19-11-2009, 06:57 AM
23-11-2009, 09:28 PM
24-11-2009, 12:18 AM
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Optimisation provided by
DragonByte SEO (Pro) -
vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
جميع المواضيع و الردود المطروحة لا تعبر عن رأي الموقع بل تعبر عن رأي كاتبها وقرار البيع والشراء مسؤليتك وحدك
