Форум по Forex Tester 5

Smile писал(а):Печать типа Integer:

Print(String(IntTostr(a))); где a - переменная типа integer, значение которой нужно вывести в журнал

Печать типа Double:
Print(String(FloatToStrF(Price, ffFixed, 10, 4))); где Price - переменная типа Double, значение которой нужно вывести в журнал

AndyMEN писал(а):Terranin

Как можно заставить команду Print или Format печатать не только в журнал но в сами графики?

AndyMEN писал(а):Terranin

Как можно заставить команду Print или Format печатать не только в журнал но в сами графики?

Mike писал(а):

AndyMEN писал(а):Terranin

Как можно заставить команду Print или Format печатать не только в журнал но в сами графики?

Подобный вопрос: Как можно информацию из журнала "впихнуть" скажем в историю счета (например добавить поле в историю счета или заменить какое-либо поле на своё)? И можно ли так вообще сделать? Или как вытащить инфу из журнала?

Спасибо!

Mike писал(а):Михаил, подскажите плиз!

Код: Выделить всё

Print(format('ширина =%.2f', [raznica]));

По йенозависимым парам получаем результат(например):

1.19, а нужно 119.00

Как получить именно такой формат 000.00 ?

Спасибо.

Terranin писал(а):

Mike писал(а):Михаил, подскажите плиз!

Код: Выделить всё

Print(format('ширина =%.2f', [raznica]));

По йенозависимым парам получаем результат(например):

1.19, а нужно 119.00

Как получить именно такой формат 000.00 ?

Спасибо.

Похоже что-то считается неправильно если выходит такое число. %.2f значит вывести с 2мя знаками после запятой, а 1.19 там будет или 119.00 это зависит от самого числа.

library WidthChannelFDAX ;

uses
  SysUtils, Classes, StrategyInterfaceUnit, TechnicalFunctions, DateUtils, Math;

var
  Currency: PChar = nil;
  TimeFrame: integer;
  LotSize: double;

 OrderHandle: integer;

 LastTime: TDateTime;
 CurrTime: TDateTime;

 r: double;
 
 {-----Init strategy----------------------------------------------------------}
procedure InitStrategy; stdcall;
begin
  StrategyShortName('Width ChannelFDAX');
  StrategyDescription('Ширина канала по времени FDAX');

  RegOption('Currency', ot_Currency, Currency);
  ReplaceStr(Currency, 'GBPUSD');

  RegOption('LotSize', ot_Double, LotSize);
  SetOptionDigits('LotSize', 1);
  lotSize := 0.1;

    end;

{-----Done strategy----------------------------------------------------------}
procedure DoneStrategy; stdcall;
begin
  FreeMem(Currency);
end;

{-----Reset strategy---------------------------------------------------------}
procedure ResetStrategy; stdcall;
begin
  OrderHandle := -1;
  LastTime := 0;

end;
{-----Process single tick----------------------------------------------------}
procedure GetSingleTick; stdcall;
var
h: double;
l: double;
begin
  // проверяем нашу валюту
  if Symbol <> Currency then
    exit;
  // устанавливаем валюту и таймфрейм
  SetCurrencyAndTimeFrame(Symbol, Timeframe);
  // проверяем время последнего бара

   CurrTime := iTime(Currency, PERIOD_M5, 0);

  if Time(0) <> LastTime then
    begin
     LastTime := Time(0);
   if (HourOf(Time(0)) = 14) and (MinuteOf(CurrTime) = 00) then
   begin
   h := iHigh(Currency, PERIOD_D1, 0);
   l := iLow(Currency, PERIOD_D1, 0);
   r := h - l;
   Print(format('ширина канала =%.2f', [r]));

end;
   end;
  end;
  
  exports

InitStrategy,
DoneStrategy,
ResetStrategy,
GetSingleTick;

end.

Terranin писал(а):Выведите все значения, валюту, hi, low и результат и посмотрите что показывает.

Print(format('%s, %.4f, %.4f, %.4f, ширина канала =%.2f', [Currency, h, l, r, r]));

income писал(а):

Terranin писал(а):Выведите все значения, валюту, hi, low и результат и посмотрите что показывает.

Print(format('%s, %.4f, %.4f, %.4f, ширина канала =%.2f', [Currency, h, l, r, r]));

FDAXFU, 7461,0000, 7461,0000, 0,0000, ширина канала =0,00

вот что показывает, получается что у хай и лоу одинаковая цена, как это может быть??

З.Ы. Кстати для фунта аналогично написанное работает правильно!

income писал(а):

income писал(а):

Terranin писал(а):Выведите все значения, валюту, hi, low и результат и посмотрите что показывает.

Print(format('%s, %.4f, %.4f, %.4f, ширина канала =%.2f', [Currency, h, l, r, r]));

FDAXFU, 7461,0000, 7461,0000, 0,0000, ширина канала =0,00

вот что показывает, получается что у хай и лоу одинаковая цена, как это может быть??

З.Ы. Кстати для фунта аналогично написанное работает правильно!

теперь меняю в строке CurrTime := iTime(Currency, PERIOD_H1, 0);период на Н1 или D1 тогда все работаета, только зачем то по три раза печатает с интервалом по 15 минут:
2007.09.12 10:15:00 ширина канала =19,50
2007.09.12 10:30:00 ширина канала =19,50
2007.09.12 10:45:00 ширина канала =19,50