The first element (for the anchor) is repeated, so that the length of the returned result matches the length of m.

tension(m, stagnant = FALSE)

Arguments

m

a mooring object, created by mooring().

stagnant

logical value indicating whether to return values for the mooring configuration in the stagnant case (with zero velocity) or the present case (possibly with nonzero velocity).

Value

a numeric vector of tension, in kg.

Author

Dan Kelley

Examples

library(mooring)
m <- mooring(anchor(), wire(length = 100), float("HMB 20"), waterDepth = 120)
ms <- segmentize(m)
msk <- knockdown(ms, u = 0.5)
depth <- depth(msk)
# The right-hand panel indicates the anchor limit in red.
par(mfrow = c(1, 2))
plot(tension(msk), depth, ylim = rev(range(depth)), type = "l")
plot(msk, which = "tension")