Select Code to Download

sub solve{
    my( $a, $b, $c, $d ) = @_;
...
    
    return( $x, $y );
}

sub solve{
    my( $a, $b, $c, $d ) = @_;
...
    
    return( $x, $y );
}

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