The OP does not know what the limits are... he or she needs to find them. Consider:
Now find the middle point. It the first list 4 is the mid point. But in the second list its 6. You don't know 4 or 6 ahead of time. The mid point is the 50% point. Now image a much longer list and you need to find the data element at 10%, 20%, 30%...90% points in the list.
How to replace many numbers with one number in a file.
Many numbers like 444565,454678,443298,etc. i want to replace these with one number (300).Please halp me out. (2 Replies)
I have two files one (numbers file)contains the numbers(approximately 30000) and the other file(record file) contains the records(approximately 40000)which may or may not contain the numbers from that file.
I want to seperate the records which has the field 1=(any of the number from numbers... (15 Replies)
Howdy experts,
We have some ranges of number which belongs to particual group as below.
GroupNo StartRange EndRange
Group0125 935300 935399
Group2006 935400 935476
937430 937459
Group0324 935477 935549
... (6 Replies)
Hi all,
I have a large column of numbers like
5.6789
2.4578
9.4678
13.5673
1.6589
.....
I am trying to make an awk code so that awk can easily go through the column and arrange the numbers from least to highest like
1.6589
2.4578
5.6789
.......
can anybody suggest, how can I do... (5 Replies)
Hi, I have a list.txt file with number ranges and want to print/save new all.txt file with all the numbers and between the numbers.
== list.txt ==
65936
65938
65942 && 65943
65945 ... (7 Replies)
Hi again. Sorry for all the questions — I've tried to do all this myself but I'm just not good enough yet, and the help I've received so far from bartus11 has been absolutely invaluable. Hopefully this will be the last bit of file manipulation I need to do.
I have a file which is formatted as... (4 Replies)
Hi!
I found and then adapt the code for my pipeline...
awk -F"," -vOFS="," '{printf "%0.2f %0.f\n",$2,$4}' xxx > yyy
I add -F"," -vOFS="," (for input and output as csv file) and I change the columns and the number of decimal...
It works but I have also some problems... here my columns
... (7 Replies)
Discussion started by: echo manolis
7 Replies
LEARN ABOUT DEBIAN
math::bezier
Bezier(3pm) User Contributed Perl Documentation Bezier(3pm)NAME
Math::Bezier - solution of Bezier Curves
SYNOPSIS
use Math::Bezier;
# create curve passing list of (x, y) control points
my $bezier = Math::Bezier->new($x1, $y1, $x2, $y2, ..., $xn, $yn);
# or pass reference to list of control points
my $bezier = Math::Bezier->new([ $x1, $y1, $x2, $y2, ..., $xn, $yn]);
# determine (x, y) at point along curve, range 0 -> 1
my ($x, $y) = $bezier->point(0.5);
# returns list ref in scalar context
my $xy = $bezier->point(0.5);
# return list of 20 (x, y) points along curve
my @curve = $bezier->curve(20);
# returns list ref in scalar context
my $curve = $bezier->curve(20);
DESCRIPTION
This module implements the algorithm for the solution of Bezier curves as presented by Robert D. Miller in Graphics Gems V, "Quick and
Simple Bezier Curve Drawing".
A new Bezier curve is created using the new() constructor, passing a list of (x, y) control points.
use Math::Bezier;
my @control = ( 0, 0, 10, 20, 30, -20, 40, 0 );
my $bezier = Math::Bezier->new(@control);
Alternately, a reference to a list of control points may be passed.
my $bezier = Math::Bezier->new(@control);
The point($theta) method can then be called on the object, passing a value in the range 0 to 1 which represents the distance along the
curve. When called in list context, the method returns the x and y coordinates of that point on the Bezier curve.
my ($x, $y) = $bezier->point(0.5);
print "x: $x y: $y
When called in scalar context, it returns a reference to a list containing the x and y coordinates.
my $point = $bezier->point(0.5);
print "x: $point->[0] y: $point->[1]
";
The curve($n) method can be used to return a set of points sampled along the length of the curve (i.e. in the range 0 <= $theta <= 1). The
parameter indicates the number of sample points required, defaulting to 20 if undefined. The method returns a list of ($x1, $y1, $x2, $y2,
..., $xn, $yn) points when called in list context, or a reference to such an array when called in scalar context.
my @points = $bezier->curve(10);
while (@points) {
my ($x, $y) = splice(@points, 0, 2);
print "x: $x y: $y
";
}
my $points = $bezier->curve(10);
while (@$points) {
my ($x, $y) = splice(@$points, 0, 2);
print "x: $x y: $y
";
}
AUTHOR
Andy Wardley <abw@kfs.org>
SEE ALSO
Graphics Gems 5, edited by Alan W. Paeth, Academic Press, 1995, ISBN 0-12-543455-3. Section IV.8, 'Quick and Simple Bezier Curve Drawing'
by Robert D. Miller, pages 206-209.
perl v5.10.1 2000-10-19 Bezier(3pm)