لتبليغ الإدارة عن موضوع أو رد مخالف يرجى الضغط على هذه الأيقونة الموجودة على يمين المشاركة لتطبيق قوانين المنتدى


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

معادلة ايمي بروكر تحليل رقمي (توجد صوره ) ...؟

منتدى التحليل الفني والاساسي



إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
قديم 21-11-2014, 01:02 AM  
#1
mbcfor
عضو هوامير المميز
 
تاريخ التسجيل: Jan 2010
المشاركات: 2,507

معادلة ايمي بروكر تحليل رقمي (توجد صوره ) ...؟

معادلة وضعت فيها مؤشرات مهمه ومتوسطات في قالب واحد تعتبر رقميه وسريعه

وادعوا لي بالشفاء العاجل وان شاء الله تعجبكم
أقتباس_SECTION_BEGIN("Stochastic Momentum");
LookBack = Param("Lookback", 13, 2, 100 );
Smooth1 = Param("Smooth 1", 25, 1, 100 );
Smooth2 = Param("Smooth 2", 2, 1, 100 );

HH = HHV( H, LookBack );
LL = LLV( L, LookBack );

StoMom = 100 * EMA( EMA( C - 0.5 * ( HH + LL ), Smooth1 ), Smooth2 ) /
( 0.5 * EMA( EMA( HH - LL, Smooth1 ), Smooth2 ) );



_SECTION_BEGIN("");
p = (H+L+C)/3;
r1 = (2*p)-L;
s1 = (2*p)-H;
r2 = p +(r1 - s1);
s2 = p -(r2 - s1);
R3 = P + (R2 - S2);
S3 = P - (R3 - S2);

_SECTION_BEGIN("stoch");
periods = Param( "Periods", 15, 1, 200, 1 );
Ksmooth = Param( "%K avg", 3, 1, 200, 1 );
Dsmooth = Param( "%D avg", 3, 1, 200, 1 );
std=StochD( periods , Ksmooth, DSmooth );
stk=StochK( periods , Ksmooth);
Ob=70;
Os=30;
Buy = Cross(stk,std );
Sell = Cross(std,stk );



_SECTION_BEGIN("RSI");

periods = Param( "Periods", 14, 1, 200, 1 );
z = RSI( periods);

_SECTION_BEGIN("TRIX");
periods = Param( "Periods", 15, 1, 200, 1 );
t =Trix(periods);

