綠茶妹 發表於 10-6-27 23:49

紅綠K線

我想要把K線改成紅色和綠色，如HTS系統那種配色。
剛才找了程式來改。
http://wisestocktrader.net/indicators/271-chart-basic-candlestick
但是顏色還是有點怪怪的。
先貼上來，歡迎高手指正。(下圖圈起來的地方怪怪的)




_SECTION_BEGIN("chart basic Candle stick ");


SetChartOptions(0,chartShowArrows|chartShowDates);

_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
if (SetBarFillColor( IIf( (C < O) AND (C < Ref( C, -1)), colorGreen, colorRed ) ) );
else
(SetBarFillColor( IIf( (C > O)AND (C < Ref( C, -1)), colorWhite,colorWhite)));
Plot( C, "Close",IIf( Close < Ref( Close, -1), colorGreen, colorRed ), styleCandle );

_SECTION_END();

綠茶妹 發表於 10-6-28 10:42

回復 2# BG


    我回家試試看。謝謝 ^^

綠茶妹 發表於 10-6-28 22:18

回復 2# BG


    感謝BG大的指導，BG大果然是AB神人。修正後的程式碼如下：


_SECTION_BEGIN("chart basic Candle stick ");

SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
if (SetBarFillColor( IIf( (C < O) AND (C < Ref( C, -1)), colorGreen, colorRed) ) );
else
(SetBarFillColor( IIf( (C > O)AND (C < Ref( C, -1)), colorWhite,colorWhite)));
Plot( C, "Close",IIf( C < O, colorGreen, colorRed ), styleCandle );
_SECTION_END();





上圖中央的chart是紅綠K線。

rockwell 發表於 11-2-13 12:19

本帖最後由 rockwell 於 11-2-13 12:20 PM 編輯

綠茶大最後分享的程式碼，似乎還是有點問題，所以小小又做了一次修改，修改如下：
_SECTION_BEGIN("chart basic Candle stick ");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
if (SetBarFillColor( IIf( C < O, colorGreen, colorRed ) ) );
else (SetBarFillColor( IIf( C > O, colorWhite,colorWhite)));
Plot( C, "Close",IIf( C < O, colorGreen, colorRed ), styleCandle );
_SECTION_END();

ps.想不透為何原作者K棒實體部分的顏色，要多用 C < Ref( C, -1)來作判別，不知用意在哪？{:5_256:}



修改前：



修改後：

bbdcd 發表於 11-3-26 15:54

努力領悟中..
感謝大好文..

usana642 發表於 11-5-12 17:47

謝謝大大分享......
頁: [1]
查看完整版本: 紅綠K線