Thanks for expanding and illustrating that Oleg. This framework is "closer to
the metal" and so requires a bit more work and knowledge to create new plots,
but it is definitely more flexible and powerful for the developer and simpler
to use for the end user.
I've added another example custom plot.
Rather than extend hilo2 to be an ohlc plot when 4 series are present, I've
created a separate plot called ohlc. I think this is warranted because it is
likely to be used enough to have its own name and because it matches the order
that most data sources seem to use (which unfortunately doesn't match the order
for cleanly handling progressively more series).
---Oleg Kobchenko wrote:
> > From: Oleg Kobchenko <[EMAIL PROTECTED]>
> > It would be good to be able to say
> >
> > 'stocks' plot open,hi,lo,:close
> >
> > I wonder if new plot types could be defined as addons, e.g.
> > load'graphics/plot/stocks'
> >
> > This is an attribute of component design: you don't have to modify
> and
> > re-build the existing package.
> > Another way of looking at it is pluggable framework.
>
> Here's an example of custom plot type.
>
NB. =========================================================
require 'plot'
coclass 'pzplot'
coinsert 'jzplot'
NB.*typereg v register plot type (framework)
typereg=: 4 : 0
('plot_',y,'_jzplot_')=: ('plot_',y,'_',(>coname''),'_')~ f.
for_i. x do.
((>i),'_jzplot_')=: (((>i),'_jzplot_')~ -. <y),<y
end.
PlotTypes_jzplot_=: ~. PlotTypes2d_jzplot_,PlotTypes3d_jzplot_
empty''
)
NB. sample custom plot type (plugin)
plot_hilo2=: 3 : 0
'x y'=. getgrafxy y
'r c'=. $y
clr=. getitemcolor 2
hilo=. ,./x,."1 [ 2{.y
idx=. (0 > -/) _2{.y
drawline iDATA;(idx{clr);PENSIZE;hilo
dx=. 0.33*-/1 0{x
if. r>:3 do.
close=. x,.(2{y),.(x+dx),.2{y
drawline iDATA;(idx{clr);PENSIZE;close
end.
if. r=4 do.
close=. (x-dx),.(3{y),.x,.3{y
drawline iDATA;(idx{clr);PENSIZE;close
end.
)
plot_ohlc=: 3 : 0
'x y'=. getgrafxy y
'r c'=. $y
if. r ~: 4 do.
signal 'Four series required: open,high,low,close.'
end.
clr=. getitemcolor 2
hilo=. ,./x,."1 [ 1 2{y
idx=. (0 < -/) 0 3{y
drawline iDATA;(idx{clr);PENSIZE;hilo
dx=. 0.33*-/1 0{x
close=. x,.(3{y),.(x+dx),.3{y
drawline iDATA;(idx{clr);PENSIZE;close
open=. (x-dx),.(0{y),.x,.0{y
drawline iDATA;(idx{clr);PENSIZE;open
)
(;:'PlotTypes2d') typereg 'ohlc'
(;:'PlotTypes2d') typereg 'hilo2'
Note 'End-user code'
HLCO=: (0 3 1 2&{@/:~)"1&.|: 4 30 [EMAIL PROTECTED] 100
'hilo' plot 3{.HLCO
'hilo2' plot 3{.HLCO
'hilo2' plot HLCO
NB. Get data
load 'csv'
fn=. jpath '~system\examples\data\dm0396.txt'
data=: 0". >4{.}.|: readcsv fn
'ohlc' plot _50{."1 data
'ohlc;pensize 2;markersize 2' plot _15{."1 data
'ohlc' plot _100{."1 data
)
NB. =========================================================
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
