Convert

V

vmtmuthu

New Member
#1
#1
Pls convert to Ami

//+------------------------------------------------------------------+
//| Fractals.mq4 |
//| Copyright ? 2009, ??????? ??????? |
//| [email protected] |
//+------------------------------------------------------------------+
#property copyright "Copyright ? 2009, ??????? ???????"
#property link "[email protected]"

#property indicator_chart_window
//double Fr_Buffer[];
double Fr_UPPER,Fr_LOWER,High_Fr_LOWER,High_Fr_LOWER_2;
double High_Win,Low_Win,shift_X,shift_Y;
int per,T_Fr_LOWER,T_Fr_UPPER,Low_Fr_UPPER,Low_Fr_UPPER_2,Level_new;
string ?????,??????;
extern color ????_UP=Yellow;
extern color ????_DN=Magenta;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
del();
Level_new=MarketInfo(Symbol(),MODE_STOPLEVEL); //??????? ?????????? ?????????? TakeProft ? StopLoss
per =Period();
??????=string_???(per);
Comment("???????? "+??????+" "+?????(CurTime()));
return(0);
}
//+------------------------------------------------------------------+

//???????????????????????????????????????????????????????????????????
//////////////////////////////////////////////////////////////////////
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function |
//+------------------------------------------------------------------+
int start()
{
Fr_UPPER=0;
Fr_LOWER=100000;
High_Win = WindowPriceMax();
Low_Win = WindowPriceMin();
shift_X = WindowBarsPerChart()/80*per;
shift_Y = (High_Win-Low_Win) / 50;
int s=0;
for(int n=WindowBarsPerChart(); n>=0; n--)
Fractal(n);


/* if (Fractal(n)!=0)
{
s++;
ObjectDelete ("Name1 "+s);
ObjectCreate ("Name1 "+s, OBJ_LABEL, 0, 0, 0);// ???????? ???.
ObjectSetText("Name1 "+s, n+" "+DoubleToStr(Fr_UPPER,Digits)+" "+DoubleToStr(Fr_LOWER,Digits) ,8,"Arial");
ObjectSet ("Name1 "+s, OBJPROP_CORNER, 3);
ObjectSet ("Name1 "+s, OBJPROP_XDISTANCE, 10);
ObjectSet ("Name1 "+s, OBJPROP_YDISTANCE, 10+10*s);
ObjectSet ("Name1 "+s, OBJPROP_COLOR, White); // ????
}*/

return; // ????? ?? deinit()
}
//*////////////////////////////////////////////////////////////////*//
//???????????????????????????????????????????????????????????????????

