require 'plot numeric trig' f4=. _10 13 _6 1&p. NB. plot 0 3 ; 'f4' plot_complex=: 4 : 0 NB.Usage:plot_cpmplex _10 13 _6 1 f0=. y&p. dat0=: f0 tmp=.steps x ,100 dat1=: {@|: +. }.; p. y NB. apply both pd 'reset' pd 'type marker' pd dat1 pd 'type line' pd tmp;dat0 pd 'show' ) NB. _2 2 plot_complex 3 _4 0 0 1 ),1 0 NB.'line marker' plot {|: (+.r. 2p1* (i.17)%17 NB. ---------------------- mp=: +/ . * NB. inner products M0=: 0.7 0.3 0,0.4 0.4 0.2,: 0.3 0.3 0.4 M1=: 0.2 0.2 0.6,0.7 0.2 0.1,: 0.1 0.1 0.8 M3=: 0.4 0.6 0,0.2 0.5 0.3,: 0.1 0.7 0.2 M4=: 0 1r2 1r2,1r3 0 2r3,: 1 0 0 L0=: 1 0 0 0 0, 0.1 0 0.9 0 0, 0.05 0 0 0.95 0, 0.2 0 0 0 0.8 ,:1 0 0 0 0 NB. Bradie input data L1=:0 1 0 1,1 1 0.045 0.845,2 1 0.391 0.824,:3 1 0.472 0.795 L1=: L1,4 1 0.484 0.755,5 1 0.546 0.699,:6 1 0.543 0.626 L1=: L1,7 1 0.502 0.532,8 1 0.468 0.418,:9 1 0.459 0.289 L1=: L1,10 1 0.433 0.162,:11 1 0.421 0 NB. Maeda MA0=: 0 1 0 0 0 0 ,1r5 0 4r5 0 0 0,:0 2r5 0 3r5 0 0 MA0=: MA0,0 0 3r5 0 2r5 0,0 0 0 4r5 0 1r5,: 0 0 0 0 0 5r5