قديم 28-10-2006, 03:11 AM
  المشاركه #1

كاتب قدير

تاريخ التسجيل: Oct 2005
المشاركات: 8,276
منادي_2005 غير متواجد حالياً  
مواضيع مدمجة عن معادلات الأمي بروكر
السلام عليكم

تم دمج عدد من المواضيع المتعلقة بمعادلات الأمي بروكر
أتمنى ان تحوز على رضاكم

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


رد مع اقتباس
 
 

قديم 28-10-2006, 03:12 AM
  المشاركه #2

كاتب قدير

تاريخ التسجيل: Oct 2005
المشاركات: 8,276
منادي_2005 غير متواجد حالياً  
مشاركة: ثلاث معادلات بالامي بروكر طبقها وريح نفسك
_SECTION_BEGIN("Inverse Fisher ");
// General - purpose Inverse Fisher Transfor function
function InvFisherTfm( array )
{
e2y = exp( 2 * array );
return ( e2y - 1 )/( e2y + 1 );
}

Value1 = 0.1 * ( RSI( 5 ) - 50 );
Value2 = WMA( Value1, 5 );

Plot( InvFisherTfm( Value2 ), "IFT-RSI", colorRed, styleThick );
PlotGrid( 0.5 );
PlotGrid(-0.5 );
PlotGrid(-1 );
PlotGrid(1 );
_SECTION_END();




رد مع اقتباس
قديم 28-10-2006, 03:13 AM
  المشاركه #3

كاتب قدير

تاريخ التسجيل: Oct 2005
المشاركات: 8,276
منادي_2005 غير متواجد حالياً  
مشاركة: ثلاث معادلات بالامي بروكر طبقها وريح نفسك
//|------------------------------------------------------------------
//|Tradingbasis.com - Alert 2 indi***or based
//|Version:1.3 28-December-2005
//|Copyright © 2005, Tradingbasis.com
//|http://www.tradingbasis.com
//|e-mail: support@tradingbasis.com
//|------------------------------------------------------------------

_SECTION_BEGIN("Specific parameters");
AcousticSwitch = ParamToggle("Acoustic alert","Off,On",1);
EmailSwitch = ParamToggle("Email alert","Off,On",0);
Offset = Param("Maximum deviation",20,0.01,200,0.01);
Centering = ParamToggle("Range centering","Off,On",0);
SuColor = ParamColor("Lower range",colorGreen);
ReColor = ParamColor("Upper range",colorRed);
SU = Param("Lower level",-100,-100,100,1);
RE = Param("Upper level",100,-100,100,1);
Indcolor = ParamColor("Indi***or color",colorBlue);
Indstyle = ParamStyle("Indi***or style",styleLine,maskAll);
Taio = 100*tbTysc()/tbTysf(tbTyse(abs(tbTysd())));
_SECTION_END();

Ind = Taio; //Enter your indi***or here

ALON = AcousticSwitch|EmailSwitch;

SuAL_L = IIf(Centering,SU-Offset,SU);
SuAL_H = SU+Offset;
ReAL_L = RE-Offset;
ReAL_H = IIf(Centering,RE+Offset,Re);

//////////////////////////////////////////////////////////////
//buy alert 1
Buy_1 = Ind<SuAL_H & Ind>=SuAL_L;//Indi***or in support range
Buytext_1 = "Indi***or in lower range";
lastdatetime = LastValue(DateTime());
if( LastValue(Buy_1)
AND lastdatetime > Nz(StaticVarGet( "AlertFlag1"+Name() ) ) )
{ StaticVarSet( "AlertFlag1"+Name(),Lastdatetime );
AlertIf(True AND AcousticSwitch,"SOUND C:\\Windows\\Media\\Ding.wav",Buytext_1,1,0,1);
AlertIf(True AND EmailSwitch,"EMAIL",Buytext_1,1,0,1);
}
//////////////////////////////////////////////////////////////
//Buy alert 2
Buy_2 = Cross(Ind,SuAL_H); //Indi***or breaks out of lower range
Buytext_2 = "Indi***or left lower range";
lastdatetime = LastValue(DateTime());
if( LastValue(Buy_2)
AND lastdatetime > Nz(StaticVarGet( "AlertFlag2"+Name() ) ) )
{ StaticVarSet( "AlertFlag2"+Name(),Lastdatetime );
AlertIf(True AND AcousticSwitch,"SOUND C:\\Windows\\Media\\Ding.wav",Buytext_2,1,0,1);
AlertIf(True AND EmailSwitch,"EMAIL",Buytext_2,1,0,1);
}
//////////////////////////////////////////////////////////////
//Sell alert 1
Sell_1 = Cross(ReAL_L,Ind);//Indi***or breaks out of upper range
Selltext_1 = "Indi***or left upper range";
lastdatetime = LastValue(DateTime());
if( LastValue(Sell_1)
AND lastdatetime > Nz(StaticVarGet( "AlertFlag3"+Name() ) ) )
{ StaticVarSet( "AlertFlag3"+Name(),Lastdatetime );
AlertIf(True AND AcousticSwitch,"SOUND C:\\Windows\\Media\\Ding.wav",Selltext_1,2,0,1);
AlertIf(True AND EmailSwitch,"EMAIL",Selltext_1,2,0,1);
}
//////////////////////////////////////////////////////////////
//Sell alert 2
Sell_2 = Ind>ReAL_L & Ind<=ReAL_H;//Indi***or in upper range
Selltext_2 = "Indi***or in upper range";
lastdatetime = LastValue(DateTime());
if( LastValue(Sell_2)
AND lastdatetime > Nz(StaticVarGet( "AlertFlag4"+Name() ) ) )
{ StaticVarSet( "AlertFlag4"+Name(),Lastdatetime );
AlertIf(True AND AcousticSwitch,"SOUND C:\\Windows\\Media\\Ding.wav",Selltext_2,2,0,1);
AlertIf(True AND EmailSwitch,"EMAIL",Selltext_2,2,0,1);
}


