view release on metacpan or  search on metacpan

test/stex02.t  view on Meta::CPAN

&NCAR::gopwk( 1, 2, 1 );
&NCAR::gacwk( 1 );

#
#	$Id: stex02.f,v 1.6 1995/06/14 13:57:12 haley Exp $
#
# Example STEX02 demonstrates how both the field flow utilities -
# Vectors and Streamlines - map into the non-uniform coordinate
# systems supported by the NCAR Graphics SET call. Each of the
# five frames display a uniform 45 degree field using a Streamlines
# representation overlaying a Vectors representation. The first four
# frames cycle through all possible settings of the Linear-Log (LL)
# argument to the SET call. The fifth frame shows a user coordinate
# system where the unit X is twice the size of the unit Y.
#
# The example also illustrates use of the compatibility mode parameter
# to allow use of the older interfaces (VELVCT and STRMLN), while
# still accessing post-Version 3.2 capabilities of the field flow
# utilities. Note that use of the old entry-points is discouraged
# other than on a transitional basis. Therefore the comments show the
# code required to create an identical plot using the Version 3.2 

test/stex03.t  view on Meta::CPAN

use PDL;
use NCAR::Test qw( bndary gendat drawcl );
use strict;
   
&NCAR::gopks( 6, 1 );
&NCAR::gopwk( 1, 2, 1 );
&NCAR::gacwk( 1 );
my $IDM;
#
# Example STEX03 draws a uniform southwesterly field on ten
# different EZMAP projections. A streamline representation overlays
# a rendering using vectors. Polar input mode is employed: all members
# of the U array, representing magnitude, are set to 1.0, while the
# V array contains the directional component, -135.0 degrees.
#
# All projections use the maximum possible extent of the globe, except
# except for frame 3, a Lambert Conical projection, for which a full
# globe projection is impossible.
#
#  
my ( $M, $N ) = ( 25, 25 );

test/vvex01.t  view on Meta::CPAN

# its man page ( perldoc Test ) for help writing this test script.
unlink( 'gmeta' );

use PDL;
use NCAR::Test;  
&NCAR::gopks( 6, 1 );
&NCAR::gopwk( 1, 2, 1 );
&NCAR::gacwk( 1 );

#
# This example overlays vectors on a polar contour plot using 
# data generated with a randomizing algorithm. The first frame colors
# the vectors according to the data used to generate the contour plot,
# with the result that the color of the vectors corresponds to the 
# contour level at each location. In the second frame the vectors 
# are colored by magnitude.
# 
# The contour, vector field component, and area map array declarations:
#
my ( $MSIZE, $NSIZE ) = ( 33, 33 );
my $LAMA=25000;