Hello,

Is there some smart programmer who can transform this wunderfull formula to use in Metastock ?

Heiken-Ashi Smoothed (very very nice trading-indicator !!!

For more detailed information, see http://codebase.mql4.com/2754

//+------------------------------------------------------------------+
//| Heiken Ashi Smoothed.mq4 |
//| |
//| mod by Raff |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, Forex-TSD.com "
#property link "http://www.forex-tsd.com/"
//----
#property indicator_chart_window
#property indicator_buffers 4
#property indicator_color1 Red
#property indicator_color2 Lime
#property indicator_color3 Red
#property indicator_color4 Lime
//---- parameters
extern int MaMetod =2;
extern int MaPeriod=6;
extern int MaMetod2 =3;
extern int MaPeriod2=2;
//---- buffers
double ExtMapBuffer1[];
double ExtMapBuffer2[];
double ExtMapBuffer3[];
double ExtMapBuffer4[];
double ExtMapBuffer5[];
double ExtMapBuffer6[];
double ExtMapBuffer7[];
double ExtMapBuffer8[];
//----
int ExtCountedBars=0;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//|------------------------------------------------------------------|
int init()
 {
//---- indicators
 IndicatorBuffers(8);
 SetIndexStyle(0,DRAW_HISTOGRAM, 0, 1, Red);
 SetIndexBuffer(0, ExtMapBuffer1);
 SetIndexStyle(1,DRAW_HISTOGRAM, 0, 1, Lime);
 SetIndexBuffer(1, ExtMapBuffer2);
 SetIndexStyle(2,DRAW_HISTOGRAM, 0, 3, Red);
 SetIndexBuffer(2, ExtMapBuffer3);
 SetIndexStyle(3,DRAW_HISTOGRAM, 0, 3, Lime);
 SetIndexBuffer(3, ExtMapBuffer4);
//----
 SetIndexDrawBegin(0,5);
//---- indicator buffers mapping
 SetIndexBuffer(0,ExtMapBuffer1);
 SetIndexBuffer(1,ExtMapBuffer2);
 SetIndexBuffer(2,ExtMapBuffer3);
 SetIndexBuffer(3,ExtMapBuffer4);
 SetIndexBuffer(4,ExtMapBuffer5);
 SetIndexBuffer(5,ExtMapBuffer6);
 SetIndexBuffer(6,ExtMapBuffer7);
 SetIndexBuffer(7,ExtMapBuffer8);
//---- initialization done
 return(0);
 }
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
 {
//---- TODO: add your code here
//----
 return(0);
 }
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
 {
 double maOpen, maClose, maLow, maHigh;
 double haOpen, haHigh, haLow, haClose;
 if(Bars<=10) return(0);
 ExtCountedBars=IndicatorCounted();
//---- check for possible errors
 if (ExtCountedBars<0) return(-1);
//---- last counted bar will be recounted
 if (ExtCountedBars>0) ExtCountedBars--;
 int pos=Bars-ExtCountedBars-1;
 while(pos>=0)
 {
 maOpen=iMA(NULL,0,MaPeriod,0,MaMetod,MODE_OPEN,pos);
 maClose=iMA(NULL,0,MaPeriod,0,MaMetod,MODE_CLOSE,pos);
 maLow=iMA(NULL,0,MaPeriod,0,MaMetod,MODE_LOW,pos);
 maHigh=iMA(NULL,0,MaPeriod,0,MaMetod,MODE_HIGH,pos);
//----
 haOpen=(ExtMapBuffer5[pos+1]+ExtMapBuffer6[pos+1])/2;
 haClose=(maOpen+maHigh+maLow+maClose)/4;
 haHigh=MathMax(maHigh, MathMax(haOpen, haClose));
 haLow=MathMin(maLow, MathMin(haOpen, haClose));
 if (haOpen<haClose)
 {
 ExtMapBuffer7[pos]=haLow;
 ExtMapBuffer8[pos]=haHigh;
 }
 else
 {
 ExtMapBuffer7[pos]=haHigh;
 ExtMapBuffer8[pos]=haLow;
 }
 ExtMapBuffer5[pos]=haOpen;
 ExtMapBuffer6[pos]=haClose;
 pos--;
 }
 int i;
 for(i=0; i<Bars; i++) ExtMapBuffer1[i]=iMAOnArray(ExtMapBuffer7,Bars,MaPeriod2,0,MaMetod2,i);
 for(i=0; i<Bars; i++) ExtMapBuffer2[i]=iMAOnArray(ExtMapBuffer8,Bars,MaPeriod2,0,MaMetod2,i);
 for(i=0; i<Bars; i++) ExtMapBuffer3[i]=iMAOnArray(ExtMapBuffer5,Bars,MaPeriod2,0,MaMetod2,i);
 for(i=0; i<Bars; i++) ExtMapBuffer4[i]=iMAOnArray(ExtMapBuffer6,Bars,MaPeriod2,0,MaMetod2,i);
//----
 return(0);
 }
//+------------------------------------------------------------------+

It would be a very nice utility to all MetaStock-users !!

Kind regards,

Gilbert Despeghel, Belgium...