** Using WeBWorK **

Hi Mike,

Thanks for the encouragement; the latest files are attached - still in progress; some documentation is attached in the previous post.

To produce the images:
So far it is a cut and paste from PGgraphmacros - including the "Fixme"


The size of the image is determined at the end.
As such the plan is to store all the draw instructions in arrays @_x,@_y,@_flag prior to calling WWPlot.
I worry a little about the "processing footprint" here.

If there is a better way, I guess now is the time.
I have sorted out a number is fundamental issues since the last post.
As regards to the "randomize button", I think we should wait until the code is in better shape before we point fingers.

Thanks - hp


At the end of the pg file we have
VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV

$gr=$circuit->make_image();

BEGIN_TEXT

What is the effective resistance that the battery "sees"? $BR
\{ans_rule(8)\} $BR $BR
\{ image(insertGraph($gr), width=>400, height=>400) \}

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Where make_image is:
VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV


sub make_image{

if(($_xmax-$_xmin)>($_ymax-$_ymin)){
($_xmin,$_xmax)= ($_xmin-$_border*($_xmax-$_xmin),$_xmax+$_border*($_xmax-$_xmin));
($_ymin,$_ymax)= ($_ymin-$_border*($_xmax-$_xmin),$_ymax+$_border*($_xmax-$_xmin));
$_pixels_x = $_pixels;
$_pixels_y = $_pixels *($_ymax-$_ymin)/($_xmax-$_xmin);
}
else{
($_ymin,$_ymax)= ($_ymin-$_border*($_ymax-$_ymin),$_ymax+$_border*($_ymax-$_ymin));
($_xmin,$_xmax)= ($_xmin-$_border*($_ymax-$_ymin),$_xmax+$_border*($_ymax-$_ymin));
$_pixels_y = $_pixels;
$_pixels_x = $_pixels *($_xmax-$_xmin)/($_ymax-$_ymin);
}


my $graphRef = new WWPlot($_pixels_x, $_pixels_y);


# select a name for this graph based on the user, the psvn and the problem
my $setName = $main::setNumber;
# replace dots, commmas and @ signs in set and user names to keep latex and html happy
# this should be abstracted and placed in PGalias.pm or PGcore.pm or perhaps PG.pm
#FIXME
$setName =~ s/Q/QQ/g;
$setName =~ s/\./-Q-/g;
my $studentLogin = $main::studentLogin;
$studentLogin =~ s/Q/QQ/g;
$studentLogin =~ s/\./-Q-/g;
$studentLogin =~ s/\,/-Q-/g;
$studentLogin =~ s/\@/-Q-/g;
my $imageName = "$studentLogin-$main::problemSeed-set${setName}prob${main::probNum}";
# $imageNum counts the number of graphs with this name which have been created since PGgraphmacros.pl was initiated.
my $imageNum = ++$main::images_created{$imageName};
# this provides a unique name for the graph -- it does not include an extension.
$graphRef->imageName("${imageName}image${imageNum}");

$graphRef->xmin($_xmin);
$graphRef->xmax($_xmax) ;
$graphRef->ymin($_ymin);
$graphRef->ymax($_ymax) ;


foreach (0..$#_x){

if ($_flag[$_] ==0){$graphRef->moveTo($_x[$_],$_y[$_])}
if ($_flag[$_] ==1){$graphRef->lineTo($_x[$_],$_y[$_],'black',1)}
}
return $graphRef;
}

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Attached are examples of problems using the Sketch.pl macro.

You will need to use the version of Sketch.pl found there as it is the only version containing "load_caption_vocabulary_123()". This works the same way as "load_caption_vocabulary()" except that the former will automatically load enough vocabulary to sketch a perl-styled number: this would be the digits,the decimal, e,+ and - signs.

It was noted that most sketches would require digits in addition to several characters: for example for a problem using metres and degrees we would have:

$ARC->load_caption_vocabulary_123(
"*","SQN[Z[ RQFOGNINKOMQNSNUMVKVIUGSFQF",# degree symbol
m=>"SQG[a[ RGMG[ RGQJNLMOMQNRQR[ RRQUNWMZM\N]Q][",
);

You should put Sketch.pl in your macros directory. The locations of the problem files depends on how you are organizing your work.

As this would be the only addition to the documentation, no work has been done on the documentation.

I just finished "polishing" these up so there has been no testing of these particular versions. Typically there has been very little testing on previous versions (6 to 30 students). There has been no testing on measurement.pg.