Warning, file /education/kstars/kstars/data/tools/HTMesh-0.01/test-chart-1.pl was not indexed or was modified since last indexation (in which case cross-reference links may be missing, inaccurate or erroneous).
0001 use HTMesh; 0002 printf "%5s %5s %8s %8s %8s %8s %8s %8s\n", 0003 qw/size level trixels stars iter/, "us/circ", "time(5)", "time(1)"; 0004 for my $size ( 1, 5, 10, 45, 90) { 0005 printf "%s\n", "-" x 65; 0006 for my $level( 3, 4, 5, 6) { 0007 my $mesh = new HTMesh($level, $level); 0008 my $num_triangles = $mesh->total_triangles(); 0009 my ($ra, $dec) = (6.75, -16.72); 0010 my @circle = ($ra, $dec, $size); 0011 $mesh->intersect_circle(@circle); 0012 my $trixels = $mesh->result_size(); 0013 my $iter = 5000/ sqrt($trixels); 0014 my $time = $mesh->time_circle($iter, @circle); 0015 my $stars = (126000 / $num_triangles) * $trixels; 0016 my $us_per_circ = 1000 * 1000 * $time/$iter; 0017 my $tt1 = $us_per_circ + 5 * $stars; 0018 my $tt2 = $us_per_circ + 1 * $stars; 0019 printf "%5d %5d %8d %8d %8d %8d %8d %8d\n", 0020 $size, $level, $trixels, $stars, $iter, $us_per_circ, $tt1, $tt2; 0021 } 0022 #printf "%s\n", "-" x 72; 0023 } 0024 0025 0026 0027 0028 0029