Milan Šorm
and 1 contributors

NAME

Math::Project - Compute intersection with upright line through input point

VERSION

version 0.04

SYNOPSIS

        use Math::Project qw/project/;

        my ($x,$y,$distance) = project ($x1, $y1, $x2, $y2, $xi, $yi);

DESCRIPTION

This module provides function project() for computing intersection with upright line through input point [xi,yi]. You must specify points [x1,y1] and [x2,y2] of straight line.

You can use list of imported functions or access functions via Math::Project::function schema.

FUNCTIONS

project (x1, y1, x2, y2, xi, yi)

Computes intersection between straight line specified with [x1,y1] and [x2,y2] and upright line through input point [xi,yi]. Return three items in list, the first two are coordinates of intersection [xc,yc] and the third is distance between intersection and input point.

        my ($x,$y,$distance) = project ($x1, $y1, $x2, $y2, $xi, $yi);

abscissa_project (x1, y1, x2, y2, xi, yi)

Same as project() but [x1,y1] and [x2,y2] determine abscissa.

        my ($x,$y,$distance) = abscissa_project ($x1, $y1, $x2, $y2,
                $xi, $yi);

AUTHOR

Milan Sorm <sorm@is4u.cz>

COPYRIGHT AND LICENSE

This software is copyright (c) 2014 by Milan Sorm.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.