#!/usr/bin/perl

# This program prints out lines of the form
# \ptplt x  y
# where (x,y) is a point of the form x = f(i), y = g(i)
# for all i in the range  $MinParameter <= i <= $MaxParameter .
# The \ptplt is used in a tex routine to plot the points.
# Values for $MinParameter and $MaxParameter must be entered
# below, and $f and $g must be changed to give parametrically
# whatever function x(i) = f(i) and y(i) = g(i) you actually
# want to graph.


$MinParameter = 0;
$MaxParameter = 1887;

for ($i = $MinParameter; $i <= $MaxParameter; $i++){
$f = int(1000*(sin(2*$i/300)))/1000;
$g = int(1000*cos(3*$i/300))/1000;
print "\\ptplt $f $g \n";
}