//???????????????????????????????????????????????????????????????????
//////////////////////////////////////////////////////////////////////
int Fractal(int br)
{
double Fr_Up = iFractals(NULL, 0, MODE_UPPER, br+3);
double Fr_Dn = iFractals(NULL, 0, MODE_LOWER, br+3);
if (Fr_Dn==0 && Fr_Up==0) return(0);
string sTime = ?????(Time[br+3])+" "+??????;
int ????=0,?????=0,i;
//----------------------------------- ?????? ??????? ---------------------------------------------------------------------------------------------------
if (Fr_Dn!=0 && Fr_LOWER > Fr_Dn)
{
Fr_LOWER = Fr_Dn; High_Fr_LOWER=High[br+3]; High_Fr_LOWER_2=High[br+2]; T_Fr_LOWER=Time[br+3];
if (Fr_UPPER>0 && (Fr_UPPER-Open[br])>(Open[br]-Fr_LOWER))//???????????? ????????
{
ObjectCreate("Fr "+sTime+" LOWER ", OBJ_ARROW,0,Time[br+3],Fr_Dn-shift_Y*2,0,0,0,0);
ObjectSet ("Fr "+sTime+" LOWER ", OBJPROP_ARROWCODE,218);
ObjectSet ("Fr "+sTime+" LOWER ", OBJPROP_COLOR,????_DN );
ObjectCreate("Fr sl "+sTime+" start_LOWER", OBJ_TREND, 0 ,T_Fr_UPPER,Fr_UPPER, T_Fr_LOWER,Fr_LOWER);
ObjectSet ("Fr sl "+sTime+" start_LOWER", OBJPROP_COLOR, ????_DN); // ????
ObjectSet ("Fr sl "+sTime+" start_LOWER", OBJPROP_STYLE, STYLE_DOT);// ?????
ObjectSet ("Fr sl "+sTime+" start_LOWER", OBJPROP_BACK, true);
ObjectSet ("Fr sl "+sTime+" start_LOWER", OBJPROP_RAY, false); // ???
????=0;
for (i=1; i<=5; i++) {color_bar(per,br+i,Fr_Dn-shift_Y); if (????a_????(per,br+i)==1||????a_????(per,br+i)==4) ????++;}
?????=(Fr_UPPER-Fr_LOWER)/Point/Level_new;
????? = "Fr "+sTime+" LOWER????"+" ? "+DoubleToStr(?????,0)+"-"+DoubleToStr((Open[br]-Fr_LOWER)/Point/Level_new,0)+" ??? "+DoubleToStr((T_Fr_LOWER-T_Fr_UPPER)/per/60,0)+" MACD "+DoubleToStr(iMACD(NULL,per,5,34,5,PRICE_CLOSE,MODE_MAIN ,br+3),Digits)+ " ? "+DoubleToStr(????,0)+" "+string_???(per);
ObjectDelete (?????);
ObjectCreate (?????, OBJ_TEXT,0,Time[br+3],Fr_Dn-shift_Y*3.2,0,0,0,0);
ObjectSetText(?????,DoubleToStr(iMACD(NULL,per,5,34,5,PRICE_CLOSE,MODE_MAIN ,br+3),Digits)+" "+DoubleToStr(iMFI(NULL,per,15,br+3),0),8,"Arial");
ObjectSet (?????, OBJPROP_COLOR, ????_DN);
Fr_UPPER=0;T_Fr_UPPER=0;Low_Fr_UPPER=0;Low_Fr_UPPER_2=0;
return(1);
}
}
//----------------------------------- ??????? ??????? ---------------------------------------------------------------------------------------------------
if (Fr_Up!=0 && Fr_UPPER < Fr_Up)
{
Fr_UPPER=Fr_Up; Low_Fr_UPPER=Low[br+3]; Low_Fr_UPPER_2=Low[br+2]; T_Fr_UPPER=Time[br+3];
if (Fr_LOWER<100000 && (Fr_UPPER-Open[br])<(Open[br]-Fr_LOWER))//???????????? ????????
{
ObjectCreate("Fr "+sTime+" UPPER", OBJ_ARROW,0,Time[br+3],Fr_Up+shift_Y*2,0,0,0,0);
ObjectSet ("Fr "+sTime+" UPPER", OBJPROP_ARROWCODE,217);
ObjectSet ("Fr "+sTime+" UPPER", OBJPROP_COLOR,????_UP );
ObjectCreate("Fr su "+sTime+" start_UPPER", OBJ_TREND, 0, T_Fr_LOWER,Fr_LOWER ,T_Fr_UPPER,Fr_UPPER);
ObjectSet ("Fr su "+sTime+" start_UPPER", OBJPROP_COLOR, ????_UP); // ????
ObjectSet ("Fr su "+sTime+" start_UPPER", OBJPROP_STYLE, STYLE_SOLID);// ?????
ObjectSet ("Fr su "+sTime+" start_UPPER", OBJPROP_BACK, true);
ObjectSet ("Fr su "+sTime+" start_UPPER", OBJPROP_RAY, false); // ???
????=0;
for (i=1; i<=5; i++) {color_bar(per,br+i,Fr_Up+shift_Y);if (????a_????(per,br+i)==1||????a_????(per,br+i)==4) ????++;}
?????=(Fr_UPPER-Fr_LOWER)/Point/Level_new;
?????="Fr "+sTime+" UPPER????"+" ? "+DoubleToStr(?????,0)+"-"+DoubleToStr((Fr_UPPER-Open[br])/Point/Level_new,0)+" ??? "+DoubleToStr((T_Fr_UPPER-T_Fr_LOWER)/per/60,0)+" MACD "+" ? "+DoubleToStr(????,0)+" "+string_???(per);
ObjectDelete (?????);
ObjectCreate (?????, OBJ_TEXT,0,Time[br+3],Fr_Up+shift_Y*3.0,0,0,0,0);
ObjectSetText(?????, DoubleToStr(iMACD(NULL,per,5,34,5,PRICE_CLOSE,MODE_MAIN ,br+3),Digits)+" "+DoubleToStr(iMFI(NULL,per,15,br+3),0) ,8,"Arial");
ObjectSet (?????, OBJPROP_COLOR, ????_UP);
Fr_LOWER=100000;T_Fr_LOWER=0;High_Fr_LOWER=0;High_Fr_LOWER_2=0;
return(-1);
}
}
//----------------------------
return(0);
}
//////////////////////////////////////////////////////////////////////
// Fractal
//////////////////////////////////////////////////////////////////////
//???????????????????????????????????????????????????????????????????

//???????????????????????????????????????????????????????????????????
//*////////////////////////////////////////////////////////////////*//

int deinit() // ????. ?-?? deinit()
{
del();
return; // ????? ?? deinit()
}
//*////////////////////////////////////////////////////////////////*//
//???????????????????????????????????????????????????????????????????

//???????????????????????????????????????????????????????????????????
//*////////////////////////////////////////////////////////////////*//
int del() // ????. ?-?? deinit()
{
for(int n=ObjectsTotal()-1; n>=0; n--)
{
string Obj_Name=ObjectName(n);
if (StringFind(Obj_Name,"Fr",0) != -1)
{
ObjectDelete(Obj_Name);
}
}
return; // ????? ?? deinit()
}
//*////////////////////////////////////////////////////////////////*//
//???????????????????????????????????????????????????????????????????

