니콘 아빠번들/할배번들 줌 렌즈 초점거리, 35mm 필카 환산; Nikon 18-70mm, 18-135mm

#!/usr/bin/perl
use strict; use warnings;

  my $diagonalLength_35mm = sqrt(36**2 + 24**2); # 32mm 필름의 대각선 길이 구하기
  my $diagonalLength_dc = sqrt(23.6**2 + 15.8**2); # 디카 촬상소자의 대각선 길이 구하기
  my $ratio = $diagonalLength_35mm / $diagonalLength_dc; # 위의 두 값의 비율 구하기




  # 니콘 디카 아빠번들/할배번들의 초점 눈금들:
  my @focalLength_dc = ( 18, 24, 35, 50, 70, 105, 135 );

  print "\n아빠번들/할배번들 초점 눈금을, 필카 렌즈로 환산하면?\n";
  print "====================================================\n";
  foreach ( @focalLength_dc ) {
    printf("%3d mm => %7.2f mm\n", $_, $_ * $ratio);
  }




  # 각종 단초점 필카 렌즈의 초점 거리들:
  # 43mm 렌즈는 실재하지 않고 이론적으로만 존재함
  my @focalLength_35mm = ( 28, 35, 40, 43, 50, 55, 60, 70, 75, 80, 85, 90, 100, 105, 135, 150, 180, 200 );

  print "\n\n\n필카 단렌즈 각 초점거리에 해당하는, 아빠번들/할배번들 눈금?\n";
  print "===========================================================\n";
  foreach ( @focalLength_35mm ) {
    printf("%4d mm => %8.2f mm\n", $_, $_ / $ratio);
  }