Math::Project - Perl extension for computing intersection with upright line through input point |

Math::Project - Perl extension for computing intersection with upright line through input point

use Math::Project qw/project/;

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

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.

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);

Same as `project()`

but [x1,y1] and [x2,y2] determine abscissa.

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

0.03

(c) 2001 Milan Sorm, sorm@pef.mendelu.cz at Faculty of Economics, Mendel University of Agriculture and Forestry in Brno, Czech Republic.

This module was needed for making SchemaView Plus (`svplus`

) for adding
drag points to coord based connection method.

perl(1), svplus(1).

Math::Project - Perl extension for computing intersection with upright line through input point |