هنا مكتبه مؤشرات ال Weath-lab دعونا نتعاون

[JEHANoo]

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

اخوتى نظراً لكثره مؤشرات هذا البرنامج الجميل

لذا نرجو من الجميع التعاون لوضع افضل المؤشرات التى يرونها مجديه ومتميزه في هذا البرنامج

فلنتعاون وبدون كسل >>> سؤالي ماهو افضل موقع لرفع الصور... وتكون غير قابله للحذف بعد فتره بسيطه حتى يستفيد الاخوه ويكون مرجع لهذا البرنامج فيما بعد... لان الكثرين عانو من مشكله اغلاق الصور في المواضيع القديمه
بالنسبه لتحميل البرنامج لا اعرف طريقه رفع برنامج للمنتدي ولا اعلم ان كان مسموح وضع رابط منتدي اخر فيه التحميل والشرح طريقه التحميل للاخت مولي انتظر الاجابه والتفاعل وشكرا لكم

[JEHANoo]

[IMG][/IMG]

كود PHP:

var INTRADAYTRADES: boolean;
var SHORTDAYS, LONGDAYS, LONGPROFITTARGET, SHORTPROFITTARGET, WILLIAMSHIGH, WILLIAMSLOW, EMAPERIOD, ATRPERIOD, START, NLASTVARBAR, MT2, DE, PERIOD, MT, UT, X1, DT, XSERIES, UT2, DT2, BBUPPER, BBLOWER, LOWFACTOR, HIGHFACTOR, P: integer;

