هوامير البورصة

11-07-2009, 07:17 AM

المشاركه #97

احمدسعيدفرج

عضو هوامير المميز

تاريخ التسجيل: Jul 2006

المشاركات: 307

جزاك الله خير

19-07-2009, 02:52 AM

المشاركه #99

الوزير

كاتب مميز

تاريخ التسجيل: Apr 2005

المشاركات: 1,023

مولي ممكن تشرحيلي كيف اترك الفراغ يمين الشارت
يعني ماتكون الشموع واصله الى يمين الصفحه
اتمنى انك فهمتي علي والف الف شكر

24-07-2009, 12:23 AM

المشاركه #100

M O L Y

خبيرة الويلث لاب

تاريخ التسجيل: May 2009

المشاركات: 850

اقتباس:

المشاركة الأصلية كتبت بواسطة ابوعبدالله35

جزاك الله خير

واياك يارب الف شكر على مرورك

24-07-2009, 12:23 AM

المشاركه #101

M O L Y

خبيرة الويلث لاب

تاريخ التسجيل: May 2009

المشاركات: 850

اقتباس:

المشاركة الأصلية كتبت بواسطة جماز السوق

بارك الله فيك

واياك يارب الف شكر على مرورك

24-07-2009, 12:25 AM

المشاركه #102

M O L Y

خبيرة الويلث لاب

تاريخ التسجيل: May 2009

المشاركات: 850

اقتباس:

المشاركة الأصلية كتبت بواسطة m0139

جزاك الله خير

واياك يارب
الف شكر على مرورك

24-07-2009, 12:26 AM

المشاركه #103

M O L Y

خبيرة الويلث لاب

تاريخ التسجيل: May 2009

المشاركات: 850

اقتباس:

المشاركة الأصلية كتبت بواسطة Xp8

يعطيك العافيه
موضوع يستحق التثبيت

يعافيك ربي
شاكرة لك مرورك

24-07-2009, 12:33 AM

المشاركه #104

M O L Y

خبيرة الويلث لاب

تاريخ التسجيل: May 2009

المشاركات: 850

اقتباس:

المشاركة الأصلية كتبت بواسطة abotlal 1000

اخت مولي هل يوجد لوليث لاب استخراج للنماذج الفنيه كالراس والكتفين والاعلام مثل برنامج cpFinder

اقتباس:

المشاركة الأصلية كتبت بواسطة abotlal 1000

شاكرا ومقدرا لك

افضل مؤشر للنماذج الفنية هو النيو ماستر وهو لا استخراج المثلثات والاوتاد
في مؤشرات خاصة بالراس والكتفين بس جربتها ما اعجبتني كلها زي مثلا هالمؤشر

type extrematyp = record
Tag: integer;
HL: boolean;
Wert: float;
bst: integer;
end;
var ext: array[0..10000] of extrematyp;
type skstyp = record
Tag: integer;
HL: boolean;
Wert: float;
zeitraum: integer;
end;
var sks: array[0..0] of skstyp;
var Bar, PeriodenFaktor, i, j, h, x, z, hs, T: integer;
var HiLo: boolean;
const MinPeriode = 10;
const MaxPeriodenfaktor = 5;

