#!/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"; }