论坛全局菜单下方 - TICKMILL 285X70论坛全局菜单下方 - ThinkMarkets285X70论坛全局菜单下方 - 荔枝返现285X70论坛全局菜单下方 -  icmarkets285X70
查看:1288回复:1
草龙
注册时间2004-12-17
[MT4指标]单图显示全部货币的mt4指标
楼主发表于:2014-01-21 16:39只看该作者倒序浏览
1楼 电梯直达
电梯直达
吧所有直盘货币显示在一个图里 //+------------------------------------------------------------------+ //| All_usd_pair.mq4 | //| kukan | //| www.kukan.ru | //+------------------------------------------------------------------+ #property copyright "kukan" #property link "www.kukan.ru" #property indicator_chart_window #property indicator_buffers 8 #property indicator_color1 Brown #property indicator_color2 Red #property indicator_color3 Green #property indicator_color4 Blue #property indicator_color5 Magenta #property indicator_color6 Tan #property indicator_color7 CadetBlue #property indicator_color8 DarkOrchid extern int line_centre = 400; //篑疱漤屙桢 觐腚梓羼蜮? 徉痤? extern int dir_EurUsd = 1; //綦嚆? 觐痧咫?鲨? 忄膻? 1 镳?爨? 0 钺疣蝽?? extern int dir_GbpUsd = 1; extern int dir_AudUsd = 1; extern int dir_UsdChf = 0; //镱 箪铍鬣龛? ? 漕腚囵? 磬耱痤屙? extern int dir_UsdJpy = 0; extern int dir_UsdCad = 0; int ia, ib, ic, id, ie = 0; int cnt1, cnt2, temp0, temp1 = 0; double centre_EurUsd, centre_UsdChf, centre_GbpUsd, centre_UsdJpy; double centre_AudUsd, centre_UsdCad, centre_curent; //---- buffers double ExtMapBuffer1; double ExtMapBuffer2; double ExtMapBuffer3; double ExtMapBuffer4; double ExtMapBuffer5; double ExtMapBuffer6; double ExtMapBuffer7; double ExtMapBuffer8; double EurUsd, UsdChf, GbpUsd, UsdJpy, AudUsd, UsdCad; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { //---- indicators SetIndexStyle(0,DRAW_LINE); SetIndexBuffer(0,ExtMapBuffer1); SetIndexStyle(1,DRAW_LINE); SetIndexBuffer(1,ExtMapBuffer2); SetIndexStyle(2,DRAW_LINE); SetIndexBuffer(2,ExtMapBuffer3); SetIndexStyle(3,DRAW_LINE); SetIndexBuffer(3,ExtMapBuffer4); SetIndexStyle(4,DRAW_LINE); SetIndexBuffer(4,ExtMapBuffer5); SetIndexStyle(5,DRAW_LINE); SetIndexBuffer(5,ExtMapBuffer6); SetIndexStyle(6,DRAW_LINE); SetIndexBuffer(6,ExtMapBuffer7); SetIndexStyle(7,DRAW_LINE); SetIndexBuffer(7,ExtMapBuffer8); //---- return(0); } //+------------------------------------------------------------------+ //| Custor indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { ObjectDelete("EurUsd"); ObjectDelete("GbpUsd"); ObjectDelete("AudUsd"); ObjectDelete("UsdChf"); ObjectDelete("UsdJpy"); ObjectDelete("UsdCad"); //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { int counted_bars = IndicatorCounted(); //---- ArrayCopySeries(EurUsd, MODE_CLOSE, "EURUSD", Period()); ArrayCopySeries(GbpUsd, MODE_CLOSE, "GBPUSD", Period()); ArrayCopySeries(AudUsd, MODE_CLOSE, "AUDUSD", Period()); ArrayCopySeries(UsdChf, MODE_CLOSE, "USDCHF", Period()); ArrayCopySeries(UsdJpy, MODE_CLOSE, "USDJPY", Period()); ArrayCopySeries(UsdCad, MODE_CLOSE, "USDCAD", Period()); //磬躅滂? 疣珈屦 磬桁屙 邈? 爨耨桠? temp0 = Bars - 1; if(ArraySize(EurUsd) < temp0 + 1) { temp0 = ArraySize(EurUsd) - 1; Comment("爨腩 溧眄  磬 EurUsd " + Period() + " " + ArraySize(EurUsd)); } if(ArraySize(GbpUsd) < temp0 + 1) { temp0 = ArraySize(GbpUsd) - 1; Comment("爨腩 溧眄  磬 GbpUsd " + Period() + " " + ArraySize(GbpUsd)); } if(ArraySize(AudUsd) < temp0 + 1 ) { temp0 = ArraySize(AudUsd) - 1; Comment("爨腩 溧眄  磬 AudUsd " + Period() + " " + ArraySize(AudUsd)); } if(ArraySize(UsdChf) < temp0 + 1) { temp0 = ArraySize(UsdChf) - 1; Comment("爨腩 溧眄  磬 UsdChf " + Period() + " " + ArraySize(UsdChf)); } if(ArraySize(UsdJpy) < temp0 + 1) { temp0 = ArraySize(UsdJpy) - 1; Comment("爨腩 溧眄  磬 UsdJpy " + Period() + " " + ArraySize(UsdJpy)); } if(ArraySize(UsdCad) < temp0 + 1) { temp0 = ArraySize(UsdCad) - 1; Comment("爨腩 溧眄  磬 UsdCad " + Period() + " " + ArraySize(UsdCad)); } //羼腓 磬 沭圄桕? 徉痤? 戾睃  麇? 腓龛? 篑疱漤屙??, 蝾 恹躅? if(line_centre >= temp0) { Comment("团章酪琅? 睦屯壅 ? 佬杖吕?.... "); return(0); } //耢铗痂? 耜铍 ? 聍栩囹? if(temp0 - line_centre < Bars - counted_bars) temp1 = temp0 - line_centre; else temp1 = Bars - counted_bars; //---- for(ia = temp1; ia >= 0; ia--) { //恹麒耠?屐 耩邃龛? 珥圜屙?? 恹膻? centre_EurUsd = 0; centre_GbpUsd = 0; centre_AudUsd = 0; centre_UsdChf = 0; centre_UsdJpy = 0; centre_UsdCad = 0; centre_curent = 0; //---- for(ic = line_centre - 1; ic >= 0; ic--) { centre_EurUsd = centre_EurUsd + EurUsd[ia+ic]; centre_GbpUsd = centre_GbpUsd + GbpUsd[ia+ic]; centre_AudUsd = centre_AudUsd + AudUsd[ia+ic]; centre_UsdChf = centre_UsdChf + UsdChf[ia+ic]; centre_UsdJpy = centre_UsdJpy + UsdJpy[ia+ic]; centre_UsdCad = centre_UsdCad + UsdCad[ia+ic]; centre_curent = centre_curent + Close[ia+ic]; } centre_EurUsd = centre_EurUsd / line_centre; centre_GbpUsd = centre_GbpUsd / line_centre; centre_AudUsd = centre_AudUsd / line_centre; centre_UsdChf = centre_UsdChf / line_centre; centre_UsdJpy = centre_UsdJpy / line_centre; centre_UsdCad = centre_UsdCad / line_centre; centre_curent = centre_curent / line_centre; //镳桠钿桁 ? 邃桧铋 鲥眚疣朦眍? 腓龛?, ?.?. 恹麒耠?屐 觐铘桷桢眚 镥疱聍弪? ExtMapBuffer1[ia] = (dir_EurUsd*EurUsd[ia] + (1 - dir_EurUsd) / EurUsd[ia])*centre_curent / (dir_EurUsd*centre_EurUsd + (1 - dir_EurUsd) / centre_EurUsd); ExtMapBuffer2[ia] = (dir_GbpUsd*GbpUsd[ia] + (1 - dir_GbpUsd) / GbpUsd[ia])*centre_curent / (dir_GbpUsd*centre_GbpUsd + (1 - dir_GbpUsd) / centre_GbpUsd); ExtMapBuffer3[ia] = (dir_AudUsd*AudUsd[ia] + (1 - dir_AudUsd) / AudUsd[ia])*centre_curent / (dir_AudUsd*centre_AudUsd + (1 - dir_AudUsd) / centre_AudUsd); ExtMapBuffer4[ia] = (dir_UsdChf*UsdChf[ia] + (1 - dir_UsdChf) / UsdChf[ia])*centre_curent / (dir_UsdChf*centre_UsdChf + (1 - dir_UsdChf) / centre_UsdChf); ExtMapBuffer5[ia] = (dir_UsdJpy*UsdJpy[ia] + (1 - dir_UsdJpy) / UsdJpy[ia])*centre_curent / (dir_UsdJpy*centre_UsdJpy + (1 - dir_UsdJpy) / centre_UsdJpy); ExtMapBuffer6[ia]= (dir_UsdCad*UsdCad[ia] + (1 - dir_UsdCad) / UsdCad[ia])*centre_curent / (dir_UsdCad*centre_UsdCad + (1 - dir_UsdCad) / centre_UsdCad); /* Comment("铗眍耔蝈朦睇? 桤戾礤龛? 忄膻蝽  镟? "+Period() +"\nGBPUSD -"+GbpUsd[0] +"\nUSDJPY -"+UsdJpy[0] ); */ if((Bars-counted_bars) == 1) { //镱滹桉 囗桢 觐蜩痤忸? 疣珥  忄膻? ObjectDelete("EurUsd"); ObjectCreate("EurUsd", OBJ_TEXT, 0, Time[0] + Period()*11*60, ExtMapBuffer1[0]); ObjectSet("EurUsd", OBJPROP_COLOR, Brown); ObjectSetText("EurUsd", "EurUsd " + DoubleToStr(EurUsd[0], 4), 8, "arial"); //---- ObjectDelete("GbpUsd"); ObjectCreate("GbpUsd", OBJ_TEXT, 0, Time[0] + Period()*11*60, ExtMapBuffer2[0]); ObjectSet("GbpUsd", OBJPROP_COLOR, Red); ObjectSetText("GbpUsd", "GbpUsd " + DoubleToStr(GbpUsd[0], 4), 8, "arial"); //---- ObjectDelete("AudUsd"); ObjectCreate("AudUsd", OBJ_TEXT, 0, Time[0] + Period()*11*60, ExtMapBuffer3[0]); ObjectSet("AudUsd", OBJPROP_COLOR, Green); ObjectSetText("AudUsd", "AudUsd " + DoubleToStr(AudUsd[0], 4), 8, "arial"); //---- ObjectDelete("UsdChf"); ObjectCreate("UsdChf", OBJ_TEXT, 0, Time[0] + Period()*11*60, ExtMapBuffer4[0]); ObjectSet("UsdChf", OBJPROP_COLOR, Blue); ObjectSetText("UsdChf", "UsdChf " + DoubleToStr(UsdChf[0], 4), 8, "arial"); //---- ObjectDelete("UsdJpy"); ObjectCreate("UsdJpy", OBJ_TEXT, 0, Time[0] + Period()*11*60, ExtMapBuffer5[0]); ObjectSet("UsdJpy", OBJPROP_COLOR, Magenta); ObjectSetText("UsdJpy", "UsdJpy " + DoubleToStr(UsdJpy[0], 2), 8, "arial"); //---- ObjectDelete("UsdCad"); ObjectCreate("UsdCad", OBJ_TEXT, 0, Time[0] + Period()*11*60, ExtMapBuffer6[0]); ObjectSet("UsdCad", OBJPROP_COLOR, Tan); ObjectSetText("UsdCad", "UsdCad " + DoubleToStr(UsdCad[0], 4), 8, "arial"); } } //---- return(0); } //+------------------------------------------------------------------+All_usd_pair2.jpgAll_usd_pair2.jpg
TK29帖子1楼右侧xm竖版广告90-240
个性签名

