قديم 27-05-2009, 01:01 AM
  المشاركه #49

عضو موقوف

تاريخ التسجيل: Jul 2006
المشاركات: 10,289
أبويعقوب غير متواجد حالياً  


ممكن المعادلات للـ Macd و Rsi منفردتين ..
ثم
كيف أدمج المعادلتان Macd و Rsi مع المعادلة التالية ؟


كود:
{#OptVar1 4;2;4;1}         //Optimierung fuer Days, hier 4 eingestellt
{#OptVar2 20;10;40;1}      //Optimierung fuer SMA, hier 20 eingestellt
var BBUp, BBLow: integer;
var Bar, p: integer;
BBUp := BBandUpperSeries( #Close, 20, 2 );
BBLow := BBandLowerSeries( #Close, 20, 2 );
PlotSeries( SMASeries( #Close, 20 ), 0, #Teal, #Thick );
PlotSeries( BBUp, 0, 559, #Thick );
PlotSeries( BBLow, 0, 559, #Thick );
InstallTimeBasedExit( #OptVar1 );
for Bar := 20 to BarCount - 1 do
begin
  ApplyAutoStops( Bar );
  if LastPositionActive then
  begin
    p := LastPosition;
    if CrossOver( Bar, #Close, BBUp ) or CrossUnder( Bar, #Close, SMASeries( #Close, #OptVar2 ) ) then
      begin
        SellAtMarket( Bar + 1, p, '' );
      end;
  end
  else
  begin
    if not LastPositionActive then
    begin
      if CrossOver( Bar, #Close, SMASeries( #Close, #OptVar2 ) ) then
      begin
        BuyAtMarket( Bar + 1, '0' );
      end;
    end;
  end;
end;
الله يبارك فيك ويوفقك ..



رد مع اقتباس
 
 

قديم 27-05-2009, 04:26 AM
  المشاركه #50

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

تاريخ التسجيل: May 2009
المشاركات: 850
M O L Y غير متواجد حالياً  

اقتباس:
المشاركة الأصلية كتبت بواسطة almusaffer
ابداع وجهد مميز يستحق الثناء بجداره بارك الله فيك
واياك يارب شاكرة لك مرورك الكريم



رد مع اقتباس
قديم 27-05-2009, 04:29 AM
  المشاركه #51

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

تاريخ التسجيل: May 2009
المشاركات: 850
M O L Y غير متواجد حالياً  

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

ممكن المعادلات للـ Macd و Rsi منفردتين ..
ثم

كيف أدمج المعادلتان Macd و Rsi مع المعادلة التالية ؟


كود:
{#OptVar1 4;2;4;1} //Optimierung fuer Days, hier 4 eingestellt
{#OptVar2 20;10;40;1} //Optimierung fuer SMA, hier 20 eingestellt var BBUp, BBLow: integer; var Bar, p: integer; BBUp := BBandUpperSeries( #Close, 20, 2 ); BBLow := BBandLowerSeries( #Close, 20, 2 ); PlotSeries( SMASeries( #Close, 20 ), 0, #Teal, #Thick ); PlotSeries( BBUp, 0, 559, #Thick ); PlotSeries( BBLow, 0, 559, #Thick ); InstallTimeBasedExit( #OptVar1 ); for Bar := 20 to BarCount - 1 do begin ApplyAutoStops( Bar ); if LastPositionActive then begin p := LastPosition; if CrossOver( Bar, #Close, BBUp ) or CrossUnder( Bar, #Close, SMASeries( #Close, #OptVar2 ) ) then begin SellAtMarket( Bar + 1, p, '' ); end; end else begin if not LastPositionActive then begin if CrossOver( Bar, #Close, SMASeries( #Close, #OptVar2 ) ) then begin BuyAtMarket( Bar + 1, '0' ); end; end; end; end;


الله يبارك فيك ويوفقك ..

المعادلة انت ناسخها غلط عموما تم تعديلها

هذي للماكد

مشاركة: Wealth-Lab Pro -- تنصيب -- خصائص -- مؤشرات

var Bar,MACDPane,MyMACD,MyMACDHisto ,nPrev ,n: integer;
{ Create a new chart pane to hold our MACD indicator }
MACDPane := CreatePane( 100, TRUE, TRUE );
{Develop the 12,26 MACD Oscillator}
MyMACD := CreateSeries();
for Bar := 26 to BarCount () - 1 do
SetSeriesValue ( Bar, MyMACD, EMA( Bar, #close, 12) - EMA( Bar, #close,26 ) );
{ Set the series for the MACD Histogram }
MyMACDHisto := CreateSeries();
for Bar := 26 to BarCount () - 1 do
SetSeriesValue ( Bar, MyMACDHisto, ((EMA( Bar, #close, 12) - EMA( Bar, #close,26 ))) - EMA(Bar, MyMACD, 9 )) ;
{Plot the 12,26 MACD}
PlotSeries( MyMACD, MACDPane, #red, #Thin ) ;
{Plot a 9 day MACD signal line}
PlotSeries( EMASeries( MyMACD, 9 ), MACDPane, #Blue, #dotted ) ;
{Plot the MACD Histogram}
PlotSeries( MyMACDHisto,MACDPane, 999, #ThickHist) ;
DrawText( ' maccd ',MACDPane, 4, 4, #white, 10 );
for Bar := 0 to BarCount - 1 do
begin
if (MyMACDHisto[bar] > 0) then
SetSeriesBarColor( Bar, MyMACDHisto, #green )
else if (MyMACDHisto[bar] < 0) then
SetSeriesBarColor( Bar, MyMACDHisto, #red );

end;





رد مع اقتباس
قديم 27-05-2009, 04:33 AM
  المشاركه #52

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

تاريخ التسجيل: May 2009
المشاركات: 850
M O L Y غير متواجد حالياً  

rsi
[IMG]http://www.************s.com/vb/uploaded/738_1206278974.gif[/IMG]
كود:
var BAR, APos, MyRSI, PaneRSI, Undervalued: Integer;
Undervalued := 0;
PaneRSI := CreatePane( 100, true, false );
SetPaneMinMax( PaneRSI, 0, 100 );
PlotSeries( RSISeries( #Close, 14 ), PaneRSI, #Navy, #Thick );
DrawHorzLine( 30, PaneRSI , #Silver, #Dotted );
DrawHorzLine( 70, PaneRSI , #Silver, #Dotted );
DrawHorzLine( 50, PaneRSI , #Gray, #Dotted );
for Bar := 15 to BarCount() - 1 do
begin
  if EMA( Bar, #Close, 4 ) - EMA( Bar-1, #Close, 4 ) < 0 then
    begin
      for aPos := 0 to PositionCount() - 1 do
        if PositionActive( aPos ) then
          SellAtMarket( Bar + 1, aPos, '');
    end;
  if RSI( Bar, #Close, 14 ) <= 30 then
  begin 
    Undervalued := 1;
  end;
  if (Undervalued = 1) then   
    if ( EMA (Bar, #Close, 5) -  EMA(Bar -1, #Close, 5) > 0) then
    begin 
      BuyAtMarket( Bar + 1,  '');
      Undervalued := 0;
    end;
end;



رد مع اقتباس
قديم 27-05-2009, 04:41 AM
  المشاركه #53

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

تاريخ التسجيل: May 2009
المشاركات: 850
M O L Y غير متواجد حالياً  

وهنا مدمجة

مشاركة: Wealth-Lab Pro -- تنصيب -- خصائص -- مؤشرات

{#OptVar1 4;2;4;1} //Optimierung fuer Days, hier 4 eingestellt
{#OptVar2 20;10;40;1} //Optimierung fuer SMA, hier 20 eingestellt
var BBUp, BBLow,MyMACD,MACDPane,MyMACDHisto: integer;
var Bar, p: integer;
BBUp := BBandUpperSeries( #Close, 20, 2 );
BBLow := BBandLowerSeries( #Close, 20, 2 );
PlotSeries( SMASeries( #Close, 20 ), 0, #Teal, #Thick );
PlotSeries( BBUp, 0, 559, #Thick );
PlotSeries( BBLow, 0, 559, #Thick );
InstallTimeBasedExit( #OptVar1 );
var xRSI: float;
var Pane1: integer; Pane1 := CreatePane( 80,true,false );
SetPaneMinMax( Pane1, 20, 80 );
DrawHorzLine( 50, Pane1, 009, #red );
DrawHorzLine( 30, Pane1, 090, #Dotted );
DrawHorzLine( 70, Pane1, 900, #Dotted );
PlotSeries( RSISeries( #Close, 14 ), Pane1, #yellow, #Thick );
xRSI := RSI( BarCount - 1, #Close, 14 );
DrawText( ' rsi' + FormatFloat( '#,##0.00', xRSI ), Pane1, 4, 4, #white, 8 );
for Bar := 20 to BarCount - 1 do
begin
ApplyAutoStops( Bar );
if LastPositionActive then
begin
p := LastPosition;
if CrossOver( Bar, #Close, BBUp ) or CrossUnder( Bar, #Close, SMASeries( #Close, #OptVar2 ) ) then
begin
SellAtMarket( Bar + 1, p, '' );
end;
end
else
begin
if not LastPositionActive then
begin
if CrossOver( Bar, #Close, SMASeries( #Close, #OptVar2 ) ) then
begin
BuyAtMarket( Bar + 1, '0' );
end;
end;
end;
end;
{ Create a new chart pane to hold our MACD indicator }
MACDPane := CreatePane( 100, TRUE, TRUE );
{Develop the 12,26 MACD Oscillator}
MyMACD := CreateSeries();
for Bar := 26 to BarCount () - 1 do
SetSeriesValue ( Bar, MyMACD, EMA( Bar, #close, 12) - EMA( Bar, #close,26 ) );
{ Set the series for the MACD Histogram }
MyMACDHisto := CreateSeries();
for Bar := 26 to BarCount () - 1 do
SetSeriesValue ( Bar, MyMACDHisto, ((EMA( Bar, #close, 12) - EMA( Bar, #close,26 ))) - EMA(Bar, MyMACD, 9 )) ;
{Plot the 12,26 MACD}
PlotSeries( MyMACD, MACDPane, #red, #Thin ) ;
{Plot a 9 day MACD signal line}
PlotSeries( EMASeries( MyMACD, 9 ), MACDPane, #Blue, #dotted ) ;
{Plot the MACD Histogram}
PlotSeries( MyMACDHisto,MACDPane, 999, #ThickHist) ;
DrawText( ' maccd ',MACDPane, 4, 4, #white, 10 );
for Bar := 0 to BarCount - 1 do
begin
if (MyMACDHisto[bar] > 0) then
SetSeriesBarColor( Bar, MyMACDHisto, #green )
else if (MyMACDHisto[bar] < 0) then
SetSeriesBarColor( Bar, MyMACDHisto, #red );

end;



رد مع اقتباس
قديم 27-05-2009, 09:42 AM
  المشاركه #54

ابو عبدالله

تاريخ التسجيل: Jul 2006
المشاركات: 27,742
البرمجة غير متواجد حالياً  

بارك الله فيك اود معادلة الماكد مع مؤشر السيولة او ما يسمى السيولة الذكية


رد مع اقتباس
قديم 27-05-2009, 06:14 PM
  المشاركه #55

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

تاريخ التسجيل: May 2009
المشاركات: 850
M O L Y غير متواجد حالياً  

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



رد مع اقتباس
قديم 27-05-2009, 08:05 PM
  المشاركه #56

عضو موقوف

تاريخ التسجيل: Jul 2006
المشاركات: 10,289
أبويعقوب غير متواجد حالياً  

جزاك الله خيرا
وأسأل الله أن يبارك في علمك وعملك
وأن يرزقك من واسع فضله



رد مع اقتباس
قديم 27-05-2009, 08:45 PM
  المشاركه #57

عضو موقوف

تاريخ التسجيل: Jul 2006
المشاركات: 10,289
أبويعقوب غير متواجد حالياً  

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

تفضل أخي البرمجة :

د.جو + ماكد + سيولة


كود:
{ The trading system below buys a position whenever MFI crosses below 25.
It sells all open positions as soon as MFI crosses above 75.
The ChartScript also colors MFI bars red and green to show oversold/overbought levels. }
var MFIPANE, BAR, P: integer;
MFIPane := CreatePane( 100, true, true );
PlotSeries( MFISeries( 14 ), MFIPane, #Blue, #Thick );
DrawLabel( 'MFI14 ', MFIPane );
for Bar := 3 to BarCount - 1 do
begin
DrawHorzLine( 80,mfiPane, #red, #thin );
DrawHorzLine( 50,mfiPane, #yellow, #dotted );
DrawHorzLine( 20,mfiPane, #green, #thin );
if CrossoverValue( Bar, MFISeries( 14 ), 20) then
BuyAtMarket( Bar + 1, '');
if CrossUnderValue( Bar, MFISeries( 14 ), 75) then
for P := 0 to PositionCount - 1 do
if PositionActive( P ) then
SellAtMarket( Bar + 1, P, 'MFI' );
if MFI( Bar, 14 ) < 20 then
SetSeriesBarColor( Bar, MFISeries( 14 ), #Green );
if MFI( Bar, 14 ) > 75 then
SetSeriesBarColor( Bar, MFISeries( 14 ), #red );
end;


var lrBar1, lrBar2: integer;
var lrPrice1, lrPrice2: float;
var sd: float;

lrBar1 := BarCount - 66;
lrBar2 := BarCount - 1;
lrPrice2 := LinearReg (BarCount - 1, #close, 65);
lrPrice1 := lrPrice2 - (65 * LinearRegSlope (BarCount - 1, #close, 65));

sd := stddev (BarCount - 1, #close, 65);

DrawLine (lrBar1,lrPrice1,lrBar2,lrPrice2,0, #Red, #solid);
DrawLine (lrBar1,lrPrice1+(1.5*sd),lrBar2,lrPrice2+(1.5*sd) ,0, #Blue, #solid);
DrawLine (lrBar1,lrPrice1-(1.5*sd),lrBar2,lrPrice2-(1.5*sd),0, #Blue, #solid);
DrawLine (lrBar1,lrPrice1+(3*sd),lrBar2,lrPrice2+(3*sd),0, #Green, #solid);
DrawLine (lrBar1,lrPrice1-(3*sd),lrBar2,lrPrice2-(3*sd),0, #Green, #solid);

print (floattostr (lrPrice2+(3*sd)));
print (floattostr (lrPrice2+(1.5*sd)));
print (floattostr (lrPrice2));
print (floattostr (lrPrice2-(1.5*sd)));
print (floattostr (lrPrice2-(3*sd)));

AnnotateChart ('LR', 0, BarCount - 66, lrPrice1, #blue, 12);
AnnotateChart ('1.5SD', 0, BarCount - 66, lrPrice1+(1.5*sd), #blue, 12);
AnnotateChart ('1.5SD', 0, BarCount - 66, lrPrice1-(1.5*sd), #blue, 12);
AnnotateChart ('3SD', 0, BarCount - 66, lrPrice1+(3*sd), #blue, 12);
AnnotateChart ('3SD', 0, BarCount - 66, lrPrice1-(3*sd), #blue, 12);


var MPane, MHist: integer;
MHist := SubtractSeries( MACDSeries( #Close ), EMASeries( MACDSeries( #Close ), 9 ) );
MPane := CreatePane( 100, true, true );
PlotSeries( MACDSeries( #Close ), MPane, #Maroon, #Thick );
PlotSeries( EMASeries( MACDSeries( #Close ), 9 ), MPane, 209, #Thin );
PlotSeries( MHist, MPane, 444, #Histogram );
DrawLabel( 'MACD and 9 period Signal Line', MPane );
Bar := BarCount - 1;
if CrossOverValue( Bar, MHist, 0 ) then
begin
  BuyAtMarket( Bar + 1, '' );
end;
مشاركة: Wealth-Lab Pro -- تنصيب -- خصائص -- مؤشرات



رد مع اقتباس
قديم 28-05-2009, 12:48 AM
  المشاركه #58

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

تاريخ التسجيل: May 2009
المشاركات: 850
M O L Y غير متواجد حالياً  

اقتباس:
المشاركة الأصلية كتبت بواسطة أبويعقوب
بعد إذن الأستاذة مولى
اقتباس:
المشاركة الأصلية كتبت بواسطة أبويعقوب



تفضل أخي البرمجة :

د.جو + ماكد + سيولة


كود:
{ The trading system below buys a position whenever MFI crosses below 25.
It sells all open positions as soon as MFI crosses above 75. The ChartScript also colors MFI bars red and green to show oversold/overbought levels. } var MFIPANE, BAR, P: integer; MFIPane := CreatePane( 100, true, true ); PlotSeries( MFISeries( 14 ), MFIPane, #Blue, #Thick ); DrawLabel( 'MFI14 ', MFIPane ); for Bar := 3 to BarCount - 1 do begin DrawHorzLine( 80,mfiPane, #red, #thin ); DrawHorzLine( 50,mfiPane, #yellow, #dotted ); DrawHorzLine( 20,mfiPane, #green, #thin ); if CrossoverValue( Bar, MFISeries( 14 ), 20) then BuyAtMarket( Bar + 1, ''); if CrossUnderValue( Bar, MFISeries( 14 ), 75) then for P := 0 to PositionCount - 1 do if PositionActive( P ) then SellAtMarket( Bar + 1, P, 'MFI' ); if MFI( Bar, 14 ) < 20 then SetSeriesBarColor( Bar, MFISeries( 14 ), #Green ); if MFI( Bar, 14 ) > 75 then SetSeriesBarColor( Bar, MFISeries( 14 ), #red ); end;
var lrBar1, lrBar2: integer; var lrPrice1, lrPrice2: float; var sd: float;
lrBar1 := BarCount - 66; lrBar2 := BarCount - 1; lrPrice2 := LinearReg (BarCount - 1, #close, 65); lrPrice1 := lrPrice2 - (65 * LinearRegSlope (BarCount - 1, #close, 65));
sd := stddev (BarCount - 1, #close, 65);
DrawLine (lrBar1,lrPrice1,lrBar2,lrPrice2,0, #Red, #solid); DrawLine (lrBar1,lrPrice1+(1.5*sd),lrBar2,lrPrice2+(1.5*sd) ,0, #Blue, #solid); DrawLine (lrBar1,lrPrice1-(1.5*sd),lrBar2,lrPrice2-(1.5*sd),0, #Blue, #solid); DrawLine (lrBar1,lrPrice1+(3*sd),lrBar2,lrPrice2+(3*sd),0, #Green, #solid); DrawLine (lrBar1,lrPrice1-(3*sd),lrBar2,lrPrice2-(3*sd),0, #Green, #solid);
print (floattostr (lrPrice2+(3*sd))); print (floattostr (lrPrice2+(1.5*sd))); print (floattostr (lrPrice2)); print (floattostr (lrPrice2-(1.5*sd))); print (floattostr (lrPrice2-(3*sd)));
AnnotateChart ('LR', 0, BarCount - 66, lrPrice1, #blue, 12); AnnotateChart ('1.5SD', 0, BarCount - 66, lrPrice1+(1.5*sd), #blue, 12); AnnotateChart ('1.5SD', 0, BarCount - 66, lrPrice1-(1.5*sd), #blue, 12); AnnotateChart ('3SD', 0, BarCount - 66, lrPrice1+(3*sd), #blue, 12); AnnotateChart ('3SD', 0, BarCount - 66, lrPrice1-(3*sd), #blue, 12);
var MPane, MHist: integer; MHist := SubtractSeries( MACDSeries( #Close ), EMASeries( MACDSeries( #Close ), 9 ) ); MPane := CreatePane( 100, true, true ); PlotSeries( MACDSeries( #Close ), MPane, #Maroon, #Thick ); PlotSeries( EMASeries( MACDSeries( #Close ), 9 ), MPane, 209, #Thin ); PlotSeries( MHist, MPane, 444, #Histogram ); DrawLabel( 'MACD and 9 period Signal Line', MPane ); Bar := BarCount - 1; if CrossOverValue( Bar, MHist, 0 ) then begin BuyAtMarket( Bar + 1, '' ); end;


مشاركة: Wealth-Lab Pro -- تنصيب -- خصائص -- مؤشرات

يعطيك الف عافية اخوي ابو يعقوب بس الي يقصده اخوي البرمجة مؤشر السيولة الذكية الي هو دمج بين مؤشرين الماكد والMFI وهذي صورة له على الايمي بروكر

مشاركة: Wealth-Lab Pro -- تنصيب -- خصائص -- مؤشرات




رد مع اقتباس
قديم 28-05-2009, 01:53 AM
  المشاركه #59

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

تاريخ التسجيل: May 2009
المشاركات: 850
M O L Y غير متواجد حالياً  

اقتباس:
المشاركة الأصلية كتبت بواسطة أبويعقوب
جزاك الله خيرا
وأسأل الله أن يبارك في علمك وعملك
وأن يرزقك من واسع فضله
اللهم آآمين واياك يارب



رد مع اقتباس
قديم 28-05-2009, 01:31 PM
  المشاركه #60

عضو موقوف

تاريخ التسجيل: Jul 2006
المشاركات: 10,289
أبويعقوب غير متواجد حالياً  

اقتباس:
المشاركة الأصلية كتبت بواسطة M O L Y
يعطيك الف عافية اخوي ابو يعقوب بس الي يقصده اخوي البرمجة مؤشر السيولة الذكية الي هو دمج بين مؤشرين الماكد والMFI وهذي صورة له على الايمي بروكر

مشاركة: Wealth-Lab Pro -- تنصيب -- خصائص -- مؤشرات

نفع الله بك ..
ظننت ،، المقصود به ، ولاّ ما تفوت عليك ـ ما شاء الله ـ
أجل بانتظار المعادلة أستاذة مولى



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


الكلمات الدلالية (Tags)
لبرنامج, مؤشرات, تنصيب, خصائص, pro, wealthlab

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

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

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

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



12:18 AM