Help for this page

Select Code to Download


  1. or download this
    sub solve{
    my( $a, $b, $c, $d ) = @_;
...
    
    return( $x, $y );
}
  2. or download this
    sub solve{
    my( $a, $b, $c, $d ) = @_;
...
    
    return( $x, $y );
}
  3. or download this
    formula for line 1:   Y = (D - A) * X + A
formula for line 2:   Y = (C - B) * X + B
...

Y = (D - A) * (B - A) / (D - A - C + B) + A