المضارب العربي

الوصف
الرئيسيه فتح حساب فوركس نتائج توصيات الفوركس توصيات العملات نماذج العملاء التقويم الاقتصادي اتصل بنا




العودة   منتدى المضارب العربي لتجارة العملات الفوركس > منتديات الفوركس وتجارة العملات > شركات الفوركس والاستفسارات العامة Forex Brokers
شركات الفوركس والاستفسارات العامة Forex Brokers يتناول شركات الفوركس ويهتم في طرح مشاكل الفوركس والعملات

إضافة رد
 
أدوات الموضوع
قديم 2008 - 02 - 14, 16:35 رقم المشاركة : 1
الحيوي
مضارب جديد

الصورة الرمزية الحيوي
 
تاريخ التسجيل : 7 - 2 - 2008
رقم العضوية : 1757
المواضيع : 1
مجموع المشاركات : 39
بمعدل : 0.01 مشاركة في اليوم
نقاط التقييم : 10
معدل تقييم المستوى : الحيوي في بداية طريقه الى الشهره
آخر تواجد : 2016 - 09 - 02 (10:13)

معلومات إضافية
الجنس: الجنس: female
علم الدولة : علم الدولة Saudi Arabia
المزاج : المزاج angry
الحيوي غير متواجد حالياً

افتراضي ربط مؤشر

السلام عليكم ورحمة الله وبركاته

انا اهنيكم على هذا الصرح الكبير

انا عندي مؤشر على برنامج الوثلب

اقدر اركب على العملات

مع العلم ان اتداول عن طريق كرون فروكس







رد مع اقتباس
قديم 2008 - 02 - 15, 00:21 رقم المشاركة : 2
CASHU
أبو محمد
مؤسس المضارب العربي

الصورة الرمزية CASHU
 
تاريخ التسجيل : 20 - 1 - 2007
رقم العضوية : 1
المواضيع : 891
مجموع المشاركات : 9,038
بمعدل : 2.50 مشاركة في اليوم
العمر : 46
نقاط التقييم : 1100
معدل تقييم المستوى : CASHU محترفCASHU محترفCASHU محترفCASHU محترفCASHU محترفCASHU محترفCASHU محترفCASHU محترفCASHU محترف
آخر تواجد : اليوم (13:34)

معلومات إضافية
الجنس: الجنس: male
علم الدولة : علم الدولة Palestine
المزاج : المزاج rayg
CASHU غير متواجد حالياً

افتراضي رد: ربط مؤشر

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


انا اهنيكم على هذا الصرح الكبير

انا عندي مؤشر على برنامج الوثلب

اقدر اركب على العملات


مع العلم ان اتداول عن طريق كرون فروكس

اهلا بك
تقدر تنزل المؤشر حتى نعرف هل يمكن ذلك ام لا .
تحياتي



رد مع اقتباس
قديم 2008 - 02 - 15, 03:40 رقم المشاركة : 3
الحيوي
مضارب جديد

الصورة الرمزية الحيوي
 
تاريخ التسجيل : 7 - 2 - 2008
رقم العضوية : 1757
المواضيع : 1
مجموع المشاركات : 39
بمعدل : 0.01 مشاركة في اليوم
نقاط التقييم : 10
معدل تقييم المستوى : الحيوي في بداية طريقه الى الشهره
آخر تواجد : 2016 - 09 - 02 (10:13)

معلومات إضافية
الجنس: الجنس: female
علم الدولة : علم الدولة Saudi Arabia
المزاج : المزاج angry
الحيوي غير متواجد حالياً

افتراضي رد: ربط مؤشر

يعطيك الف الف عافيه اخوي

وهذا المؤشر

var
Bar
: integer;
// Put Trading System Vars Here ---
var
iRSISeries, iStochDSeries, iRSIStochSeries, iPriceOscSeries,
iMA19, iMA39, iMA30, iCountSeries,
iCount
: integer;
// End of Trading System Vars ---
// Integers required by ST Loop ---
var
StartScan, StopScan,
P1, P2, P3, P4, P5, P6, P7, P1Max,
Start,
SmoothedEquity
: integer;
// Floats required by ST Loop ---
var
EquityFinal, EquityMax,
tempf
: float;
// Booleans required by ST Loop ---
var
FinalRun
: boolean;
// Limits Of Our Self Tuning Loop ---
StartScan := 3;
StopScan := 13;
// Reset our Vars ---
EquityMax := 0.0 ;
P1Max := 0 ;
FinalRun := False ;
// Start of our self tuning loop ---
for P1 := StartScan to StopScan do
begin
//If we are at the end of the run, set up for the best Equity Results ---
if ( P1 = StopScan )
then
begin
FinalRun := True ;
P1 := P1Max ;
end;

