daniel/photography
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial commit.

Browse Source
This commit is contained in:
daniel
2025-03-05 22:18:37 +01:00
commit 31367c8208
12 changed files with 2901 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

406
.Rhistory Normal file
View File

@ -0,0 +1,406 @@
renv::status()
renv::install()
install.packages("tidyverse")
install.packages("gt")
renv::install()
renv::hydrate()
install.packages("tidyverse")
install.packages(c("tidyverse", "gt", "rmarkdown"))
install.packages("tidyverse")
install.packages("tidyverse")
available.packages()
available.packages() |> filter(package == "tidyverse")
available.packages() |> glimpse()
available.packages() |> view()
available.packages() |> View()
install.packages("tidyverse")
install.packages("tidyverse")
#| label: setup
library(tidyverse)
library(gt)
coc_fx <- 0.025
coc_dx <- 0.020
# Source of equations: https://www.nikonians.org/reviews/dof-and-hyperfocal-distance-tables-and-calculator/p/5
# Returns the hyperfocal distance in millimeters given a focal length in mm,
# an aperture, and a circle of confucion (CoC)
hyperfocal_distance <- function(focal_length, aperture, circle_of_confusion) {
focal_length^2 / (aperture * circle_of_confusion)
}
# Returns the near focus limit in millimeters given a focal length in mm,
# a distance in mm, and a hyperfocal distance in mm
near_focus <- function(focal_length, distance, hyperfocal_distance) {
(hyperfocal_distance * distance) / (hyperfocal_distance + distance - focal_length)
}
# Returns the far focus limit in millimeters given a focal length in mm,
# a distance in mm, and a hyperfocal distance in mm
far_focus <- function(focal_length, distance, hyperfocal_distance) {
(hyperfocal_distance * distance) / (hyperfocal_distance - distance - focal_length)
}
depth_of_field <- function(focal_length, aperture, distance, circle_of_confusion) {
h <- hyperfocal_distance(focal_length, aperture, circle_of_confusion)
}
#| label: setup
library(tidyverse)
library(gt)
coc_fx <- 0.025
coc_dx <- 0.020
# Source of equations: https://www.nikonians.org/reviews/dof-and-hyperfocal-distance-tables-and-calculator/p/5
# Returns the hyperfocal distance in millimeters given a focal length in mm,
# an aperture, and a circle of confucion (CoC)
hyperfocal_distance <- function(focal_length, aperture, circle_of_confusion) {
focal_length^2 / (aperture * circle_of_confusion)
}
# Returns the near focus limit in millimeters given a focal length in mm,
# a distance in mm, and a hyperfocal distance in mm
near_focus <- function(focal_length, distance, hyperfocal_distance) {
(hyperfocal_distance * distance) / (hyperfocal_distance + distance - focal_length)
}
# Returns the far focus limit in millimeters given a focal length in mm,
# a distance in mm, and a hyperfocal distance in mm
far_focus <- function(focal_length, distance, hyperfocal_distance) {
(hyperfocal_distance * distance) / (hyperfocal_distance - distance - focal_length)
}
# Returns the depth of field in millimeters given a focal length of the lens,
# an aperture, a distance of the focused object, and a circle of confusion.
# All distances in millimeters.
depth_of_field <- function(focal_length, aperture, distance, circle_of_confusion) {
h <- hyperfocal_distance(focal_length, aperture, circle_of_confusion)
ff <- far_focus(focal_length, distance, h)
nf <- near_focus(focal_length, distance, h)
ff - nf
}
depth_of_field(150, 2.8, 2000, coc_fx)
depth_of_field(150, 2.8, 2000, coc_dx)
#| label: setup
library(tidyverse)
library(gt)
coc_fx <- 0.025
coc_dx <- 0.020
apertures <- c(2.0, 2.8, 4, 5.6, 8)
distances <- c(2, 4, 6, 8, 10) # meters
# Source of equations: https://www.nikonians.org/reviews/dof-and-hyperfocal-distance-tables-and-calculator/p/5
# Returns the hyperfocal distance in millimeters given a focal length in mm,
# an aperture, and a circle of confucion (CoC)
hyperfocal_distance <- function(focal_length, aperture, circle_of_confusion) {
focal_length^2 / (aperture * circle_of_confusion)
}
# Returns the near focus limit in millimeters given a focal length in mm,
# a distance in mm, and a hyperfocal distance in mm
near_focus <- function(focal_length, distance, hyperfocal_distance) {
(hyperfocal_distance * distance) / (hyperfocal_distance + distance - focal_length)
}
# Returns the far focus limit in millimeters given a focal length in mm,
# a distance in mm, and a hyperfocal distance in mm
far_focus <- function(focal_length, distance, hyperfocal_distance) {
(hyperfocal_distance * distance) / (hyperfocal_distance - distance - focal_length)
}
# Returns the depth of field in millimeters given a focal length of the lens,
# an aperture, a distance of the focused object, and a circle of confusion.
# All distances in millimeters.
depth_of_field <- function(focal_length, aperture, distance, circle_of_confusion) {
h <- hyperfocal_distance(focal_length, aperture, circle_of_confusion)
ff <- far_focus(focal_length, distance, h)
nf <- near_focus(focal_length, distance, h)
ff - nf
}
#| label: tele_far
apertures |>
cross_join(distances)
#| label: tele_far
expand_grid(apertures, distances)
#| label: tele_far
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = depth_of_field(150, aperture, distance, coc_fx))
#| label: tele_far
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = depth_of_field(150, aperture, distance * 1000, coc_fx))
#| label: tele_far
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = round(depth_of_field(150, aperture, distance * 1000, coc_fx)))
#| label: tele_far
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = round(depth_of_field(150, aperture, distance * 1000, coc_fx))) |>
pivot_wider(names_from = distance, values_from = dof)
#| label: tele_far
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = round(depth_of_field(150, aperture, distance * 1000, coc_fx))) |>
pivot_wider(names_from = distance, values_from = dof) |>
gt()
#| label: tele_far
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = round(depth_of_field(150, aperture, distance * 1000, coc_fx) / 10)) |>
pivot_wider(names_from = distance, values_from = dof) |>
gt()
#| label: tele_far
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = round(depth_of_field(150, aperture, distance * 1000, coc_fx) / 10), 1) |>
pivot_wider(names_from = distance, values_from = dof) |>
gt()
#| label: tele_far
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = round(depth_of_field(150, aperture, distance * 1000, coc_fx) / 10, 1)) |>
pivot_wider(names_from = distance, values_from = dof) |>
gt()
#| label: tele_far
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = round(depth_of_field(150, aperture, distance * 1000, coc_fx) / 10, 1)) |>
pivot_wider(names_from = distance, values_from = dof) |>
gt() |>
tab_spanner("Object distance (m)", columns = -aperture)
#| label: tele_far
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = round(depth_of_field(150, aperture, distance * 1000, coc_fx) / 10, 1)) |>
pivot_wider(names_from = distance, values_from = dof) |>
gt() |>
tab_spanner("Object distance (m)", columns = -aperture) |>
cols_label("f/")
#| label: tele_far
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = round(depth_of_field(150, aperture, distance * 1000, coc_fx) / 10, 1)) |>
pivot_wider(names_from = distance, values_from = dof) |>
gt() |>
tab_spanner("Object distance (m)", columns = -aperture) |>
cols_label(aperture = "f/")
#| label: tele_far
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = round(depth_of_field(150, aperture, distance * 1000, coc_fx) / 10, 1)) |>
pivot_wider(names_from = distance, values_from = dof) |>
gt() |>
tab_spanner("Object distance (m)", columns = -aperture) |>
cols_label(aperture = "F")
#| label: tele_far
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = round(depth_of_field(150, aperture, distance * 1000, coc_fx) / 10, 1)) |>
pivot_wider(names_from = distance, values_from = dof) |>
gt() |>
tab_spanner("Object distance (m)", columns = -aperture) |>
cols_label(aperture = "F") |>
tab_header(
title = "Depth of field in centimeters",
subtitle = "full frame, 150 mm focal length"
)
#| label: wide_angle
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = round(depth_of_field(20, aperture, distance * 1000, coc_fx) / 10, 1)) |>
pivot_wider(names_from = distance, values_from = dof) |>
gt() |>
tab_spanner("Object distance (m)", columns = -aperture) |>
cols_label(aperture = "F") |>
tab_header(
title = "Depth of field in centimeters",
subtitle = "full frame, 20 mm focal length"
)
#| label: setup
library(tidyverse)
library(gt)
coc_fx <- 0.025
coc_dx <- 0.020
apertures <- c(2.0, 2.8, 4, 5.6, 8)
distances <- c(2, 4, 6, 8, 10) # meters
# Source of equations: https://dofmaster.com/equations.html
# Returns the hyperfocal distance in millimeters given a focal length in mm,
# an aperture, and a circle of confucion (CoC)
hyperfocal_distance <- function(focal_length, aperture, circle_of_confusion) {
focal_length^2 / (aperture * circle_of_confusion) + focal_length
}
# Returns the near focus limit in millimeters given a focal length in mm,
# a distance in mm, and a hyperfocal distance in mm
near_focus <- function(focal_length, distance, hyperfocal_distance) {
(hyperfocal_distance - focal_length) * distance / (hyperfocal_distance + distance - 2 * focal_length)
}
# Returns the far focus limit in millimeters given a focal length in mm,
# a distance in mm, and a hyperfocal distance in mm
far_focus <- function(focal_length, distance, hyperfocal_distance) {
(hyperfocal_distance - focal_length) * distance / (hyperfocal_distance - distance)
}
# Returns the depth of field in millimeters given a focal length of the lens,
# an aperture, a distance of the focused object, and a circle of confusion.
# All distances in millimeters.
depth_of_field <- function(focal_length, aperture, distance, circle_of_confusion) {
h <- hyperfocal_distance(focal_length, aperture, circle_of_confusion)
ff <- far_focus(focal_length, distance, h)
nf <- near_focus(focal_length, distance, h)
ff - nf
}
#| label: tele_lens
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = round(depth_of_field(150, aperture, distance * 1000, coc_fx) / 10, 1)) |>
pivot_wider(names_from = distance, values_from = dof) |>
gt() |>
tab_spanner("Object distance (m)", columns = -aperture) |>
cols_label(aperture = "F") |>
tab_header(
title = "Depth of field in centimeters",
subtitle = "full frame, 150 mm focal length"
)
#| label: wide_angle
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = round(depth_of_field(20, aperture, distance * 1000, coc_fx) / 10, 1)) |>
pivot_wider(names_from = distance, values_from = dof) |>
gt() |>
tab_spanner("Object distance (m)", columns = -aperture) |>
cols_label(aperture = "F") |>
tab_header(
title = "Depth of field in centimeters",
subtitle = "full frame, 20 mm focal length"
)
#| label: setup
library(tidyverse)
library(gt)
coc_fx <- 0.025
coc_dx <- 0.020
apertures <- c(2.0, 2.8, 4, 5.6, 8)
distances <- c(2, 4, 6, 8, 10) # meters
# Source of equations: https://dofmaster.com/equations.html
# Returns the hyperfocal distance in millimeters given a focal length in mm,
# an aperture, and a circle of confucion (CoC)
hyperfocal_distance <- function(focal_length, aperture, circle_of_confusion) {
focal_length^2 / (aperture * circle_of_confusion) + focal_length
}
# Returns the near focus limit in millimeters given a focal length in mm,
# a distance in mm, and a hyperfocal distance in mm
near_focus <- function(focal_length, distance, hyperfocal_distance) {
(hyperfocal_distance - focal_length) * distance / (hyperfocal_distance + distance - 2 * focal_length)
}
# Returns the far focus limit in millimeters given a focal length in mm,
# a distance in mm, and a hyperfocal distance in mm
far_focus <- function(focal_length, distance, hyperfocal_distance) {
(hyperfocal_distance - focal_length) * distance / (hyperfocal_distance - distance)
}
# Returns the depth of field in millimeters given a focal length of the lens,
# an aperture, a distance of the focused object, and a circle of confusion.
# All distances in millimeters.
depth_of_field <- function(focal_length, aperture, distance, circle_of_confusion) {
h <- hyperfocal_distance(focal_length, aperture, circle_of_confusion)
ff <- far_focus(focal_length, distance, h)
nf <- near_focus(focal_length, distance, h)
dof <- ff - nf
if (dof >= 0) {
dof
}
else {
Inf
}
}
#| label: tele_lens
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = round(depth_of_field(150, aperture, distance * 1000, coc_fx) / 10, 1)) |>
pivot_wider(names_from = distance, values_from = dof) |>
gt() |>
tab_spanner("Object distance (m)", columns = -aperture) |>
cols_label(aperture = "F") |>
tab_header(
title = "Depth of field in centimeters",
subtitle = "full frame, 150 mm focal length"
)
#| label: setup
library(tidyverse)
library(gt)
coc_fx <- 0.025
coc_dx <- 0.020
apertures <- c(2.0, 2.8, 4, 5.6, 8)
distances <- c(2, 4, 6, 8, 10) # meters
# Source of equations: https://dofmaster.com/equations.html
# Returns the hyperfocal distance in millimeters given a focal length in mm,
# an aperture, and a circle of confucion (CoC)
hyperfocal_distance <- function(focal_length, aperture, circle_of_confusion) {
focal_length^2 / (aperture * circle_of_confusion) + focal_length
}
# Returns the near focus limit in millimeters given a focal length in mm,
# a distance in mm, and a hyperfocal distance in mm
near_focus <- function(focal_length, distance, hyperfocal_distance) {
(hyperfocal_distance - focal_length) * distance / (hyperfocal_distance + distance - 2 * focal_length)
}
# Returns the far focus limit in millimeters given a focal length in mm,
# a distance in mm, and a hyperfocal distance in mm
far_focus <- function(focal_length, distance, hyperfocal_distance) {
(hyperfocal_distance - focal_length) * distance / (hyperfocal_distance - distance)
}
# Returns the depth of field in millimeters given a focal length of the lens,
# an aperture, a distance of the focused object, and a circle of confusion.
# All distances in millimeters.
depth_of_field <- function(focal_length, aperture, distance, circle_of_confusion) {
h <- hyperfocal_distance(focal_length, aperture, circle_of_confusion)
ff <- far_focus(focal_length, distance, h)
nf <- near_focus(focal_length, distance, h)
dof <- ff - nf
if (dof >= 0) {
dof
}
else {
Inf
}
}
#| label: tele_lens
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = round(depth_of_field(150, aperture, distance * 1000, coc_fx) / 10, 1)) |>
pivot_wider(names_from = distance, values_from = dof) |>
gt() |>
tab_spanner("Object distance (m)", columns = -aperture) |>
cols_label(aperture = "F") |>
tab_header(
title = "Depth of field in centimeters",
subtitle = "full frame, 150 mm focal length"
)
#| label: setup
library(tidyverse)
library(gt)
coc_fx <- 0.025
coc_dx <- 0.020
apertures <- c(2.0, 2.8, 4, 5.6, 8)
distances <- c(2, 4, 6, 8, 10) # meters
# Source of equations: https://dofmaster.com/equations.html
# Returns the hyperfocal distance in millimeters given a focal length in mm,
# an aperture, and a circle of confucion (CoC)
hyperfocal_distance <- function(focal_length, aperture, circle_of_confusion) {
focal_length^2 / (aperture * circle_of_confusion) + focal_length
}
# Returns the near focus limit in millimeters given a focal length in mm,
# a distance in mm, and a hyperfocal distance in mm
near_focus <- function(focal_length, distance, hyperfocal_distance) {
(hyperfocal_distance - focal_length) * distance / (hyperfocal_distance + distance - 2 * focal_length)
}
# Returns the far focus limit in millimeters given a focal length in mm,
# a distance in mm, and a hyperfocal distance in mm
far_focus <- function(focal_length, distance, hyperfocal_distance) {
(hyperfocal_distance - focal_length) * distance / (hyperfocal_distance - distance)
}
# Returns the depth of field in millimeters given a focal length of the lens,
# an aperture, a distance of the focused object, and a circle of confusion.
# All distances in millimeters.
depth_of_field <- function(focal_length, aperture, distance, circle_of_confusion) {
h <- hyperfocal_distance(focal_length, aperture, circle_of_confusion)
ff <- far_focus(focal_length, distance, h)
nf <- near_focus(focal_length, distance, h)
dof <- ff - nf
ifelse(dof >= 0, dof, Inf)
}
#| label: tele_lens
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = round(depth_of_field(150, aperture, distance * 1000, coc_fx) / 10, 1)) |>
pivot_wider(names_from = distance, values_from = dof) |>
gt() |>
tab_spanner("Object distance (m)", columns = -aperture) |>
cols_label(aperture = "F") |>
tab_header(
title = "Depth of field in centimeters",
subtitle = "full frame, 150 mm focal length"
)
#| label: wide_angle
expand_grid(aperture = apertures, distance = distances) |>
mutate(dof = round(depth_of_field(20, aperture, distance * 1000, coc_fx) / 10, 1)) |>
pivot_wider(names_from = distance, values_from = dof) |>
gt() |>
tab_spanner("Object distance (m)", columns = -aperture) |>
cols_label(aperture = "F") |>
tab_header(
title = "Depth of field in centimeters",
subtitle = "full frame, 20 mm focal length"
)
install.packages("shiny")
runApp("PhotoCalc")
libary(shiny)
library(shiny)
libary(shiny)
runApp("PhotoCalc")
runApp('PhotoCalc')