Attachments: Period Converter / Offline Charts and USD EUR Index

Period Converter / Offline Charts and USD EUR Index

#1
First Post: Dec 10, 2012 9:55pm Dec 10, 2012 9:55pm

Kilian19
Joined Jan 2011 | Status: Currently in Asia | 839 Posts

I would like to create an offline chart of several different main currency indices. I don't like the way all the current currency strength meter work with moving averages,are weighted or are based around the 100 value.

Therefor I calculate the real values of any major currencies like this:

Inserted Code

/* 1 random Currency will be defined with the value 1.
 *   predefine variables */

      EUR = 1; 
      USD = 1/iClose("EURUSD",Period(),i);              //  USD/EUR * 1 EUR = USD
      CHF = 1/iClose("USDCHF",Period(),i) * USD;    //   CHF/USD * 1 USD = CHF
      GBP = 1/iClose("EURGBP",Period(),i);

The advantage now is, that every currency pair can be calculated by just dividing the 2 corresponding values but now the EUR is capped at 1 so I calculated the relative value.

Inserted Code

       //  EUR rel = EUR / EUR + USD + CHF + GBP <=> 1 / (USD + CHF + GBP)
       // USD rel = USD / EUR + USD + CHF + GBP <=> 1 / (EUR + CHF + GBP)
      
       basket= EUR + USD + CHF + GBP;
   
       EURRel[i] = EUR/basket;
       USDRel[i] = USD/basket;
       CHFRel[i] = CHF/basket;
       GBPRel[i] = GBP/basket;

Creating an indicator which shows these values isn't enough since the changes are not big enough to be visible. However if we create an offline chart we can see the movement and the trends of the underlying currency and use this to determine the trend of our pairs.

This is the first time I am using the FileOpenHistory Function. I tried to alter the period converter to create a 1 minute offline chart based on these calculations but I got a History Base error.

Since we don't have tick values of all the currencies we don't get 100% accurate historic candles (low and high value) but since I am trading on higher timeframes it doesn't really matter for me. Once I created a 1 minute offlinechart I will just use the period converter convert it to an hourly chart and everything will be fine.

For the 1 minute timeframe we have to accept that we just know the open and close of the bars.

Inserted Code

int barsMin = MathMin(MathMin(iBars("EURUSD",Period()),iBars("USDCHF",Period())),iBars("EURGBP",Period()));
   start_pos=barsMin-1;


double low(int shift){ return (MathMin(close(shift),open(shift)));}
double high(int shift){ return (MathMax(close(shift),open(shift)));}
   double open(int shift){
      USD = 1/iOpen("EURUSD",Period(),shift);
      CHF = 1/iOpen("USDCHF",Period(),shift) * USD;
      GBP = 1/iOpen("EURGBP",Period(),shift);
      
      basket= EUR + USD + CHF + GBP;
      return (EUR/basket);}
      
   double close(int shift){
      USD = 1/iClose("EURUSD",Period(),shift);
      CHF = 1/iClose("USDCHF",Period(),shift) * USD;
      GBP = 1/iClose("EURGBP",Period(),shift);
      
      basket= EUR + USD + CHF + GBP;
      return (EUR/basket);}
   
   
   double volume(int shift){
      USD = 1/iVolume("EURUSD",Period(),shift);
      CHF = 1/iVolume("USDCHF",Period(),shift) * USD;
      GBP = 1/iVolume("EURGBP",Period(),shift);
      
      basket= EUR + USD + CHF + GBP;
      return(EUR/basket);
      }

Cann someone please take a look and tell me why this script is not working? I tried to be careful when changing the period converter.

Attached File(s)

CreateIndexChart.mq4 8 KB | 435 downloads

#2
Last Post: Dec 11, 2012 3:03am Dec 11, 2012 3:03am

Kilian19
Joined Jan 2011 | Status: Currently in Asia | 839 Posts

Breaking the problem down. I am not able to create a single valid bar. Here is the most simple code I can write but it still outputs the same error. Where is my mistake?

Inserted Code

#property indicator_chart_window
#property copyright "" 
//+------------------------------------------------------------------+
#include <WinUser32.mqh>
#include <stdlib.mqh>
//+------------------------------------------------------------------+
#import "user32.dll"
int RegisterWindowMessageA(string lpString); 
#import
//+------------------------------------------------------------------+
extern int TimeFrame = 2;
extern bool EmulateOnLineChart = true;
extern bool StrangeSymbolName = false;
//+------------------------------------------------------------------+
int HstHandle = -1, LastFPos = 0, MT4InternalMsg = 0;
string SymbolName;
   double EUR,USD,CHF,GBP,basket;
