logo



قديم 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
 

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




قديم 27-05-2009, 04:29 AM
  المشاركه #51
خبيرة الويلث لاب
تاريخ التسجيل: May 2009
المشاركات: 850
 

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

ممكن المعادلات للـ 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
 

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
 

وهنا مدمجة

مشاركة: 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,428
 

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



قديم 27-05-2009, 06:14 PM
  المشاركه #55
خبيرة الويلث لاب
تاريخ التسجيل: May 2009
المشاركات: 850
 

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




قديم 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
 

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



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

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


كود:
{ 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
 

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




قديم 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 معطلة

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



03:14 AM