Sztuka inwestowania

Pytanie prawdopodobnie dla kolegi Frodo :).

Chciałem na wykresie ohlc wspartym indykatorem Zig-Zag uzyskac kolorowe swingi (a nie tak jak w standardowej wersji Zig -jednokolorowe). Dla spadkowych swingów czerowne, dla wzrostowych zielone. Na wykresie ma to wyglądać tak:

http://images61.fotosik.pl/629/f6596258c30bd9da.png

Czy ktoś wie jak ugyżć ten problem ?.

Z braku czasu nigdy się tym nie bawiłem, ale znalazłem takie coś - może Ci pomoże:

http://www.wisestocktrader.com/indicato ... e-function

Sprawdź ok. 80 wiersza kodu.

banqrut napisał(a):Z braku czasu nigdy się tym nie bawiłem, ale znalazłem takie coś - może Ci pomoże:

http://www.wisestocktrader.com/indicato ... e-function

Sprawdź ok. 80 wiersza kodu.

Wielkie dzięki. Też szukałem na tej stronie :):

http://www.wisestocktrader.com/programs/1/functions/139

.. ale jakoś na ten akurat kodzik podany przez ciebie nie natrafiłem :). Wielkie dzięki jeszcze raz naprawdę :).

endriu napisał(a):Pytanie prawdopodobnie dla kolegi Frodo :).

Chciałem na wykresie ohlc wspartym indykatorem Zig-Zag uzyskac kolorowe swingi (a nie tak jak w standardowej wersji Zig -jednokolorowe). Dla spadkowych swingów czerowne, dla wzrostowych zielone. Na wykresie ma to wyglądać tak:

http://images61.fotosik.pl/629/f6596258c30bd9da.png

Czy ktoś wie jak ugyżć ten problem ?.

Dzięki koledze Wojtkowi Filipkowi (Frodo) udało mi sie rozkminić problem.

Kod: Zaznacz wszystko

_SECTION_BEGIN("Price");
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 ) ) ));
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();

_SECTION_BEGIN("ZIG - Zig");
P = ParamField( "Price field" );
change = Param("% change",5,0.1,25,0.1);
Zig1 = Zig(P,change);
rosnie = Zig1>Ref(Zig1,-1);
spada = Zig1<Ref(Zig1,-1);
kolor = IIf(rosnie,colorGreen,colorRed);
Plot(Zig1,"Procent",kolor,styleLine|styleThick,styleOwnScale);
_SECTION_END();