Announcement

Collapse
No announcement yet.

Murrey Math

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Murrey Math

    Buongiorno,

    C'รจ qualcuno in grado di riscrivere il codice in EFS ?

    Grazie




    { ======================================
    This is my implementation of some aspects of Murrey Math. It is based on coded posted at Amibroker by Peter Gialames,
    who based it on the Excel spreadsheet by Jacek. You are welcome to use this code freely. You may redistribute it
    provided you include this comment block, plus a description of any changes you make.

    If you extend it, or adapt it to other uses, I'd appreciate a look at what you've done.

    Thanks.

    James R. Rehler
    <a href="mailto:[email protected]">[email protected] m</a>

    11/06/02 ver. 2.0d - Alpha distribution

    ========================================}

    {
    USAGE
    }

    Input: Frame(8), Multpier(1), BodyHiLo(False),Display_MMLevels(True),Display_MMV alues(True),Display_MMFrame(False),debug(False);
    Vars: D6(0.00000001), FHigh(H), FLow(L), HH(H), Increment(0), LL(L), MN(0), MX(999999), OCT(1), PriceRange(1), SF(0.0000), Span(1);
    Vars:StrtVal(0), MMLDelete(0);
    Vars: MML(-1), Count(0), TLrt(0), TLlt(0), TLc(1), TLstyle(1);
    Arrays: mVal[13](0), mTxtVal[13](0), mColor[13](1), ML_Ref[13](0),m8th[13]("");
    vars:tester(1),d66(0),d11(0),d12(0),d13(0),d14(0), d15(0),d16(0),d18(0), E11(0), E12(0),E13(0),E14(0),E15(0),E16(0), E18(0);
    vars: DoInit(True);
    vars: NumDec(2), {Number of decimal spaces to use on post}
    Color(white); {Color of text that is posted. }
    vars: HH_save(0),LL_save(0);

    If BodyHiLo then HH = Highest(MaxList(O, C), Frame*Multpier)
    else HH = Highest(H, Frame*Multpier);
    If BodyHiLo then LL = Lowest(MinList(O, C), Frame*Multpier)
    else LL = Lowest(L, Frame*Multpier);

    { change to update on every tick
    so skip if hh/ll has not changed & update lines every tick
    update mmlines if HH or LL has changed }

    {if HH <> HH_save or LL <> LL_save then begin}

    PriceRange=HH-LL;

    if debug = True then print("HH = ", HH);
    if debug = True then print("LL = ", LL);
    if debug = True then print("PriceRange = ", PriceRange:0:4 );

    {Indentify Scale Factor}
    If HH <= 250000 and HH > 25000 then SF = 100000
    else if HH <= 25000 and HH > 2500 then SF = 10000
    else if HH <= 2500 and HH > 250 then SF = 1000
    else if HH <= 250 and HH > 25 then SF = 100
    else if HH <= 12.5 and HH > 6.25 then SF = 12.5
    else if HH <= 6.25 and HH > 3.125 then SF = 6.25
    else if HH <= 3.125 and HH > 1.5625 then SF = 3.125
    else if HH <= 1.5625 and HH > 0.390625 then SF = 1.5625
    else SF = 0.1953125;

    D6 = intportion(Log10(SF/PriceRange)/Log10(2));
    OCT = SF * (Power(0.50, D6));

    if debug = True then print("SF = ", SF:0:4 );
    if debug = True then print("D6 = ", D6:0:4 );
    if debug = True then print("OCTAVE = ", OCT:0:4 );

    MN = IntPortion (LL/OCT);
    if debug = True then print("MN = ", MN:0:4 );
    MN = MN * OCT; { trunc occurs before the mult, this forces that}

    If (MN + OCT) > HH then MX = MN + OCT
    else MX = MN + (2 * OCT);

    if debug = True then print("MX = ", MX:0:4 );
    if debug = True then print("MN = ", MN:0:4 );

    Span=MX-MN;

    if LL >= 0.1875 * Span + MN AND HH <= 0.5625 * Span + MN then D12 = MN + 0.50 * Span else D12 =0;
    if LL >= 0.4375 * Span + MN AND HH <= 0.8125 * Span + MN then D14 = MN + 0.75 * Span else D14 =0;
    if LL >= MN - 0.125 * Span AND HH <= 0.625 * Span + MN AND D12 = 0 then D11 = MN + 0.50 * Span else D11 =0;
    if LL >= 0.375 * Span + MN AND HH <= 1.125 * Span + MN AND D14 = 0 then D15 = MX else D15 =0;
    if LL >= 0.125 * Span + MN AND HH <= 0.875 * Span + MN AND D11= 0 AND D12 = 0 AND D14 =0 AND D15 = 0 then D13 = MN + 0.75 * Span else D13 =0;
    if D11+D12+D13+D14+D15 = 0 then D16 = MX else D16 = 0;

    if D11 > 0 then D18 = D11
    else if D12 > 0 then D18 = D12
    else if D13 > 0 then D18 = D13
    else if D14 > 0 then D18 = D14
    else if D15 > 0 then D18 = D15
    else if D16 > 0 then D18 = D16; { added this line }

    FHigh = D18;

    if debug = True then print("D11 = ", D11:0:4 );
    if debug = True then print("D12 = ", D12:0:4 );
    if debug = True then print("D13 = ", D13:0:4 );
    if debug = True then print("D14 = ", D14:0:4 );
    if debug = True then print("D15 = ", D15:0:4 );
    if debug = True then print("D16 = ", D16:0:4 );
    if debug = True then print("D18 = ", D18:0:4 );


    if debug = True then print("Span = ", Span:0:4 );
    if debug = True then print("FHigh = ", FHigh:0:4 );

    if D11 > 0 then E11 = MN else E11 = 0;
    if D12 > 0 then E12 = MN + 0.25 * Span else E12 = 0;
    if D13 > 0 then E13 = MN + 0.25 * Span else E13 = 0;
    if D14 > 0 then E14 = MN + 0.50 * Span else E14 = 0;
    if D15 > 0 then E15 = MN + 0.50 * Span else E15 = 0;
    if D16 > 0 then E16 = MN else E16 = 0;
    E18 = E11+E12+E13+E14+E15+E16;
    FLOW = e18;

    if debug = True then print("E11 = ", E11:0:4 );
    if debug = True then print("E12 = ", E12:0:4 );
    if debug = True then print("E13 = ", E13:0:4 );
    if debug = True then print("E14 = ", E14:0:4 );
    if debug = True then print("E15 = ", E15:0:4 );
    if debug = True then print("E16 = ", E16:0:4 );
    if debug = True then print("E18 = ", E18:0:4 );

    if debug = True then print("FLow = ", FLow:0:4);

    Increment=0.125*(FHigh-FLow);

    Value11=FLow-Increment;
    StrtVal=Value11-Increment;
    Value0=FLow;
    Value1=FLow+Increment;
    Value2=Value1+Increment;
    Value3=Value2+Increment;
    Value4=Value3+Increment;
    Value5=Value4+Increment;
    Value6=Value5+Increment;
    Value7=Value6+Increment;
    Value8=FHigh;
    Value9=Value8+Increment;
    Value10=Value9+Increment;

    if highest(h,5) > value7 and c < l[1] and time > 0845 and time < 1445 then alert("change mode short");
    if lowest(l,5) < value1 and c > h[1] and time > 0845 and time < 1445 then alert("change mode long");

    if debug = True then print(Strtval:0:4 );
    if debug = True then print(value11:0:4 );
    if debug = True then print(value0:0:4 );
    if debug = True then print(value1:0:4 );
    if debug = True then print(value2:0:4 );
    if debug = True then print(value3:0:4 );
    if debug = True then print(value4:0:4 );
    if debug = True then print(value5:0:4 );
    if debug = True then print(value6:0:4 );
    if debug = True then print(value7:0:4 );
    if debug = True then print(value8:0:4 );
    if debug = True then print(value9:0:4 );
    if debug = True then print(value10:0:4 );


    mColor[0]=Tool_darkRed;
    mColor[1]=Tool_darkYellow;
    mColor[2]=Tool_darkBlue;
    mColor[3]=Tool_darkYellow;
    mColor[4]=Tool_darkRed;
    mColor[5]=Tool_darkGreen;
    mColor[6]=Tool_darkBlue;
    mColor[7]=Tool_darkGreen;
    mColor<IMG SRC='Images_TSW/emotions/icon_smile_8ball.gif' BORDER=0/>=Tool_darkRed;
    mColor[9]=Tool_darkYellow;
    mColor[10]=Tool_darkBlue;
    mColor[11]=Tool_darkYellow;
    mColor[12]=Tool_darkRed;

    mVal[0]=Tool_Dotted;
    mVal[1]=Tool_Dotted;
    mVal[2]=Tool_Solid;
    mVal[3]=Tool_Dotted;
    mVal[4]=Tool_Dotted;
    mVal[5]=Tool_Dotted;
    mVal[6]=Tool_Dotted;
    mVal[7]=Tool_Dotted;
    mVal<IMG SRC='Images_TSW/emotions/icon_smile_8ball.gif' BORDER=0/>=Tool_Dotted;
    mVal[9]=Tool_Dotted;
    mVal[10]=Tool_Solid;
    mVal[11]=Tool_Dotted;
    mVal[12]=Tool_Dotted;

    m8th[0]= " -2/8 ";
    m8th[1]= " -1/8 ";
    m8th[2]= " 0/8 ";
    m8th[3]= " 1/8 ";
    m8th[4]= " 2/8 ";
    m8th[5]= " 3/8 ";
    m8th[6]= " 4/8 ";
    m8th[7]= " 5/8 ";
    m8th<IMG SRC='Images_TSW/emotions/icon_smile_8ball.gif' BORDER=0/>= " 6/8 ";
    m8th[9]= " 7/8 ";
    m8th[10]=" 8/8 ";
    m8th[11]="+1/8 ";
    m8th[12]="+2/8 ";

    {
    If CurrentBar>=Frame+1 then begin
    For Count = 0 to 12 begin
    MMLDelete=TL_Delete(ML_Ref[Count]);
    end;
    end;
    }
    {**** Intialize ML & Text Arrays ****}
    If DoInit then begin
    For Count = 0 to 12 begin

    value19 = StrtVal + Count*Increment;
    ML_Ref[Count]=TL_New(Date[1], Time[1], value19, Date, Time, value19);

    mTxtVal[Count]=Text_New(D,Time,C,m8th[Count]+ "Intialize Array");
    Text_SetStyle(mTxtVal[Count], 0, 2);
    Text_SetColor(mTxtVal[Count],color);

    end;
    DoInit=False;

    end;

    If LastBarOnChart then begin
    For Count = 0 to 12 begin
    TL_Delete(ML_Ref[Count]);
    value19 = StrtVal + Count*Increment;
    ML_Ref[Count]=TL_New(Date[1], Time[1], value19, Date, Time, value19);
    TLstyle=TL_SetStyle(ML_Ref[Count], mVal[count]);
    TLrt=TL_SetExtRight(ML_Ref[Count], true);
    TLlt=TL_SetExtLeft(ML_Ref[Count], true);
    TLc=TL_SetColor(ML_Ref[Count], mColor[count]);

    if Display_MMValues = True OR Display_MMLevels = True then begin
    if DataCompression > 0
    then Value20=AddTime(T,BarInterval)
    else Value20=AddTime(T,2);
    Text_SetLocation(mTxtVal[Count],D,Value20+2,value19);
    if Display_MMValues = True AND Display_MMLevels = True then Text_SetString(mTxtVal[Count], ""+m8th[Count]+NumToStr(value19, numdec))
    else if Display_MMValues = True AND Display_MMLevels = False then Text_SetString(mTxtVal[Count], ""+NumToStr(value19, numdec))
    else if Display_MMValues = False AND Display_MMLevels = True then Text_SetString(mTxtVal[Count], ""+m8th[Count]);
    end;
    end;

    HH_save = HH;
    LL_save = LL;


    {These two plots force the frame display but mmlines may get squashed if range is small}
    if Display_MMFrame = True
    then begin
    Plot1(StrtVal - Increment );
    Plot2(Value10 + Increment );
    end
    else begin
    NoPlot(1);
    NoPlot(2);
    end;

    end;




    {end;} {end check of prior HH/LL }

  • #2
    Reply

    Sorry,

    Is there anybody able to write this code in EFS?

    Thanks

    Comment


    • #3
      Ok! I found the code

      Comment

      Working...
      X