Buy = Buy_1 OR Buy_2;
Sell = Sell_1 OR Sell_2;


//////////////////////////////////////////////////////////////
Plot(Ind,"Indi***or",Indcolor,Indstyle);
Plot(SU,"Low-Level",SuColor,styleDashed);
Plot(RE,"High-Level",ReColor,styleDashed);
Shift = 10;
x=Cum(1); Lx = x >=LastValue(x)-Shift;
CV = IIf(Version()>=4.72,1,0);
Plot(IIf(Lx & CV,SuAL_L,-1e10),"",SuColor,styleNoRescale+styleNoLabel,0,0,Shift);
Plot(IIf(Lx & CV,SuAL_H,-1e10),"",SuColor,styleNoRescale,0,0,Shift);
Plot(IIf(Lx & CV,ReAL_L,-1e10),"",ReColor,styleNoRescale,0,0,Shift);
Plot(IIf(Lx & CV,ReAL_H,-1e10),"",ReColor,styleNoRescale+styleNoLabel,0,0,Shift);
Nd = IIf(Su==0&Re>0,1,IIf(Re==0&Su>0,2,IIf(Su==0 & Re==0,3,0)));
SetChartOptions(0,chartShowDates);

Title = "Tradingbasis.com - Alert 2" +
EncodeColor(Sucolor)+" Low level: " + WriteVal(SU,1.1)+
" (" + WriteVal(SuAL_L,1.1)+" to "+WriteVal(SuAL_H,1.1)+")"+
EncodeColor(Recolor)+" High level: " + WriteVal(RE,1.1)+
" (" + WriteVal(ReAL_L,1.1)+" to "+WriteVal(ReAL_H,1.1)+")\n"+
EncodeColor(colorBlue)+"Max. deviation = "+WriteVal(Offset,1.2)+" points"
+ " Activated alerts:"
+WriteIf(AcousticSwitch AND NOT Emailswitch," acoustic",
WriteIf(EmailSwitch AND NOT AcousticSwitch," email",
WriteIf(EmailSwitch AND AcousticSwitch," accoustic & email"," none")));




رد مع اقتباس
قديم 28-10-2006, 03:14 AM
  المشاركه #4

كاتب قدير

تاريخ التسجيل: Oct 2005
المشاركات: 8,276
منادي_2005 غير متواجد حالياً  
مشاركة: ثلاث معادلات بالامي بروكر طبقها وريح نفسك
_SECTION_BEGIN("RSI");
SetChartOptions(0,0,chartGrid30|chartGrid70);
periods = Param( "Periods", 15, 1, 200, 1 );
Plot( RSI( periods), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );

Buy = Cross( RSI(), 30 );
Sell = Cross( 70, RSI() );

_SECTION_END();




رد مع اقتباس
قديم 28-10-2006, 03:15 AM
  المشاركه #5

كاتب قدير

تاريخ التسجيل: Oct 2005
المشاركات: 8,276
منادي_2005 غير متواجد حالياً  
مشاركة: ثلاث معادلات بالامي بروكر طبقها وريح نفسك
فقط انسخ المعادلة وركبها بالامي بروكر بالتوفيق للجميع



رد مع اقتباس
قديم 28-10-2006, 03:17 AM
  المشاركه #6

كاتب قدير

تاريخ التسجيل: Oct 2005
المشاركات: 8,276
منادي_2005 غير متواجد حالياً  
مشاركة: ثلاث معادلات بالامي بروكر طبقها وريح نفسك
مع العلم ان المعادلة الثالثة rsi وبأمكانك تعملها معادلة scan



رد مع اقتباس
قديم 28-10-2006, 03:18 AM
  المشاركه #7

كاتب قدير

تاريخ التسجيل: Oct 2005
المشاركات: 8,276
منادي_2005 غير متواجد حالياً  
مشاركة: ثلاث معادلات بالامي بروكر طبقها وريح نفسك
طبعا تسألوني متى البيع (( تبيع السهم حسب قناعتك ))



رد مع اقتباس
قديم 28-10-2006, 04:36 AM
  المشاركه #8

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

تاريخ التسجيل: Jun 2005
المشاركات: 378
لحظة عمر غير متواجد حالياً  
مشاركة: ثلاث معادلات بالامي بروكر طبقها وريح نفسك
بارك الله فيك أخي منادي ونفع بماقلت



رد مع اقتباس
قديم 28-10-2006, 05:15 AM
  المشاركه #9

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

تاريخ التسجيل: Jul 2006
المشاركات: 1,149
عرقوب السوق غير متواجد حالياً  
مشاركة: ثلاث معادلات بالامي بروكر طبقها وريح نفسك
يعطيك الف عافيه



رد مع اقتباس
قديم 28-10-2006, 03:09 PM
  المشاركه #10

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

تاريخ التسجيل: Aug 2006
المشاركات: 610
محظوظ جداً غير متواجد حالياً  
مشاركة: ثلاث معادلات بالامي بروكر طبقها وريح نفسك
اخي منادي شكرا لك ولكن المعادلة الثانية لم تظهر عندي

فما هو اسمها ولو ممكن ترسل لي الملف مباشرة ؟؟




رد مع اقتباس
إضافة رد



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

الكلمات الدلالية (Tags)
لعشاق, مواضيع, مجوعة, مدمجة, معادلات, الأمي, المعادلات, الخاصة, بالعضو, بروكر, تستاهلون, خير, ksa, lord, كبيرة, عن

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

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

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

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



01:00 PM