diff,Expression-method | R Documentation |
The lagged and iterated differences of a vector.
If x
is length n
, this function returns a length n-k
vector of the k
th order difference between the lagged terms.
diff(x)
returns the vector of differences between adjacent elements in the vector, i.e. [x[2] - x[1], x[3] - x[2], ...].
diff(x,1,2)
is the second-order differences vector, equivalently diff(diff(x)). diff(x,1,0)
returns the vector x unchanged.
diff(x,2)
returns the vector of differences [x[3] - x[1], x[4] - x[2], ...], equivalent to x[(1+lag):n] - x[1:(n-lag)]
.
## S4 method for signature 'Expression'
diff(x, lag = 1, differences = 1, ...)
x |
An Expression. |
lag |
An integer indicating which lag to use. |
differences |
An integer indicating the order of the difference. |
... |
(Optional) Addition |
An Expression representing the k
th order difference.
## Problem data
m <- 101
L <- 2
h <- L/(m-1)
## Form objective and constraints
x <- Variable(m)
y <- Variable(m)
obj <- sum(y)
constr <- list(x[1] == 0, y[1] == 1, x[m] == 1, y[m] == 1, diff(x)^2 + diff(y)^2 <= h^2)
## Solve the catenary problem
prob <- Problem(Minimize(obj), constr)
result <- solve(prob)
## Plot and compare with ideal catenary
xs <- result$getValue(x)
ys <- result$getValue(y)
plot(c(0, 1), c(0, 1), type = 'n', xlab = "x", ylab = "y")
lines(xs, ys, col = "blue", lwd = 2)
grid()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.