# Исходные данные

# Ширина и высота снимка
$w=1000;
$h=917;

# Координаты опорных точек 1 и 2
$x1=538;
$y1=450;

$x2=772;
$y2=450;

# Величина угла в градусах
$an=6.80;

# -------------------------------------
$pi = 3.141592653589;

$ca=cos($an*$pi/180);

# Печать исходных данных
printf "Image size %d x %d\n", $w, $h;
printf "Point 1: %d;%d\n", $x1, $y1;
printf "Point 2: %d;%d\n", $x2, $y2;
printf "Angle: %f deg\n", $an;
print "------------------------\n\n";

# Пересчет координат и их нормирование
$x1=($x1-0.5*$w)/$w;
$x2=($x2-0.5*$w)/$w;
$y1=(0.5*$h-$y1)/$w;
$y2=(0.5*$h-$y2)/$w;

# Печать пересчитанных координат
printf "Point 1: %f;%f\n", $x1, $y1;
printf "Point 2: %f;%f\n", $x2, $y2;
print "\n";

# Расчет
$k=$x1*$x2+$y1*$y2;
$k1=$x1*$x1+$y1*$y1;
$k2=$x2*$x2+$y2*$y2;

$ca2 = $ca*$ca;

# Вычисление коэффициентов квадратного уравнения
$a=1-$ca2;
$b=2*$k-($k1+$k2)*$ca2;
$c=$k*$k-$ca2*$k1*$k2;

# Решение квадратного уравнения: вычисляем дискриминант
$d=$b*$b-4*$a*$c;

printf "D: %f\n", $d;

$d=sqrt($d);

# Вычисляем положительный корень
$f=($d-$b)/(2*$a);

# Вычисляем и печатаем фокусное расстояние
# в единицах ширины кадра и в эквиваленте для кадра 24х36
$f=sqrt($f);

printf "F: %f\n", $f;
printf "F36: %f\n", $f*36;

# Вычисляем и печатаем угловые размеры поля зрения
# по горизонтали и по вертикали
$hfov=360*atan2(0.5,$f)/$pi;
$vfov=360*atan2(0.5*($h/$w),$f)/$pi;

printf "HFOV: %f\n", $hfov;
printf "VFOV: %f\n", $vfov;

Image size 1000 x 917
Point 1: 538;450
Point 2: 772;450
Angle: 6.800000 deg
------------------------

Point 1: 0.038000;0.008500
Point 2: 0.272000;0.008500

D: 0.002883
F: 1.957083
F36: 70.454996
HFOV: 28.662984
VFOV: 26.370599

# Исходные данные

# Ширина и высота снимка
$w=1000;
$h=917;

# Фокусное расстояние
$f=1.957083;

# Координаты опорных точек 1 и 2
$x1=538;
$y1=450;

$x2=60;
$y2=450;

# -------------------------------------
$pi = 3.141592653589;

# Печать исходных данных
printf "Image size %d x %d\n", $w, $h;
printf "F: %f\n", $f;
printf "Point 1: %d;%d\n", $x1, $y1;
printf "Point 2: %d;%d\n", $x2, $y2;
print "------------------------\n\n";

# Пересчет координат и их нормирование
$x1=($x1-0.5*$w)/$w;
$x2=($x2-0.5*$w)/$w;
$y1=(0.5*$h-$y1)/$w;
$y2=(0.5*$h-$y2)/$w;

# Печать пересчитанных координат
printf "Point 1: %f;%f\n", $x1, $y1;
printf "Point 2: %f;%f\n", $x2, $y2;
print "\n";

# Вычисление и печать косинуса угла
$k=$x1*$x2+$y1*$y2+$f*$f;
$k1=$x1*$x1+$y1*$y1+$f*$f;
$k2=$x2*$x2+$y2*$y2+$f*$f;

$ca=$k/(sqrt($k1)*sqrt($k2));

printf "Cos: %f\n", $ca;

# Вычисление и печать тангенса угла
$t=sqrt(1/($ca*$ca)-1);

printf "Tan: %f\n", $t;

# Вычисление и печать значения угла
$an=atan2($t,1);
$ad=180*$an/$pi;

printf "Angle: %f deg (%f mrad)\n", $ad, $an*1000;

Image size 1000 x 917
F: 1.957083
Point 1: 538;450
Point 2: 60;450
------------------------

Point 1: 0.038000;0.008500
Point 2: -0.440000;0.008500

Cos: 0.971205
Tan: 0.245310
Angle: 13.783033 deg (240.559303 mrad)

Image size 896 x 800
Point 1: 430;371
Point 2: 658;369
Angle: 7.730000 deg
------------------------

Point 1: -0.020089;0.032366
Point 2: 0.234375;0.034598

D: 0.004065
F: 1.876931
F36: 67.569522
HFOV: 29.833479
VFOV: 26.758428

Image size 896 x 800
F: 1.876931
Point 1: 298;383
Point 2: 298;322
------------------------

Point 1: -0.167411;0.018973
Point 2: -0.167411;0.087054

Cos: 0.999349
Tan: 0.036112
Angle: 2.068163 deg (36.096259 mrad)

Подъезд к ж.д. мосту через р. Лососинку около ст. Петрозаводск [Олонецкой] ж.д.

Возможно ли определить расстояние до моста? Дрезина и мост сбоку крупным планом:

Координаты моста:

По-моему, 72 метра - это мало. Если брать наимен. длину рельса (10,6 м) http://temples.ru/forum/viewtopic.php?p=12599#p12599 , то примерно 14 рельсов до моста, и получится около 140 метров.
И расстояние до дальней группы не выглядит в 2 раза больше, чем до моста.