#!/usr/bin/perl # intr.pl - Don Yang (uguu.org) # Print linear intervals # # 05/21/03 print "t1 = "; $t1 = ; print "t2 = "; $t2 = ; print "n = "; $n = ; for($i = 0; $i < $n; $i++) { print "[$i] = ", $t1 + ($t2 - $t1) * $i / ($n - 1), "\n"; }