Solver Plot a Single Point

Source code of 'Plot a Single Point'

This Solver (Plot a Single Point) was created by by jim_thompson5910(35256)

: View Source, Show, Put on YOUR site
About jim_thompson5910: If you need more math help, then you can email me. I charge $2 for steps, or $1 for answers only. Email: jim_thompson5910@hotmail.com Website: http://www.freewebs.com/jimthompson5910/home.html

==section input

Enter the coordinates of the point to be plotted. 
For instance, if you want to plot the point (3,6), type in 3 for the first number and 6 for the second number like this:

(*[input input_point_x=3],*[input input_point_y=6])

==section solution

perl

$input="$input_point_x,$input_point_y";

@point=split(/,/,$input);

if(abs($point[0])>abs($point[1]))
 {$highest_value=abs($point[0]);}
if(abs($point[1])>abs($point[0]))
 {$highest_value=abs($point[1]);}

$abs1=abs($point[0]);
$abs2=abs($point[1]);

$rad=$highest_value/100;

$point_offset=0.02;
$offset1=2;

$value=$highest_value+$offset1;

$graph_dimensions="900,900,-$value,$value,-$value,$value";

if(($point[0]==0)&&($point[1]==0))
{return;}

if($point[0]==0)
{

## first & second quadrant
if($point[1]>0)
  {$arc_start2=270;
   $arc_stop2=90;}

## third & fourth quadrant
if($point[1]<0)
  {$arc_start2=90;
   $arc_stop2=270;}

if($point[1]>0)
  {for($i=0;$i<abs($point[1]);$i++)
  {$arc_string2.="green(arc(".$point[0].",".($i+0.5).",1,1,$arc_start2,$arc_stop2)),\n";}
  chop($arc_string2);
  chop($arc_string2);}
  else
   {#print "HELLLO";
   for($i=0;$i<abs($point[1]);$i++)
  {$arc_string2.="green(arc(".$point[0].",".(-0.5-$i).",1,1,$arc_start2,$arc_stop2)),\n";}
  chop($arc_string2);
  chop($arc_string2);}

print "Start at the origin (where the the x and y axis intersect)

Now move your pencil $abs2 units ",($point[1]>0)? "up":"down";

print "

We move $abs2 units in this direction since the y-coordinate is $point[1] (its the second number of the pair)

{{{drawing($graph_dimensions,
grid(1),
$arc_string2
)}}}

Plot a point where the pencil lands

{{{drawing($graph_dimensions,
grid(1),
$arc_string2,
circle($input,$rad),
circle($input,$rad+$point_offset)
)}}}

So this is the point ($input)

{{{drawing($graph_dimensions,
grid(1),

circle($input,$rad),
circle($input,$rad+$point_offset)
)}}}
";
return;}

if($point[1]==0)
{
## first & second quadrant
if($point[0]>0)
  {$arc_start1=0;
   $arc_stop1=180;}

## third & fourth quadrant
if($point[0]<0)
  {$arc_start1=180;
   $arc_stop1=0;}

if($point[0]>0)
  {for($i=0;$i<abs($point[0]);$i++)
  {$arc_string1.="green(arc(".($i+0.5).",0,1,2,$arc_start1,$arc_stop1)),\n";}
  chop($arc_string1);
  chop($arc_string1);}
  else
  {
  for($i=0;$i<abs($point[0]);$i++)
  {$arc_string1.="green(arc(".(-0.5-$i).",0,1,2,$arc_start1,$arc_stop1)),\n";}
  chop($arc_string1);
  chop($arc_string1);}

print "Start at the origin (where the the x and y axis intersect)

Now move your pencil $abs1 units to the ",($point[0]>0)? "right":"left";

print "

We move $abs1 units in this direction since the x-coordinate is $point[0] (its the first number of the pair)

{{{drawing($graph_dimensions,
grid(1),
$arc_string1
)}}}

Plot a point where the pencil lands

{{{drawing($graph_dimensions,
grid(1),
$arc_string1,
circle($input,$rad),
circle($input,$rad+$point_offset)
)}}}

So this is the point ($input)

{{{drawing($graph_dimensions,
grid(1),

circle($input,$rad),
circle($input,$rad+$point_offset)
)}}}

";
return;}

#$arc_start1=0;
#   $arc_stop1=180;
#   $arc_start2=270;
#   $arc_stop2=90;

## first quadrant
if(($point[0]>0)&&($point[1]>0))
  {$arc_start1=0;
   $arc_stop1=180;
   $arc_start2=270;
   $arc_stop2=90;}

## second quadrant
if(($point[0]<0)&&($point[1]>0))
  {$arc_start1=0;
   $arc_stop1=180;
   $arc_start2=90;
   $arc_stop2=270;}

## fourth quadrant
if(($point[0]>0)&&($point[1]<0))
  {$arc_start1=180;
   $arc_stop1=0;
   $arc_start2=270;
   $arc_stop2=90;}

## third quadrant
if(($point[0]<0)&&($point[1]<0))
  {$arc_start1=180;
   $arc_stop1=0;
   $arc_start2=90;
   $arc_stop2=270;}

if($point[0]>0)
  {for($i=0;$i<abs($point[0]);$i++)
  {$arc_string1.="blue(arc(".($i+0.5).",0,1,2,$arc_start1,$arc_stop1)),\n";}
  chop($arc_string1);
  chop($arc_string1);}
  else
  {
  for($i=0;$i<abs($point[0]);$i++)
  {$arc_string1.="blue(arc(".(-0.5-$i).",0,1,2,$arc_start1,$arc_stop1)),\n";}
  chop($arc_string1);
  chop($arc_string1);}

print "Start at the origin (where the the x and y axis intersect)

Now move your pencil $abs1 units to the ",($point[0]>0)? "right":"left";

print "

We move $abs1 units in this direction since the x-coordinate is $point[0] (its the first number of the pair)

{{{drawing($graph_dimensions,
grid(1),
$arc_string1
)}}}

print "Now go $abs2 units ",($point[1]>0)? "up":"down";

print "

We move $abs2 units in this direction since the y-coordinate is $point[1] (its the second number of the pair)

{{{drawing($graph_dimensions,
grid(1),
$arc_string1,
$arc_string2
)}}}

Plot a point where the pencil lands

{{{drawing($graph_dimensions,
grid(1),
circle($point[0],$point[1],$rad),
circle($point[0],$point[1],$rad+$point_offset),
$arc_string1,
$arc_string2
)}}}

So here is the point ($point[0],$point[1])

{{{drawing($graph_dimensions,
grid(1),
circle($point[0],$point[1],$rad),
circle($point[0],$point[1],$rad+$point_offset)
)}}}

==section output

==section check
  angle=40 angle1=50