_SECTION_BEGIN("MA 15 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
mam =ma(p,periods);

_SECTION_BEGIN("MA 35 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
mam1 =ma(p,periods);

_SECTION_BEGIN("MA 50 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
mam2 =ma(p,periods);

_SECTION_BEGIN("MA 100 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
mam3 =ma(p,periods);

_SECTION_BEGIN("MA 200 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
mam4 =ma(p,periods);

_SECTION_BEGIN("EMA 5 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
em1 =ema(p,periods);

_SECTION_BEGIN("EMA 15 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
em =ema(p,periods);

_SECTION_BEGIN("EMA 35 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
em2 =ema(p,periods);

_SECTION_BEGIN("EMA 50 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
em3 =ema(p,periods);

_SECTION_BEGIN("EMA 100 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
em4 =ema(p,periods);



_SECTION_BEGIN("ROC");
P = ParamField( "Price field" );
periods = Param("Periods", 15, 1, 200, 1 );
a =roc(p,periods);

_SECTION_BEGIN("MFI");

periods = Param( "Periods", 14, 2, 200, 1 );
x = mfi( periods);

_SECTION_BEGIN("CCI");
SetChartOptions(0,0,chartGrid100|chartGridDiv100);
Period = Param("CCI Period",20,1,100,1);

r = CCI(Period);

FS=Param("Font Size",25,10,100,1);
GfxSelectFont("Times New Roman", FS, 700, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor("Color",colorGreen) );
Hor=Param("Horizontal Position",750,1,1200,1);
Ver=Param("Vertical Position",1,1,830,1);
GfxSelectFont("Times New Roman", 11, 700, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor(ParamColor("Color",colorGreen) );

GfxTextOut("MFI = "+x+" ",300,20);
GfxTextOut("RSI = "+z+" ",300,40);
GfxTextOut("CCI = "+r+" ",300,60);
GfxTextOut("TRIX = "+T+" ",300,80);
GfxTextOut("ROC = "+a+" ",300,100);
GfxTextOut("EMA 5 = "+em1+" ",500,20);
GfxTextOut("EMA 15 = "+em+" ",500,40);
GfxTextOut("EMA 35 = "+em2+" ",500,60);
GfxTextOut("EMA 50 = "+em3+" ",500,80);
GfxTextOut("EMA 100 = "+em4+" ",500,100);
GfxTextOut("MA 15 = "+mam+" ",700,20);
GfxTextOut("MA 35 = "+mam1+" ",700,40);
GfxTextOut("MA 50 = "+mam2+" ",700,60);
GfxTextOut("MA 100 = "+mam3+" ",700,80);
GfxTextOut("MA 200 = "+mam4+" ",700,100);
GfxTextOut("StochD (D>K)=sell = "+std+" ",855,20);
GfxTextOut("StochK (K>D)=buy = "+stk+" ",855,40);
GfxTextOut("StochMom = "+StoMom+" ",880,60);
GfxTextOut("R3 = "+R3+" ",1100,20);
GfxTextOut("R2 = "+R2+" ",1100,40);
GfxTextOut("R1 = "+R1+" ",1100,60);
GfxTextOut("P = "+P+" ",1100,80);
GfxTextOut("S1 = "+S1+" ",1100,100);
GfxTextOut("S2 = "+S2+" ",1100,120);
GfxTextOut("S3 = "+S3+" ",1100,140);








_SECTION_END();

WeeklyClose=ValueWhen(DayOfWeek() > Ref( DayOfWeek(),1),Close);

LWC="\n Last-week-Close = "+ LastValue(WeeklyClose);

sund="\n Sunday = " + ValueWhen(DayOfWeek()==0,C);
mon="\n Monday = " + ValueWhen(DayOfWeek()==1,C);
tue="\n Tuesday = " + ValueWhen(DayOfWeek()==2,C);
wed="\n Wednesday = " + ValueWhen(DayOfWeek()==3,C);
thu="\n Thursday = " + ValueWhen(DayOfWeek()==4,C);

Lwed="\n Last Thursday close= "+ Ref(ValueWhen(DayOfWeek()==4,C),-1);
Title="\n WeeklyClose = "+ WeeklyClose + Lwc+sund+mon+tue+wed+thu+Lwed;
_SECTION_END();



mbcfor غير متواجد حالياً   رد مع اقتباس
قديم 21-11-2014, 01:32 AM   #2
DABL@
عضو هوامير المميز
 
تاريخ التسجيل: Oct 2013
المشاركات: 503

رد: معادلة ايمي بروكر تحليل رقمي (توجد صوره ) ...؟

إلهي أذهب البأس رب الناس ، اشف و أنت الشافي ، لا شفاء إلا شفاؤك ، شفاءً لا يغادر سقماً - أذهب البأس رب الناس ، بيدك الشفاء ، لا كاشف له إلا أنت .. يارب العالمين آمين إني أسألك من عظيم لطفك وكرمك و سترك الجميل أن تشفيه و تمده بالصحة و العافية لا ملجأ و لا منجا منك إلا إليك .. إنك على كل شيء قدير







ونعم بالله العلي العظيم
DABL@ غير متواجد حالياً   رد مع اقتباس
قديم 21-11-2014, 11:50 AM   #3
& كبرياء رجل &
عضو هوامير المميز
 
تاريخ التسجيل: Oct 2007
العمر: 32
المشاركات: 189

رد: معادلة ايمي بروكر تحليل رقمي (توجد صوره ) ...؟

اللهم البسه ثوب الصحه والعافيه عاجلاً غير آجلا يا أرحم الراحمين..
& كبرياء رجل & غير متواجد حالياً   رد مع اقتباس
قديم 21-11-2014, 08:03 PM   #4
haat
عضو هوامير المميز
 
تاريخ التسجيل: Dec 2011
المشاركات: 295

رد: معادلة ايمي بروكر تحليل رقمي (توجد صوره ) ...؟

اللهم اشفى عبدك والبسه ثوب الصحة والعافية

وعجل شفائه ياارحم الراحمين
haat غير متواجد حالياً   رد مع اقتباس
قديم 21-11-2014, 09:07 PM   #5
almasdar
عضو هوامير المميز
 
تاريخ التسجيل: Jul 2005
المشاركات: 2,311

رد: معادلة ايمي بروكر تحليل رقمي (توجد صوره ) ...؟

بيض الله وجهك

اسال الله العظيم رب العرش العظيم ان يشفيك ويشفي كل مسلم


والله رائعه جدا وفقك الله
almasdar غير متواجد حالياً   رد مع اقتباس
قديم 21-11-2014, 09:18 PM   #6
almasdar
عضو هوامير المميز
 
تاريخ التسجيل: Jul 2005
المشاركات: 2,311

رد: معادلة ايمي بروكر تحليل رقمي (توجد صوره ) ...؟

ياليت اذا ممكن تكون المتوسطات ومستويات الدعم والمقاومه فقط وتكون بنص الصفحه

شاكر جدا ومقدر
almasdar غير متواجد حالياً   رد مع اقتباس
قديم 21-11-2014, 10:20 PM   #7
mbcfor
عضو هوامير المميز
 
تاريخ التسجيل: Jan 2010
المشاركات: 2,507

رد: معادلة ايمي بروكر تحليل رقمي (توجد صوره ) ...؟

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

شاكر جدا ومقدر
ولا يهمك




الكود
أقتباس_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );

_SECTION_END();



_SECTION_BEGIN("EMA 5 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
em1 =ema(p,periods);

_SECTION_BEGIN("EMA 15 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
em =ema(p,periods);

_SECTION_BEGIN("EMA 35 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
em2 =ema(p,periods);

_SECTION_BEGIN("EMA 50 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
em3 =ema(p,periods);

_SECTION_BEGIN("EMA 100 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
em4 =ema(p,periods);


_SECTION_BEGIN("");
p = (H+L+C)/3;
r1 = (2*p)-L;
s1 = (2*p)-H;
r2 = p +(r1 - s1);
s2 = p -(r2 - s1);
R3 = P + (R2 - S2);
S3 = P - (R3 - S2);

GfxTextOut("R3 = "+R3+" ",700,20);
GfxTextOut("R2 = "+R2+" ",700,40);
GfxTextOut("R1 = "+R1+" ",700,60);
GfxTextOut("P = "+P+" ",900,20);
GfxTextOut("S1 = "+S1+" ",800,20);
GfxTextOut("S2 = "+S2+" ",800,40);
GfxTextOut("S3 = "+S3+" ",800,60);
GfxTextOut("EMA 5 = "+em1+" ",900,40);
GfxTextOut("EMA 15 = "+em+" ",900,60);
GfxTextOut("EMA 35 = "+em2+" ",1020,20);
GfxTextOut("EMA 50 = "+em3+" ",1020,40);
GfxTextOut("EMA 100 = "+em4+" ",1030,60);






_SECTION_END();

mbcfor غير متواجد حالياً   رد مع اقتباس
قديم 21-11-2014, 10:23 PM   #8
mbcfor
عضو هوامير المميز
 
تاريخ التسجيل: Jan 2010
المشاركات: 2,507

رد: معادلة ايمي بروكر تحليل رقمي (توجد صوره ) ...؟

اقتباس:
المشاركة الأصلية كتبت بواسطة douplexx مشاهدة المشاركة
إلهي أذهب البأس رب الناس ، اشف و أنت الشافي ، لا شفاء إلا شفاؤك ، شفاءً لا يغادر سقماً - أذهب البأس رب الناس ، بيدك الشفاء ، لا كاشف له إلا أنت .. يارب العالمين آمين إني أسألك من عظيم لطفك وكرمك و سترك الجميل أن تشفيه و تمده بالصحة و العافية لا ملجأ و لا منجا منك إلا إليك .. إنك على كل شيء قدير







ونعم بالله العلي العظيم
بارك الله فيك

اقتباس:
المشاركة الأصلية كتبت بواسطة & كبرياء رجل & مشاهدة المشاركة
اللهم البسه ثوب الصحه والعافيه عاجلاً غير آجلا يا أرحم الراحمين..
اقتباس:
المشاركة الأصلية كتبت بواسطة haat مشاهدة المشاركة
اللهم اشفى عبدك والبسه ثوب الصحة والعافية

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

اسال الله العظيم رب العرش العظيم ان يشفيك ويشفي كل مسلم


والله رائعه جدا وفقك الله
ووجهك وجزاك الله خير
mbcfor غير متواجد حالياً   رد مع اقتباس
قديم 22-11-2014, 01:23 AM   #9
almasdar
عضو هوامير المميز
 
تاريخ التسجيل: Jul 2005
المشاركات: 2,311

رد: معادلة ايمي بروكر تحليل رقمي (توجد صوره ) ...؟

الف شكر

الله يكثر امثالك ويجزاك الخير كله
almasdar غير متواجد حالياً   رد مع اقتباس
قديم 22-11-2014, 08:16 PM   #10
ابو غيداء
كاتب قدير
 
تاريخ التسجيل: Jul 2006
المشاركات: 36,151

رد: معادلة ايمي بروكر تحليل رقمي (توجد صوره ) ...؟

اللهم اشفى عبدك والبسه ثوب الصحة والعافية

وعجل شفائه ياارحم الراحمين
ابو غيداء غير متواجد حالياً   رد مع اقتباس
قديم 23-11-2014, 10:38 PM   #11
mbcfor
عضو هوامير المميز
 
تاريخ التسجيل: Jan 2010
المشاركات: 2,507

رد: معادلة ايمي بروكر تحليل رقمي (توجد صوره ) ...؟

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

وعجل شفائه ياارحم الراحمين
جزاك الله خير
mbcfor غير متواجد حالياً   رد مع اقتباس
قديم 23-11-2014, 10:48 PM   #12
mbcfor
عضو هوامير المميز
 
تاريخ التسجيل: Jan 2010
المشاركات: 2,507

رد: معادلة ايمي بروكر تحليل رقمي (توجد صوره ) ...؟

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




أقتباس_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();

// RSI Levels - appplied to Price Chart shows how far
// tomorrow's closing price has to move in order for
// the RSI to cross the 70, 50 & 30 levels.

pd = Param("Periods",13,5,144,1);
pds = 2*pd-1;// (Adjustment for Wilders MA)
aa = Close-Ref(Close,-1);
uu = EMA(Max(0,aa),pds);
dd= EMA((Max(0,0-aa)),pds);

rf = IIf(C>2,1000,10000);

c1 = Param("Upper Level",70,50,90,1);
qq1 =100/(100-c1)-1;
ff1 = qq1*dd-uu;
ff2 = ff1/qq1;
f1 = Max(ff1,ff2);
UL = Close + f1*(pds-1)/2;
UL = IIf(UL>C,floor(UL*rf),ceil(UL*rf))/rf;

c2 = Param("Equilibrium",50,50,50,0);
qq2 =100/(100-c2)-1;// [=1]
ff = dd-uu;
MM = Close + ff*(pds-1)/2;
MM = IIf(MM>C,floor(MM*rf),ceil(MM*rf))/rf;

c3 = Param("Lower Level",30,10,50,1);
qq3 =100/(100-c3)-1;
ff1 = qq3*dd-uu;
ff2 = ff1/qq3;
f3 = Min(ff1,ff2);
LL = Close + f3*(pds-1)/2;
LL = IIf(LL>C,floor(LL*rf),ceil(LL*rf))/rf;

Plot(UL,"",colorRed,1);
Plot(MM,"",colorYellow,32);
Plot(LL,"",colorGreen,1);

Cbr = IIf(UL<C,27,IIf(LL>C,32,IIf(MM>C,11,8)));
PlotOHLC(O,H,L,C,"",cbr,styleCandle);

Title = Name() + " - RSI(" + WriteVal(pd,0.0) + ") - Close=" + WriteVal(Close,0.3) + " UL=" + WriteVal(UL,0.4) + " MM=" + WriteVal(MM,0.4) + " LL=" + WriteVal(LL,0.4);




_SECTION_BEGIN("Show Values at H&L");

n=Param("Values back",20,1,200,1);
p=Param("zig %",5,1,100,1);
dist = 0.8*ATR(15);

for( i = 1; i < n; i++ )
{
PlotText(""+LastValue(Peak(H,p,i),True),BarCount-3-LastValue(PeakBars(H,p,i)),LastValue(dist,True)+LastValue(Peak(H,p,i),False),c olorblue,ColorRGB(225,225,225));
PlotText(""+LastValue(Trough(L,p,i),True),BarCount-3-LastValue(TroughBars(L,p,i)),LastValue(Trough(L,p,i),False)-LastValue(dist,True),colorblue,ColorRGB(225,225,225));
}

_SECTION_END();

_SECTION_BEGIN("My Name");
GfxSetBkColor(colorBlack);
GfxSetTextColor( colorGrey40 );
GfxSelectFont("Arial", 8, 100, False );
GfxTextOut("Isfandi Trading System II", 10 , 848 );
_SECTION_END();

_SECTION_BEGIN("ASHISHDA MACD");
a=TSF(C,3)+TSF(C,5)+TSF(C,8)+TSF(C,13)+TSF(C,17)+TSF(C,26);
b=TSF(C,8)+TSF(C,13)+TSF(C,26)+TSF(C,35)+TSF(C,50)+TSF(C,56);
mova= TSF(a,3);
movb=TSF(b,26);
diff= a + mova;
diff1= b + movb;
m= diff - diff1;
m1= TSF(m,5)*.5;
Buy = Cross(m1,Ref(m1, -1));
Sell = Cross(Ref(m1, -1),m1);
QuickMACD =WriteIf(m1>Ref(m1, -1), "BUY","SELL");
GfxSetTextColor( colorRED);
GfxTextOut( "Macd = " +QuickMACD+" " ,20, 235 );
GfxSelectFont("Arial", 8 );
_SECTION_END();

_SECTION_BEGIN("Indicator ZeroLag W%R");
/*ZeroLag W%R*/
"========";
R = ((HHV(H,12) - C) /(HHV (H,14) -LLV (L,14))) *-100;
Period= 10;
EMA1= EMA(R,Period);
EMA2= EMA(EMA1,5);
Difference= EMA1 - EMA2;
ZeroLagEMA= EMA1 + Difference;
PR=100-abs(ZeroLagEMA);
Buy=Cross(R,ZeroLagEMA);
Sell=Cross(ZeroLagEMA,R);
ZeroLagEMA =WriteIf(R > ZeroLagEMA, "BUY","SELL");
GfxSetTextColor( colorOrange );
GfxTextOut( "William%R = "+ZeroLagEMA+" = "+r+" ", 20, 265 );
GfxSelectFont("Arial", 8 );
_SECTION_END();

_SECTION_BEGIN("STOCHASTIC");
periods = Param( "Periods", 15, 1, 200, 1 );
Ksmooth = Param( "%K avg", 3, 1, 200, 1 );
a = StochK( periods , Ksmooth);
Dsmooth = Param( "%D avg", 3, 1, 200, 1 );
b = StochD( periods , Ksmooth, DSmooth );
Buy = Cross( a, b );
Sell = Cross( b, a );
STOCH =WriteIf(a>b , "BUY","SELL");
GfxSetTextColor( colorYellow );
GfxTextOut( "STOCH = " +STOCH+" (K) "+a+" (D) "+B+" ", 20, 280 );
GfxSelectFont("Arial", 8 );
_SECTION_END();

_SECTION_BEGIN("SAR ARROW");

acc = Param("Acceleration", 0.02, 0, 1, 0.001 );
accm = Param("Max. acceleration", 0.2, 0, 1, 0.001 );
S = SAR();
periods = Param( "Periods" ,0.02, 0, 1, 0.001 );

i= SAR (periods);

Buy = Cross( Close, S );
Sell = Cross( S, Close );
SARPhase =WriteIf(Close>S,"BUY","SELL");
GfxSetTextColor( colorRed);
GfxTextOut( "S A R = " +SARPhase+" = "+i+" ", 20, 295 );
GfxSelectFont("Arial", 8 );
_SECTION_END();

_SECTION_BEGIN("Stochastic Momentum Index");
period1 = 12;
period2 = 6;
period3 = 6;
SMI =
100 * ( EMA( EMA( C - (0.5 * ( HHV(H,period1) + LLV(L,period1))),period2),period3)/(0.5*EMA( EMA( HHV(H,period1) - LLV(L,period1),period2),period3)));
Buy= Cross (SMI,MA( SMI, 6 ));
Sell= Cross (MA( SMI, 6 ),SMI);
Momentum =WriteIf(SMI > MA( SMI, 6 ), "BUY","SELL");
GfxSetTextColor( colorOrange );
GfxTextOut( "Stoch Momentum = " +Momentum+" = "+smi+" " , 20, 219 );
GfxSelectFont("Arial", 8 );
_SECTION_END();

_SECTION_BEGIN("RSI");
periods = Param( "Periods", 14, 1, 200, 1 );
z = RSI( periods);
A=Cross(Z,TSF(Z,20))OR Z<=(45);
B=Cross(TSF(Z,20),Z)OR Z>=(70);
S =WriteIf(a>b , "BUY","SELL");
GfxSetTextColor( colorgold );
GfxTextOut( "RSI = " +S+" = "+z+" " , 20, 251 );
GfxSelectFont("Arial", 8 );
_SECTION_END();


_SECTION_BEGIN("Bollinger Bands");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1 );
Width = Param("Width", 2, 0, 10, 0.05 );

a= BBandTop ( P, Periods, Width );
b= BBandbot ( P, Periods, Width );

GfxSetTextColor( colorgold );
GfxTextOut( "BBandTop = " +a+" " , 20, 310);
GfxTextOut( "BBandBot = " +b+" " , 20, 325 );
GfxSelectFont("Arial",8);
_SECTION_END();

_SECTION_BEGIN("CCI");
periods = Param( "Periods", 14, 2, 200, 1 );

ZA = CCI ( periods);
AA=100;
AB=-100;

BUY=Cross(ZA,TSF(AA,20))OR ZA<=(200);
Sell=Cross (TSF(AB,20),ZA)OR ZA>=(200);
SA =WriteIf(ZA<AA , "BUY","SELL");
GfxSetTextColor( colorRED );
GfxTextOut( "CCI = " +SA+" = "+za+" " , 20, 205 );
GfxSelectFont("Arial", 8 );
_SECTION_END();

_SECTION_BEGIN("MFI");

periods = Param( "Periods", 14, 2, 200, 1 );
x = mfi( periods);
A1=Cross(Z,TSF(Z,20))OR Z<=(45);
B2=Cross(TSF(Z,20),Z)OR Z>=(80);
S1 =WriteIf(a>b , "BUY","SELL");
GfxSetTextColor( colorgold );
GfxTextOut( "MFI = " +S1+" = "+x+" " , 20, 190 );
GfxSelectFont("Arial", 8 );
_SECTION_END();

_SECTION_BEGIN("TRIX");
periods = Param( "Periods", 15, 1, 200, 1 );
t =Trix(periods);

GfxSetTextColor( colorRED );
GfxTextOut( "TRIX = "+T+" " , 20, 340 );
GfxSelectFont("Arial", 8 );
_SECTION_END();

_SECTION_BEGIN("ROC");
P = ParamField( "Price field" );
periods = Param("Periods", 15, 1, 200, 1 );
a3 =roc(p,periods);
GfxSetTextColor( colorRED );
GfxTextOut( "ROC = "+A3+" " , 20, 353 );
GfxSelectFont("Arial", 8 );
_SECTION_END();

_SECTION_BEGIN("Gann HiLo");
/*Gann HiLo*/
pds=Param("Stop Period",4,2,10,0.25);

barcolor=
IIf(Outside(),colorYellow,
IIf(L<Ref(L,-1) && H<=Ref(H,-1),colorRed,
IIf(H>Ref(H,-1) && L>=Ref(L,-1),colorBrightGreen,colorBlue)));

Hld = IIf(C > Ref(MA(H, 2), -1), 1, IIf(C < Ref(MA(L, 2), -1), -1, 0));
Hlv = ValueWhen(Hld != 0, Hld, 1);
Hilo = IIf(Hlv == -1, MA(H, 2), MA(L, 2));
Trigger = IIf(C>Hilo, colorBrightGreen, colorRed);
Buy = Close > Hilo;
Sell = Close < Hilo;
GannHiLo =WriteIf(C>Hilo,"BUY","SELL");
GfxSetTextColor( colorBrightGreen );
GfxTextOut( "GannHiLo = " +GannHiLo+" = "+HILO+"", 20, 371 );
GfxSelectFont("Arial", 8 );
_SECTION_END();

_SECTION_BEGIN("JMAHiLo");
function JMA( array, per )
{
TN1=MA(array,per);
s1=0;
for( i = 0; i < per; i=i+1 )
{
s1=s1+((per-(2*i)-1)/2)*Ref(array,-i);
}
return TN1+(((per/2)+1)*S1)/((per+1)*per);
}
JMAperiods = Param( "JMA Periods", 10, 1, 200, 1 );
_SECTION_BEGIN("RWIHILO");
minperiods = Param( "Min Periods", 2, 1, 200, 1 );
maxperiods = Param( "Max Periods", 8, 1, 200, 1 );
varLo = RWILo( minperiods, maxperiods);
minperiods = Param( "Min Periods", 2, 1, 200, 1 );
maxperiods = Param( "Max Periods", 8, 1, 200, 1 );
varHi = RWIHi( minperiods, maxperiods) ;
Buy= Cross (JMA(varHi ,JMAperiods),JMA(varLo ,JMAperiods));
Sell=Cross (JMA(varLo ,JMAperiods),JMA(varHi ,JMAperiods));
JMAHiLo =WriteIf(JMA(varHi ,JMAperiods) > JMA(varLo ,JMAperiods), "BUY","SELL");
GfxSetTextColor( colorGreen );
GfxTextOut( "JMAHiLo = " +JMAHiLo+" (varhi) "+varhi+" (varlo) "+varlo+" ", 20, 390 );
GfxSelectFont("Arial", 8 );
_SECTION_END();


_SECTION_BEGIN("PVR");
"PVR";
P1=Ref(C,-1);
V1=Ref(V,-1);
PVR=IIf(C>P1 AND V>V1,4,
IIf(C>P1 AND V<V1,3,
IIf(C<P1 AND V<V1,2,1)));
GraphXSpace=10;
A=EMA(PVR,5);
B=EMA(A,3);
Buy = Cross(A, B);
Sell = Cross(B, A);
PVR =WriteIf(A > B, "BUY","SELL");
GfxSetTextColor( colorRed );
GfxTextOut( "PVR = "+PVR+" " , 20, 405 );
GfxSelectFont("Arial", 8 );
_SECTION_END();


_SECTION_BEGIN("Average");
P = ParamField("Field");
Type = ParamList("Type", "Weighted,Lagless-21,Hull-26,Linear Regression-45,Exponential,Double Exponential,Tripple Exponential,Wilders,Simple");
Periods = Param("Periods", 14, 2, 100 );
Displacement = Param("Displacement", 1, -50, 50 );
m = 0;

if( Type == "Weighted" ) m= WMA( P, Periods );
if( Type == "Lagless-21" ) m= 2*EMA(P, Periods)-EMA(EMA(P, Periods), Periods);
if( Type == "Hull-26" ) m= WMA(2*(WMA(P, Periods/2))-WMA(P, Periods) ,4 );
if( Type == "Linear Regression-45" ) m= LinearReg( P, Periods );
if( Type == "Exponential" ) m = EMA( P, Periods );
if( Type == "Double Exponential" ) m = DEMA( P, Periods );
if( Type == "Tripple Exponential" ) m = TEMA( P, Periods );
if( Type == "Wilders" ) m = Wilders( P, Periods );
if( Type == "Simple" ) m = MA( P, Periods );

Buy=Cover=Cross(C,m);
Sell=Short=Cross(m,C);
AveragePrice =WriteIf(C > m, "ABOVE AVERAGE","BELOW AVERAGE");
GfxSetTextColor( colorDarkYellow );
GfxTextOut( "PRICE = " +averageprice+" = "+m+" ", 20, 420 );
GfxSelectFont("Arial", 8 );

_SECTION_END();

_SECTION_BEGIN("Wall Indicator System_Isfandi");
//---- pivot points
DayH = TimeFrameGetPrice("H", inDaily, -1);// yesterdays high
DayL = TimeFrameGetPrice("L", inDaily, -1);//low
DayC = TimeFrameGetPrice("C", inDaily, -1);//close
DayO = TimeFrameGetPrice("O", inDaily);// current day open
Dayv = TimeFrameGetPrice("V", inDaily);
HiDay = TimeFrameGetPrice("H", inDaily);
LoDay = TimeFrameGetPrice("L", inDaily);
PP = (DayH + DayL + DayO + DayO ) / 4 ;
R1 = (2 * PP) - DayL;
S1 = (2 * PP) - DayH;
R2 = PP + (R1 - S1);
S2 = PP + (S1 - R1);
R3 = R2 + (R1 - PP);
S3 = S2 - (PP - S1);
GfxSelectFont("Arial", 9 );
GfxSetTextColor( colorLime);
GfxTextOut( "R1 =" + R1+"",10, 30 );
GfxSetTextColor( colorLime );
GfxTextOut( "R2 = " +R2+"",110, 30 );
GfxSetTextColor( colorLime );
GfxTextOut( "R3 = " +R3+"",210, 30 );
GfxSetTextColor( colorWhite );
GfxTextOut( "PP = " +PP+"",320, 30 );
GfxSetTextColor( colorOrange );
GfxTextOut( "S1 = " +S1+"",430, 30 );
GfxSetTextColor( colorRed );
GfxTextOut( "S2 = " +S2+"",540, 30 );
GfxSetTextColor( colorRed );
GfxTextOut( "S3 = " +S3+"",640, 30 );
GfxSelectFont("Arial", 9 );
_SECTION_END();


_SECTION_BEGIN("Van K Tharp Efficient Stocks");
// Mark Keitel 12-05
// Van K Tharp Efficient Stocks
//GfxSelectFont("Arial", 9, 500, True );
ATRD180 = ATR(180);
ATRD90 = ATR(90);
ATRD45 = ATR(45);
ATRD20 = ATR(20);
ATRD5 = ATR(5);
DifferenceD180 = Close - Ref(Close,-180);
DifferenceD90 = Close - Ref(Close,-90);
DifferenceD45 = Close - Ref(Close,-45);
DifferenceD20 = Close - Ref(Close,-20);
DifferenceD5 = Close - Ref(Close,-5);
EfficiencyD180 = IIf(ATRD180!=0,DifferenceD180/ATRD180,1);
EfficiencyD90 = IIf(ATRD90!=0,DifferenceD90/ATRD90,1);
EfficiencyD45 = IIf(ATRD45!=0,DifferenceD45/ATRD45,1);
EfficiencyD20 = IIf(ATRD20!=0,DifferenceD20/ATRD20,1);
EfficiencyD5 = IIf(ATRD5!=0,DifferenceD5/ATRD5,1);
Averageeff = (EfficiencyD180 + EfficiencyD90 + EfficiencyD45 + EfficiencyD20 ) / 4;

//Plot( averageeff, "AvgEff", colorLightBlue, styleLine );
x = Param ( "Add Results to a Watchlist? Yes = 1, No = 2" , 2 , 1 , 2 , 1 ) ; // select whether to add results to watchlist or not
y = Param("Set Watchlist Number", 25, 2, 60,1); // sets the watchlist number, but reserves the first 2 and last 4 watchlists
// -------- Parameter Variables for Exploration --------------------------------
TCH = Param("High close value ", 20, 5, 300, 0.5);
TCL = Param("Low close value " , 5, 1, 10, 0.25);
AVP = Param("Period for Avg Vol " , 21, 10, 240, 1);
SV = Param("Stock minimum Avg Vol " , 125000, 50000, 1000000, 500000);
// -------------- Organize the exploration results ------------------------------------
P = Param("Period for Price Delta Comparisons", 1, 1, 120, 1);
P1 = Param("Period for Other Delta Comparisons", 3, 1, 120, 1);
PATR = Param("Period for ATR", 5,1,21,1);
PADX = Param("Period for ADX", 14, 3, 34,1);
PRSI = Param("Period for RSI", 13, 3, 34,1);
ADX_TREND =WriteIf(PDI(PADX)>MDI(PADX),"UP","DOWN");

// OTHER INDICATOR

GfxSelectFont("Arial", 9, 900);
GfxSetTextColor( colorWhite );


GfxSelectFont("Arial", 8 );

MOMETUM =RSI(14);
ADX_14 = ADX(14);


GfxSetTextColor( colorDarkYellow );
GfxTextOut( "ADX TREND = " +ADX_TREND + "",120, 435);



GfxSetTextColor( colorDarkYellow );
GfxTextOut( "ADX =" +NumToStr(ADX_14) +"", 20, 435);


_SECTION_END();


_SECTION_BEGIN("EMA 5 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
em1 =ema(p,periods);


GfxSelectFont("Arial", 9 );
GfxSetTextColor( colorLime);
GfxTextOut( "M5 =" + em1+"",10, 60 );
GfxSelectFont("Arial", 9 );
_SECTION_END();

_SECTION_BEGIN("EMA 15 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
em2 =ema(p,periods);


GfxSelectFont("Arial", 9 );
GfxSetTextColor( colorLime );
GfxTextOut( "M15 = " +em2+"",110, 60 );
GfxSelectFont("Arial", 9 );
_SECTION_END();


_SECTION_BEGIN("EMA 35 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
em3 =ema(p,periods);


GfxSelectFont("Arial", 9 );
GfxSetTextColor( colorLime );
GfxTextOut( "M35 = " +em3+"",215, 60 );
GfxSelectFont("Arial", 9 );
_SECTION_END();


_SECTION_BEGIN("EMA 50 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
em4 =ema(p,periods);


GfxSelectFont("Arial", 9 );
GfxSetTextColor( colorOrange );
GfxTextOut( "M50 = " +em4+"",320, 60 );
GfxSelectFont("Arial", 9 );
_SECTION_END();


_SECTION_BEGIN("EMA 100 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
em5 =ema(p,periods);


GfxSelectFont("Arial", 9 );
GfxTextOut( "M100 = " +em5+"",430, 60 );
GfxSetTextColor( colorOrange );
GfxSelectFont("Arial", 9 );
_SECTION_END();


_SECTION_BEGIN("EMA 200 ");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
em6 =ema(p,periods);

GfxSelectFont("Arial", 9 );
GfxSetTextColor( colorOrange );
GfxTextOut( "M200 = " +em6+"",550, 60 );
GfxSelectFont("Arial", 9 );
_SECTION_END();



mbcfor غير متواجد حالياً   رد مع اقتباس
إضافة رد



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

الكلمات الدلالية (Tags)
معادلة , ايمي , بروكر , توجد , تحليل , رقمي , صوره , ؟

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

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

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

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




03:32 PM


الاعلان بمنتدى هوامير البورصة
تشغيل وتطوير افاق الإقتصاد
Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
جميع المواضيع و الردود المطروحة لا تعبر عن رأي المنتدى بل تعبر عن رأي كاتبها وقرار البيع والشراء مسؤليتك وحدك

بناء على نظام السوق المالية بالمرسوم الملكي م/30 وتاريخ 2/6/1424هـ ولوائحه التنفيذية الصادرة من مجلس هيئة السوق المالية: تعلن الهيئة للعموم بانه لا يجوز جمع الاموال بهدف استثمارها في اي من اعمال الاوراق المالية بما في ذلك ادارة محافظ الاستثمار او الترويج لاوراق مالية كالاسهم او الاستتشارات المالية او اصدار التوصيات المتعلقة بسوق المال أو بالاوراق المالية إلا بعد الحصول على ترخيص من هيئة السوق المالية.