阅尽天下指标
搬砖开始,始于2014

广告
TK30+TK31帖子一樓廣告
TK30+TK31帖子一樓廣告
dkfjru
注册时间2017-11-22
发表于:2017-11-25 02:43只看该作者
2楼
水手灌水,赚积分
个性签名

韬客社区www.talkfx.co

本站免责声明:

1、本站所有广告及宣传信息均与韬客无关,如需投资请依法自行决定是否投资、斟酌资金安全及交易亏损风险;

2、韬客是独立的、仅为投资者提供交流的平台,网友发布信息不代表韬客的观点与意思表示,所有因网友发布的信息而造成的任何法律后果、风险与责任,均与韬客无关;

3、金融交易存在极高法律风险,未必适合所有投资者,请不要轻信任何高额投资收益的诱导而贸然投资;投资保证金交易导致的损失可能超过您投入的资金和预期。请您考虑自身的投资经验及风险承担能力,进行合法、理性投资;

4、所有投资者的交易帐户应仅限本人使用,不应交由第三方操作,对于任何接受第三方喊单、操盘、理财等操作的投资和交易,由此导致的任何风险、亏损及责任由投资者个人自行承担;

5、韬客不隶属于任何券商平台,亦不受任何第三方控制,韬客不邀约客户投资任何保证金交易,不接触亦不涉及投资者的任何资金及账户信息,不代理任何交易操盘行为,不向客户推荐任何券商平台,亦不存在其他任何推荐行为。投资者应自行选择券商平台,券商平台的任何行为均与韬客无关。投资者注册及使用韬客即表示其接受和认可上述声明,并自行承担法律风险。

版权所有:韬客外汇论坛 www.talkfx.com 联络我们:[email protected]