Select Code to Download

Let the coordinates of A be (0, 0) and B (0, 633). C is 257 someunits 
+(let's say meters, we don't care) from A and 390 m from B.

...
Similarly:
x² + y² = 257²
<=> x = +/- sqrt ( 257² - y²)

use strict;  
use warnings;
...
sub distance {
    return abs (sqrt (($_[0][0] - $_[1][0])**2 + ($_[0][1] - $_[1][1])
+**2) - $_[2]);
}

use strict;  
use warnings;
...
E: 120  62  68
F: 68  52  93
G: 53  125 64

$ perl  coordinates2.pl
$VAR1 = {
...
                   90
                 ]
        };

A 0 0
B O 90
C 55 35
...
E 60 114
F 64 55
G 45 -29