nhờ các cao thủ amibroker

Chủ đề trong 'Thị trường chứng khoán' bởi chungtruong668, 15/04/2017.

1411 người đang online, trong đó có 564 thành viên. 20:46 (UTC+07:00) Bangkok, Hanoi, Jakarta
  1. 1 người đang xem box này (Thành viên: 0, Khách: 1)
Chủ đề này đã có 17871 lượt đọc và 53 bài trả lời
  1. chungtruong668

    chungtruong668 Thành viên tích cực

    Tham gia ngày:
    20/05/2010
    Đã được thích:
    2
    xin nhờ bác nào viết giúp mình core cho amiborker làm sao có một mũi tên chỉ vào một nến ngày trước ngày hiện tại là 20 phiên tức là từ mũi tên đến phiên hiện tại là 20 phiên và nó cứ dịch chuyển theo lập trình đó . mình chân thành cám ơn!
    09xx189279 thích bài này.
  2. chungtruong668

    chungtruong668 Thành viên tích cực

    Tham gia ngày:
    20/05/2010
    Đã được thích:
    2
    mong các bác để ý giúp cho
  3. daubuonck

    daubuonck Thành viên gắn bó với f319.com

    Tham gia ngày:
    28/08/2014
    Đã được thích:
    85.973
    code chứ k phải core , viết văn hơi lủng cũng cũng ráng hiểu

    1/ yêu cầu (kế hoạch) : mũi tên cách ngày hiện tại 20 ngày

    Plot(C,"",colorGreen, styleCandle);
    bar = BarIndex();
    Len = bar - BarCount-1;
    PlotShapes(IIf(Len==-21 ,shapeUpArrow,shapeNone),colorBrightGreen,0,C,0);

    2/ vượt kế hoạch (bonus) : giá tại nơi có mũi tên + % chênh lệch từ mũi tên tới hiện tại

    PlotShapes(IIf(Len==-21 ,shapeUpArrow,shapeNone),colorBrightGreen,0,C,0);
    starbar= BeginValue( Len-21 );
    starprice=ValueWhen(starbar,C,1);
    endprice=LastValue(C);
    Change=100 * (endprice-starprice)/starprice ;
    dist = 0.5*ATR(10);
    lastBar=BarCount-1;
    for( i = 0; i < BarCount; i++ )
    {
    if(Len==-21) PlotText( "STAR " + C, i-1, C-dist, colorBrightGreen );
    if(Len==-21) PlotText("%"+CHANGE,Lastbar-1,C[Lastbar],colorBrightGreen);
    }

    3/ Kết quả trên chart

    [​IMG]
    Last edited: 15/04/2017
    quocdai307 đã loan bài này
  4. chungtruong668

    chungtruong668 Thành viên tích cực

    Tham gia ngày:
    20/05/2010
    Đã được thích:
    2
    cám ơn bác nhiều lắm rất chi tiết và chu đáo!
    quocdai307 thích bài này.
  5. chungtruong668

    chungtruong668 Thành viên tích cực

    Tham gia ngày:
    20/05/2010
    Đã được thích:
    2
    bác cho mũi tên cách cây nến ra một chút và chỉnh được mầu được ko ah ?
  6. luonguct

    luonguct Thành viên này đang bị tạm khóa Đang bị khóa Not Official

    Tham gia ngày:
    07/03/2016
    Đã được thích:
    13.683
    Báo lỗi là sao ta?

    [​IMG]
  7. daubuonck

    daubuonck Thành viên gắn bó với f319.com

    Tham gia ngày:
    28/08/2014
    Đã được thích:
    85.973

    cho 2 chữ i vào , để sửa lại chứ k lại đánh đố nhau mất

    _SECTION_BEGIN("DK PLOT");
    Plot(C,"",colorGreen, styleCandle);
    bar = BarIndex();
    Len = bar - BarCount-1;
    PlotShapes(IIf(Len==-21 ,shapeUpArrow,shapeNone),colorBrightGreen,0,C,-10);
    starbar= BeginValue( Len-21 );
    starprice=ValueWhen(starbar,C,1);
    endprice=LastValue(C);
    Change=100 * (endprice-starprice)/starprice ;
    dist = 0.5*ATR(10);
    lastBar=BarCount-1;
    for( i = 0; i < BarCount; i++ )
    {
    if(Len==-21) PlotText( "STAR " + C, i-1, C-dist, colorBrightGreen );
    if(Len==-21) PlotText("%"+CHANGE,Lastbar-1,C[Lastbar],colorBrightGreen);
    }
    _SECTION_END();
    Last edited: 15/04/2017
    Nguyenbinh234 thích bài này.
  8. daubuonck

    daubuonck Thành viên gắn bó với f319.com

    Tham gia ngày:
    28/08/2014
    Đã được thích:
    85.973
    cách ra về phía dưới thì cho dấu - vào chỗ 0,c,0, còn màu thì thích màu nào cho vào màu đó thôi

    _SECTION_BEGIN("DK PLOT");
    Plot(C,"",colorGreen, styleCandle);
    bar = BarIndex();
    Len = bar - BarCount-1;
    PlotShapes(IIf(Len==-21 ,shapeUpArrow,shapeNone),colorBrightGreen,0,C,-10);
    starbar= BeginValue( Len-21 );
    starprice=ValueWhen(starbar,C,1);
    endprice=LastValue(C);
    Change=100 * (endprice-starprice)/starprice ;
    dist = 0.5*ATR(10);
    lastBar=BarCount-1;
    for( i = 0; i < BarCount; i++ )
    {
    if(Len==-21) PlotText( "STAR " + C, i-1, C-dist, colorBrightGreen );
    if(Len==-21) PlotText("%"+CHANGE,Lastbar-1,C[Lastbar],colorBrightGreen);
    }
    _SECTION_END();

    [​IMG]
    Last edited: 15/04/2017
  9. luonguct

    luonguct Thành viên này đang bị tạm khóa Đang bị khóa Not Official

    Tham gia ngày:
    07/03/2016
    Đã được thích:
    13.683
    Cảm ơn bác! Nhưng tớ dùng Amibroker phiên bản 6.00.2 chạy code mới này vẫn lỗi y chang. Tớ đang tìm hiểu code cho ami. :)
  10. daubuonck

    daubuonck Thành viên gắn bó với f319.com

    Tham gia ngày:
    28/08/2014
    Đã được thích:
    85.973
    tôi sử dụng 5,6 vì nó ổn định, code này đơn giản có lẽ verson nào cũng chạy thôi , như báo lỗi trên là nó nói thiếu cái [] , vì vòng lặp FOR mà viết C, CHANGE không có [] nó báo lỗi thế thôi

Chia sẻ trang này