//+------------------------------------------------------------------+ //| #(T_S_R)-Monthly Range Calculator.mq4 | //| Copyright © 2006, MetaQuotes Software Corp. | //| http://www.metaquotes.net | //+------------------------------------------------------------------+ #property copyright "Copyright © 2006, MetaQuotes Software Corp." #property link "http://www.metaquotes.net" //+------------------------------------------------------------------+ //| #(T_S_R)-Weekly Range Calculator.mq4 | //| Copyright © 2006, MetaQuotes Software Corp. | //| http://www.metaquotes.net | //+------------------------------------------------------------------+ #property copyright "Copyright © 2006, MetaQuotes Software Corp." #property link "http://www.metaquotes.net" //+------------------------------------------------------------------+ //| #(T_S_R)-Daily Range Calculator .mq4 | //| Copyright © 2006, MetaQuotes Software Corp. | //| http://www.metaquotes.net | //+------------------------------------------------------------------+ #property copyright "Copyright © 2006, MetaQuotes Software Corp." #property link "http://www.metaquotes.net" #property link "Data window & extra Periods by cja" //+------------------------------------------------------------------+ //| TSR_Ranges.mq4 | //| Copyright © 2006, Ogeima | //| ph_bresson@yahoo.com | //+------------------------------------------------------------------+ #property copyright "Copyright © 2006, Ogeima" #property link "ph_bresson@yahoo.com" #property indicator_separate_window //---- input parameters extern double Risk_to_Reward_ratio = 3.0; extern int First_Av = 5; extern int Second_Av = 10; extern int Third_Av = 20; int nDigits; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { IndicatorShortName("TSR_Monthly"); if(Symbol()=="GBPJPY" || Symbol()=="EURJPY" || Symbol()=="USDJPY" || Symbol()=="GOLD" || Symbol()=="USDMXN") nDigits = 2; if(Symbol()=="GBPUSD" || Symbol()=="EURUSD" || Symbol()=="NZDUSD" || Symbol()=="USDCHF" || Symbol()=="USDCAD" || Symbol()=="AUDUSD" || Symbol()=="EURUSD" || Symbol()=="EURCHF" || Symbol()=="EURGBP" || Symbol()=="EURCAD" || Symbol()=="EURAUD" )nDigits = 4; return(0); } //+------------------------------------------------------------------+ //| Custom indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { //---- // Comment(""); //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { //---- int R1=0,R5=0,R10=0,R20=0,RAvg=0; int RoomUp=0,RoomDown=0,StopLoss_Long=0,StopLoss_Short=0; double SL_Long=0,SL_Short=0; double low0=0,high0=0; string Text=""; int i=0; R1 = (iHigh(NULL,PERIOD_MN1,1)-iLow(NULL,PERIOD_MN1,1))/Point; for(i=1;i<=First_Av;i++) R5 = R5 + (iHigh(NULL,PERIOD_MN1,i)-iLow(NULL,PERIOD_MN1,i))/Point; for(i=1;i<=Second_Av;i++) R10 = R10 + (iHigh(NULL,PERIOD_MN1,i)-iLow(NULL,PERIOD_MN1,i))/Point; for(i=1;i<=Third_Av;i++) R20 = R20 + (iHigh(NULL,PERIOD_MN1,i)-iLow(NULL,PERIOD_MN1,i))/Point; R5 = R5/First_Av; R10 = R10/Second_Av; R20 = R20/Third_Av; RAvg = (R1+R5+R10+R20)/4; //RAvg = (R5+R10+R20)/3;new setting low0 = iLow(NULL,PERIOD_MN1,0); high0 = iHigh(NULL,PERIOD_MN1,0); RoomUp = RAvg - (Bid - low0)/Point; RoomDown = RAvg - (high0 - Bid)/Point; StopLoss_Long = RoomUp/Risk_to_Reward_ratio; SL_Long = Bid - StopLoss_Long*Point; StopLoss_Short = RoomDown/Risk_to_Reward_ratio; SL_Short = Bid + StopLoss_Short*Point; Text = "Average Months Range: " + RAvg + "\n" + "Prev 01 Months Range: " + R1 + "\n" + "Prev 05 Months Range: " + R5 + "\n" + "Prev 10 Months Range: " + R10 + "\n" + "Prev 20 Months Range: " + R20 + "\n"; Text = Text + "Room Up: " + RoomUp + "\n" + "Room Down: " + RoomDown + "\n" + "Maximum StopLosses :" + "\n" + "Long: " + StopLoss_Long + " Pips at " + DoubleToStr(SL_Long,nDigits) + "\n" + "Short: " + StopLoss_Short + " Pips at " + DoubleToStr(SL_Short,nDigits) + "\n" ; //Comment(Text); string P=Period(); ObjectCreate("MTSR", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR",StringSubstr(Symbol(),0),12, "Arial Bold", CadetBlue); ObjectSet("MTSR", OBJPROP_CORNER, 0); ObjectSet("MTSR", OBJPROP_XDISTANCE, 25); ObjectSet("MTSR", OBJPROP_YDISTANCE, 2); ObjectCreate("MTSR1", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR1",StringSubstr(P,0),12, "Arial Bold", CadetBlue); ObjectSet("MTSR1", OBJPROP_CORNER, 0); ObjectSet("MTSR1", OBJPROP_XDISTANCE, 100); ObjectSet("MTSR1", OBJPROP_YDISTANCE, 2); ObjectCreate("MTSR2", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR2","Average Monthly Range:", 10, "Arial Bold", CadetBlue); ObjectSet("MTSR2", OBJPROP_CORNER, 0); ObjectSet("MTSR2", OBJPROP_XDISTANCE, 150); ObjectSet("MTSR2", OBJPROP_YDISTANCE, 2); ObjectCreate("MTSR3", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR3",DoubleToStr(RAvg ,0),12, "Arial Bold", Orange); ObjectSet("MTSR3", OBJPROP_CORNER, 0); ObjectSet("MTSR3", OBJPROP_XDISTANCE, 310); ObjectSet("MTSR3", OBJPROP_YDISTANCE, 2); ObjectCreate("MTSR4", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR4","Prev 1 Month Range:", 10, "Arial ", LightSteelBlue); ObjectSet("MTSR4", OBJPROP_CORNER, 0); ObjectSet("MTSR4", OBJPROP_XDISTANCE, 25); ObjectSet("MTSR4", OBJPROP_YDISTANCE, 20); ObjectCreate("MTSR5", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR5",DoubleToStr(R1,0),12, "Arial Bold", Orange); ObjectSet("MTSR5", OBJPROP_CORNER, 0); ObjectSet("MTSR5", OBJPROP_XDISTANCE, 170); ObjectSet("MTSR5", OBJPROP_YDISTANCE, 20); ObjectCreate("MTSR6", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR6","Prev "+First_Av+" Months Range:", 10, "Arial ", LightSteelBlue); ObjectSet("MTSR6", OBJPROP_CORNER, 0); ObjectSet("MTSR6", OBJPROP_XDISTANCE, 25); ObjectSet("MTSR6", OBJPROP_YDISTANCE, 35); ObjectCreate("MTSR7", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR7",DoubleToStr(R5,0),12, "Arial Bold", Orange); ObjectSet("MTSR7", OBJPROP_CORNER, 0); ObjectSet("MTSR7", OBJPROP_XDISTANCE, 170); ObjectSet("MTSR7", OBJPROP_YDISTANCE, 35); ObjectCreate("MTSR8", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR8","Prev "+Second_Av+" Months Range:", 10, "Arial ", LightSteelBlue); ObjectSet("MTSR8", OBJPROP_CORNER, 0); ObjectSet("MTSR8", OBJPROP_XDISTANCE, 220); ObjectSet("MTSR8", OBJPROP_YDISTANCE, 20); ObjectCreate("MTSR9", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR9",DoubleToStr(R10,0),12, "Arial Bold", Orange); ObjectSet("MTSR9", OBJPROP_CORNER, 0); ObjectSet("MTSR9", OBJPROP_XDISTANCE, 370); ObjectSet("MTSR9", OBJPROP_YDISTANCE, 20); ObjectCreate("MTSR10", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR10","Prev "+Third_Av+" Months Range:", 10, "Arial ", LightSteelBlue); ObjectSet("MTSR10", OBJPROP_CORNER, 0); ObjectSet("MTSR10", OBJPROP_XDISTANCE, 220); ObjectSet("MTSR10", OBJPROP_YDISTANCE, 35); ObjectCreate("mMTSR11", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("mMTSR11",DoubleToStr(R20,0),12, "Arial Bold", Orange); ObjectSet("mMTSR11", OBJPROP_CORNER, 0); ObjectSet("mMTSR11", OBJPROP_XDISTANCE, 370); ObjectSet("mMTSR11", OBJPROP_YDISTANCE, 35); ObjectCreate("MTSR12", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR12","Room UP:", 10, "Arial ", LightSteelBlue); ObjectSet("MTSR12", OBJPROP_CORNER, 0); ObjectSet("MTSR12", OBJPROP_XDISTANCE, 420); ObjectSet("MTSR12", OBJPROP_YDISTANCE, 20); ObjectCreate("mMTSR13", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("mMTSR13",DoubleToStr(RoomUp,0),12, "Arial Bold", Orange); ObjectSet("mMTSR13", OBJPROP_CORNER, 0); ObjectSet("mMTSR13", OBJPROP_XDISTANCE, 490); ObjectSet("mMTSR13", OBJPROP_YDISTANCE, 20); ObjectCreate("MTSR14", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR14","Room DN:", 10, "Arial ", LightSteelBlue); ObjectSet("MTSR14", OBJPROP_CORNER, 0); ObjectSet("MTSR14", OBJPROP_XDISTANCE, 420); ObjectSet("MTSR14", OBJPROP_YDISTANCE, 35); ObjectCreate("MTSR15", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR15",DoubleToStr(RoomDown,0),12, "Arial Bold", Orange); ObjectSet("MTSR15", OBJPROP_CORNER, 0); ObjectSet("MTSR15", OBJPROP_XDISTANCE, 490); ObjectSet("MTSR15", OBJPROP_YDISTANCE, 35); ObjectCreate("MTSR16", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR16","Maximum StopLosses;",10, "Arial Bold", CadetBlue); ObjectSet("MTSR16", OBJPROP_CORNER, 0); ObjectSet("MTSR16", OBJPROP_XDISTANCE, 560); ObjectSet("MTSR16", OBJPROP_YDISTANCE, 2); ObjectCreate("MTSR17", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR17","Long: Pips at", 10, "Arial ", LightSteelBlue); ObjectSet("MTSR17", OBJPROP_CORNER, 0); ObjectSet("MTSR17", OBJPROP_XDISTANCE, 560); ObjectSet("MTSR17", OBJPROP_YDISTANCE, 20); ObjectCreate("mMTSR18", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("mMTSR18",DoubleToStr(StopLoss_Long,0),14, "Arial Bold", LimeGreen); ObjectSet("mMTSR18", OBJPROP_CORNER, 0); ObjectSet("mMTSR18", OBJPROP_XDISTANCE, 600); ObjectSet("mMTSR18", OBJPROP_YDISTANCE, 17); ObjectCreate("MTSR19", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR19","Short: Pips at", 10, "Arial ", LightSteelBlue); ObjectSet("MTSR19", OBJPROP_CORNER, 0); ObjectSet("MTSR19", OBJPROP_XDISTANCE, 560); ObjectSet("MTSR19", OBJPROP_YDISTANCE, 35); ObjectCreate("MTSR20", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR20",DoubleToStr(StopLoss_Short,0),14, "Arial Bold", Red); ObjectSet("MTSR20", OBJPROP_CORNER, 0); ObjectSet("MTSR20", OBJPROP_XDISTANCE, 600); ObjectSet("MTSR20", OBJPROP_YDISTANCE, 32); ObjectCreate("MTSR21", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR21",DoubleToStr(SL_Long,nDigits),12, "Arial Bold", LimeGreen); ObjectSet("MTSR21", OBJPROP_CORNER, 0); ObjectSet("MTSR21", OBJPROP_XDISTANCE, 690); ObjectSet("MTSR21", OBJPROP_YDISTANCE, 20); ObjectCreate("MTSR22", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR22",DoubleToStr(SL_Short,nDigits),12, "Arial Bold",Red); ObjectSet("MTSR22", OBJPROP_CORNER, 0); ObjectSet("MTSR22", OBJPROP_XDISTANCE, 690); ObjectSet("MTSR22", OBJPROP_YDISTANCE, 35); ObjectCreate("MTSR23", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR23","Risk to Reward Ratio:", 10, "Arial Bold", CadetBlue); ObjectSet("MTSR23", OBJPROP_CORNER, 0); ObjectSet("MTSR23", OBJPROP_XDISTANCE, 350); ObjectSet("MTSR23", OBJPROP_YDISTANCE, 2); ObjectCreate("MTSR24", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("MTSR24",DoubleToStr( Risk_to_Reward_ratio ,0),12, "Arial Bold", Orange); ObjectSet("MTSR24", OBJPROP_CORNER, 0); ObjectSet("MTSR24", OBJPROP_XDISTANCE, 500); ObjectSet("MTSR24", OBJPROP_YDISTANCE, 2); double HIMonthly = iMA(Symbol(),PERIOD_MN1,1,0,MODE_HIGH,PRICE_HIGH,0); double LOWMonthly = iMA(Symbol(),PERIOD_MN1,1,0,MODE_LOW,PRICE_LOW,0); //double YEST_HIDaily = iMA(Symbol(),PERIOD_D1,1,0,MODE_HIGH,PRICE_HIGH,1); //double YEST_LOWDaily = iMA(Symbol(),PERIOD_D1,1,0,MODE_LOW,PRICE_LOW,1); ObjectCreate("Mhigh", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("Mhigh",DoubleToStr(HIMonthly,Digits), 12, "Arial Bold", Orange); ObjectSet("Mhigh", OBJPROP_CORNER, 0); ObjectSet("Mhigh", OBJPROP_XDISTANCE, 890); ObjectSet("Mhigh", OBJPROP_YDISTANCE, 20); ObjectCreate("Mhigh2", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("Mhigh2","MonthlyHigh", 9, "Arial Bold", CadetBlue); ObjectSet("Mhigh2", OBJPROP_CORNER, 0); ObjectSet("Mhigh2", OBJPROP_XDISTANCE, 890); ObjectSet("Mhigh2", OBJPROP_YDISTANCE, 2); ObjectCreate("Mlow", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("Mlow",DoubleToStr(LOWMonthly,Digits), 12, "Arial Bold", Orange); ObjectSet("Mlow", OBJPROP_CORNER, 0); ObjectSet("Mlow", OBJPROP_XDISTANCE, 830); ObjectSet("Mlow", OBJPROP_YDISTANCE, 20); ObjectCreate("mMlow2", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("mMlow2","MonthlyLow", 9, "Arial Bold", CadetBlue); ObjectSet("mMlow2", OBJPROP_CORNER, 0); ObjectSet("mMlow2", OBJPROP_XDISTANCE, 810); ObjectSet("mMlow2", OBJPROP_YDISTANCE, 2); double CURR = iMA(Symbol(),0,1,0,MODE_LWMA,PRICE_CLOSE,0); ObjectCreate("Mhigh3", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("Mhigh3",DoubleToStr(CURR,Digits), 12, "Arial Bold", Coral); ObjectSet("Whigh3", OBJPROP_CORNER, 0); ObjectSet("Mhigh3", OBJPROP_XDISTANCE, 890); ObjectSet("Mhigh3", OBJPROP_YDISTANCE,35 ); ObjectCreate("Mhigh4", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("Mhigh4",DoubleToStr(CURR,Digits), 12, "Arial Bold", Coral); ObjectSet("Mhigh4", OBJPROP_CORNER, 0); ObjectSet("Mhigh4", OBJPROP_XDISTANCE, 830); ObjectSet("Mhigh4", OBJPROP_YDISTANCE,35 ); ObjectCreate("Mlow4", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("Mlow4","Curr/Month", 9, "Arial ", LightSteelBlue); ObjectSet("Mlow4", OBJPROP_CORNER, 0); ObjectSet("Mlow4", OBJPROP_XDISTANCE, 760); ObjectSet("Mlow4", OBJPROP_YDISTANCE, 20); ObjectCreate("Mlow5", OBJ_LABEL, WindowFind("TSR_Monthly"), 0, 0); ObjectSetText("Mlow5","Price", 9, "Arial ", LightSteelBlue); ObjectSet("Mlow5", OBJPROP_CORNER, 0); ObjectSet("Mlow5", OBJPROP_XDISTANCE, 790); ObjectSet("Mlow5", OBJPROP_YDISTANCE, 37); return(0); } //+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains the highest prices of each bar
Series array that contains the lowest prices of each bar
Indicator Curves created:
Indicators Used:
Moving average indicator
Custom Indicators Used:
Order Management characteristics:
Other Features: