//+------------------------------------------------------------------+ //| DavidF_Hedge.mq4 | //| Copyright © 2006, MetaQuotes Software Corp. | //| http://www.metaquotes.net | //+------------------------------------------------------------------+ #property copyright "Copyright © 2006, MetaQuotes Software Corp." #property link "http://www.metaquotes.net" // INFo: http://kreslik.com/forums/viewtopic.php?t=307&postdays=0&postorder=asc&start=0 #property indicator_chart_window //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { //---- indicators IndicatorShortName("Hedge EUR/USD/CHF chart"); //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { //---- //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { int counted_bars=IndicatorCounted(); if(counted_bars<100) return; //---- int i; double EUR, USD, CHF, FPI; RefreshRates(); EUR = MarketInfo("EURUSD",MODE_BID); USD = MarketInfo("USDCHF",MODE_BID); CHF = MarketInfo("EURCHF",MODE_ASK); FPI = EUR * USD * (1/ CHF); ObjectDelete("EURUSD"); ObjectDelete("USDCHF"); ObjectDelete("EURCHF"); ObjectCreate("EURUSD", OBJ_HLINE, 0, Time[0], EUR); ObjectSet("EURUSD", OBJPROP_STYLE, STYLE_SOLID); ObjectSet("EURUSD", OBJPROP_COLOR, DarkOrange); ObjectCreate("USDCHF", OBJ_HLINE, 0, Time[0], USD); ObjectSet("USDCHF", OBJPROP_STYLE, STYLE_SOLID); ObjectSet("USDCHF", OBJPROP_COLOR, RoyalBlue); ObjectCreate("EURCHF", OBJ_HLINE, 0, Time[0], CHF); ObjectSet("EURCHF", OBJPROP_STYLE, STYLE_SOLID); ObjectSet("EURCHF", OBJPROP_COLOR, LawnGreen); Comment( "\n FPI: ", DoubleToStr(FPI,6), "\n EUR/USD: ", DoubleToStr(EUR,4), "\n USD/CHF: ", DoubleToStr(USD,4), "\n EUR/CHF: ", DoubleToStr(CHF,4)); //---- return(0); } //+------------------------------------------------------------------+