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 |