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

كاتب قدير

تاريخ التسجيل: Oct 2005
المشاركات: 8,424
منادي_2005 غير متواجد حالياً  

السلام عليكم

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

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


رد مع اقتباس
 
 

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

كاتب قدير

تاريخ التسجيل: Oct 2005
المشاركات: 8,424
منادي_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,424
منادي_2005 غير متواجد حالياً  

//|------------------------------------------------------------------
//|Tradingbasis.com - Alert 2 indi***or based
//|Version:1.3 28-December-2005
//|Copyright © 2005, Tradingbasis.com
//|http://www.tradingbasis.com
//|e-mail: supporttradingbasis.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,424
منادي_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,424
منادي_2005 غير متواجد حالياً  

فقط انسخ المعادلة وركبها بالامي بروكر بالتوفيق للجميع


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

كاتب قدير

تاريخ التسجيل: Oct 2005
المشاركات: 8,424
منادي_2005 غير متواجد حالياً  

مع العلم ان المعادلة الثالثة rsi وبأمكانك تعملها معادلة scan


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

كاتب قدير

تاريخ التسجيل: Oct 2005
المشاركات: 8,424
منادي_2005 غير متواجد حالياً  

طبعا تسألوني متى البيع (( تبيع السهم حسب قناعتك ))


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

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

تاريخ التسجيل: Jun 2005
المشاركات: 378
لحظة عمر غير متواجد حالياً  

بارك الله فيك أخي منادي ونفع بماقلت


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

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

تاريخ التسجيل: Jul 2006
المشاركات: 1,148
عرقوب السوق غير متواجد حالياً  

يعطيك الف عافيه


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

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

تاريخ التسجيل: Aug 2006
المشاركات: 754
محظوظ جداً غير متواجد حالياً  

اخي منادي شكرا لك ولكن المعادلة الثانية لم تظهر عندي

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



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

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

تاريخ التسجيل: Sep 2005
المشاركات: 1,167
anaas غير متواجد حالياً  

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

فما هو اسمها ولو ممكن ترسل لي الملف مباشرة ؟؟
نفس المشكله يشير إلى وجود خطأ

بـــارك اللـــــه فــــيك أخي منادي



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

كاتب قدير

تاريخ التسجيل: Oct 2005
المشاركات: 8,424
منادي_2005 غير متواجد حالياً  

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

فما هو اسمها ولو ممكن ترسل لي الملف مباشرة ؟؟
المعادلة الثالثة تجدها في قائمة tradingbasis
بمسمى ( -alerts-tb alert2 indi***or )
مع العلم ان الخطأ مو من المعادلة بل ان ادارة الموقع حذفت بعض الاحرف في المعادلة ووضع مكانها علامة *****



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


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

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

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

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

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



11:05 PM