هنا مكتبه مؤشرات ال 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;[/PHP]

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

[JEHANoo]

[IMG][/IMG]

[PHP] var p, L, bar, SH, SL, Mom21MA, MomVol, PriceMA, LTMA, MomLTMA, buytest,CMFPane,LTMomPane,TrendPane,avedayswing,pr ojma,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(DivideS eries(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(MultiplyS eriesValue(WMASeries(#Close,20),210),GetSeriesValu e(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)'}[/PHP]

[فهد1991]

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

[JEHANoo]

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

[JEHANoo]

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

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

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

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

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

[حسين صمع]

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

[ابو فنجان]

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

[JEHANoo]

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

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

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

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