//+------------------------------------------------------------------+
void UpdateChartWindow() {
static int hwnd = 0;
 
if(hwnd == 0) {
hwnd = WindowHandle(SymbolName, TimeFrame);
if(hwnd != 0) Print("Chart window detected");
}

if(EmulateOnLineChart && MT4InternalMsg == 0) 
MT4InternalMsg = RegisterWindowMessageA("MetaTrader4_Internal_Message");

if(hwnd != 0) if(PostMessageA(hwnd, WM_COMMAND, 0x822c, 0) == 0) hwnd = 0;
if(hwnd != 0 && MT4InternalMsg != 0) PostMessageA(hwnd, MT4InternalMsg, 2, 1);

return;
}
int init()
{
   return (0);
}
//+------------------------------------------------------------------+
int start() {

static double BoxPoints, UpWick, DnWick;
static double PrevLow, PrevHigh, PrevOpen, PrevClose, CurVolume, CurLow, CurHigh, CurOpen, CurClose;
static datetime PrevTime;
   
//+------------------------------------------------------------------+
// This is only executed ones, then the first tick arives.
if(HstHandle < 0) {
// Init

// Error checking
if(!IsConnected()) {
Print("Waiting for connection...");
return(0);
}
if(!IsDllsAllowed()) {
Print("Error: Dll calls must be allowed!");
return(-1);
}
      SymbolName = StringSubstr(Symbol(), 0, 3)+" Index";

// create / open hst file
HstHandle = FileOpenHistory(SymbolName + TimeFrame + ".hst", FILE_BIN|FILE_WRITE);
if(HstHandle < 0) {
Print("Error: can't create / open history file: " + ErrorDescription(GetLastError()) + ": " + SymbolName + TimeFrame + ".hst");
return(-1);
}
//
   
// write hst file header
int HstUnused[13];
FileWriteInteger(HstHandle, 400, LONG_VALUE); // Version
FileWriteString(HstHandle, "", 64);// Copyright
FileWriteString(HstHandle, SymbolName, 12);// Symbol
FileWriteInteger(HstHandle, TimeFrame , LONG_VALUE);// Period
FileWriteInteger(HstHandle, Digits, LONG_VALUE);// Digits
FileWriteInteger(HstHandle, 0, LONG_VALUE);// Time Sign
FileWriteInteger(HstHandle, 0, LONG_VALUE);// Last Sync
FileWriteArray(HstHandle, HstUnused, 0, 13);// Unused
//
 
 // process historical data
  int i = Bars-2;
//---------------------------------------------------------------------------
  while(i > Bars-3) {

// update low before high or the reverse depending on previous bar
  PrevHigh = 1;
  PrevLow = 0;
  PrevOpen = 1;
  PrevClose = 0;
  PrevTime = Time[i];
  CurVolume = 4;

FileWriteInteger(HstHandle, PrevTime, LONG_VALUE);
FileWriteDouble(HstHandle, PrevOpen, DOUBLE_VALUE);
FileWriteDouble(HstHandle, PrevLow, DOUBLE_VALUE);

FileWriteDouble(HstHandle, PrevHigh, DOUBLE_VALUE);
    
FileWriteDouble(HstHandle, PrevClose, DOUBLE_VALUE);
FileWriteDouble(HstHandle, CurVolume, DOUBLE_VALUE);
FileFlush(HstHandle);
         
i--;
} 

return(0);
 // End historical data / Init
} 
//----------------------------------------------------------------------------
 // HstHandle not < 0 so we always enter here after history done
// Begin live data feed

FileSeek(HstHandle, LastFPos, SEEK_SET);

     return(0);
}
//+------------------------------------------------------------------+
int deinit() {
if(HstHandle >= 0) {
FileClose(HstHandle);
HstHandle = -1;
}
   Comment("");
return(0);
}
//+------------------------------------------------------------------+

Platform Tech
/
Period Converter / Offline Charts and USD EUR Index
Reply to Thread

0 traders viewing now

Options

Similar Threads

Period Converter / Offline Charts and USD EUR Index