The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

# NAME

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

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>