# read input file $k=0; while (){ $values{$k} = [ split ]; $k++; } $a = $values{0}[0]; $b = $values{1}[0]; $c = $values{2}[0]; $x = 0-((1)/350); for ($temp=1; $temp<102; $temp++){ $x = $x+((1)/350); $y = $a+$b*$x**$c; write OUT; print OUT2 "$x $y\n"; } close(IN); close(OUT); close(OUT2);