logo




قديم 28-10-2006, 03:11 AM
  المشاركه #1
كاتب قدير
تاريخ التسجيل: Oct 2005
المشاركات: 8,355
 

السلام عليكم

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

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

 
 
قديم 28-10-2006, 03:12 AM
  المشاركه #2
كاتب قدير
تاريخ التسجيل: Oct 2005
المشاركات: 8,355
 

_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,355
 

//|------------------------------------------------------------------
//|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,355
 

_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,355
 

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



قديم 28-10-2006, 03:17 AM
  المشاركه #6
كاتب قدير
تاريخ التسجيل: Oct 2005
المشاركات: 8,355
 

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



قديم 28-10-2006, 03:18 AM
  المشاركه #7
كاتب قدير
تاريخ التسجيل: Oct 2005
المشاركات: 8,355
 

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



قديم 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
المشاركات: 647
 

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

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




قديم 28-10-2006, 03:50 PM
  المشاركه #11
عضو هوامير المؤسس
تاريخ التسجيل: Sep 2005
المشاركات: 1,132
 

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

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

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




قديم 28-10-2006, 06:42 PM
  المشاركه #12
كاتب قدير
تاريخ التسجيل: Oct 2005
المشاركات: 8,355
 

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

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







الكلمات الدلالية (Tags)

لعشاق

,

مواضيع

,

مجوعة

,

مدمجة

,

معادلات

,

الأمي

,

المعادلات

,

الخاصة

,

بالعضو

,

بروكر

,

تستاهلون

,

خير

,

ksa

,

lord

,

كبيرة

,

عن


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

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

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

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



06:11 PM