/*[[
        Name := Trend in bigger timeframe
        Author := Copyright © 2004, MetaQuotes Software Corp.
        Link := http://www.metaquotes.net/
        Notes := 
        Lots := 1.00
        Stop Loss := 30
        Take Profit := 999
        Trailing Stop := 30
]]*/

Define: step(0.05);
Define: maximum(0.2);
Define: slippage(5);
Define: risk(20);
Define: mm(1);
Var:    h1(0);
Var:    lotsi(0);
Var:    i(0);
Var:    x(0);
Var:    y(0);
Var:    cnt(0);
Var:    McClHist(0);
Var:    StK(0);
Var:    StD(0);
Var:    Trailing_point(0);
Var:    Mcclelan(0.0001);
Var:    StK15(0);
Var:    StD15(0);
Var:    globalVarName("");
Var:    globalVarName1("");
Var:    globalVarName2("");
Var:    globalVarName3("");
Var:    globalVarName4("");
Var:    globalVarName5("");
Var:    globalVarName6("");

globalVarName1 = Symbol + "StK1min";
globalVarName2 = Symbol + "StD1min";
globalVarName3 = Symbol + Day + Hour + 15 * Floor(Minute / 15) + "K";
globalVarName4 = Symbol + Day + Hour + 15 * Floor(Minute / 15) + "D";
globalVarName5 = Symbol + Day + Hour + 15 * Floor(Minute / 15) + "h1";
globalVarName6 = Symbol + Day + Hour + 15 * Floor(Minute / 15) + "McClHist";
x = Ask - StopLoss * Point;
y = Bid + StopLoss * Point;
McClHist = iMA(Close[0],1,4) - iMA(Close[0],1,17) - iMA(iMA(Close[0],1,4) - iMA(Close[0],1,17),1,4);
StK15 = iSTO(12,3,3,1,0,0);
StD15 = iSTO(12,3,3,1,1,0);
MoveObject("McClelan Hist",OBJ_TRENDLINE,Time[0],McClHist,Time[0],0,1,0);

if Bars < 11 then Exit;
if FreeMargin < 100 then Exit;

if iSAR(step,maximum,0) > High[0] then
   {
   h1 = -1;
   }
      else
   {
   if iSAR(step,maximum,0) < Low[0] then h1 = 1;
   }

SetGlobalVariable(globalVarName5,h1);
Comment(globalVarName5," :  ",GetGlobalVariable(globalVarName5));
SetGlobalVariable(globalVarName3,StK15);
SetGlobalVariable(globalVarName4,StD15);
SetGlobalVariable(globalVarName6,McClHist);
Exit;