{#OptVar5 Default: 3}
{#OptVar4 Default: 27}
{#OptVar3 Default: 115}
{#OptVar2 Default: 85}
{#OptVar1 Default: 15}



{This is where you can adjust most of the
variables to optimize the script }

ShortDays := 2;
LongDays := 2;
LongProfitTarget := 10;
ShortProfitTarget := 5;
WilliamsHigh := 75;
WilliamsLow  := 25;
IntradayTrades := false;

HideVolume;   {Can delete this line if you need volume}

{------------------}



EMAPeriod := 9;
ATRPeriod := 30;
Start := EMAPeriod + ATRPeriod;
nLastVarBar := BarCount() - 1;

{Williams %R}

var X: float;
var PCTRPANE, SMOOTHR, BAR: integer;
PctRPane := CreatePane( 75, true, true );
PlotSeries( WilliamsRSeries( 14 ), PctRPane, 511, #Thick );
SmoothR := WilderMASeries( WilliamsRSeries( 14 ), 4 );
DrawLabel( 'WilliamsR( 14 )', PctRPane );
PlotSeries( SmoothR, PctRPane, #Black, #Thin );
for Bar := 20 to BarCount - 1 do
begin
  x := GetSeriesValue( Bar, SmoothR );
  if x < 20 then
    SetBackgroundColor( Bar, #RedBkg )
  else if x > 80 then
    SetBackgroundColor( Bar, #BlueBkg );

end;



mt2 := CreateSeries();
de := #OptVar1 / 10;  {Nr Std Dev's}
period := #OptVar5;


mt := EMASeries(#Close, period);
ut := EMASeries(mt, period);
x1 := ((2 * period) / (period + 1));
dt := MultiplySeriesValue(ut, x1);
dt := SubtractSeries(dt, ut);
dt := DivideSeriesValue(dt, ((period - 1) / (period + 1)) );

xseries := SubtractSeries(#Close, dt);

for Bar := period + 1 to BarCount - 1 do
begin

x := abs(GetSeriesValue(Bar, xseries));
SetSeriesValue(Bar, mt2, x);

end;

mt2 := EMASeries(mt2, period);
ut2 := EMASeries(mt2, period);
dt2 := MultiplySeriesValue(ut2, x1);
dt2 := SubtractSeries(dt2, ut2);
dt2 := DivideSeriesValue(dt2, ((period - 1) / (period + 1)) );


xseries := MultiplySeriesValue(dt2, de);
BBUpper := AddSeries(dt, xseries);
BBLower := SubtractSeries(dt, xseries);


PlotSeries(BBUpper, 0, #Blue, 0);
PlotSeries(BBLower, 0, #Green, 0);

PlotSeries(dt, 0, #Red, 0);

LowFactor := #OptVar2 / 100;
HighFactor := #OptVar3/ 100;




{ Implement Trading Rules }

 {BuyLimitPrice := 0.0; }

InstallStopLoss( 5 );
{InstallProfitTarget ( ProfitTarget );}




for Bar := Start + 1 to nLastVarBar do
begin

ApplyAutoStops( Bar );


    if GetSeriesValue( Bar, WilliamsRSeries( 14 )) < WilliamsLow then
    if not LastActivePosition >= 0 then
    ShortAtLimit(Bar + 1, (GetSeriesValue(Bar, BBUpper) * 1.05), '' );

    if GetSeriesValue( Bar, WilliamsRSeries( 14 )) > WilliamsHigh then
    if not LastActivePosition >= 0 then
    BuyAtLimit(Bar + 1, (GetSeriesValue(Bar, BBLower) * 0.95), '' );
    

for P := 0 to PositionCount - 1 do
   begin
        if PositionActive( P ) then
        begin
           if PositionLong( P ) then
           if bar + 1 - positionEntryBar( p ) > 0 then
           if bar + 1 - positionEntryBar( p ) >= LongDays then
           begin
              SellAtMarket( Bar + 1, P, 'LongDaysExpired' );
           end;
           if PositionLong( P ) then
           if bar + 1 - positionEntryBar( p ) > 0 then
           if PositionProfit( P )/PriceClose(Bar) >= LongProfitTarget then
           begin
              SellAtMarket( Bar + 1, P, 'LongProfitTarget' );
           end;
           if not PositionLong( P )then
           if bar + 1 - positionEntryBar( p ) > 0 then
           if bar + 1 - positionEntryBar( p ) >= ShortDays then
           begin;
              CoverAtMarket( Bar + 1, P, 'ShortDaysExpired' );
           end;
           if not PositionLong( P )then
           if bar + 1 - positionEntryBar( p ) > 0 then
           if PositionProfit( P )/PriceClose(Bar) >= ShortProfitTarget then
           begin;
              CoverAtMarket( Bar + 1, P, 'ShortProfitTarget' );
           end;
           
           if PositionLong( P ) then
           if (IntradayTrades) then
           if PositionProfit( P )/PriceClose(Bar) >= LongProfitTarget then
           begin
              SellAtMarket( Bar + 1, P, 'LongProfitTarget' );
           end;

           if not PositionLong( P )then
           if (IntradayTrades) then
           if PositionProfit( P )/PriceClose(Bar) >= ShortProfitTarget then
           begin;
              CoverAtMarket( Bar + 1, P, 'ShortProfitTarget' );
           end;

        end;
   end;

end; 


يوضع الكود في خانه Editor بالواجهه الرئيسيه للبرنامج

[JEHANoo]

[IMG][/IMG]

كود PHP:

 var p, L, bar, SH, SL, Mom21MA, MomVol, PriceMA, LTMA, MomLTMA, buytest,CMFPane,LTMomPane,TrendPane,avedayswing,projma,posval,cmf: integer;
var lastSh,lastSL,price,er,percstopprice,percstop,risk,pchg,vchg,possize: float;
var SHtest, SLtest: boolean;
//var posval: float;
var comment: string;
{$I 'VolumeColor'}

posval:=1000;
percstop := 7.0;
p := 2;
L := BarCount() - 1;
SH := CreateSeries();
SL := CreateSeries();
lastSH := PriceHigh( 1 );
lastSL := PriceLow( 1 );
SHtest := true;
SLtest := true;
er:=0.10;
pchg:=ROC(L,#Close,1);
vchg:=ROC(L,#Volume,1);
avedayswing:=SMASeries(MultiplySeriesValue(DivideSeries(SubtractSeries(#High,#Low),#Close),100.0),10);

for bar := 2 * p + 1 to L do
begin
SHtest := true;
SLtest := true;
if PriceHigh( bar - 2 ) >= PriceHigh( bar - 3 ) then
begin
if PriceHigh( bar - 2 ) >= PriceHigh( bar - 1 ) then
begin
if PriceHigh( bar - 2 ) > PriceHigh( bar - 4 ) then
begin
if PriceHigh( bar - 2 ) > PriceHigh( bar ) then
begin
price := PriceHigh( bar - 2 );
SetSeriesValue( bar, SH, price );
lastSH := price;
SHtest := false;
end
end
end
end;
if PriceLow( bar - 2 ) <= PriceLow( bar - 3 ) then
begin
if PriceLow( bar - 2 ) <= PriceLow( bar - 1 ) then
begin
if PriceLow( bar - 2 ) < PriceLow( bar - 4 ) then
begin
if PriceLow( bar - 2 ) < PriceLow( bar ) then
begin
price := PriceLow( bar - 2 );
SetSeriesValue( bar, SL, price );
lastSL := price;
SLtest := false;
end
end
end
end;
if SHtest then SetSeriesValue( bar, SH, lastSH );
if SLtest then SetSeriesValue( bar, SL, lastSL );
end;

{ Other Variables }
MomVol := MomentumSeries( #Volume, 1 );
PriceMA := WMASeries( #Close, 21 );
LTMA := WMASeries( #Average, 144 );
MomLTMA := ROCSeries( LTMA, 1 );
cmf:=CMFSeries(21);
projma:=DivideSeriesValue(AddSeriesValue(MultiplySeriesValue(WMASeries(#Close,20),210),GetSeriesValue(BarCount()-1,SH)*21),231);
Mom21MA := MomentumSeries( WMASeries( #Close, 21 ), 1 );
//Mom21MA := SubtractSeries(projma,PriceMA);
possize:= Int(posval/GetSeriesValue(L,SH));

{ Plotting }
SetLogScale( 0, true );
PlotSeries( SH, 0, #Green, #Thin );
PlotSeries( SL, 0, #Red, #Thin );
PlotSeries( priceMA, 0, #Blue, #Thick );
PlotSeries( LTMA, 0, #Blue, #Thick );
PlotSeries( SMASeries( #Volume, 50 ), 1, #Purple, #Thin );
CMFPane := CreatePane( 80, true, false );
PlotSeries( cmf, CMFPane, #Purple, #ThickHist );
//PlotSeries( EMASeries(cmf,13), CMFPane, #Purple, #Thin );
LTMomPane:= CreatePane( 80, false, true );
//DrawHorzLine( 0.0, LTMomPane, #Black, #Dotted);
//PlotSeries( MomLTMA, LTMomPane, #Blue, #Thin );
DrawHorzLine( 7.0, LTMomPane, #Black, #Dotted);
PlotSeries( avedayswing, LTMomPane, #Blue, #Thin );
TrendPane:=CreatePane(20,FALSE,TRUE);
DrawLabel( 'Ave Daily Swing % (10)', LTMomPane );
DrawLabel( 'Chaikin Money Flow (21)', CMFPane  );

{ Color the Lines and Backgrounds }
for Bar := 145 to BarCount - 1 do
begin
// 21 MA
  if GetSeriesValue( Bar, Mom21MA ) > 0 then
    SetSeriesBarColor( Bar, PriceMA, #Green )
  else if GetSeriesValue( Bar, Mom21MA ) < 0 then
    SetSeriesBarColor( Bar, PriceMA, #Red );
  if GetSeriesValue( Bar, Mom21MA ) > 0 then
      SetPaneBackgroundColor( Bar, TrendPane, #GreenBkg )
  else if GetSeriesValue( Bar, Mom21MA ) < 0 then
      SetPaneBackgroundColor( Bar, TrendPane, #RedBkg );
// 144 MA
  if GetSeriesValue( Bar, MomLTMA ) > 0 then
    SetSeriesBarColor( Bar, LTMA, #Green )
  else if GetSeriesValue( Bar, MomLTMA ) < 0 then
    SetSeriesBarColor( Bar, LTMA, #Red );

// CMF
  if GetSeriesValue( Bar, cmf ) > 0 then
    SetSeriesBarColor( Bar, cmf, #Green )
  else if GetSeriesValue( Bar, cmf ) < 0 then
    SetSeriesBarColor( Bar, cmf, #Red );
end;

{ Initial stop - arbitrary }
percstopprice := GetSeriesValue(BarCount()-1,SH)*(100.0-percstop)/100.0;
risk:= 
 (GetSeriesValue(BarCount()-1,SH)-GetSeriesValue(BarCount()-1,SL))/GetSeriesValue(BarCount()-1,SL)*100.0;

// Price Summary
comment := 'Price Change: '+FormatFloat( '#,##0.00',pchg)+'%   |   '+'Volume Change: '+FormatFloat( '#,##0.00',vchg)+'%'+'<BR>';
AddCommentary(comment);
comment := 'Open: '+ FormatFloat( '#,##0.00',PriceOpen(BarCount()-1))+'  |  High: '+FormatFloat( '#,##0.00',PriceHigh(BarCount()-1))+'  |  Low: '+FormatFloat( '#,##0.00',PriceLow(BarCount()-1))+'  |  Close: '+FormatFloat( '#,##0.00',PriceClose(BarCount()-1))+'<BR>';
AddCommentary(comment);
AddCommentary('<BR>');
// Volume Summary
comment:='Volume: '+FormatFloat( '#0',Volume(BarCount()-1))+'  |  Average Volume: '+FormatFloat( '#0',GetSeriesValue(BarCount()-1,SMASeries(#Volume,50)))+'  |  Yesterday Volume: '+FormatFloat( '#0',Volume(BarCount()-2))+'<BR>'; 
AddCommentary(comment);
AddCommentary('<BR>');
// Trend Summary
comment := 'Moving Average Value: '+FormatFloat( '#,##0.00',GetSeriesValue(BarCount()-1,PriceMA))+'   |   Projected at SH: '+FormatFloat( '#,##0.00',GetSeriesValue(BarCount()-1,projma))+'<BR>';
AddCommentary(comment);
AddCommentary('<BR>');
// Buy, Sell Point Summary
comment := 'Last 2SH: ' + FormatFloat( '#,##0.00',GetSeriesValue(BarCount()-1,SH))+' | Last 2SL: ' + FormatFloat( '#,##0.00',GetSeriesValue(BarCount()-1,SL)) + '<BR>';
AddCommentary(comment);
comment := '2SL Stop Risk: '+FormatFloat( '#,##0.00',risk)+'%'+'<BR>';
AddCommentary(comment);
comment := FormatFloat( '#,##0.00',percstop)+'% Stop Level: '+FormatFloat( '#,##0.00',percstopprice)+'<BR>';
AddCommentary(comment);
comment := 'Buy '+FormatFloat( '#0',possize)+' Shares'+'<BR>';
AddCommentary(comment);
AddCommentary('<BR>');
// Average Daily Swing
comment := 'Average Daily Swing: '+FormatFloat( '#,##0.00',GetSeriesValue(BarCount()-1,avedayswing))+'%'+'<BR>';
AddCommentary(comment);


{ Trading the system }
InstallStopLoss( 7.0 );
for Bar := 22 to BarCount - 1 do
begin
    buytest:=0;

// SELL POSITION: sell on trailing stop at swing lows
    if LastPositionActive then
    begin
        ApplyAutoStops( Bar );
        if PriceLow( Bar ) < GetSeriesValue( Bar, SL )-er then
        SellAtStop( Bar, GetSeriesValue( Bar, SL )-er, LastPosition, '');
    end
    else
    begin

// UPTREND CONFIRMATION
    if GetSeriesValue( Bar-1, Mom21MA ) > 0 then
//    if GetSeriesValue( Bar - 1, MomLTMA ) > 0 then
// VOLUME DEMAND CONFIRMATION (VOLUME HIGHER THAN YESTERDAY)
    if GetSeriesValue( Bar, MomVol ) > 0 then
//    if GetSeriesValue( Bar, cmf ) > 0 then

// Buy LONG Signal: If gap up buy the open, if cross during day buy at limit
    if PriceClose( Bar - 1 ) <= GetSeriesValue( Bar - 1, SH )+er then
    if PriceHigh( Bar ) > GetSeriesValue( Bar , SH )+er then
        begin
        if PriceOpen( Bar ) > GetSeriesValue( Bar , SH )+er then
        BuyAtMarket( Bar,'')
        else
        BuyAtStop( Bar, GetSeriesValue( Bar , SH )+er, '' );
        end;
    end;
end;
{$I 'Profit Pane (Bottom)'} 


[فهد1991]

جزاك الله خير ---

[JEHANoo]

[IMG][/IMG]
عفواً الخط الخامس في الصوره تقريبا

[JEHANoo]

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

جزاك الله خير ---

شكرا على مرورك جزاك الله خيراً

[عايش العبدلي]

مشكور بارك الله فيك

[حسين صمع]

الاخ العزيز بارك اللة فيك برنامج الويلث لاب برنامج غني عن التعريف ولكن كيف يمكن الاستفادة من البرنامج لحظيا حيث انني رابطة مع مباشر برو لحظيا ولكن لا يعمل اثناء التداول فبعد نهاية التداول ممكن الاستفادة منة لحظيا هل يوجد طريقة للاستفادة من السوق لحظيا اثناء التداول وشكر للموشرات الممتازة

[ابو فنجان]

وين المعادله لو تكرمت

[JEHANoo]

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

الاخ العزيز بارك اللة فيك برنامج الويلث لاب برنامج غني عن التعريف ولكن كيف يمكن الاستفادة من البرنامج لحظيا حيث انني رابطة مع مباشر برو لحظيا ولكن لا يعمل اثناء التداول فبعد نهاية التداول ممكن الاستفادة منة لحظيا هل يوجد طريقة للاستفادة من السوق لحظيا اثناء التداول وشكر للموشرات الممتازة

لا اخي البرنامج لا يعمل مع السوق لحظيا ًمثل ماقلت انت

ياليت تثري الموضوع بما تراه من مؤشرات جميله اعجبتك في هذاالبرنامج الغني عن التريف كما تفضلت وشكرا لك
ننتظرك