NCAR

 view release on metacpan or  search on metacpan

test/agex09.t  view on Meta::CPAN

  set( $XDAT, $I-1, ( $I-1 ) / 399 );
}
#
my @t;
open DAT, "<data/agex09.dat";
{
  local $/ = undef;
  my $t = <DAT>;
  $t =~ s/^\s*//o;
  $t =~ s/\s*$//o;
  @t =split m/\s+/o, $t;
}
close DAT;
for my $J ( 1 .. 400 ) {
  set( $YDAT, $J-1, shift( @t ) );
}
#
# The y data ranges over both positive and negative values.
# It is desired that both ranges be represented on the same
# graph and that each be shown logarithmically, ignoring
# values in the range -.01 to +.01, in which we have no

test/cpex03.t  view on Meta::CPAN

#
# Generate an array of test data.
#
my @t;
open DAT, "<data/cpex03.dat";
{
  local $/ = undef;
  my $t = <DAT>;
  $t =~ s/^\s*//o;
  $t =~ s/\s*$//o;
  @t = split m/\s+/o, $t;
}
close DAT;
for my $I ( 1 .. 33 ) {
  for my $J ( 1 .. 33 ) {
    set( $ZDAT, $J-1, $I-1, shift( @t ) );
  }
}
#
# Put special values in a roughly circular area.
#

test/cpex09.t  view on Meta::CPAN

#
# Generate dummy data.
#
my @t;
open DAT, "<data/cpex09.dat";
{
  local $/ = undef;
  my $t = <DAT>;
  $t =~ s/^\s*//o;
  $t =~ s/\s*$//o;
  @t = split m/\s+/o, $t;
}
close DAT;
for my $J ( 1 .. 40 ) {
  for my $I ( 1 .. 40 ) {
    set( $ZDAT, $I-1, $J-1, shift( @t ) );
  }
}
#
# Open GKS.
#

test/cpex12.t  view on Meta::CPAN

#
# Generate an array of test data.
#
my @t;
open DAT, "<data/cpex12.dat";
{
  local $/ = undef;
  my $t = <DAT>;
  $t =~ s/^\s*//o;
  $t =~ s/\s*$//o;
  @t = split m/\s+/o, $t;
}
close DAT;
for my $J ( 1 .. 27 ) {
  for my $I ( 1 .. 37 ) {
    set( $ZDAT, $I-1, $J-1, shift( @t ) );
  }
}  
#
# Change the range of the data somewhat.
#

test/cpex15.t  view on Meta::CPAN

#
# Generate an array of test data.
#
my @t;
open DAT, "<data/cpex15.dat";
{
  local $/ = undef;
  my $t = <DAT>;
  $t =~ s/^\s*//o;
  $t =~ s/\s*$//o;
  @t = split m/\s+/o, $t;
}
close DAT;
for my $J ( 1 .. 70 ) {
  for my $I ( 1 .. 70 ) {
    set( $ZDAT, $I-1, $J-1, shift( @t ) );
  }
}
#
# Put some labels at the top of the plot.
#

test/srex01.t  view on Meta::CPAN

}
#
# Put the original Long's Peak data in the array ODAT.
#
open DAT, "<data/srex01.dat";
for my $J ( 1 .. 40 ) {
  my $X = <DAT>;
  chomp $X;
  $X =~ s/^\s*//o;
  $X =~ s/\s*$//o;
  my @X = split m/\s+/o, $X;
  for my $I ( 1 .. 40 ) {
    set( $ODAT, $J-1, $I-1, $X[$I-1] );
  }
}
close DAT;
#
# Interpolate to get more closely-spaced data in the array QDAT.
#
for my $J ( 1 .. 100 ) {
  my $FL=1.+38.99999999*($J-1)/99.;

test/vvex01.t  view on Meta::CPAN

#     EXTERNAL SHADER
#     EXTERNAL VVUDMV
#
my @t;
open DAT, "<data/vvex01.ZDAT.dat";
{
  local $/ = undef;
  my $t = <DAT>;
  $t =~ s/^\s*//o;
  $t =~ s/\s*$//o;
  @t = split m/\s+/o, $t;
}
close DAT;
for my $J ( 1 .. $NSIZE ) {
  for my $I ( 1 .. $MSIZE ) {
    set( $ZDAT, $J-1, $I-1, shift( @t ) );
  }
}
#
for my $I ( 1 .. $MSIZE ) {
  for my $J ( 1 .. $NSIZE ) {

test/vvex01.t  view on Meta::CPAN

# second array argument based upon the contents of the first. Call it
# twice to randomize both the U and V vector component data arrays.
# Then set up the color table.
#
open DAT, "<data/vvex01.U.dat";
{
  local $/ = undef;
  my $t = <DAT>;
  $t =~ s/^\s*//o;
  $t =~ s/\s*$//o;
  @t = split m/\s+/o, $t;
}
close DAT;
for my $J ( 1 .. 60 ) {
  for my $I ( 1 .. 60 ) {
    set( $U, $J-1, $I-1, shift( @t ) );
  }
}
open DAT, "<data/vvex01.V.dat";
{
  local $/ = undef;
  my $t = <DAT>;
  $t =~ s/^\s*//o;
  $t =~ s/\s*$//o;
  @t = split m/\s+/o, $t;
}
close DAT;
for my $J ( 1 .. 60 ) {
  for my $I ( 1 .. 60 ) {
    set( $V, $J-1, $I-1, shift( @t ) );
  }
}

&DFCLRS() ;
#