Solver Finding the slope

Source code of 'Finding the slope'

This Solver (Finding the slope) 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

Find the slope of the line through any two points.

First point:  (*[input x1=2], *[input y1=3])

Second point:  (*[input x2=5], *[input y2=7])

Notes:

The first point is (x1, y1)

The second point is (x2, y2)

If any coordinates are fractions, convert them to decimal form.

Disclaimer: This solver may not be perfect. If there are any errors, please report them to me (please be respectful when reporting the errors). Please make sure to follow all instructions the automated solver provides. Always keep this in mind: an automated solver like this is NOT a suitable replacement for your brain. So please don't blindly follow the solver completely. It's simply a tool like a calculator is. You shouldn't blindly trust your calculator 100% of the time. If something doesn't look right, seek a second opinion and let me know about it. Finally, make sure that you're using the correct solver in the correct way. For example, if you need to find the equation of the line, don't use the "distance formula solver" even if there are some overlapping ideas. The solvers won't have any clue about what you truly mean.

==section solution

perl

sub generate_fraction {
  my $exp=$_[0];
  my @array=split(/\//,$exp);
  $array[1]=1 if @array==1;
  return @array;
}

# reduce fraction of integer numerator/denominator
sub reduce{
 die "Error: no value entered " if @_==0;
 my @a=generate_fraction($_[0]) if @_==1; ## if input arg is a string
 @a=@_ if @_>1; ## if input arg is an array

## if one operand is a decimal number, just divide
 if(($a[0]=~m/\./) or ($a[1]=~m/\./))
  {
     return $a[0]/$a[1];
  }

if(@a>2)
  {die "ERROR: More than 2 input arguments";}

foreach (@a)
   {die "Cannot handle decimal numbers " if $_=~m/\./;}

if($a[1]==0)
   {die "ERROR: Division by zero";}

if($a[0] eq '0')
  {return $a[0];}

my $gcf=gcf($a[0],$a[1]);
 $a[0]/=$gcf;
 $a[1]/=$gcf;

my $answer_string=join("/",@a);
 $answer_string=~s/\/1$//; # remove denominator of 1

## Last few lines allow for overloading return values
  #-- undefined context -- return nothing
  return if ( ! defined wantarray );
  #-- list/array context -- return array
  return @a if ( wantarray );
  #-- neither undefined nor list context, return scalar
  return $answer_string;
}

sub gcf {
  my ($x, $y) = @_;
  ($x, $y) = ($y, $x % $y) while $y;
  return $x;
}

################################## END Subroutines Section ####################################

## --------------------------------------------------------------------------------------------------- ##

################################## BEGIN Input Section ##################################

################################## END Input Section ####################################

## --------------------------------------------------------------------------------------------------- ##

################################## BEGIN Main Section ##################################

my $num = $y2 - $y1;
my $denom = $x2 - $x1;

print "

Slope of the line through the points ($x1, $y1) and ($x2, $y2)

if($denom == 0)
{
if( $y1 > 0 )
{
print "

{{{m = (y[2] - y[1])/(x[2] - x[1])}}}

{{{m = ($y2 - $y1)/($x2 - $x1)}}}

{{{m = (",$y2 - $y1,")/(",$x2 - $x1,")}}}
";
}

if( $y1 < 0 )
{
print "

{{{m = (y[2] - y[1])/(x[2] - x[1])}}}

{{{m = ($y2 - ($y1))/($x2 - $x1)}}}

{{{m = ($y2 + ",-1*$y1,"))/($x2 - $x1)}}}

{{{m = (",$y2 - $y1,")/(",$x2 - $x1,")}}}
";
}

print "

Since you CANNOT divide by 0, this means that the slope of the line is undefined.

Answer: The slope of the line is undefined.

goto END;

}

my $ans = "(".($y2 - $y1).")/(".($x2 - $x1).")";
my $un_reduced_fraction = "$num/$denom";
my $reduced_ans = reduce("$num/$denom");
$reduced_ans =~ s/\/1\s*$//;

my $bool = 0;

$bool = 1 if( ($x2 - $x1) < 0 );
$bool = 1 if($un_reduced_fraction ne $reduced_ans);

if( ($y1 > 0) and ($x1 > 0) )
{
print "

{{{m = (y[2] - y[1])/(x[2] - x[1])}}}

{{{m = ($y2 - $y1)/($x2 - $x1)}}}

{{{m = (",$y2 - $y1,")/(",$x2 - $x1,")}}}
";

print "

{{{m = $reduced_ans}}}

" if($bool == 1);
}

if( ($y1 > 0) and ($x1 < 0) )
{
print "

{{{m = (y[2] - y[1])/(x[2] - x[1])}}}

{{{m = (y[2] - y[1])/(x[2] - (x[1]))}}}

{{{m = ($y2 - $y1)/($x2 - ($x1))}}}

{{{m = ($y2 - $y1)/($x2 + ",-1*$x1,")}}}

{{{m = (",$y2 - $y1,")/(",$x2 - $x1,")}}}
";

print "

{{{m = $reduced_ans}}}

" if($bool == 1);
}

if( ($y1 < 0) and ($x1 > 0) )
{
print "

{{{m = (y[2] - (y[1]))/(x[2] - x[1])}}}

{{{m = ($y2 - ($y1))/($x2 - $x1)}}}

{{{m = ($y2 + ",-1*$y1,")/($x2 - $x1)}}}

{{{m = (",$y2 - $y1,")/(",$x2 - $x1,")}}}
";

print "

{{{m = $reduced_ans}}}

" if($bool == 1);
}

if( ($y1 < 0) and ($x1 < 0) )
{
print "

{{{m = (y[2] - (y[1]))/(x[2] - (x[1]))}}}

{{{m = ($y2 - ($y1))/($x2 - ($x1))}}}

{{{m = ($y2 + ",-1*$y1,")/($x2 + ",-1*$x1,")}}}

{{{m = (",$y2 - $y1,")/(",$x2 - $x1,")}}}
";

print "

{{{m = $reduced_ans}}}

" if($bool == 1);
}

print "

Answer: Slope is {{{m = $reduced_ans}}}

END:

==section output

==section check