The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

Finance::GeniusTrader::Graphics::Object::BuySellArrows

This graphical object display buy and sell arrows.

Description and Usage

the object doesn't accept arguments when created, however it reads gt configure file for and sets these values (default values are indicated):

  Graphic::BuySellArrows::BuyColor      "green"
  Graphic::BuySellArrows::SellColor     "red"
  Graphic::BuySellArrows::Distance      8
  Graphic::Candle::Height               3
  Graphic::BuySellArrows::SizeFactor    1

note: the default SizeFactor of 1 should make this modified version work identically to the prior version

personally, i find a Distance of about 24 and a SizeFactor of 3 to 6 makes the arrow plot better. in addition i prefer to darken the colors and make the partly transparent

 Graphic::BuySellArrows::BuyColor       "[0,135,0,64]"  # very dark green
 Graphic::BuySellArrows::SellColor      "[150,0,0,64]"  # dark red

used in graphic.pl graphic configuration file as shown below:

plotting on the primary price plot

 --add=BuySellArrows(Systems::Generic \
  { S::Generic::CrossOverUp   {I::MACD/1 26 52 20} {I::MACD/2 26 52 20} } \
  { S::Generic::CrossOverDown {I::MACD/1 26 52 20} {I::MACD/2 26 52 20} } \
  )

plotting arrows on a secondary zone

--add=New-Zone(5)

--add=New-Zone(100) --add=Curve(I:MACD/1 26 52 20, [120, 40, 0]) --add=Curve(I:MACD/2 26 52 20, red) --add=Text("macd: 26 52 20", 2, 95, left, center, small, [120, 40, 0], arial) --add=Set-Scale(auto)

--add=BuySellArrows(Systems::Generic \ { S::Generic::CrossOverUp {I::MACD/1 26 52 20} {I::MACD/2 26 52 20} } \ { S::Generic::CrossOverDown {I::MACD/1 26 52 20} {I::MACD/2 26 52 20} } \ ) --add=Set-Special-Scale(auto,"log")