للتسجيل اضغط هـنـا
أنظمة الموقع تداول في الإعلام للإعلان لديـنا راسلنا التسجيل طلب كود تنشيط العضوية   تنشيط العضوية استعادة كلمة المرور
تداول مواقع الشركات مركز البرامج
مؤشرات السوق اسعار النفط مؤشرات العالم اعلانات الشركات الاكثر نشاط تحميل
 



العودة   منتديات تداول > سوق المال السعودي > التــحلــيــل الــفــني والأســـــاســـي



إضافة رد
 
أدوات الموضوع
قديم 27-12-2007, 08:23 AM   #1
alsmiri
متداول نشيط
 
تاريخ التسجيل: Jan 2007
المشاركات: 260

 

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



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

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;
alsmiri غير متواجد حالياً   رد مع اقتباس
قديم 27-12-2007, 07:55 PM   #2
أبو سارا
متداول جديد
 
تاريخ التسجيل: May 2006
المشاركات: 65

 
افتراضي

مشكور والله يوفقك
أبو سارا غير متواجد حالياً   رد مع اقتباس
قديم 28-12-2007, 04:50 AM   #3
albazy
متداول فعّال
 
تاريخ التسجيل: May 2006
المشاركات: 172

 
افتراضي

مشكور والله يوفقك
albazy غير متواجد حالياً   رد مع اقتباس
قديم 01-01-2008, 02:35 PM   #4
ismail.m
متداول جديد
 
تاريخ التسجيل: Dec 2007
المشاركات: 2

 
افتراضي

مشكور والله يوفقك
ismail.m غير متواجد حالياً   رد مع اقتباس
قديم 04-01-2008, 02:44 PM   #5
dookalee
متداول جديد
 
تاريخ التسجيل: Jun 2006
المشاركات: 75

 
افتراضي

مشكور والله يوفقك
dookalee غير متواجد حالياً   رد مع اقتباس
قديم 05-01-2008, 07:09 PM   #6
Q_8
متداول جديد
 
تاريخ التسجيل: Dec 2006
المشاركات: 50

 
افتراضي

اخوي هالمعادلة للميتاستوك؟؟

واذا كانت للميتاستوك ما استقبلها عندي

وين المرفقات ؟؟؟
Q_8 غير متواجد حالياً   رد مع اقتباس
قديم 05-11-2020, 12:30 PM   #7
عيدالمالكي
متداول جديد
 
تاريخ التسجيل: Nov 2005
المشاركات: 1

 
افتراضي

خوي هالمعادلة للميتاستوك؟؟

واذا كانت للميتاستوك ما استقبلها عندي

وين المرفقات ؟؟؟
عيدالمالكي غير متواجد حالياً   رد مع اقتباس
قديم 04-08-2022, 05:44 PM   #8
alshamelalshame
متداول جديد
 
تاريخ التسجيل: Jun 2008
المشاركات: 5

 
افتراضي

السلام عليكم
المعادله لبرنامج الويلث لاب
alshamelalshame غير متواجد حالياً   رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)

أدوات الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع


الساعة الآن 06:46 AM. حسب توقيت مدينه الرياض

Powered by vBulletin® Version 3.8.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.