Hi Paul,

Below is some code for drawing number lines that you may be able to modify to meet your needs (I omitted the problem text and only inserted one of the three graphs).

Best regards,

Paul Pearson

####################################

# Initialization

DOCUMENT();

loadMacros(

"

PGstandard.pl",

"

MathObjects.pl",

"

PGgraphmacros.pl",

);

TEXT(beginproblem());

$refreshCachedImages = 1;

####################################

# Setup

Context("Numeric")->variables->are(x=>"Real");

foreach my $i (0..2) {

$gr[$i] = init_graph(-6,-1,6,1, size=>[408,68]);

# x-axis

$gr[$i] -> moveTo(-6,0);

$gr[$i] -> lineTo(6,0,'black','1');

# x-axis ticks entered as y-value, color, list of x-values

$gr[$i] -> h_ticks(0,"black",-5,-4,-3,-2,-1,0,1,2,3,4,5);

# labels for tickmarks

foreach my $j (0..5) {

$gr[$i]->lb( new Label($j,-0.5,$j, 'black','center','middle'));

$gr[$i]->lb( new Label(-$j,-0.5,-$j, 'black','center','middle'));

}

}

$gr[0] -> stamps( closed_circle(-4,0,'blue') );

$gr[0] -> stamps( closed_circle(4,0,'blue') );

$gr[1] -> moveTo(-4,0);

$gr[1] -> lineTo(4,0,'blue',3);

$gr[1] -> stamps( open_circle(-4,0,'blue') );

$gr[1] -> stamps( open_circle(4,0,'blue') );

$gr[2] -> moveTo(-4,0);

$gr[2] -> arrowTo(-6,0,'blue',3);

$gr[2] -> moveTo(4,0);

$gr[2] -> arrowTo(6,0,'blue',3);

$gr[2] -> stamps( open_circle(-4,0,'blue') );

$gr[2] -> stamps( open_circle(4,0,'blue') );

BEGIN_TEXT

\{ image(insertGraph($gr[0]), width=>408, height=>68, tex_size=>700); \}

END_TEXT

ENDDOCUMENT();