//???????????????????????????????????????????????????????????????????
///////////////////////////////////////////////////////////////////
string ?????(int taim)
{
string sTaim;
//int YY=TimeYear(taim); // Year
int MN=TimeMonth(taim); // Month
int DD=TimeDay(taim); // Day
int HH=TimeHour(taim); // Hour
int MM=TimeMinute(taim); // Minute

if (DD<10) sTaim = "0"+DoubleToStr(DD,0);
else sTaim = DoubleToStr(DD,0);
sTaim = sTaim+"/";
if (MN<10) sTaim = sTaim+"0"+DoubleToStr(MN,0);
else sTaim = sTaim+DoubleToStr(MN,0);
sTaim = sTaim+" ";
if (HH<10) sTaim = sTaim+"0"+DoubleToStr(HH,0);
else sTaim = sTaim+DoubleToStr(HH,0);
if (MM<10) sTaim = sTaim+":0"+DoubleToStr(MM,0);
else sTaim = sTaim+":"+DoubleToStr(MM,0);
return(sTaim);
}
//*////////////////////////////////////////////////////////////////*//
//???????????????????????????????????????????????????????????????????

//???????????????????????????????????????????????????????????????????
//////////////////////////////////////////////////////////////////////
// ????????? ????
//-------------------------------------------------------------------
int color_bar(int per, int br, double Y)
{
int X = iTime ( NULL, per, br);
string sTime = ?????(Time[br]);
color ????;
switch(????a_????(per,br))//???? ????? MFI
{
case 1 ://???????
????=Lime;break;
case 2 ://?????????
????=Sienna;break;
case 3 ://?????????
????=Blue;break;
case 4 ://???????????}
????=DeepPink;break;
default:
????=White;
}
ObjectDelete("Fr color_bar "+sTime);
ObjectCreate("Fr color_bar "+sTime, OBJ_ARROW,0,X,Y,0,0,0,0);
ObjectSet ("Fr color_bar "+sTime, OBJPROP_ARROWCODE,117);
ObjectSet ("Fr color_bar "+sTime, OBJPROP_COLOR,???? );
ObjectSet ("Fr color_bar "+sTime, OBJPROP_WIDTH, 0);
ObjectSet ("Fr color_bar "+sTime, OBJPROP_BACK, true);
}
//////////////////////////////////////////////////////////////////////
//???????????????????????????????????????????????????????????????????

//???????????????????????????????????????????????????????????????????
//////////////////////////////////////////////////////////////////////
int ????a_????(int per, int br)
{
if ( iVolume(NULL, per, br) > iVolume(NULL, per, br+1) && iBWMFI(NULL, per, br) > iBWMFI(NULL, per, br+1) ) return(1); //???????
if ( iVolume(NULL, per, br) < iVolume(NULL, per, br+1) && iBWMFI(NULL, per, br) < iBWMFI(NULL, per, br+1) ) return(2); //?????????
if ( iVolume(NULL, per, br) < iVolume(NULL, per, br+1) && iBWMFI(NULL, per, br) > iBWMFI(NULL, per, br+1) ) return(3); //?????????
if ( iVolume(NULL, per, br) > iVolume(NULL, per, br+1) && iBWMFI(NULL, per, br) < iBWMFI(NULL, per, br+1) ) return(4); //???????????
return(0);//??????
}
//////////////////////////////////////////////////////////////////////
//???????????????????????????????????????????????????????????????????

//???????????????????????????????????????????????????????????????????
//*////////////////////////////////////////////////////////////////*//
string string_???(int per)
{
switch(per)
{
case 1 : return("M_1"); //1 ??????
break;
case 5 : return("M_5"); //5 ?????
break;
case 15 : return("M15"); //15 ?????
break;
case 30 : return("M30"); //30 ?????
break;
case 60 : return("H 1"); //1 ???
break;
case 240 : return("H_4"); //4 ????
break;
case 1440 : return("D_1"); //1 ????
break;
case 10080: return("W_1"); //1 ??????
break;
case 43200: return("MN1"); //1 ?????
break;
}
return("?????? ???????");
}
//*////////////////////////////////////////////////////////////////*//
//???????????????????????????????????????????????????????????????????
 

Attachments

You must log in or register to reply here.
Thread starter Similar threads Forum Replies Date
S prev metastock convert to afl AmiBroker 0
G Need Help with converting this Pinescript to AFL AmiBroker 0
M convert to AFL AmiBroker 0
S Need help in converting Pine Script to AFL General Trading & Investing Chat 0
S Convert Simple Thinkscript Support/Resistance Lines into AFL AmiBroker 4

Similar threads