Автор:
Разместил:   Дата: 2005-12-27 16:40
Комментарии: (0)   Рейтинг:

Cosine IFM by John Ehlers

Type : Indicator, Name : Cosine IFM

Inputs:   Price((H+L)/2);

Vars:    Imult(.635),
       Qmult (.338),
       S2(0),
       S3(0),
       count(0),
       DeltaPhase(0),
       InstPeriod(0),
       Period(0);

If CurrentBar > 5 then begin
   Value1 = Price - Price[7];
   S2 = .2*(Value1[1] + Value1)*(Value1[1] + Value1) + .8*S2[1];
   S3 = .2*(Value1[1] -  Value1)*(Value1[1] -  Value1) + .8*S3[1];
   If S2 <> 0 then Value2 = (SquareRoot(S3 / S2));
   If S3 <> 0 then DeltaPhase = 2* ArcTangent(Value2);

   {Sum DeltaPhases to reach 360 degrees.  The sum is the instantaneous period.}
   InstPeriod = 0;
   Value4 = 0;
   For count = 0 to 50 begin
       Value4 = Value4 + DeltaPhase[count];
       If Value4 > 360 and InstPeriod = 0 then begin
           InstPeriod = count -1;
       end;
   end;

   {Resolve Instantaneous Period errors and smooth}
   If InstPeriod = 0 then InstPeriod = InstPeriod[1];
   Period = .25*InstPeriod + .75*Period[1];

   Plot1(Period, "DC");

end;




 
Пока комментариев нет
Реклама:

Rambler's Top100

Страница создана за 0.032 секунды