Xin code thể hiện ngày phân phối và ngày bùng nổ FTD.

Thảo luận trong 'Bàn luận về Amibroker, Metastock, Metatrader 4' bắt đầu bởi Vu Hai Tung, 28/11/22.

Lượt xem : 4,824

  1. Vu Hai Tung

    Vu Hai Tung Member

    Tham gia ngày:
    4/8/21
    Bài viết:
    8
    Đã được thích:
    2
    Giới tính:
    Nam
    Xin chào các bác! Có bác nào có code thể hiện ngày bùng nổ theo đà và ngày phân phối trên đồ thị amibroker cho em xin Em cảm ơn.
     
    Quan tâm nhiều
    Gạo tặng Tết
    Gạo tặng Tết bởi Phương nam foods, 1/12/24 lúc 23:49
    Gạo biếu tết
    Gạo biếu tết bởi Phương nam foods, 2/12/24 lúc 15:27
    Bài viết mới
    Gạo biếu tết
    Gạo biếu tết bởi Phương nam foods, 2/12/24 lúc 15:27
    Gạo tặng Tết
    Gạo tặng Tết bởi Phương nam foods, 1/12/24 lúc 23:49
    Vu Hai Tung, via a mobile device, 28/11/22
    #1
    Hungtqhp thích bài này.
  2. Đang tải...

    Bài viết tương tự Diễn đàn Date
    Code auto vẽ FVG theo phương pháp SMC Bàn luận về Amibroker, Metastock, Metatrader 4 22/9/24
    CÁC CAO NHÂN SỬA GIÚP TÔI ĐOẠN CODE NÀY ĐỂ CHẠY AMI 6 NHÉ. TÔI CẢM ƠN, TÔI SỬA SAI LẠI CÀNG THÊM SAI Bàn luận về Amibroker, Metastock, Metatrader 4 31/7/24
    Code phân biệt Tích Lũy/Phân Phối theo Qui Luật Nỗ Lực-Kết Quả Bàn luận về Amibroker, Metastock, Metatrader 4 14/7/24
    Code KMACD - Biến thể bám xu hướng mượt hơn Macd thông dụng Bàn luận về Amibroker, Metastock, Metatrader 4 10/7/24
    Bác nào có thể cho e xin code lọc như này được ko ạ hihi!! Bàn luận về Amibroker, Metastock, Metatrader 4 9/6/24

  3. Đăng Anh Hào

    Đăng Anh Hào Member

    Tham gia ngày:
    17/7/21
    Bài viết:
    7
    Đã được thích:
    10
    Giới tính:
    Nam
    _SECTION_BEGIN("Ngay Phan Phoi");

    VNIN = Foreign ("VNINDEX", "C");//VNINDEX Close
    VNINvol = Foreign ("VNINDEX", "V");//VNINDEX Volume

    Condition1 = VNIN < 0.998*Ref( VNIN, -1 ) AND VNINvol > Ref( VNINvol, -1 );
    Condition2 = VNIN < LLV(VNIN,25)*1.05;
    DD = Condition1 AND Condition2;
    for( i = 0; i < BarCount; i++ )
    {
    if( DD ) PlotText( "D" , i, H[ i ]*1.003, colorBlue, colorDefault, 20);
    }



    StartCountPlot1 = BarIndex() == BarCount -26;
    StartCount = C > 0 AND StartCountPlot1;
    StartCount2 =C < 0 AND StartCountPlot1;
    Shape1 = StartCount * shapeSmallCircle + StartCount2 * shapeSmallCircle;
    PlotShapes(Shape1, IIf( StartCount, colorOrange, colorOrange),0, IIf(StartCount, Low, Low));


    _SECTION_END();
     
    Chỉnh sửa cuối: 11/3/23
  4. Đăng Anh Hào

    Đăng Anh Hào Member

    Tham gia ngày:
    17/7/21
    Bài viết:
    7
    Đã được thích:
    10
    Giới tính:
    Nam
    ok
     

    Các file đính kèm:

  5. Thái Công

    Thái Công New Member

    Tham gia ngày:
    14/2/23
    Bài viết:
    2
    Đã được thích:
    2
    Giới tính:
    Nam
    code của bạn bị lỗi rồi: trong hàm If, biến DD chưa được khởi tạo đã dùng là sai rồi
     
  6. Hungtqhp

    Hungtqhp Well-Known Member

    Tham gia ngày:
    17/8/21
    Bài viết:
    127
    Đã được thích:
    43
    Giới tính:
    Nam
    Đợi cao nhân sửa code.
     
    Đăng Anh Hào thích bài này.
  7. Đăng Anh Hào

    Đăng Anh Hào Member

    Tham gia ngày:
    17/7/21
    Bài viết:
    7
    Đã được thích:
    10
    Giới tính:
    Nam
    _SECTION_BEGIN("Ngay Phan Phoi");

    VNIN = Foreign ("VNINDEX", "C");//VNINDEX Close
    VNINvol = Foreign ("VNINDEX", "V");//VNINDEX Volume

    Condition1 = VNIN < 0.998*Ref( VNIN, -1 ) AND VNINvol > Ref( VNINvol, -1 );
    Condition2 = VNIN < LLV(VNIN,25)*1.05;
    DD = Condition1 AND Condition2;
    for( i = 0; i < BarCount; i++ )
    {
    if( DD ) PlotText( "D" , i, H[ i ]*1.003, colorBlue, colorDefault, 20);
    }



    StartCountPlot1 = BarIndex() == BarCount -26;
    StartCount = C > 0 AND StartCountPlot1;
    StartCount2 =C < 0 AND StartCountPlot1;
    Shape1 = StartCount * shapeSmallCircle + StartCount2 * shapeSmallCircle;
    PlotShapes(Shape1, IIf( StartCount, colorOrange, colorOrange),0, IIf(StartCount, Low, Low));


    _SECTION_END();
     
    thelightvn thích bài này.
  8. Đăng Anh Hào

    Đăng Anh Hào Member

    Tham gia ngày:
    17/7/21
    Bài viết:
    7
    Đã được thích:
    10
    Giới tính:
    Nam
    Em sửa rồi các bác nhé
     
    thelightvn thích bài này.
  9. Thái Công

    Thái Công New Member

    Tham gia ngày:
    14/2/23
    Bài viết:
    2
    Đã được thích:
    2
    Giới tính:
    Nam
    vẫn bị lỗi bác ơi:
    if( DD ) PlotText( "D" , i, H[ i ]*1.003, colorBlue, colorDefault, 20);
    Error 6. Condition in IF, WHILE, FOR statements has to be Numeric or Boolean type. You can not use array here, please use [] (array subscript operator) to access array elements
     
    Hungtqhp and May like this.
  10. Đăng Anh Hào

    Đăng Anh Hào Member

    Tham gia ngày:
    17/7/21
    Bài viết:
    7
    Đã được thích:
    10
    Giới tính:
    Nam
    em dùng được mà
     
    Vu Hai Tung and Hungtqhp like this.
  11. Đăng Anh Hào

    Đăng Anh Hào Member

    Tham gia ngày:
    17/7/21
    Bài viết:
    7
    Đã được thích:
    10
    Giới tính:
    Nam
    em dùng được mà
     

    Các file đính kèm:

    Vu Hai Tung thích bài này.
  12. Đăng Anh Hào

    Đăng Anh Hào Member

    Tham gia ngày:
    17/7/21
    Bài viết:
    7
    Đã được thích:
    10
    Giới tính:
    Nam
    _SECTION_BEGIN("Ngay phan phoi");

    VNI = Foreign ("VNINDEX", "C");//VNINDEX Close
    VNIvol = Foreign ("VNINDEX", "V");//VNINDEX Volume

    Condition1 = VNI < 0.998*Ref( VNI, -1 ) AND VNIvol > Ref( VNIvol, -1 );
    Condition2 = VNI < LLV(VNI,25)*1.05;
    DD = Condition1 AND Condition2;

    for( i = 0; i < BarCount; i++ )
    {
    if( DD ) PlotText( "D" , i, H[ i ]*1.003, colorBlue, colorDefault, 20);
    }




    StartCountPlot1 = BarIndex() == BarCount -26;
    StartCount = C > 0 AND StartCountPlot1;
    StartCount2 =C < 0 AND StartCountPlot1;
    Shape1 = StartCount * shapeSmallCircle + StartCount2 * shapeSmallCircle;
    PlotShapes(Shape1, IIf( StartCount, colorOrange, colorOrange),0, IIf(StartCount, Low, Low));


    _SECTION_END();
     
    Hungtqhp thích bài này.
  13. Hungtqhp

    Hungtqhp Well-Known Member

    Tham gia ngày:
    17/8/21
    Bài viết:
    127
    Đã được thích:
    43
    Giới tính:
    Nam
    Báo lỗi ở chỗ này:

    for( i = 0; i < BarCount; i++ )
    {
    if( DD ) PlotText( "D" , i, H[ i ]*1.003, colorBlue, colorDefault, 20);
    }

    Mong bác chủ chỉnh lại. Cảm ơn nhiều.
     
  14. Hungtqhp

    Hungtqhp Well-Known Member

    Tham gia ngày:
    17/8/21
    Bài viết:
    127
    Đã được thích:
    43
    Giới tính:
    Nam
    Có lẽ do phiên bản Ami.
     
  15. Xuan

    Xuan New Member

    Tham gia ngày:
    24/7/21
    Bài viết:
    2
    Đã được thích:
    1
    Giới tính:
    Nam
    Code ngay phan phoi con code ngay bung no theo da nhu nao ban
     
  16. Xuan

    Xuan New Member

    Tham gia ngày:
    24/7/21
    Bài viết:
    2
    Đã được thích:
    1
    Giới tính:
    Nam
    phan if(DD) sua lai if(DD)
     
    Hungtqhp thích bài này.
  17. Hungtqhp

    Hungtqhp Well-Known Member

    Tham gia ngày:
    17/8/21
    Bài viết:
    127
    Đã được thích:
    43
    Giới tính:
    Nam
    Tui vừa bỏ đi thì không lỗi.
     
  18. Hungtqhp

    Hungtqhp Well-Known Member

    Tham gia ngày:
    17/8/21
    Bài viết:
    127
    Đã được thích:
    43
    Giới tính:
    Nam
    Đã chỉnh sửa lại được:

    _SECTION_BEGIN("Ngay Phan Phoi");

    VNIN = Foreign ("VNINDEX", "C");//VNINDEX Close
    VNINvol = Foreign ("VNINDEX", "V");//VNINDEX Volume

    Condition1 = VNIN < 0.998*Ref( VNIN, -1 ) AND VNINvol > Ref( VNINvol, -1 );
    Condition2 = VNIN < LLV(VNIN,25)*1.05;
    PP = Condition1 AND Condition2;

    for( i = 0; i < BarCount; i++ )
    {
    if( PP ) PlotText( "PP" , i, H[ i ]*1.003, colorBlue, colorDefault, 20);
    }

    StartCountPlot1 = BarIndex() == BarCount -26;
    StartCount = C > 0 AND StartCountPlot1;
    StartCount2 =C < 0 AND StartCountPlot1;
    Shape1 = StartCount * shapeStar + StartCount2 * shapeStar;

    PlotShapes(Shape1, IIf( StartCount, colorOrange, colorOrange),0, IIf(StartCount, Low, Low));

    Filter = PP;

    ColorPP = IIf(PP,colorRed, colorWhite);
    AddColumn(IIf(PP,1,Null),"PP",1.0,colorWhite, ColorPP);

    _SECTION_END();
     
    Vu Hai Tung thích bài này.
  19. TanTung3C

    TanTung3C New Member

    Tham gia ngày:
    12/10/22
    Bài viết:
    3
    Đã được thích:
    1
    Giới tính:
    Nam
    Mn dùng code trong file này thì ko lỗi
    Diễn đàn ko hiển thị đc chữ i sau chữ if(DD)
     
  20. hungguyen3008

    hungguyen3008 New Member

    Tham gia ngày:
    6/12/21
    Bài viết:
    2
    Đã được thích:
    2
    Giới tính:
    Nam
    _SECTION_BEGIN("Ngay Phan Phoi");

    Ticker = ParamStr("Symbol", "VNINDEX" );
    upcol = Foreign(Ticker,"Close") - Ref(Foreign(Ticker,"Close"),-1);
    kol = IIf(upcol > 0, colorLime, colorOrange);
    PlotOHLC(Foreign(Ticker,"Open"), Foreign(Ticker,"High"), Foreign(Ticker,"Low"), Foreign(Ticker,"Close"),"Ticker", kol, ParamStyle("Style", styleCandle)|styleOwnScale);
    Title = " WW - " + EncodeColor(colorBlue) + FullName() + " - Date: " + Date() + " - O: " + O + " - H: " + H + " - L: " + L + " - C: " + C + " ( " +
    (C - Ref(C,-1)) + " ) V: " + NumToStr(V,0) + EncodeColor(colorWhite) + "\n vs: " + EncodeColor(colorRed) + Ticker + " - O: " + Foreign(Ticker,"Open")
    + " - H: " + Foreign(Ticker,"High") + " - L: " + Foreign(Ticker,"Low")+ " - C: " + Foreign(Ticker,"Close") + " - Vol: " + NumToStr(Foreign(Ticker,"Volume"),0);
    SetChartBkGradientFill( ParamColor("Top Color", colorWhite),ParamColor("Bottom Color", colorWhite));


    VNIN = Foreign ("VNINDEX", "C");//VNINDEX Close
    VNINvol = Foreign ("VNINDEX", "V");//VNINDEX Volume

    Condition1 = VNIN < 0.998*Ref( VNIN, -1 ) AND VNINvol > Ref( VNINvol, -1 );
    Condition2 = VNIN < LLV(VNIN,25)*1.05;
    PP = Condition1 AND Condition2;

    for( i = 0; i < BarCount; i++ )
    {
    if(PP)
    {
    PlotText( "PP" , i, H[ i ]*1.003, colorBlue, colorDefault, 20);
    }
    }

    StartCountPlot1 = BarIndex() == BarCount -26;
    StartCount = C > 0 AND StartCountPlot1;
    StartCount2 =C < 0 AND StartCountPlot1;
    Shape1 = StartCount * shapeStar + StartCount2 * shapeStar;

    PlotShapes(Shape1, IIf( StartCount, colorOrange, colorOrange),0, IIf(StartCount, Low, Low));

    Filter = PP;

    ColorPP = IIf(PP,colorRed, colorWhite);
    AddColumn(IIf(PP,1,Null),"PP",1.0,colorWhite, ColorPP);

    _SECTION_END();
     
    tankynguyen and Hungtqhp like this.
  21. hungguyen3008

    hungguyen3008 New Member

    Tham gia ngày:
    6/12/21
    Bài viết:
    2
    Đã được thích:
    2
    Giới tính:
    Nam
    mình kết hợp thêm code để show luôn
     

Lượt bình luận : 20

Chia sẻ trang này