Close The Session; Include <Stdio .H - Agilent Technologies ESA-E Series Programmer's Manual

Programming Example s
Measuring Harmonic Distortion (GPIB )
/* Set marker amplitude in volts
*/
/* UNIT :POW V
* /
/*
Query, read the marker amplitude in volts
*/
/* CALC :MARK :Y?
* /
/*
Change the amplitude units to dBm and read the
* /
/* marker amplitude .
* /
/*
UNIT :POW DBM
* /
/* - Calculate the relative amplitude of each harmonic
*/
/* reletive to the fundamental
*/
/* - Calculate the total harmonic distortion
/* - Display the fundamental amplitude in dBm, fundamental * /
/* frequency in MHz, relative amplitude of each harmonic
*/
/* in dBc and total harmonic distortion in percent */
/* - Close the session */
/************************************************************ /
#include <stdio .h>
#include <stdlib .h>
#include <math .h>
#include <conio .h>
#include <ctype .h>
#include <string .h>
#include "visa .h "
#define hpESA IDN E4401B "Hewlett-Packard, E4401B "
#define hpESA IDN E4411B "Hewlett-Packard, E4411B "
ViSession defaultRM, viESA ;
ViStatus errStatus ;
ViChar cIdBuff[256]= {0} ;
char cEnter = 0 ;
int iResult = 0 ;
long
lOpc
=0L ;
/*Set the input port to 50MHz amplitude reference* /
void Route50MHzSignal( )
{
viQueryf(viESA, "*IDN?\n", "%t", &cIdBuff) ;
iResult = (strncmp( cldBuff, hpESA IDN E4401B, strlen(hpESA IDN_E4401B)) &&
strncmp( cIdBuff, hpESA IDN E4411B, strlen(hpESA IDN E4411B))) ;
if( iResult = 0 )
{
/*Set the input port to the 50MHz amplitude reference for the models* /
/*E4411B and E4401B* /
viPrintf(viESA,"CAL :SOUR :STAT ON \n") ;
Chapter 3 3-7 1