 Moderator Forum Addict

Regist.: 02/04/2011 Topics: 10 Posts: 171
 OFFLINE |
অ্যামিব্রোকারে ফরমুলা এডিট এর সাহায্যে অনেকগুলো কাস্টম ইন্ডিকেটর বানানো যায় এবং আরও কিছু কাজ করা যায়। সেই কাস্টম ফরমুলাগুলোর মধ্যে কিছু আমি আস্তে আস্তে দেওয়ার জন্য চেষ্টা করব। আজকে MACD এর সাথে সম্পর্কিত একটি এএফএল দিলাম। আমরা জানি যে MACD একটি ল্যাগিং ইন্ডিকেটর। আজকের ফরমুলা এর সাহায্যে এই ল্যাগিং এর মাত্রা বেশ কমানো যাবে। এটি আপনারা হুবহু কপি করে FORMULA EDITOR এ পেস্ট করবেন। তারপর FORMULA EDITOR এর ইনসার্ট বাটন প্রেস করবেন এবং অ্যাপ্লাই বাটন ও প্রেস করবেন। পরবর্তীতে দেখবেন ইন্ডিকেটরটি আপনার কাস্টম ইন্ডিকেটর এ সেভ হয়ে আছে। নিম্নে আমি ফরমুলাটা লিখে দিলাম (ফরমুলাটি সংগ্রহ করা হয়েছে)-
("Zero Lag MACD");
/*Xero Lag MACD(p,q,r)*/
//based on ZeroLag EMA - see Technical Analysis of Stocks and Commodities, April 2000
p = Param("P",12,3,36,2);
q = Param("Q",26,3,52,2);
r = Param("R",9,3,15,1);
EMA1= EMA(Close,p);
EMA2= EMA(EMA1,p);
Difference= EMA1 - EMA2;
ZeroLagEMAp= EMA1 + Difference;
//---------------------------------------
EMA1= EMA(Close,q);
EMA2= EMA(EMA1,q);
Difference= EMA1 - EMA2;
ZeroLagEMAq= EMA1 + Difference;
//---------------------------------------
ZeroLagMACD=ZeroLagEMAp - ZeroLagEMAq;
//---------------------------------------
// Signal line
EMA1= EMA(ZeroLagMACD,r);
EMA2= EMA(EMA1,r);
Difference= EMA1 - EMA2;
ZeroLagTRIG= EMA1 + Difference;
Plot(zerolagMACD,"",5,4);
Plot(zerolagtrig,"",colorCustom12,4);
HistInd = zerolagMACD - zerolagtrig;
scHistMax = LastValue(HHV(HistInd,
BarsSince( Status("barvisible") AND NOT Ref(Status("barvisible"),-1) )));
scHistMin = LastValue(LLV(HistInd,
BarsSince( Status("barvisible") AND NOT Ref(Status("barvisible"),-1) )));
scaleHist = Max( abs(scHistMax), abs(scHistMin) );
Plot(HistInd, _DEFAULT_NAME(),
IIf(HistInd>=0, ParamColor("Up Color", colorGreen), ParamColor("Down Color", colorRed)),
ParamStyle( "Style", styleHistogram | styleThick, maskHistogram )
);
Plot( 0, "", colorBlue, styleLine);
//===========================end zeroLagMACD
_SECTION_END(); |