misfits wrote on Dec 9th, 2008, 12:20pm:Can someone point me to the documentation which shows how to use this function within Ocean?
As far as I know, there is no Skill function for table read.
But there is fscanf() function in Skill.
So you can create original functions to read table.
The following is simple example.
procedure( read1Plot( fileName, label )
let( ( fp, x, y1, lx, ly1, xvec, yvec1, w1 )
fp = infile( fileName )
lx = nil
ly1 = nil
while( fscanf( fp, "%s %s", x, y1 ) == 2
lx = append( lx, list( aelNumber(x) ) )
ly1 = append( ly1, list( aelNumber(y1) ) )
)
xvec = drCreateVec( 'double lx )
yvec1 = drCreateVec( 'double ly1 )
w1 = drCreateWaveform( xvec, yvec1 )
plot(w1, ?expr list(label))
close( fp )
) ; let end
) ; procedure end