منتديات تداول - جديد×لعيونكم"مؤشر- موجات الذئب

http://www.s966.info/sornew/uploads/9479baaaba.png

المعادله +أذالم تعمل حمل الملف اللذي في المرفقات أسفل الموضوع

function WolfeWave(Bar: integer; Reversal: float): boolean;
begin
try
var PB, TB, B5, B4, B3, B2, B1: integer;
var V5, V4, V3, V2, V1: float;
PB := PeakBar(Bar, #High, Reversal);
TB := TroughBar(Bar, #Low, Reversal);
if PB > TB then
begin
B5 := PB;
B4 := TB;
B3 := PeakBar(B4, #High, Reversal);
B2 := TroughBar(B3, #Low, Reversal);
B1 := PeakBar(B2, #High, Reversal);
V5 := PriceHigh(B5);
V4 := PriceLow(B4);
V3 := PriceHigh(B3);
V2 := PriceLow(B2);
V1 := PriceHigh(B1);
end;
if PB < TB then
begin
B5 := TB;
B4 := PB;
B3 := TroughBar(B4, #Low, Reversal);
B2 := PeakBar(B3, #High, Reversal);
B1 := TroughBar(B2, #Low, Reversal);
V5 := PriceLow(B5);
V4 := PriceHigh(B4);
V3 := PriceLow(B3);
V2 := PriceHigh(B2);
V1 := PriceLow(B1);
end;
if ((V2 > V1) and (V4 > V3) and (V4 < V2) and (V3 < V1) and (V4 > V1))
or ((V2 < V1) and (V4 < V3) and (V4 > V2) and (V3 > V1) and (V4 < V1)) then
begin
var A13, A24, A14, C13, C24, C14, ETA, V, EPA: float;
var B: integer;
A13 := (V1 - V3) / (B1 - B3);
C13 := (B1 * V3 - B3 * V1) / (B1 - B3);
A24 := (V2 - V4) / (B2 - B4);
C24 := (B2 * V4 - B4 * V2) / (B2 - B4);
// point 5 must be beyond the 1-3 trend line
if (PB > TB) and (V5 <= A13 * B5 + C13) then exit;
if (PB < TB) and (V5 >= A13 * B5 + C13) then exit;
if abs(A13 - A24) < 0.05 then exit;
ETA := (C24 - C13) / (A13 - A24);
if ETA <= B5 + 2 then exit;
V := ((A13 + A24) * ETA + (C13 + C24)) / 2;
B := trunc(ETA + 0.5);
A14 := (V1 - V4) / (B1 - B4);
C14 := (B1 * V4 - B4 * V1) / (B1 - B4);
EPA := A14 * ETA + C14;
DrawCircle(7, 0, B1, V1, #Black, #Thick);
DrawCircle(7, 0, B2, V2, #Black, #Thick);
DrawLine(B1, V1, B3, V3, 0, #Black, #Thick);
DrawCircle(7, 0, B3, V3, #Black, #Thick);
DrawCircle(7, 0, B4, V4, #Black, #Thick);
DrawLine(B2, V2, B4, V4, 0, #Black, #Thick);
DrawCircle(7, 0, B, V, #Blue, #Thick);
DrawTriangle(B1, V1, B2, V2, B, V, 0, #Silver, #Thin, #Silver, true);
DrawCircle(7, 0, B5, V5, #Blue, #Thick);
DrawLine(B5 + 2, PriceOpen(B5 + 2), B, EPA, 0, #Blue, #Thick);
DrawCircle(7, 0, B, EPA, #Blue, #Thick);
AnnotateChart('EPA=' + FormatFloat('0.00', EPA), 0, B, EPA, #Black, 8);
Result := true;
end;
except
end;
end;

// draw last instance (if any) of a Wolfe Wave
var Bar: integer;
for Bar := BarCount - 1 downto 0 do
if WolfeWave(Bar, 2) then break;