Форум по Forex Tester 5

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

library MAMY;

uses
  graphics,
  IndicatorInterfaceUnit,
  TechnicalFunctions in 'TechnicalFunctions.pas' ;


var
  // External variables
  period: integer;
  Shift: integer;
  MAtype: integer;
  ApplyToPrice: integer;


  // Buffers
  SMA_GBPUSD: TIndexBuffer;
  SMA_USDCHF: TIndexBuffer;
//  SMA_ABS: TIndexBuffer;


//---------------------------------------------------------------------------
// Initialize indicator
//---------------------------------------------------------------------------
procedure Init; stdcall;
begin
  // define properties
  IndicatorShortName('MAMY');
  SetOutputWindow(ow_SeparateWindow);

  // register options
  AddSeparator('Common');

  RegOption('Period', ot_Integer, period);
  SetOptionRange('Period', 1, MaxInt);
  period := 8;

  RegOption('Shift', ot_Integer, Shift);
  Shift := 0;

  RegMATypeOption(MAtype);

  RegApplyToPriceOption(ApplyToPrice);

  // create buffers
  IndicatorBuffers(2);
  SMA_GBPUSD := CreateIndexBuffer;
  SMA_USDCHF := CreateIndexBuffer;
//  SMA_ABS := CreateIndexBuffer;

  SetIndexBuffer(0, SMA_GBPUSD);
  SetIndexStyle(0, ds_Line, psSolid, 1, clYellow);
  SetIndexLabel(0, 'MA1');
  SetIndexBuffer(1, SMA_USDCHF);
  SetIndexStyle(1, ds_Line, psSolid, 1, clRed);
  SetIndexLabel(1, 'MA2');
//  SetIndexBuffer(2, SMA_ABS);
//  SetIndexStyle(2, ds_Line, psSolid, 1, clYellow);
//  SetIndexLabel(2, 'MA3');

//SetFixedMinMaxValues(0, 5);          // масштабировать между 0 и 100
//  AddLevel(1, psDot, 1, clGray);        // задать уровень 20
//  AddLevel(80, psDot, 1, clGray);        // задать уровень 80

end;

//---------------------------------------------------------------------------
// Deinitialize indicator
//---------------------------------------------------------------------------
procedure Done; stdcall;
begin

end;

//---------------------------------------------------------------------------
// Calculate requested bar
//---------------------------------------------------------------------------
procedure Calculate(index: integer); stdcall;

{-----Get price--------------------------------------------------------------}
function myGetPrice(index: integer; PriceType: TPriceType; mySymbol:string): double;
begin
  case PriceType of
    pt_Close: result := iClose(mySymbol, PERIOD_M1, index);
    pt_Open:  result := iOpen(mySymbol, PERIOD_M1, index);
    pt_High:  result := iHigh(mySymbol, PERIOD_M1, index);
    pt_Low:   result := iLow(mySymbol, PERIOD_M1, index);
    pt_HL2:   result := (iHigh(mySymbol, PERIOD_M1, index) + iLow(mySymbol, PERIOD_M1, index))/2;
    pt_HLC3:  result := (iHigh(mySymbol, PERIOD_M1, index) + iLow(mySymbol, PERIOD_M1, index) + iClose(mySymbol, PERIOD_M1, index))/3;
    pt_HLCC4: result := (iHigh(mySymbol, PERIOD_M1, index) + iLow(mySymbol, PERIOD_M1, index) + iClose(mySymbol, PERIOD_M1, index)*2)/4;
    else      result := 0;
  end;
end;

function  myGetMA(index, shift, period: integer; maType: TMAType;
  ApplyTo: TPriceType; prev: double = 0; mySymbol: string=''): double;
var
  i: integer;
  k, sum, weight: double;
begin
  case MAtype of
    ma_SMA:
       begin
         // SMA
         if (index + shift + period >= Bars) or (index + shift < 0) then
           result := 0
         else
           begin
             sum := 0;
             for i:=index to index + period - 1 do
               sum := sum + myGetPrice(i + Shift, ApplyTo, mySymbol);
             result := sum/period;
           end;
       end;

    ma_EMA:
       begin
         // EMA
         k := 2/(period + 1);
         i := index + shift;
         if (i > Bars - 1) or (i < 0) then
           result := 0
         else
           begin
             if prev = 0 then
               result := myGetPrice(i, ApplyTo, mySymbol)
             else
               result := prev + k*(myGetPrice(i, ApplyTo, mySymbol) - prev);
           end;
       end;

    ma_WMA:
       begin
         // WMA
         if (index + shift + period >= Bars) or (index + shift < 0) then
           result := 0
         else
           begin
             sum := 0;
             weight := 0;
             for i:=0 to period - 1 do
               begin
                 sum := sum + myGetPrice(index + i + shift, ApplyTo, mySymbol)*(period - i);
                 weight := weight + (period - i);
               end;
             result := sum/weight;
           end;
       end;

    else
      begin
        // SSMA
        if (index + shift + period >= Bars) or (index + shift < 0) then
           result := 0
         else
           begin
             if prev = 0 then
               result := myGetMA(index, shift, period, ma_SMA, ApplyTo, prev, mySymbol)
             else
               result := (prev*period - prev + myGetPrice(index + shift, ApplyTo, mySymbol))/period;
           end;
      end;
  end; {case}
end;

begin
//SMA_GBPUSD[index] := myGetMA(index, shift, period, TMAType(MAtype), TPriceType(ApplyToPrice),
//   SMA_GBPUSD[index + 1], 'GBPUSD');
SMA_GBPUSD[index] := iClose('GBPUSD', TimeFrame, index+1) ;
SMA_USDCHF[index] := iOpen('USDCHF', TimeFrame, index+1) ;

 // SMA_GBPUSD[index] := iClose('GBPUSD', PERIOD_M1, index) ;
//SMA_USDCHF[index] := index;

//SMA_USDCHF[index] := myGetPrice(index, TPriceType(ApplyToPrice), 'USDCHF') ;

//  SMA_USDCHF[index] := myGetMA(index, shift, period, TMAType(MAtype), TPriceType(ApplyToPrice),
//    SMA_USDCHF[index + 1], 'USDCHF');
  //SMA_ABS[index]:= SMA_GBPUSD[index]-SMA_USDCHF[index];

  // recalculate last shifted value if shift < 0
  if (shift < 0) and (index = 0) and (Bars > abs(shift)) and (Bars > period) then
    Calculate(abs(shift));

end;


exports

Init, Done, Calculate;

end.