fbpx

เเจก Code Chart 4 Style Amibroker

  • ผู้สร้าง
    กระทู้
  • #9668
    Amibroker PlatformAmibroker Platform
    Participant

     https://www.facebook.com/AmibrokerPlatform

    คิดว่าน่าจะมีประโยชน์สำหรับคนดูกราฟมากๆ

    รูปแบบ Chart 4 Style งานง่าย มีฟังชั่นสามารถปรับเปลี่ยนรูปเเบบได้ เเละปรับสีของเเท่งราคาได้

    ฟังชั่นปรับทั้งหมดอยู่ใน Parameters คลิกขาวหมด

    สีมี 3 รูปแบบ คือ
    <div class=”text_exposed_show”>

    Price Bull คือ ราคาหุ้นขึ้นปิมากกว่าเปิด
    Price Bear ราคาหุ้นลงปิดต่ำกว่าเปิด
    Price Line ราคาเปิดปิดเท่ากัน

    Chart 4 Style // Candle / Bar / Line / Heikin-Ashi

    Code นี้ผมรวบรวมมาจากหลายๆที่ Code เดิมจะเเยก Chart ออกจากกัน ผมเอามาปรับให้อยู่รวมกันเเละเพิ่มฟั่งชั่นปรับเเต่งลงไปเพิ่มเติม

    เพราะ Amibroker เดิมๆจะไม่มี Chart พวกนี้ปรับเปลี่ยนสีก็ยุ่งยาก ต้องเขียนเองหมด มี Candle มีให้เเต่ปรับเปลี่ยนสีเเท่งไม่ได้ตามต้องการ ส่วน Bar ปรับสียุ่งยาก ผมหวังว่า Code ชุดนี้จะทำให้การใช้งาน Amibroker ใช้งานง่ายขึ้น

    _SECTION_BEGIN(“Price Chart”);
    ///////////////////Code AFL by Chaiset Setindex Chart V 2.0 ///////////
    PriceStyle = ParamList(“Price Style”, “Bar|Solid Candle|Line|Heikin-Ashi”,1);
    ColorBull = ParamColor(“Price Bull”, colorGreen);
    ColorBear = ParamColor(“Price Bear”, colorRed);
    ColorLine = ParamColor(“Price Line”, colorBlack);

    SetChartOptions(0,chartShowArrows|chartShowDates);

    ThisStyle = styleCandle;
    ThisTitle = “”;

    _O=O; _C=C; _H=H; _L=L;

    ThisColor = IIf( _C>_O, ColorBull, IIf(_C<_O, ColorBear, ColorLine));

    switch (PriceStyle)
    {

    case “Solid Candle”:
    SetBarFillColor( ThisColor );
    PlotOHLC( _O, _H, _L, _C, ThisTitle, ThisColor, ThisStyle|styleNoLabel,0,-5,0);
    break;

    case “Bar”:
    ThisStyle = styleBar;
    PlotOHLC( _O, _H, _L, _C, ThisTitle, ThisColor, ThisStyle|styleThick|styleNoLabel,0,-5,0);
    break;

    case “Line”:
    ThisStyle = styleLine;
    ThisColor = IIf(_C >= _O,ColorBull, ColorBear); SetBarFillColor( ThisColor );
    PlotOHLC( _O, _H, _L, _C, ThisTitle, ThisColor, ThisStyle|styleNoLabel,0,-5,0);
    break;

    case “Heikin-Ashi”:

    _C = (C+H+L+C)/4;
    _O = AMA( Ref( _C, -1 ), 0.5 );
    _H = Max( H, Max( _C, _O ) );
    _L = Min( L, Min( _C, _O ) );

    ThisColor = IIf(_C >= _O,ColorBull, ColorBear);
    SetBarFillColor( ThisColor );

    ThisColor = IIf(_C >= _O,ColorBull, ColorBear);//cLine
    ThisTitle = “Heikin-Ashi”;
    PlotOHLC( _O, _H, _L, _C, ThisTitle, ThisColor, ThisStyle|styleNoLabel,0,-5,0);
    break;

    default:
    SetBarFillColor( ThisColor );
    ThisColor = cLine;
    break;

    }
    _SECTION_END();

    </div>

กำลังดู 1 ข้อความตอบกลับ - 1 ผ่านทาง 1 (ของทั้งหมด 1)
  • ผู้เขียน
    ข้อความตอบกลับ
  • #9669

    เอาอีกๆ 😀 55

    มี Code อะไรแปลกๆน่าสนใจเอามาแชร์มาถกกันได้นะครับ ขอบคุณครับ

กำลังดู 1 ข้อความตอบกลับ - 1 ผ่านทาง 1 (ของทั้งหมด 1)
  • คุณต้องเข้าสู่ระบบเพื่อตอบกลับกระทู้นี้