CCFp OandaのMT4用
CCFpをOandaのMT４での使用を試みたが表示できなかったので、CCFpのデータをOanad用へ変更した。
CCFpのmq4ファイルとex4ファイルのうちmq4ファイルの方が書換可能なので、mq4ファイルを一旦PCのデスクトップへ移して、中に２つ入っているテキストのうちの長文の方を下に記載した内容へ全て書換えし、MT4に入っているCCFpの旧インジファイルと置き換えれば使用できるようになる。
FYI.
ex4ファイルは実行ファイルなので書き換えられないが、mq4ファイルは書き換え可能。mq4ファイルを書換えてMT４へ載せてあげればコンピュータがそれを読んでex4ファイルを新たに生成してくれる。
以下を全文書換え。
//+------------------------------------------------------------------+
//| CCFp.mq4 |
//| SemSemFX@rambler.ru |
//| http://onix-trade.net/forum/index.php?showtopic=107 |
//+------------------------------------------------------------------+
#property copyright "SemSemFX@rambler.ru"
#property link "http://onix-trade.net/forum/index.php?showtopic=107"
//----
string Indicator_Name = "CCFp:";
int Objs = 0;
//----
#property indicator_separate_window
#property indicator_buffers 8
extern int MA_Method = 3;
extern int Price = 6;
extern int Fast = 3;
extern int Slow = 5;
extern bool USD = 1;
extern bool EUR = 1;
extern bool GBP = 1;
extern bool CHF = 1;
extern bool JPY = 1;
extern bool AUD = 1;
extern bool CAD = 1;
extern bool NZD = 1;
extern color Color_USD = Green;
extern color Color_EUR = DarkBlue;
extern color Color_GBP = Red;
extern color Color_CHF = Chocolate;
extern color Color_JPY = Maroon;
extern color Color_AUD = DarkOrange;
extern color Color_CAD = Purple;
extern color Color_NZD = Teal;
extern int Line_Thickness = 2;
extern int All_Bars = 0;
extern int Last_Bars = 0;
//----
double arrUSD[];
double arrEUR[];
double arrGBP[];
double arrCHF[];
double arrJPY[];
double arrAUD[];
double arrCAD[];
double arrNZD[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- indicators
if(USD)
Indicator_Name = StringConcatenate(Indicator_Name, " USD");
if(EUR)
Indicator_Name = StringConcatenate(Indicator_Name, " EUR");
if(GBP)
Indicator_Name = StringConcatenate(Indicator_Name, " GBP");
if(CHF)
Indicator_Name = StringConcatenate(Indicator_Name, " CHF");
if(AUD)
Indicator_Name = StringConcatenate(Indicator_Name, " AUD");
if(CAD)
Indicator_Name = StringConcatenate(Indicator_Name, " CAD");
if(JPY)
Indicator_Name = StringConcatenate(Indicator_Name, " JPY");
if(NZD)
Indicator_Name = StringConcatenate(Indicator_Name, " NZD");
IndicatorShortName(Indicator_Name);
int cur = 0;
int st = 23;
if(USD)
{
sl("~", cur, Color_USD);
cur += st;
}
if(EUR)
{
sl("~", cur, Color_EUR);
cur += st;
}
if(GBP)
{
sl("~", cur, Color_GBP);
cur += st;
}
if(CHF)
{
sl("~", cur, Color_CHF);
cur += st;
}
if(AUD)
{
sl("~", cur, Color_AUD);
cur += st;
}
if(CAD)
{
sl("~", cur, Color_CAD);
cur += st;
}
if(JPY)
{
sl("~", cur, Color_JPY);
cur += st;
}
if(NZD)
{
sl("~", cur, Color_NZD);
cur += st;
}
int width = 0;
if(0 > StringFind(Symbol(), "USD", 0))
width = 1;
else
width = Line_Thickness;
SetIndexStyle(0, DRAW_LINE, DRAW_LINE, width, Color_USD);
SetIndexBuffer(0, arrUSD);
SetIndexLabel(0, "USD");
if(0 > StringFind(Symbol(), "EUR", 0))
width = 1;
else
width = Line_Thickness;
SetIndexStyle(1, DRAW_LINE, DRAW_LINE, width, Color_EUR);
SetIndexBuffer(1, arrEUR);
SetIndexLabel(1, "EUR");
if(0 > StringFind(Symbol(), "GBP", 0))
width = 1;
else
width = Line_Thickness;
SetIndexStyle(2, DRAW_LINE, DRAW_LINE, width, Color_GBP);
SetIndexBuffer(2, arrGBP);
SetIndexLabel(2, "GBP");
if(0 > StringFind(Symbol(), "CHF", 0))
width = 1;
else
width = Line_Thickness;
SetIndexStyle(3, DRAW_LINE, DRAW_LINE, width, Color_CHF);
SetIndexBuffer(3, arrCHF);
SetIndexLabel(3, "CHF");
if(0 > StringFind(Symbol(), "JPY", 0))
width = 1;
else
width = Line_Thickness;
SetIndexStyle(4, DRAW_LINE, DRAW_LINE, width, Color_JPY);
SetIndexBuffer(4, arrJPY);
SetIndexLabel(4, "JPY");
if(0 > StringFind(Symbol(), "AUD", 0))
width = 1;
else
width = Line_Thickness;
SetIndexStyle(5, DRAW_LINE, DRAW_LINE, width, Color_AUD);
SetIndexBuffer(5, arrAUD);
SetIndexLabel(5, "AUD");
if(0 > StringFind(Symbol(), "CAD", 0))
width = 1;
else
width = Line_Thickness;
SetIndexStyle(6, DRAW_LINE, DRAW_LINE, width, Color_CAD);
SetIndexBuffer(6, arrCAD);
SetIndexLabel(6, "CAD");
if(0 > StringFind(Symbol(), "NZD", 0))
width = 1;
else
width = Line_Thickness;
SetIndexStyle(7, DRAW_LINE, DRAW_LINE, width, Color_NZD);
SetIndexBuffer(7, arrNZD);
SetIndexLabel(7, "NZD");
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
for(int i = 0; i < Objs; i++)
{
if(!ObjectDelete(Indicator_Name + i))
Print("error: code #", GetLastError());
}
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
int limit;
int counted_bars = IndicatorCounted();
//---- ・魵褞・ 浯 粽銕鮻燾・ⅹ鞦・
if(counted_bars < 0)
return(-1);
//---- ・裝湜・・頸瑙燾・矜・碯蒟・・頸瑙
if(All_Bars < 1)
All_Bars = Bars;
if(counted_bars > 0 && Last_Bars > 0)
counted_bars -= Last_Bars;
limit = All_Bars - counted_bars;
//---- ⅲ濵粹鵫 ・
for(int i = 0; i < limit; i++)
{
// ﾏ葢瑩頸褄・隆 ・
if(EUR)
{
double EURUSD_Fast = ma("EURUSD.oj5k", Fast, MA_Method, Price, i);
double EURUSD_Slow = ma("EURUSD.oj5k", Slow, MA_Method, Price, i);
if(!EURUSD_Fast || !EURUSD_Slow)
break;
}
if(GBP)
{
double GBPUSD_Fast = ma("GBPUSD.oj5k", Fast, MA_Method, Price, i);
double GBPUSD_Slow = ma("GBPUSD.oj5k", Slow, MA_Method, Price, i);
if(!GBPUSD_Fast || !GBPUSD_Slow)
break;
}
if(AUD)
{
double AUDUSD_Fast = ma("AUDUSD.oj1m", Fast, MA_Method, Price, i);
double AUDUSD_Slow = ma("AUDUSD.oj1m", Slow, MA_Method, Price, i);
if(!AUDUSD_Fast || !AUDUSD_Slow)
break;
}
if(NZD)
{
double NZDUSD_Fast = ma("NZDUSD.oj1m", Fast, MA_Method, Price, i);
double NZDUSD_Slow = ma("NZDUSD.oj1m", Slow, MA_Method, Price, i);
if(!NZDUSD_Fast || !NZDUSD_Slow)
break;
}
if(CAD)
{
double USDCAD_Fast = ma("USDCAD.oj5k", Fast, MA_Method, Price, i);
double USDCAD_Slow = ma("USDCAD.oj5k", Slow, MA_Method, Price, i);
if(!USDCAD_Fast || !USDCAD_Slow)
break;
}
if(CHF)
{
double USDCHF_Fast = ma("USDCHF.oj5k", Fast, MA_Method, Price, i);
double USDCHF_Slow = ma("USDCHF.oj5k", Slow, MA_Method, Price, i);
if(!USDCHF_Fast || !USDCHF_Slow)
break;
}
if(JPY)
{
double USDJPY_Fast = ma("USDJPY.oj5k", Fast, MA_Method, Price, i);
double USDJPY_Slow = ma("USDJPY.oj5k", Slow, MA_Method, Price, i);
if(!USDJPY_Fast || !USDJPY_Slow)
break;
}
// ・籵・・
if(USD)
{
arrUSD[i] = 0;
if(EUR)
arrUSD[i] += EURUSD_Slow / EURUSD_Fast - 1;
if(GBP)
arrUSD[i] += GBPUSD_Slow / GBPUSD_Fast - 1;
if(AUD)
arrUSD[i] += AUDUSD_Slow / AUDUSD_Fast - 1;
if(NZD)
arrUSD[i] += NZDUSD_Slow / NZDUSD_Fast - 1;
if(CHF)
arrUSD[i] += USDCHF_Fast / USDCHF_Slow - 1;
if(CAD)
arrUSD[i] += USDCAD_Fast / USDCAD_Slow - 1;
if(JPY)
arrUSD[i] += USDJPY_Fast / USDJPY_Slow - 1;
}// end if USD
if(EUR)
{
arrEUR[i] = 0;
if(USD)
arrEUR[i] += EURUSD_Fast / EURUSD_Slow - 1;
if(GBP)
arrEUR[i] += (EURUSD_Fast / GBPUSD_Fast) /
(EURUSD_Slow/GBPUSD_Slow) - 1;
if(AUD)
arrEUR[i] += (EURUSD_Fast / AUDUSD_Fast) /
(EURUSD_Slow/AUDUSD_Slow) - 1;
if(NZD)
arrEUR[i] += (EURUSD_Fast / NZDUSD_Fast) /
(EURUSD_Slow/NZDUSD_Slow) - 1;
if(CHF)
arrEUR[i] += (EURUSD_FastUSDCHF_Fast) /
(EURUSD_SlowUSDCHF_Slow) - 1;
if(CAD)
arrEUR[i] += (EURUSD_FastUSDCAD_Fast) /
(EURUSD_SlowUSDCAD_Slow) - 1;
if(JPY)
arrEUR[i] += (EURUSD_FastUSDJPY_Fast) /
(EURUSD_SlowUSDJPY_Slow) - 1;
}// end if EUR
if(GBP)
{
arrGBP[i] = 0;
if(USD)
arrGBP[i] += GBPUSD_Fast / GBPUSD_Slow - 1;
if(EUR)
arrGBP[i] += (EURUSD_Slow / GBPUSD_Slow) /
(EURUSD_Fast / GBPUSD_Fast) - 1;
if(AUD)
arrGBP[i] += (GBPUSD_Fast / AUDUSD_Fast) /
(GBPUSD_Slow / AUDUSD_Slow) - 1;
if(NZD)
arrGBP[i] += (GBPUSD_Fast / NZDUSD_Fast) /
(GBPUSD_Slow / NZDUSD_Slow) - 1;
if(CHF)
arrGBP[i] += (GBPUSD_FastUSDCHF_Fast) /
(GBPUSD_SlowUSDCHF_Slow) - 1;
if(CAD)
arrGBP[i] += (GBPUSD_FastUSDCAD_Fast) /
(GBPUSD_SlowUSDCAD_Slow) - 1;
if(JPY)
arrGBP[i] += (GBPUSD_FastUSDJPY_Fast) /
(GBPUSD_SlowUSDJPY_Slow) - 1;
}// end if GBP
if(AUD)
{
arrAUD[i] = 0;
if(USD)
arrAUD[i] += AUDUSD_Fast / AUDUSD_Slow - 1;
if(EUR)
arrAUD[i] += (EURUSD_Slow / AUDUSD_Slow) /
(EURUSD_Fast / AUDUSD_Fast) - 1;
if(GBP)
arrAUD[i] += (GBPUSD_Slow / AUDUSD_Slow) /
(GBPUSD_Fast / AUDUSD_Fast) - 1;
if(NZD)
arrAUD[i] += (AUDUSD_Fast/NZDUSD_Fast) /
(AUDUSD_Slow / NZDUSD_Slow) - 1;
if(CHF)
arrAUD[i] += (AUDUSD_FastUSDCHF_Fast) /
(AUDUSD_SlowUSDCHF_Slow) - 1;
if(CAD)
arrAUD[i] += (AUDUSD_FastUSDCAD_Fast) /
(AUDUSD_SlowUSDCAD_Slow) - 1;
if(JPY)
arrAUD[i] += (AUDUSD_FastUSDJPY_Fast) /
(AUDUSD_SlowUSDJPY_Slow) - 1;
}// end if AUD
if(NZD)
{
arrNZD[i] = 0;
if(USD)
arrNZD[i] += NZDUSD_Fast / NZDUSD_Slow - 1;
if(EUR)
arrNZD[i] += (EURUSD_Slow / NZDUSD_Slow) /
(EURUSD_Fast/NZDUSD_Fast) - 1;
if(GBP)
arrNZD[i] += (GBPUSD_Slow / NZDUSD_Slow) /
(GBPUSD_Fast / NZDUSD_Fast) - 1;
if(AUD)
arrNZD[i] += (AUDUSD_Slow / NZDUSD_Slow) /
(AUDUSD_Fast / NZDUSD_Fast) - 1;
if(CHF)
arrNZD[i] += (NZDUSD_FastUSDCHF_Fast) /
(NZDUSD_SlowUSDCHF_Slow) - 1;
if(CAD)
arrNZD[i] += (NZDUSD_FastUSDCAD_Fast) /
(NZDUSD_SlowUSDCAD_Slow) - 1;
if(JPY)
arrNZD[i] += (NZDUSD_FastUSDJPY_Fast) /
(NZDUSD_SlowUSDJPY_Slow) - 1;
}// end if NZD
if(CAD)
{
arrCAD[i] = 0;
if(USD)
arrCAD[i] += USDCAD_Slow / USDCAD_Fast - 1;
if(EUR)
arrCAD[i] += (EURUSD_SlowUSDCAD_Slow) /
(EURUSD_FastUSDCAD_Fast) - 1;
if(GBP)
arrCAD[i] += (GBPUSD_SlowUSDCAD_Slow) /
(GBPUSD_FastUSDCAD_Fast) - 1;
if(AUD)
arrCAD[i] += (AUDUSD_SlowUSDCAD_Slow) /
(AUDUSD_FastUSDCAD_Fast) - 1;
if(NZD)
arrCAD[i] += (NZDUSD_SlowUSDCAD_Slow) /
(NZDUSD_FastUSDCAD_Fast) - 1;
if(CHF)
arrCAD[i] += (USDCHF_Fast / USDCAD_Fast) /
(USDCHF_Slow / USDCAD_Slow) - 1;
if(JPY)
arrCAD[i] += (USDJPY_Fast / USDCAD_Fast) /
(USDJPY_Slow / USDCAD_Slow) - 1;
}// end if CAD
if(CHF)
{
arrCHF[i] = 0;
if(USD)
arrCHF[i] += USDCHF_Slow / USDCHF_Fast - 1;
if(EUR)
arrCHF[i] += (EURUSD_SlowUSDCHF_Slow) /
(EURUSD_FastUSDCHF_Fast) - 1;
if(GBP)
arrCHF[i] += (GBPUSD_SlowUSDCHF_Slow) /
(GBPUSD_FastUSDCHF_Fast) - 1;
if(AUD)
arrCHF[i] += (AUDUSD_SlowUSDCHF_Slow) /
(AUDUSD_FastUSDCHF_Fast) - 1;
if(NZD)
arrCHF[i] += (NZDUSD_SlowUSDCHF_Slow) /
(NZDUSD_FastUSDCHF_Fast) - 1;
if(CAD)
arrCHF[i] += (USDCHF_Slow / USDCAD_Slow) /
(USDCHF_Fast / USDCAD_Fast) - 1;
if(JPY)
arrCHF[i] += (USDJPY_Fast / USDCHF_Fast) /
(USDJPY_Slow / USDCHF_Slow) - 1;
}// end if CHF
if(JPY)
{
arrJPY[i] = 0;
if(USD)
arrJPY[i] += USDJPY_Slow / USDJPY_Fast - 1;
if(EUR)
arrJPY[i] += (EURUSD_SlowUSDJPY_Slow) /
(EURUSD_FastUSDJPY_Fast) - 1;
if(GBP)
arrJPY[i] += (GBPUSD_SlowUSDJPY_Slow) /
(GBPUSD_FastUSDJPY_Fast) - 1;
if(AUD)
arrJPY[i] += (AUDUSD_SlowUSDJPY_Slow) /
(AUDUSD_FastUSDJPY_Fast) - 1;
if(NZD)
arrJPY[i] += (NZDUSD_SlowUSDJPY_Slow) /
(NZDUSD_FastUSDJPY_Fast) - 1;
if(CAD)
arrJPY[i] += (USDJPY_Slow/USDCAD_Slow) /
(USDJPY_Fast/USDCAD_Fast) - 1;
if(CHF)
arrJPY[i] += (USDJPY_Slow/USDCHF_Slow) /
(USDJPY_Fast/USDCHF_Fast) - 1;
}// end if JPY
}//end block for(int i=0; i<limit; i++)
//----
return(0);
}
//+------------------------------------------------------------------+
//| Subroutines |
//+------------------------------------------------------------------+
double ma(string sym, int per, int Mode, int Price, int i)
{
double res = 0;
int k = 1;
int ma_shift = 0;
int tf = 0;
switch(Period())
{
case 1: res += iMA(sym, tf, perk, ma_shift, Mode, Price, i);
k += 5;
case 5: res += iMA(sym, tf, perk, ma_shift, Mode, Price, i);
k += 3;
case 15: res += iMA(sym, tf, perk, ma_shift, Mode, Price, i);
k += 2;
case 30: res += iMA(sym, tf, perk, ma_shift, Mode, Price, i);
k += 2;
case 60: res += iMA(sym, tf, perk, ma_shift, Mode, Price, i);
k += 4;
case 240: res += iMA(sym, tf, perk, ma_shift, Mode, Price, i);
k += 6;
case 1440: res += iMA(sym, tf, perk, ma_shift, Mode, Price, i);
k += 4;
case 10080: res += iMA(sym, tf, perk, ma_shift, Mode, Price, i);
k +=4;
case 43200: res += iMA(sym, tf, per*k, ma_shift, Mode, Price, i);
}
return(res);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void sl(string sym, int y, color col)
{
int window = WindowFind(Indicator_Name);
string ID = Indicator_Name+Objs;
int tmp = 10 + y;
Objs++;
if(ObjectCreate(ID, OBJ_LABEL, window, 0, 0))
{
//ObjectSet(ID, OBJPROP_CORNER, 1);
ObjectSet(ID, OBJPROP_XDISTANCE, y + 35);
ObjectSet(ID, OBJPROP_YDISTANCE, 0);
ObjectSetText(ID, sym, 18, "Arial Black", col);
}
}
//+------------------------------------------------------------------+
素人なのでちかれた・・・。
★活用させる方は、念のためオリジナルのCCFpファイルはデスクトップへでもコピーして保存しておいてね。いつでも元に戻せるように。
ma4ファイルをアップできたので、こちらの記事から活用ください。