function oberewendeformation: boolean;
var avg1_5, avg2_4: float;
begin
avg1_5 := (ext[x+4].wert + ext[x].wert)/2;
avg2_4 := (ext[x+3].wert + ext[x+1].wert)/2;
Result :=
(ext[x].HL)
and (ext[x+2].wert > ext[x].wert)
and (ext[x+2].wert > ext[x+4].wert)
and (Abs(Avg1_5 - ext[x].wert)/Avg1_5 < 0.015)
and (Abs(Avg1_5 - ext[x+4].wert)/Avg1_5 < 0.015)
and (Abs(Avg2_4 - ext[x+1].wert)/Avg2_4 < 0.015)
and (Abs(Avg2_4 - ext[x+3].wert)/Avg2_4 < 0.015)
end;
function unterewendeformation: boolean;
var avg1_5, avg2_4: float;
begin
avg1_5 := (ext[x+4].wert + ext[x].wert)/2;
avg2_4 := (ext[x+3].wert + ext[x+1].wert)/2;
Result :=
(not ext[x].HL)
and (ext[x+2].wert < ext[x].wert)
and (ext[x+2].wert < ext[x+4].wert)
and (Abs(Avg1_5 - ext[x].wert)/Avg1_5 < 0.015)
and (Abs(Avg1_5 - ext[x+4].wert)/Avg1_5 < 0.015)
and (Abs(Avg2_4 - ext[x+1].wert)/Avg2_4 < 0.015)
and (Abs(Avg2_4 - ext[x+3].wert)/Avg2_4 < 0.015)
end;
for PeriodenFaktor := 1 to MaxPeriodenfaktor do
begin
z := i + 1;
T := MinPeriode * PeriodenFaktor;
HiLo := PriceAverage(50) > SMA(50, #Average, 50);
for Bar := T to Barcount-1 do
begin
if HiLo then
begin
if PriceHigh(Bar-T) = Highest(Bar, #High, T*2) then
begin
DrawCircle(T, 0, Bar-T, PriceHigh(Bar-T), #Red, #Thin);
Inc(i);
ext[i].Tag := Bar-T;
ext[i].Wert := PriceHigh(Bar-T);
ext[i].HL := true;
ext[i].bst := Bar;
HiLo := false;
end;
end
else
begin
if PriceLow(Bar-T) = Lowest(Bar, #Low, T*2) then
begin
DrawCircle(T, 0, Bar-T, PriceLow(Bar-T), #Green, #Thin);
Inc(i);
ext[i].Tag := Bar-T;
ext[i].Wert := PriceLow(Bar-T);
ext[i].HL := false;
ext[i].bst := Bar;
HiLo := true;
end;
end;
end;
if i+1-z > 4 then
for x := z to i-4 do
if oberewendeformation or unterewendeformation then
begin
Inc(hs);
DrawCircle(8, 0, ext[x].tag, ext[x].wert, #Red, #Thin);
DrawCircle(8, 0, ext[x+2].tag, ext[x+2].wert, #Red, #Thin);
DrawCircle(8, 0, ext[x+4].tag, ext[x+4].wert, #Red, #Thin);
DrawLine(ext[x].tag, ext[x].wert, ext[x+2].tag, ext[x+2].wert, 0, #Blue, #Thick);
DrawLine(ext[x+2].tag, ext[x+2].wert, ext[x+4].tag, ext[x+4].wert, 0, #Blue, #Thick);
SKS[hs].tag := ext[x+4].bst;
SKS[hs].zeitraum := PeriodenFaktor;
if oberewendeformation then
SKS[hs].HL := true
else
SKS[hs].HL := false;
end;
end;
if hs = 0 then exit;
procedure Sortiere(lo, hi: integer);
begin
i := lo;
j := hi;
x := SKS[(lo+hi)/2].tag;
while i <= j do
begin
while SKS[i].tag < x do Inc(i);
while SKS[j].tag > x do Dec(j);
if (i<=j) then
begin
h := SKS[i].tag;
z := SKS[i].zeitraum;
HiLo := SKS[i].HL;
SKS[i].tag := SKS[j].tag;
SKS[i].HL := SKS[j].HL;
SKS[i].zeitraum := SKS[j].zeitraum;
SKS[j].tag := h;
SKS[j].HL := HiLo;
SKS[j].zeitraum := z;
Inc(i); Dec(j);
end;
end;
if lo < j then Sortiere(lo, j);
if i < hi then Sortiere(i, hi);
end;
Sortiere(1, hs);
x := 1;

for Bar := SKS[1].tag to BarCount-1 do
begin
if SKS[x].tag = Bar then
begin
if SKS[x].HL then
ShortAtMarket(Bar+1, InttoStr(SKS[x].zeitraum))
else
BuyAtMarket(Bar+1, InttoStr(SKS[x].zeitraum));
SetPositionData(LastPosition, SKS[x].zeitraum);
Inc(x);
end;
if ActivePositionCount > 0 then
begin
for z := 0 to PositionCount-1 do
begin
if PositionLong(z) then
if not SellAtLimit(Bar+1, PositionEntryPrice(z)*(1+(0.05*GetPositionData(z))), z, '') then
if (Bar+1 - PositionEntryBar(z)) > (GetPositionData(z)*2) then
SellAtClose(Bar+1, z, '');
if PositionShort(z) then
if not CoverAtLimit(Bar+1, PositionEntryPrice(z)*(1-(0.05*GetPositionData(z))), z, '') then
if (Bar+1 - PositionEntryBar(z)) > (GetPositionData(z)*2) then
CoverAtClose(Bar+1, z, '');
end;
end
else
if x > hs then exit;
end;

وهذا
var Bar, U, O, i, j, k, x, Counter, Last, LastDate: integer;
var tief, hoch: array[0..0] of integer;
var RecentHS: boolean = false;
function UpperHS: boolean;
begin
Result :=
((PriceHigh(hoch[k]) < PriceHigh(hoch[k+1])) and (PriceHigh(hoch[k+1]) > PriceHigh(hoch[k+2])))
and ((Abs(PriceHigh(hoch[k]) - PriceHigh(hoch[k+2]))) < (PriceHigh(hoch[k+1]) - PriceHigh(hoch[k])))
and ((Abs(PriceHigh(hoch[k]) - PriceHigh(hoch[k+2]))) < (PriceHigh(hoch[k+1]) - PriceHigh(hoch[k+2])));
end;
function LowerHS: boolean;
begin
Result :=
((PriceLow(tief[k]) > PriceLow(tief[k+1])) and (PriceLow(tief[k+1]) < PriceLow(tief[k+2])))
and ((Abs(PriceLow(tief[k]) - PriceLow(tief[k+2]))) < (PriceLow(tief[k]) - PriceLow(tief[k+1])))
and ((Abs(PriceLow(tief[k]) - PriceLow(tief[k+2]))) < (PriceLow(tief[k+2]) - PriceLow(tief[k+1])));
end;
for x := 1 to 15 do
begin
U := MultiplySeriesValue(WMASeries(#AverageC, 10*x), 0.9);
O := MultiplySeriesValue(WMASeries(#AverageC, 10*x), 1.1);
Last := 0;
i := 1;
j := 1;
for Bar := 10*x to BarCount-1 do
begin
if U[Bar-3] = Lowest(Bar, U, 7*x) then
begin
tief[i] := LowestBar(Bar, #Low, 15*x);
Inc(i);
end;
if O[Bar-3] = Highest(Bar, O, 7*x) then
begin
hoch[j] := HighestBar(Bar, #High, 15*x);
Inc(j);
end;
end;
if i > 3 then
begin
for k := 1 to i-3 do
begin
if LowerHS then
begin
Last := tief[k+2];
Inc(Counter);
DrawLine(tief[k], PriceLow(tief[k]), tief[k+1], PriceLow(tief[k+1]), 0, #Green, #Thin);
DrawLine(tief[k+1], PriceLow(tief[k+1]), tief[k+2], PriceLow(tief[k+2]), 0, #Green, #Thin);
end;
end;
if (BarCount-Last < 10*x) then
begin
RecentHS := true;
if Last > LastDate then LastDate := Last;
end;
end;
if j > 3 then
begin
for k := 1 to j-3 do
begin
if UpperHS then
begin
Last := hoch[k+2];
Inc(Counter);
DrawLine(hoch[k], PriceHigh(hoch[k]), hoch[k+1], PriceHigh(hoch[k+1]), 0, #Red, #Thin);
DrawLine(hoch[k+1], PriceHigh(hoch[k+1]), hoch[k+2], PriceHigh(hoch[k+2]), 0, #Red, #Thin);
end;
end;
if (BarCount-Last < 10*x) then
begin
RecentHS := true;
if Last > LastDate then LastDate := Last;
end;
end;
end;
if RecentHS then AddScanColumnStr('Head & Shoulder', DatetoStr(GetDate(LastDate)));
DrawLabel(InttoStr(Counter)+' possible Head & Shoulders detected', 0);

بالنسبة للاعلام مامر علي مؤشر يستخرجها
اتمنى اكون افدتك

24-07-2009, 12:35 AM

المشاركه #105

M O L Y

خبيرة الويلث لاب

تاريخ التسجيل: May 2009

المشاركات: 850

اقتباس:

المشاركة الأصلية كتبت بواسطة احمدسعيدفرج

جزاك الله خير

واياك يارب
الف شكر على مرورك

24-07-2009, 12:38 AM

المشاركه #106

M O L Y

خبيرة الويلث لاب

تاريخ التسجيل: May 2009

المشاركات: 850

اقتباس:

المشاركة الأصلية كتبت بواسطة الوزير

مولي ممكن تشرحيلي كيف اترك الفراغ يمين الشارت
يعني ماتكون الشموع واصله الى يمين الصفحه
اتمنى انك فهمتي علي والف الف شكر

فاهمتك اكيد بس هالميزة مو موجودة في البرنامج للاسف

24-07-2009, 04:22 PM

المشاركه #107

جوري جدة

محلل فني

تاريخ التسجيل: Jun 2007

المشاركات: 7,560

اقتباس:

المشاركة الأصلية كتبت بواسطة abotlal 1000

اخت مولي هل يوجد لوليث لاب استخراج للنماذج الفنيه كالراس والكتفين والاعلام مثل برنامج cpFinder

شاكرا ومقدرا لك

كني وقعت على صيدة دسمة :5:

عزيزتي مولي
أمووووت وأتعرف على هالبرامج إللي تستخرج النماذج
ممكن رابط البرنامج ياليت فيه شرح بالصور
الله يسعد قلبك يارب
بعد ياليتي تعطيني رأيك بالبرامج أو المؤشرات
إللي ترسملك النماذج أو تعطيكي إياها جاهزه
لأنه عن نفسي لا أثق إلا برسمة يدي
بس إذا فيه برامج أو مؤشرات مصداقيتها عاليه ليش لا
يصير نوفر جهد ووقت ونحافظ عالنظر بعد :13:

24-07-2009, 09:04 PM

المشاركه #108

M O L Y

خبيرة الويلث لاب

تاريخ التسجيل: May 2009

المشاركات: 850

اقتباس:

المشاركة الأصلية كتبت بواسطة جوري جدة

كني وقعت على صيدة دسمة :5:

عزيزتي مولي
أمووووت وأتعرف على هالبرامج إللي تستخرج النماذج
ممكن رابط البرنامج ياليت فيه شرح بالصور
الله يسعد قلبك يارب
بعد ياليتي تعطيني رأيك بالبرامج أو المؤشرات
إللي ترسملك النماذج أو تعطيكي إياها جاهزه
لأنه عن نفسي لا أثق إلا برسمة يدي
بس إذا فيه برامج أو مؤشرات مصداقيتها عاليه ليش لا
يصير نوفر جهد ووقت ونحافظ عالنظر بعد :13:

لي عودة اختي الغالية جوري بإذن الله

أدوات الموضوع
مشاهدة صفحة طباعة الموضوع أرسل هذا الموضوع إلى صديق

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة لا تستطيع الرد على المواضيع لا تستطيع إرفاق ملفات لا تستطيع تعديل مشاركاتك BB code is متاحة الابتسامات متاحة كود [IMG] متاحة كود HTML معطلة قوانين المنتدى

تنصيب -- خصائص -- مؤشرات -- لبرنامج -- Wealth-Lab Pro --

عضو هوامير المميز

عضو هوامير المميز

كاتب مميز

خبيرة الويلث لاب

خبيرة الويلث لاب

خبيرة الويلث لاب

خبيرة الويلث لاب

خبيرة الويلث لاب

خبيرة الويلث لاب

خبيرة الويلث لاب

محلل فني

خبيرة الويلث لاب