Description Usage Arguments Examples
The function plots an airfoil.
The function uses plot
,
lines
and
arrows
functions.
1 2 3 4 5 6 7 8 9 10 11 | plot_airfoil(
airfoil,
morph_up,
morph_lo,
constr_up,
constr_lo,
airfoil_points = TRUE,
control = TRUE,
add = FALSE,
...
)
|
airfoil |
A data frame containing coordinates of airfoil points. |
morph_up |
A list of upper morphing points. |
morph_lo |
A list of lower morphing points. |
constr_up |
A list of upper constraints. |
constr_lo |
A list of lower constraints. |
airfoil_points |
A logical value indicating if the airfoil coordinate points should be plotted. |
control |
A logical value indicating if constraining points, morphing points and morphing vectors should be plotted. |
add |
A logical value indicating if a plot should be added to a previous one. |
... |
Additional parameters passed to the |
1 2 3 4 5 6 7 8 9 10 | # Select constraining points
constr_up <- select_constr(rae2822_airfoil, "up", rbind(c(0, 0), c(1, 1)))
constr_lo <- select_constr(rae2822_airfoil, "lo", rbind(c(0, 0), c(1, 1)))
# Select morphing points
x_coord <- seq(0.15, 0.9, len = 5)
morph_up <- select_morphp(rae2822_airfoil, "up", x_coord)
morph_lo <- select_morphp(rae2822_airfoil, "lo", x_coord)
plot_airfoil(rae2822_airfoil, morph_up, morph_lo, constr_up, constr_lo)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.