紅綠K線

綠茶妹

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

1. _SECTION_BEGIN("chart basic Candle stick ");
   
2. 
   
3. 
   
4. SetChartOptions(0,chartShowArrows|chartShowDates);
   
5. 
   
6. _N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
   
7. if (SetBarFillColor( IIf( (C < O) AND (C < Ref( C, -1)), colorGreen, colorRed ) ) );
   
8. else
   
9. (SetBarFillColor( IIf( (C > O)AND (C < Ref( C, -1)), colorWhite,colorWhite)));
   
10. Plot( C, "Close",IIf( Close < Ref( Close, -1), colorGreen, colorRed ), styleCandle );
    
11. 
    
12. _SECTION_END();

複製代碼

綠茶妹

回復 2# BG


    我回家試試看。謝謝 ^^

綠茶妹

回復 2# BG


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

1. 
   
2. _SECTION_BEGIN("chart basic Candle stick ");
   
3. 
   
4. SetChartOptions(0,chartShowArrows|chartShowDates);
   
5. _N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
   
6. if (SetBarFillColor( IIf( (C < O) AND (C < Ref( C, -1)), colorGreen, colorRed  ) ) );
   
7. else
   
8. (SetBarFillColor( IIf( (C > O)AND (C < Ref( C, -1)), colorWhite,colorWhite)));
   
9. Plot( C, "Close",IIf( C < O, colorGreen, colorRed ), styleCandle );
   
10. _SECTION_END();
    

複製代碼

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

rockwell

綠茶大最後分享的程式碼，似乎還是有點問題，所以小小又做了一次修改，修改如下：

1. _SECTION_BEGIN("chart basic Candle stick ");
   
2. SetChartOptions(0,chartShowArrows|chartShowDates);
   
3. _N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
   
4. if (SetBarFillColor( IIf( C < O, colorGreen, colorRed ) ) );
   
5. else (SetBarFillColor( IIf( C > O, colorWhite,colorWhite)));
   
6. Plot( C, "Close",IIf( C < O, colorGreen, colorRed ), styleCandle );
   
7. _SECTION_END();
   

複製代碼

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



修改前：



修改後：

bbdcd

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

usana642

謝謝大大分享......