// Calculate our current tuning Paramaters ---
P2 := trunc( P1 * 14/5 ) ;
P3 := trunc( P1 * 21/5 ) ;
P4 := trunc( P1 * 13/5 ) ;
P5 := trunc( P1 * 19/5 ) ;
P6 := trunc( P1 * 30/5 ) ;
P7 := trunc( P1 * 39/5 ) ;
// starting bar to fill longest period indicator ---
Start := P7 + 1 ;
// Uncomment For Debug ---
//Print('P1:' + IntToStr(P1) + ' P2:' + IntToStr(P2) + ' P3:' + IntToStr(P3) + ' Start:' + IntToStr(Start) );
//-------------------------------------------
//Build our Working Indicator Series Here ---
//-------------------------------------------
iCountSeries := CreateSeries();
iRSISeries := RSISeries(#Close, P2 );
iStochDSeries := StochDSeries( P3 , P4 );
iMA19 := SMASeries( #Close, P5 );
iMA30 := SMASeries( #Close, P6 );
iMA39 := SMASeries( #Close, P7 );
iRSIStochSeries := DivideSeriesValue(AddSeries(iRSISeries, iStochDSeries),2);
iPriceOscSeries := SubtractSeries(iMA19, iMA39);

for Bar := Start to BarCount -1 do
begin
iCount := 0;
if @iRSIStochSeries[Bar] >= 50 then
Inc(iCount);
if @iRSIStochSeries[Bar] >= 65 then
Inc(iCount);
if @iPriceOscSeries[Bar] > 0 then
Inc(iCount);
if (@iPriceOscSeries[Bar] - @iPriceOscSeries[Bar-6]) > 0 then
Inc(iCount);
if (@iRSIStochSeries[Bar] - @iRSIStochSeries[Bar-6]) > 0 then
Inc(iCount);
if PriceClose(Bar) > @iMA30[Bar] then
Inc(iCount);
@iCountSeries[Bar] := iCount;
if iCount <= 0.5 then
SetSeriesBarColor(Bar, iCountSeries, #red );
if (iCount > 0.5) and (iCount < 2) then
SetSeriesBarColor(Bar, iCountSeries, #black );
if (iCount >= 2) and (iCount < 3) then
SetSeriesBarColor(Bar, iCountSeries, #Fuchsia );
if (iCount >= 3) and (iCount < 4.5) then
SetSeriesBarColor(Bar, iCountSeries, #blue );
if (iCount >= 4.5) and (iCount <= 5) then
SetSeriesBarColor(Bar, iCountSeries, #lime );
if iCount > 5 then
SetSeriesBarColor(Bar, iCountSeries, #Green );
end;
//-------------------------------------------
//Build our Trading Loop Here ---
//-------------------------------------------
for Bar := Start to BarCount - 1 do
begin
if not LastPositionActive then
{ Entry Rules }
begin
if @iCountSeries[Bar] >= 5 then
BuyAtMarket(Bar+1, 'Turtle Buy');
end
else
{ Exit Rules }
begin
if @iRSIStochSeries[Bar] < 65 then
if @iCountSeries[Bar] <= 3 then
SellAtMarket(Bar+1, LastPosition, 'Turtle Sell');
end;
end; //Trading Loop ---

// smooth the equity curve for the last 30 samples ---
SmoothedEquity := CreateSeries;
tempf := 0.0 ;

//Sum up the Equity ---
For Bar := Start to BarCount -1 do
tempf := tempf + Equity(Bar);
// ave equity of the last 30 bars ---
EquityFinal := tempf / 30 ;
// Uncomment For Debug ---
//ShowMessage('Test for P1 '+IntToStr(P1)+' Equity = '+ FormatFloat( '#,##0.00', EquityFinal ) );
// See if we have a new max equity ---
if ( EquityFinal > EquityMax )
then
begin
EquityMax := EquityFinal ;
P1Max := P1 ;
end;
// If this is the final run, break the loop so our Indicators can print ---
if (FinalRun )then break ;
// Reset the Position and try again ---
ClearPositions ;
end; //P1 Loop ---
// Uncomment For Debug ---
Print('P1Max:' + IntToStr(P1Max) + ' EquityMax:' + FloatToStr(EquityMax));
// Display All Indicators Here ---
hidevolume;
var RSIPane: integer;
RSIPane := CreatePane(50, true, true );
PlotSeries( iRSISeries, RSIPane, 900, #Thick );
DrawLabel( 'RSI(Close,'+IntToStr(P2)+')', RSIPane );
PlotSeries( iStochDSeries, RSIPane, 009, #Thick );
DrawLabel( 'StochD('+IntToStr(P3)+','+IntToStr(P4)+')', RSIPane );
var RSIStochPane: integer;
RSIStochPane := CreatePane(50, true, true );
PlotSeries( iRSIStochSeries, RSIStochPane, 900, #Thick );
DrawLabel( 'RSI/Stoc', RSIStochPane );
PlotSeries( iMA19, 0, 050, #Thin );
DrawLabel( 'SMA(Close,'+IntToStr(P5)+')', 0 );
PlotSeries( iMA39, 0, 009, #Thin );
DrawLabel( 'SMA(Close,'+IntToStr(P7)+')', 0 );
PlotSeries( iMA30, 0, 900, #thick );
DrawLabel( 'SMA(Close,'+IntToStr(P6)+')', 0 );
var CountPane: integer;
CountPane := CreatePane(100, false, true );
PlotSeries( iCountSeries, CountPane, 900, #ThickHist );
DrawLabel( 'Turtle Count Green-Buy / Blue-Hold / Red-Sell', CountPane );
SetPaneMinMax(CountPane, 0, 7);
DrawLabel( '**** Tuning Variable P1 = '+IntToStr(P1), CountPane );
DrawLabel( ' ' , CountPane);
// warn that tune chose the start value
if ( P1 = StartScan ) then
begin
DrawLabel( 'WARNING P1 = the starting scan value - Not a Good Choice! ' , CountPane );
end;
if ( P1 = StopScan ) then
begin
DrawLabel( 'WARNING P1 = the stop scan value ' , CountPane );
end;



رد مع اقتباس
قديم 2008 - 02 - 15, 16:39 رقم المشاركة : 4
CASHU
أبو محمد
مؤسس المضارب العربي

الصورة الرمزية CASHU
 
تاريخ التسجيل : 20 - 1 - 2007
رقم العضوية : 1
المواضيع : 891
مجموع المشاركات : 9,038
بمعدل : 2.50 مشاركة في اليوم
العمر : 46
نقاط التقييم : 1100
معدل تقييم المستوى : CASHU محترفCASHU محترفCASHU محترفCASHU محترفCASHU محترفCASHU محترفCASHU محترفCASHU محترفCASHU محترف
آخر تواجد : اليوم (13:34)

معلومات إضافية
الجنس: الجنس: male
علم الدولة : علم الدولة Palestine
المزاج : المزاج rayg
CASHU غير متواجد حالياً

افتراضي رد: ربط مؤشر

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

وهذا المؤشر

var
Bar
: integer;
// Put Trading System Vars Here ---
var
iRSISeries, iStochDSeries, iRSIStochSeries, iPriceOscSeries,
iMA19, iMA39, iMA30, iCountSeries,
iCount
: integer;
// End of Trading System Vars ---
// Integers required by ST Loop ---
var
StartScan, StopScan,
P1, P2, P3, P4, P5, P6, P7, P1Max,
Start,
SmoothedEquity
: integer;
// Floats required by ST Loop ---
var
EquityFinal, EquityMax,
tempf
: float;
// Booleans required by ST Loop ---
var
FinalRun
: boolean;
// Limits Of Our Self Tuning Loop ---
StartScan := 3;
StopScan := 13;
// Reset our Vars ---
EquityMax := 0.0 ;
P1Max := 0 ;
FinalRun := False ;
// Start of our self tuning loop ---
for P1 := StartScan to StopScan do
begin
//If we are at the end of the run, set up for the best Equity Results ---
if ( P1 = StopScan )
then
begin
FinalRun := True ;
P1 := P1Max ;
end;

// Calculate our current tuning Paramaters ---
P2 := trunc( P1 * 14/5 ) ;
P3 := trunc( P1 * 21/5 ) ;
P4 := trunc( P1 * 13/5 ) ;
P5 := trunc( P1 * 19/5 ) ;
P6 := trunc( P1 * 30/5 ) ;
P7 := trunc( P1 * 39/5 ) ;
// starting bar to fill longest period indicator ---
Start := P7 + 1 ;
// Uncomment For Debug ---
//Print('P1:' + IntToStr(P1) + ' P2:' + IntToStr(P2) + ' P3:' + IntToStr(P3) + ' Start:' + IntToStr(Start) );
//-------------------------------------------
//Build our Working Indicator Series Here ---
//-------------------------------------------
iCountSeries := CreateSeries();
iRSISeries := RSISeries(#Close, P2 );
iStochDSeries := StochDSeries( P3 , P4 );
iMA19 := SMASeries( #Close, P5 );
iMA30 := SMASeries( #Close, P6 );
iMA39 := SMASeries( #Close, P7 );
iRSIStochSeries := DivideSeriesValue(AddSeries(iRSISeries, iStochDSeries),2);
iPriceOscSeries := SubtractSeries(iMA19, iMA39);

for Bar := Start to BarCount -1 do
begin
iCount := 0;
if @iRSIStochSeries[Bar] >= 50 then
Inc(iCount);
if @iRSIStochSeries[Bar] >= 65 then
Inc(iCount);
if @iPriceOscSeries[Bar] > 0 then
Inc(iCount);
if (@iPriceOscSeries[Bar] - @iPriceOscSeries[Bar-6]) > 0 then
Inc(iCount);
if (@iRSIStochSeries[Bar] - @iRSIStochSeries[Bar-6]) > 0 then
Inc(iCount);
if PriceClose(Bar) > @iMA30[Bar] then
Inc(iCount);
@iCountSeries[Bar] := iCount;
if iCount <= 0.5 then
SetSeriesBarColor(Bar, iCountSeries, #red );
if (iCount > 0.5) and (iCount < 2) then
SetSeriesBarColor(Bar, iCountSeries, #black );
if (iCount >= 2) and (iCount < 3) then
SetSeriesBarColor(Bar, iCountSeries, #Fuchsia );
if (iCount >= 3) and (iCount < 4.5) then
SetSeriesBarColor(Bar, iCountSeries, #blue );
if (iCount >= 4.5) and (iCount <= 5) then
SetSeriesBarColor(Bar, iCountSeries, #lime );
if iCount > 5 then
SetSeriesBarColor(Bar, iCountSeries, #Green );
end;
//-------------------------------------------
//Build our Trading Loop Here ---
//-------------------------------------------
for Bar := Start to BarCount - 1 do
begin
if not LastPositionActive then
{ Entry Rules }
begin
if @iCountSeries[Bar] >= 5 then
BuyAtMarket(Bar+1, 'Turtle Buy');
end
else
{ Exit Rules }
begin
if @iRSIStochSeries[Bar] < 65 then
if @iCountSeries[Bar] <= 3 then
SellAtMarket(Bar+1, LastPosition, 'Turtle Sell');
end;
end; //Trading Loop ---

// smooth the equity curve for the last 30 samples ---
SmoothedEquity := CreateSeries;
tempf := 0.0 ;

//Sum up the Equity ---
For Bar := Start to BarCount -1 do
tempf := tempf + Equity(Bar);
// ave equity of the last 30 bars ---
EquityFinal := tempf / 30 ;
// Uncomment For Debug ---
//ShowMessage('Test for P1 '+IntToStr(P1)+' Equity = '+ FormatFloat( '#,##0.00', EquityFinal ) );
// See if we have a new max equity ---
if ( EquityFinal > EquityMax )
then
begin
EquityMax := EquityFinal ;
P1Max := P1 ;
end;
// If this is the final run, break the loop so our Indicators can print ---
if (FinalRun )then break ;
// Reset the Position and try again ---
ClearPositions ;
end; //P1 Loop ---
// Uncomment For Debug ---
Print('P1Max:' + IntToStr(P1Max) + ' EquityMax:' + FloatToStr(EquityMax));
// Display All Indicators Here ---
hidevolume;
var RSIPane: integer;
RSIPane := CreatePane(50, true, true );
PlotSeries( iRSISeries, RSIPane, 900, #Thick );
DrawLabel( 'RSI(Close,'+IntToStr(P2)+')', RSIPane );
PlotSeries( iStochDSeries, RSIPane, 009, #Thick );
DrawLabel( 'StochD('+IntToStr(P3)+','+IntToStr(P4)+')', RSIPane );
var RSIStochPane: integer;
RSIStochPane := CreatePane(50, true, true );
PlotSeries( iRSIStochSeries, RSIStochPane, 900, #Thick );
DrawLabel( 'RSI/Stoc', RSIStochPane );
PlotSeries( iMA19, 0, 050, #Thin );
DrawLabel( 'SMA(Close,'+IntToStr(P5)+')', 0 );
PlotSeries( iMA39, 0, 009, #Thin );
DrawLabel( 'SMA(Close,'+IntToStr(P7)+')', 0 );
PlotSeries( iMA30, 0, 900, #thick );
DrawLabel( 'SMA(Close,'+IntToStr(P6)+')', 0 );
var CountPane: integer;
CountPane := CreatePane(100, false, true );
PlotSeries( iCountSeries, CountPane, 900, #ThickHist );
DrawLabel( 'Turtle Count Green-Buy / Blue-Hold / Red-Sell', CountPane );
SetPaneMinMax(CountPane, 0, 7);
DrawLabel( '**** Tuning Variable P1 = '+IntToStr(P1), CountPane );
DrawLabel( ' ' , CountPane);
// warn that tune chose the start value
if ( P1 = StartScan ) then
begin
DrawLabel( 'WARNING P1 = the starting scan value - Not a Good Choice! ' , CountPane );
end;
if ( P1 = StopScan ) then
begin
DrawLabel( 'WARNING P1 = the stop scan value ' , CountPane );
end;

اخي الكريم

نزل المؤشر نفسه



رد مع اقتباس
قديم 2008 - 02 - 15, 21:10 رقم المشاركة : 5
الحيوي
مضارب جديد

الصورة الرمزية الحيوي
 
تاريخ التسجيل : 7 - 2 - 2008
رقم العضوية : 1757
المواضيع : 1
مجموع المشاركات : 39
بمعدل : 0.01 مشاركة في اليوم
نقاط التقييم : 10
معدل تقييم المستوى : الحيوي في بداية طريقه الى الشهره
آخر تواجد : 2016 - 09 - 02 (10:13)

معلومات إضافية
الجنس: الجنس: female
علم الدولة : علم الدولة Saudi Arabia
المزاج : المزاج angry
الحيوي غير متواجد حالياً

افتراضي رد: ربط مؤشر

اقتباس
 مشاهدة المشاركة المشاركة الأصلية كتبت بواسطة CASHU
اخي الكريم

نزل المؤشر نفسه

اخوي

مافهمتك
هذا المؤشر في صيغة txt



رد مع اقتباس
قديم 2008 - 02 - 15, 21:27 رقم المشاركة : 6
الحيوي
مضارب جديد

الصورة الرمزية الحيوي
 
تاريخ التسجيل : 7 - 2 - 2008
رقم العضوية : 1757
المواضيع : 1
مجموع المشاركات : 39
بمعدل : 0.01 مشاركة في اليوم
نقاط التقييم : 10
معدل تقييم المستوى : الحيوي في بداية طريقه الى الشهره
آخر تواجد : 2016 - 09 - 02 (10:13)

معلومات إضافية
الجنس: الجنس: female
علم الدولة : علم الدولة Saudi Arabia
المزاج : المزاج angry
الحيوي غير متواجد حالياً

افتراضي رد: ربط مؤشر

اخوي كيف انزله



رد مع اقتباس
إضافة رد

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

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

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

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

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
كلام كبير عن تحليل الاخبار amr-fx الفوركس للمبتدئين تعليم وشروحات 11 2013 - 07 - 26 07:34
[مؤشر] شرح شامل للمؤشرات بإختصار (اشاره البيع والشراء) خالد مصطفى المؤشرات واكسبيرتات المتاجرة في الفوركس 0 2011 - 10 - 05 21:08
شـــرح كــامـــل لاشـــارات معظــم المؤشـــرات بيـــع وشـــراء Maly الفوركس للمبتدئين تعليم وشروحات 9 2011 - 09 - 24 06:35
شرح عام عن أهم المؤشرات باختصار والتي يستفاد منها فى CASHU الفوركس للمبتدئين تعليم وشروحات 17 2011 - 07 - 06 21:51
شرح مختصر للمؤشرات Abu toleen المؤشرات واكسبيرتات المتاجرة في الفوركس 6 2010 - 11 - 17 22:55

كلمات البحث : بورصة العملات , اخبار الفوركس , العملات التعليمي , استراتيجيات الفوركس , توصيات فوركس, شركات الفوركس والوساطة


الساعة الآن 13:42 بتوقيت مسقط


Powered by vBulletin® Copyright ©2000 - 2016, Jelsoft Enterprises Ltd.
Ads Organizer 3.0.3 by Analytics - Distance Education