source: golgotha/src/golg/objs/circle_distrib.pl @ 80

Last change on this file since 80 was 80, checked in by Sam Hocevar, 11 years ago
  • Adding the Golgotha source code. Not sure what's going to be interesting in there, but since it's all public domain, there's certainly stuff to pick up.
  • Property svn:executable set to *
  • Property svn:keywords set to Id
File size: 719 bytes
RevLine 
[80]1#!/usr/bin/perl
2
3$n = 500;
4
5for ($i=0; $i<$n; $i++)
6{
7    $x[$i] = rand(10) - 5.0;
8    $y[$i] = rand(10) - 5.0;
9}
10
11for ($i=0; $i<$n; $i++)
12{
13    for ($j=$i+1; $j<$n; $j++)
14    {
15        $a = $x[$i]*$x[$i] + $y[$i]*$y[$i];
16        $b = $x[$j]*$x[$j] + $y[$j]*$y[$j];
17        if ($a>$b)
18        {
19            $t = $x[$i];
20            $x[$i] = $x[$j];
21            $x[$j] = $t;
22
23            $t = $y[$i];
24            $y[$i] = $y[$j];
25            $y[$j] = $t;
26        }
27    }
28}
29
30print
31    "static i4_float distrib[][3] =\n" .
32    "{\n";
33for ($i=0; $i<50; $i++)
34{
35    $a = $x[$i]*$x[$i] + $y[$i]*$y[$i];
36    printf("  { %10.7f, %10.7f, %10.7f },\n", $x[$i] , $y[$i], $a);
37}
38print "};\n";
Note: See TracBrowser for help on using the repository browser.