Summarize a mooring or a mooringElement
Summarize a mooring element
library(mooring)
a <- anchor()
summary(a)
#> "1 Railway Wheel" anchor, buoyancy -350kg, height 0.15m
m <- mooring(anchor(), wire(length = 80), float("HMB 20"), waterDepth = 100)
summary(m)
#> Mooring in 100m of water that has 3 elements, listed from the top down:
#> 1: "HMB 20" float, buoyancy 34.5kg, height 0.508m, area 0.2027m^2
#> 2: "1/4in wire/jack" wire, buoyancy -10.4kg, length 80m, area 0.64m^2
#> 3: "1 Railway Wheel" FIXME anchor, buoyancy -350kg, height 0.15m