//+------------------------------------------------------------------+
//| wxLunarCycles.mq4 |
//| Copyright © 2005, MetaQuotes Software Corp. |
//| http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005, MetaQuotes Software Corp."
#property link "http://www.metaquotes.net"
//+------------------------------------------------------------------+
//| script program start function |
//+------------------------------------------------------------------+
int start()
{
//----
string EDate, Description;
int TimeIndex;
color Colour;
double Buffer;
int handle;
handle=FileOpen("yearlyseasoncycle.csv",FILE_CSV|FILE_READ,',');
if(handle<1)
{
Print("File my_data.dat not found, the last error is ", GetLastError());
return(false);
}
if(Symbol() == "EURUSD" || Symbol() == "GBPUSD")
Buffer = 100*Point;
if(Symbol() == "AUDUSD")
Buffer = 100*Point;
if(Symbol() == "GOLD")
Buffer = 1000*Point;
if(Symbol() == "_CL")
Buffer = 10*Point;
if(Symbol() == "_SP500")
Buffer = 2000*Point;
if(Symbol() == "_DJI")
Buffer = 2000*Point;
while(!FileIsEnding(handle))
{
EDate = FileReadString(handle);
Description = FileReadString(handle);
//Alert(EDate, "--", Description);
if(EDate == "") continue;
datetime DDate = StrToTime(EDate);
if(Description == "New")
Colour = Gray;
else
Colour = Magenta;
SetObj(EDate + Description + MathRand(), OBJ_VLINE, StrToTime(EDate), 0, 1, Colour);
TimeIndex=0;
for(int j=0; j<Bars; j++)
{
if(Time[j]>=DDate && Time[j+1]<=DDate ) TimeIndex=j;
if(TimeIndex != 0) break;
}
SetTxtObj(EDate + Description + "txt" + MathRand(), OBJ_TEXT, StrToTime(EDate), Low[TimeIndex]-Buffer, Description, 90, Colour);
}
FileClose(handle);
//----
return(0);
}
//+------------------------------------------------------------------+
int SetTxtObj(string Name, int ObjType, datetime Time1, double Price1, string ObjText, double Angle, color LColor)
{
if(ObjectFind(Name)<0)
{
//object not found create new one
if(ObjType==OBJ_TEXT)
{
ObjectCreate(Name, OBJ_TEXT, 0, Time1, Price1);
ObjectSetText(Name, ObjText, 10, "Times New Roman", LColor);
ObjectSet(Name, OBJPROP_ANGLE, Angle);
//ObjectSet(Name, OBJPROP_COLOR, LColor);
}
}
else
{
if(ObjectType(Name)==OBJ_TEXT)
{
ObjectSet(Name, OBJPROP_TIME1, Time1);
ObjectSet(Name, OBJPROP_PRICE1, Price1);
ObjectSetText(Name, ObjText, 10, "Times New Roman", LColor);
ObjectSet(Name, OBJPROP_ANGLE, Angle);
//ObjectSet(Name, OBJPROP_COLOR, LColor);
}
}
return(0);
}
int SetObj(string Name, int ObjType, datetime Time1, double Price1, int Thickness, color LColor)
{
if(ObjectFind(Name)<0)
{
//object not found create new one
if(ObjType==OBJ_VLINE)
{
ObjectCreate(Name, OBJ_VLINE, 0, Time1, Price1);
ObjectSet(Name, OBJPROP_WIDTH, Thickness);
ObjectSet(Name, OBJPROP_COLOR, LColor);
ObjectSet(Name, OBJPROP_STYLE, STYLE_DOT);
ObjectCreate(Name+"buffer", OBJ_RECTANGLE, 0, Time1-24*60*60, 0, Time1+24*60*60, 9999);
ObjectSet(Name+"buffer",OBJPROP_COLOR, Black);
}
}
else
{
if(ObjectType(Name)==OBJ_VLINE)
{
ObjectSet(Name, OBJPROP_TIME1, Time1);
ObjectSet(Name, OBJPROP_PRICE1, Price1);
ObjectSet(Name, OBJPROP_WIDTH, Thickness);
ObjectSet(Name, OBJPROP_COLOR, LColor);
}
}
return(0);
}
Sample
Analysis
Market Information Used:
Series array that contains open time of each bar
Series array that contains the lowest prices of each bar
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Other Features:
Uses files from the file system
It reads information from a file