logo

هوامير البورصة السعودية > الاقسام الرئيسية لموقع هوامير البورصة > برامج التحليل الفني والاساسي

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



إضافة رد
صفحة 1 من 3
1
2
3
قديم 21-11-2014, 02:02 AM
  المشاركه #1

mbcfor

عضو هوامير المميز

تاريخ التسجيل: Jan 2010
المشاركات: 2,514
mbcfor غير متواجد حالياً  
معادلة ايمي بروكر تحليل رقمي (توجد صوره ) ...؟

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

وادعوا لي بالشفاء العاجل وان شاء الله تعجبكم
أقتباس_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();



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

الموضوع الأصلي : اضغط هنا    ||   المصدر : منتدى هوامير البورصة السعودية


رد مع اقتباس
 
  
قديم 21-11-2014, 02:32 AM
  المشاركه #2

DABL@

عضو هوامير المميز

تاريخ التسجيل: Oct 2013
المشاركات: 503
DABL@ غير متواجد حالياً  

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







ونعم بالله العلي العظيم


رد مع اقتباس
قديم 21-11-2014, 12:50 PM
  المشاركه #3

& كبرياء رجل &

عضو هوامير المميز

تاريخ التسجيل: Oct 2007
المشاركات: 189
& كبرياء رجل & غير متواجد حالياً  

اللهم البسه ثوب الصحه والعافيه عاجلاً غير آجلا يا أرحم الراحمين..



رد مع اقتباس
قديم 21-11-2014, 09:03 PM
  المشاركه #4

haat

عضو هوامير المميز

تاريخ التسجيل: Dec 2011
المشاركات: 310
haat غير متواجد حالياً  

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

وعجل شفائه ياارحم الراحمين



رد مع اقتباس
قديم 21-11-2014, 10:07 PM
  المشاركه #5

almasdar

عضو هوامير المؤسس

تاريخ التسجيل: Jul 2005
المشاركات: 2,316
almasdar غير متواجد حالياً  

بيض الله وجهك

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


والله رائعه جدا وفقك الله


رد مع اقتباس
قديم 21-11-2014, 10:18 PM
  المشاركه #6

almasdar

عضو هوامير المؤسس

تاريخ التسجيل: Jul 2005
المشاركات: 2,316
almasdar غير متواجد حالياً  

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

شاكر جدا ومقدر


رد مع اقتباس
قديم 21-11-2014, 11:20 PM
  المشاركه #7

mbcfor

عضو هوامير المميز

تاريخ التسجيل: Jan 2010
المشاركات: 2,514
mbcfor غير متواجد حالياً  

اقتباس:
المشاركة الأصلية كتبت بواسطة 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();




رد مع اقتباس
قديم 21-11-2014, 11:23 PM
  المشاركه #8

mbcfor

عضو هوامير المميز

تاريخ التسجيل: Jan 2010
المشاركات: 2,514
mbcfor غير متواجد حالياً  

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







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

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

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

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


والله رائعه جدا وفقك الله
ووجهك وجزاك الله خير


رد مع اقتباس
قديم 22-11-2014, 02:23 AM
  المشاركه #9

almasdar

عضو هوامير المؤسس

تاريخ التسجيل: Jul 2005
المشاركات: 2,316
almasdar غير متواجد حالياً  

الف شكر

الله يكثر امثالك ويجزاك الخير كله


رد مع اقتباس
قديم 22-11-2014, 09:16 PM
  المشاركه #10

ابو غيداء

كاتب قدير

تاريخ التسجيل: Jul 2006
المشاركات: 36,145
ابو غيداء غير متواجد حالياً  

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

وعجل شفائه ياارحم الراحمين



رد مع اقتباس
قديم 23-11-2014, 11:38 PM
  المشاركه #11

mbcfor

عضو هوامير المميز

تاريخ التسجيل: Jan 2010
المشاركات: 2,514
mbcfor غير متواجد حالياً  

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

وعجل شفائه ياارحم الراحمين
جزاك الله خير


رد مع اقتباس
قديم 23-11-2014, 11:48 PM
  المشاركه #12

mbcfor

عضو هوامير المميز

تاريخ التسجيل: Jan 2010
المشاركات: 2,514
mbcfor غير متواجد حالياً  

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

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


أقتباس_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();






رد مع اقتباس
إضافة رد
صفحة 1 من 3
1
2
3


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

« تداول الراجحي | لدي مشكله مباشر برو لايحدث البيانات اللحظية »
أدوات الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك
BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة
الانتقال السريع

هوامير البورصة السعودية - الأرشيف - الأعلى


09:47 PM

images

adswithus

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions, Inc.

Search Engine Optimisation provided by DragonByte SEO (Pro) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
جميع المواضيع و الردود المطروحة لا تعبر عن رأي الموقع بل تعبر عن رأي كاتبها وقرار البيع والشراء مسؤليتك وحدك

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