R/E_T_2l.R
In regenesis90/KHCMinR: What the Package Does (One Line, Title Case)
Defines functions
E_T_2lane_Road
#' Heavy Vehicle Correction Factor according to the Traffic Volume in the Direction(E_T)
#'
#' This function follows <Table 7-4>, <Table 7-5>, <Table 7-6>, <Table 7-7> (p.177)
#' @param topography *Categorical* Choose one from : \code{'flatland'}, \code{'hill'}, \code{'specific_slope}
#' @param gradient *Numeric* If \code{topography = 'specific_slope'}, must use it. The gradient of slope.
#' @param V *Numeric* If \code{topography = 'specific_slope'}, must use it. Traffic Volume in direction(pcph?)
#' @param L *Numeric* If \code{topography = 'specific_slope'}, must use it. The length of the slope.(m)
#' @param output *Categorical* Choose one from : \code{'travel_speed'}, \code{'TDR'}
#' @export E_T_2lane_road Heavy Vehicle Correction Factor according to the Traffic Volume in the Direction
#' @examples
#' E_T_2lane_Road(topography = 'flatland', V_d = 332, output = 'TDR')
#' E_T_2lane_Road(topography = 'hill', V_d = 459, output = 'travel_speed')
#' E_T_2lane_Road(topography = 'specific_slope', gradient = 0.04, L = 1200, V_d = 838, output = 'travel_speed')
E_T_2lane_Road <- function(topography = NULL, gradient = NULL, L = NULL, V_d = NULL, output = NULL){
if (topography == 'flatland'){
if (output == 'travel_speed'){
if (V_d == 100){E_T <- 4.1}
if (V_d > 100 & V_d < 200){E_T <- 4.1 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.7}
if (V_d > 200 & V_d < 300){E_T <- 3.7 - 0.5 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.2}
if (V_d > 300 & V_d < 400){E_T <- 3.2 - 0.5 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.7}
if (V_d > 400 & V_d < 500){E_T <- 2.7 - 0.6 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.3}
if (V_d > 500 & V_d < 600){E_T <- 2.3 - 0.5 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.8}
if (V_d > 600 & V_d < 700){E_T <- 1.8 - 0.5 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.3}
if (V_d > 700 & V_d < 800){E_T <- 1.3 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d == 1000){E_T <- 1.0}
if (V_d > 1000){E_T <- 1.0}
}
if (output == 'TDR'){
if (V_d == 100){E_T <- 2.6}
if (V_d > 100 & V_d < 200){E_T <- 2.6 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 2.3}
if (V_d > 200 & V_d < 300){E_T <- 2.3 - 0.2 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 2.1}
if (V_d > 300 & V_d < 400){E_T <- 2.1 - 0.2 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.9}
if (V_d > 400 & V_d < 500){E_T <- 1.9 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.6}
if (V_d > 500 & V_d < 600){E_T <- 1.6 - 0.2 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.4}
if (V_d > 600 & V_d < 700){E_T <- 1.4 - 0.2 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.2}
if (V_d > 700 & V_d < 800){E_T <- 1.2 - 0.2 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d == 1000){E_T <- 1.0}
if (V_d > 1000){E_T <- 1.0}
}
}
if (topography == 'hill'){
if (output == 'travel_speed'){
if (V_d == 100){E_T <- 6.6}
if (V_d > 100 & V_d < 200){E_T <- 6.6 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.9}
if (V_d > 200 & V_d < 300){E_T <- 5.9 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.2}
if (V_d > 300 & V_d < 400){E_T <- 5.2 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.5}
if (V_d > 400 & V_d < 500){E_T <- 4.5 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.8}
if (V_d > 500 & V_d < 600){E_T <- 3.8 - 0.6 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.1}
if (V_d > 600 & V_d < 700){E_T <- 3.1 - 0.6 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.5}
if (V_d > 700 & V_d < 800){E_T <- 2.5 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.8}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.1}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d == 1000){E_T <- 1.0}
if (V_d > 1000){E_T <- 1.0}
}
if (output == 'TDR'){
if (V_d == 100){E_T <- 3.7}
if (V_d > 100 & V_d < 200){E_T <- 3.7 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.3}
if (V_d > 200 & V_d < 300){E_T <- 3.3 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.0}
if (V_d > 300 & V_d < 400){E_T <- 3.0 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.6}
if (V_d > 400 & V_d < 500){E_T <- 2.6 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.3}
if (V_d > 500 & V_d < 600){E_T <- 2.3 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.0}
if (V_d > 600 & V_d < 700){E_T <- 2.0 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.6}
if (V_d > 700 & V_d < 800){E_T <- 1.6 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.3}
if (V_d > 700 & V_d < 800){E_T <- 1.3 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d == 1000){E_T <- 1.0}
if (V_d > 1000){E_T <- 1.0}
}
}
if (topography == 'specific_slope'){
if (output == 'travel_speed'){
if (gradient == 0.03){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 2.9 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 2.9}
if (V_d > 100 & V_d < 200){E_T <- 2.9 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 2.2}
if (V_d > 200 & V_d < 300){E_T <- 2.2 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 1.5}
if (V_d > 300 & V_d < 400){E_T <- 1.5 - 0.5 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.0}
if (V_d > 400 & V_d < 500){E_T <- 1.0}
if (V_d == 500){E_T <- 1.0}
if (V_d > 500 & V_d < 600){E_T <- 1.0}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 3.4 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 3.4}
if (V_d > 100 & V_d < 200){E_T <- 3.4 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 2.7}
if (V_d > 200 & V_d < 300){E_T <- 2.7 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 1.9}
if (V_d > 300 & V_d < 400){E_T <- 1.9 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.2}
if (V_d > 400 & V_d < 500){E_T <- 1.2 - 0.2 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.0}
if (V_d > 500 & V_d < 600){E_T <- 1.0}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 3.9 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 3.9}
if (V_d > 100 & V_d < 200){E_T <- 3.9 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.1}
if (V_d > 200 & V_d < 300){E_T <- 3.1 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 2.4}
if (V_d > 300 & V_d < 400){E_T <- 2.4 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.7}
if (V_d > 400 & V_d < 500){E_T <- 1.7 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.0}
if (V_d > 500 & V_d < 600){E_T <- 1.0}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 4.4 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.4}
if (V_d > 100 & V_d < 200){E_T <- 4.4 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.6}
if (V_d > 200 & V_d < 300){E_T <- 3.6 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 2.9}
if (V_d > 300 & V_d < 400){E_T <- 2.9 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.2}
if (V_d > 400 & V_d < 500){E_T <- 2.2 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.4}
if (V_d > 500 & V_d < 600){E_T <- 1.4 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 5.3 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.3}
if (V_d > 100 & V_d < 200){E_T <- 5.3 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.6}
if (V_d > 200 & V_d < 300){E_T <- 4.6 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.8}
if (V_d > 300 & V_d < 400){E_T <- 3.8 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.1}
if (V_d > 400 & V_d < 500){E_T <- 3.1 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.4}
if (V_d > 500 & V_d < 600){E_T <- 2.4 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.6}
if (V_d > 600 & V_d < 700){E_T <- 1.6 - 0.6 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 6.3 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 6.3}
if (V_d > 100 & V_d < 200){E_T <- 6.3 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.5}
if (V_d > 200 & V_d < 300){E_T <- 5.5 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.8}
if (V_d > 300 & V_d < 400){E_T <- 4.8 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.0}
if (V_d > 400 & V_d < 500){E_T <- 4.0 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.3}
if (V_d > 500 & V_d < 600){E_T <- 3.3 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.6}
if (V_d > 600 & V_d < 700){E_T <- 2.6 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.8}
if (V_d > 700 & V_d < 800){E_T <- 1.8 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.1}
if (V_d > 800 & V_d < 900){E_T <- 1.1 - 0.1 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 8.1 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 8.1}
if (V_d > 100 & V_d < 200){E_T <- 8.1 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 7.4}
if (V_d > 200 & V_d < 300){E_T <- 7.4 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 6.7}
if (V_d > 300 & V_d < 400){E_T <- 6.7 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.9}
if (V_d > 400 & V_d < 500){E_T <- 5.9 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 5.2}
if (V_d > 500 & V_d < 600){E_T <- 5.2 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.5}
if (V_d > 600 & V_d < 700){E_T <- 4.5 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.7}
if (V_d > 700 & V_d < 800){E_T <- 3.7 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.0}
if (V_d > 800 & V_d < 900){E_T <- 3.0 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.3}
if (V_d > 900 & V_d < 1000){E_T <- 2.3 - 0.8 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.5}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 10.0 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 10.0}
if (V_d > 100 & V_d < 200){E_T <- 10.0 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 9.3}
if (V_d > 200 & V_d < 300){E_T <- 9.3 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 8.6}
if (V_d > 300 & V_d < 400){E_T <- 8.6 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 7.8}
if (V_d > 400 & V_d < 500){E_T <- 7.8 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 7.1}
if (V_d > 500 & V_d < 600){E_T <- 7.1 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 6.4}
if (V_d > 600 & V_d < 700){E_T <- 6.4 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 5.6}
if (V_d > 700 & V_d < 800){E_T <- 5.6 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.9}
if (V_d > 800 & V_d < 900){E_T <- 4.9 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 4.2}
if (V_d > 900 & V_d < 1000){E_T <- 4.2 - 0.8 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.4}
}
}
if (gradient == 0.04){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 4.4 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.4}
if (V_d > 100 & V_d < 200){E_T <- 4.4 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.7}
if (V_d > 200 & V_d < 300){E_T <- 3.7 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.0}
if (V_d > 300 & V_d < 400){E_T <- 3.0 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.2}
if (V_d > 400 & V_d < 500){E_T <- 2.2 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.5}
if (V_d > 500 & V_d < 600){E_T <- 1.5 - 0.5 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 4.9 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.9}
if (V_d > 100 & V_d < 200){E_T <- 4.9 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.2}
if (V_d > 200 & V_d < 300){E_T <- 4.2 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.4}
if (V_d > 300 & V_d < 400){E_T <- 3.4 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.7}
if (V_d > 400 & V_d < 500){E_T <- 2.7 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.0}
if (V_d > 500 & V_d < 600){E_T <- 2.0 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.2}
if (V_d > 600 & V_d < 700){E_T <- 1.2 - 0.2 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 5.4 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.4}
if (V_d > 100 & V_d < 200){E_T <- 5.4 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.6}
if (V_d > 200 & V_d < 300){E_T <- 4.6 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.9}
if (V_d > 300 & V_d < 400){E_T <- 3.9 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.2}
if (V_d > 400 & V_d < 500){E_T <- 3.2 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.4}
if (V_d > 500 & V_d < 600){E_T <- 2.4 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.7}
if (V_d > 600 & V_d < 700){E_T <- 1.7 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 5.8 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.8}
if (V_d > 100 & V_d < 200){E_T <- 5.8 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.1}
if (V_d > 200 & V_d < 300){E_T <- 5.1 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.4}
if (V_d > 300 & V_d < 400){E_T <- 4.4 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.6}
if (V_d > 400 & V_d < 500){E_T <- 3.6 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.9}
if (V_d > 500 & V_d < 600){E_T <- 2.9 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.2}
if (V_d > 600 & V_d < 700){E_T <- 2.2 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.4}
if (V_d > 700 & V_d < 800){E_T <- 1.4 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 6.8 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 6.8}
if (V_d > 100 & V_d < 200){E_T <- 6.8 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 6.1}
if (V_d > 200 & V_d < 300){E_T <- 6.1 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.3}
if (V_d > 300 & V_d < 400){E_T <- 5.3 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.6}
if (V_d > 400 & V_d < 500){E_T <- 4.6 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.8}
if (V_d > 500 & V_d < 600){E_T <- 3.8 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.1}
if (V_d > 600 & V_d < 700){E_T <- 3.1 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.4}
if (V_d > 700 & V_d < 800){E_T <- 2.4 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.6}
if (V_d > 800 & V_d < 900){E_T <- 1.6 - 0.6 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 7.7 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 7.7}
if (V_d > 100 & V_d < 200){E_T <- 7.7 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 7.0}
if (V_d > 200 & V_d < 300){E_T <- 7.0 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 6.3}
if (V_d > 300 & V_d < 400){E_T <- 6.3 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.5}
if (V_d > 400 & V_d < 500){E_T <- 5.5 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.8}
if (V_d > 500 & V_d < 600){E_T <- 4.8 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.1}
if (V_d > 600 & V_d < 700){E_T <- 4.1 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.3}
if (V_d > 700 & V_d < 800){E_T <- 3.3 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.6}
if (V_d > 800 & V_d < 900){E_T <- 2.6 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.9}
if (V_d > 900 & V_d < 1000){E_T <- 1.9 - 0.8 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.1}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 9.6 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 9.6}
if (V_d > 100 & V_d < 200){E_T <- 9.6 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 8.9}
if (V_d > 200 & V_d < 300){E_T <- 8.9 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 8.2}
if (V_d > 300 & V_d < 400){E_T <- 8.2 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 7.4}
if (V_d > 400 & V_d < 500){E_T <- 7.4 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 6.7}
if (V_d > 500 & V_d < 600){E_T <- 6.7 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 6.0}
if (V_d > 600 & V_d < 700){E_T <- 6.0 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 5.2}
if (V_d > 700 & V_d < 800){E_T <- 5.2 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.5}
if (V_d > 800 & V_d < 900){E_T <- 4.5 - 0.8 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.7}
if (V_d > 900 & V_d < 1000){E_T <- 3.7 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.0}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 11.5 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 11.5}
if (V_d > 100 & V_d < 200){E_T <- 11.5 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 10.8}
if (V_d > 200 & V_d < 300){E_T <- 10.8 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 10.1}
if (V_d > 300 & V_d < 400){E_T <- 10.1 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 9.3}
if (V_d > 400 & V_d < 500){E_T <- 9.3 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 8.6}
if (V_d > 500 & V_d < 600){E_T <- 8.6 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 7.8}
if (V_d > 600 & V_d < 700){E_T <- 7.8 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 7.1}
if (V_d > 700 & V_d < 800){E_T <- 7.1 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 6.4}
if (V_d > 800 & V_d < 900){E_T <- 6.4 - 0.8 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 5.6}
if (V_d > 900 & V_d < 1000){E_T <- 5.6 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 4.9}
}
}
if (gradient == 0.05){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 5.9 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.9}
if (V_d > 100 & V_d < 200){E_T <- 5.9 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.2}
if (V_d > 200 & V_d < 300){E_T <- 5.2 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.4}
if (V_d > 300 & V_d < 400){E_T <- 4.4 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.7}
if (V_d > 400 & V_d < 500){E_T <- 3.7 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.0}
if (V_d > 500 & V_d < 600){E_T <- 3.0 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.2}
if (V_d > 600 & V_d < 700){E_T <- 2.2 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.5}
if (V_d > 700 & V_d < 800){E_T <- 1.5 - 0.5 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 6.4 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 6.4}
if (V_d > 100 & V_d < 200){E_T <- 6.4 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.6}
if (V_d > 200 & V_d < 300){E_T <- 5.6 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.9}
if (V_d > 300 & V_d < 400){E_T <- 4.9 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.2}
if (V_d > 400 & V_d < 500){E_T <- 4.2 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.4}
if (V_d > 500 & V_d < 600){E_T <- 3.4 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.7}
if (V_d > 600 & V_d < 700){E_T <- 2.7 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.0}
if (V_d > 700 & V_d < 800){E_T <- 2.0 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.2}
if (V_d > 800 & V_d < 900){E_T <- 1.2 - 0.2 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 6.9 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 6.9}
if (V_d > 100 & V_d < 200){E_T <- 6.9 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 6.1}
if (V_d > 200 & V_d < 300){E_T <- 6.1 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.4}
if (V_d > 300 & V_d < 400){E_T <- 5.4 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.6}
if (V_d > 400 & V_d < 500){E_T <- 4.6 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.9}
if (V_d > 500 & V_d < 600){E_T <- 3.9 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.2}
if (V_d > 600 & V_d < 700){E_T <- 3.2 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.4}
if (V_d > 700 & V_d < 800){E_T <- 2.4 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.7}
if (V_d > 800 & V_d < 900){E_T <- 1.7 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 7.3 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 7.3}
if (V_d > 100 & V_d < 200){E_T <- 7.3 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 6.6}
if (V_d > 200 & V_d < 300){E_T <- 6.6 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.9}
if (V_d > 300 & V_d < 400){E_T <- 5.9 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.1}
if (V_d > 400 & V_d < 500){E_T <- 5.1 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.4}
if (V_d > 500 & V_d < 600){E_T <- 4.4 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.7}
if (V_d > 600 & V_d < 700){E_T <- 3.7 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.9}
if (V_d > 700 & V_d < 800){E_T <- 2.9 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.2}
if (V_d > 800 & V_d < 900){E_T <- 2.2 - 0.8 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.4}
if (V_d > 900 & V_d < 1000){E_T <- 1.4 - 0.4 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 8.3 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 8.3}
if (V_d > 100 & V_d < 200){E_T <- 8.3 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 7.5}
if (V_d > 200 & V_d < 300){E_T <- 7.5 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 6.8}
if (V_d > 300 & V_d < 400){E_T <- 6.8 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 6.1}
if (V_d > 400 & V_d < 500){E_T <- 6.1 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 5.3}
if (V_d > 500 & V_d < 600){E_T <- 5.3 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.6}
if (V_d > 600 & V_d < 700){E_T <- 4.6 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.9}
if (V_d > 700 & V_d < 800){E_T <- 3.9 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.1}
if (V_d > 800 & V_d < 900){E_T <- 3.1 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.4}
if (V_d > 900 & V_d < 1000){E_T <- 2.4 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.7}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 9.2 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 9.2}
if (V_d > 100 & V_d < 200){E_T <- 9.2 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 8.5}
if (V_d > 200 & V_d < 300){E_T <- 8.5 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 7.8}
if (V_d > 300 & V_d < 400){E_T <- 7.8 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 7.0}
if (V_d > 400 & V_d < 500){E_T <- 7.0 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 6.3}
if (V_d > 500 & V_d < 600){E_T <- 6.3 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 5.5}
if (V_d > 600 & V_d < 700){E_T <- 5.5 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 4.8}
if (V_d > 700 & V_d < 800){E_T <- 4.8 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.1}
if (V_d > 800 & V_d < 900){E_T <- 4.1 - 0.8 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.3}
if (V_d > 900 & V_d < 1000){E_T <- 3.3 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.6}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 11.1 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 11.1}
if (V_d > 100 & V_d < 200){E_T <- 11.1 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 10.4}
if (V_d > 200 & V_d < 300){E_T <- 10.4 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 9.6}
if (V_d > 300 & V_d < 400){E_T <- 9.6 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 8.9}
if (V_d > 400 & V_d < 500){E_T <- 8.9 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 8.2}
if (V_d > 500 & V_d < 600){E_T <- 8.2 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 7.4}
if (V_d > 600 & V_d < 700){E_T <- 7.4 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 6.7}
if (V_d > 700 & V_d < 800){E_T <- 6.7 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 6.0}
if (V_d > 800 & V_d < 900){E_T <- 6.0 - 0.8 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 5.2}
if (V_d > 900 & V_d < 1000){E_T <- 5.2 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 4.5}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 13.0 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 13.0}
if (V_d > 100 & V_d < 200){E_T <- 13.0 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 12.3}
if (V_d > 200 & V_d < 300){E_T <- 12.3 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 11.5}
if (V_d > 300 & V_d < 400){E_T <- 11.5 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 10.8}
if (V_d > 400 & V_d < 500){E_T <- 10.8 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 10.1}
if (V_d > 500 & V_d < 600){E_T <- 10.1 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 9.3}
if (V_d > 600 & V_d < 700){E_T <- 9.3 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 8.6}
if (V_d > 700 & V_d < 800){E_T <- 8.6 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 7.9}
if (V_d > 800 & V_d < 900){E_T <- 7.9 - 0.8 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 7.1}
if (V_d > 900 & V_d < 1000){E_T <- 7.1 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 6.4}
}
}
if (gradient == 0.06){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 7.4 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 7.4}
if (V_d > 100 & V_d < 200){E_T <- 7.4 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 6.7}
if (V_d > 200 & V_d < 300){E_T <- 6.7 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.9}
if (V_d > 300 & V_d < 400){E_T <- 5.9 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.2}
if (V_d > 400 & V_d < 500){E_T <- 5.2 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.5}
if (V_d > 500 & V_d < 600){E_T <- 4.5 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.7}
if (V_d > 600 & V_d < 700){E_T <- 3.7 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.0}
if (V_d > 700 & V_d < 800){E_T <- 3.0 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.2}
if (V_d > 800 & V_d < 900){E_T <- 2.2 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.5}
if (V_d > 900 & V_d < 1000){E_T <- 1.5 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 0.8}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 7.9 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 7.9}
if (V_d > 100 & V_d < 200){E_T <- 7.9 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 7.1}
if (V_d > 200 & V_d < 300){E_T <- 7.1 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 6.4}
if (V_d > 300 & V_d < 400){E_T <- 6.4 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.7}
if (V_d > 400 & V_d < 500){E_T <- 5.7 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.9}
if (V_d > 500 & V_d < 600){E_T <- 4.9 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.2}
if (V_d > 600 & V_d < 700){E_T <- 4.2 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.5}
if (V_d > 700 & V_d < 800){E_T <- 3.5 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.7}
if (V_d > 800 & V_d < 900){E_T <- 2.7 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.0}
if (V_d > 900 & V_d < 1000){E_T <- 2.0 - 0.8 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.2}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 8.3 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 8.3}
if (V_d > 100 & V_d < 200){E_T <- 8.3 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 7.6}
if (V_d > 200 & V_d < 300){E_T <- 7.6 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 6.9}
if (V_d > 300 & V_d < 400){E_T <- 6.9 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 6.1}
if (V_d > 400 & V_d < 500){E_T <- 6.1 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 5.4}
if (V_d > 500 & V_d < 600){E_T <- 5.4 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.7}
if (V_d > 600 & V_d < 700){E_T <- 4.7 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.9}
if (V_d > 700 & V_d < 800){E_T <- 3.9 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.2}
if (V_d > 800 & V_d < 900){E_T <- 3.2 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.5}
if (V_d > 900 & V_d < 1000){E_T <- 2.5 - 0.8 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.7}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 8.8 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 8.8}
if (V_d > 100 & V_d < 200){E_T <- 8.8 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 8.1}
if (V_d > 200 & V_d < 300){E_T <- 8.1 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 7.3}
if (V_d > 300 & V_d < 400){E_T <- 7.3 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 6.6}
if (V_d > 400 & V_d < 500){E_T <- 6.6 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 5.9}
if (V_d > 500 & V_d < 600){E_T <- 5.9 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 5.1}
if (V_d > 600 & V_d < 700){E_T <- 5.1 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 4.4}
if (V_d > 700 & V_d < 800){E_T <- 4.4 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.7}
if (V_d > 800 & V_d < 900){E_T <- 3.7 - 0.8 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.9}
if (V_d > 900 & V_d < 1000){E_T <- 2.9 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.2}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 9.8 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 9.8}
if (V_d > 100 & V_d < 200){E_T <- 9.8 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 9.0}
if (V_d > 200 & V_d < 300){E_T <- 9.0 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 8.3}
if (V_d > 300 & V_d < 400){E_T <- 8.3 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 7.6}
if (V_d > 400 & V_d < 500){E_T <- 7.6 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 6.8}
if (V_d > 500 & V_d < 600){E_T <- 6.8 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 6.1}
if (V_d > 600 & V_d < 700){E_T <- 6.1 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 5.3}
if (V_d > 700 & V_d < 800){E_T <- 5.3 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.6}
if (V_d > 800 & V_d < 900){E_T <- 4.6 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.9}
if (V_d > 900 & V_d < 1000){E_T <- 3.9 - 0.8 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.1}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 10.7 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 10.7}
if (V_d > 100 & V_d < 200){E_T <- 10.7 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 10.0}
if (V_d > 200 & V_d < 300){E_T <- 10.0 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 9.2}
if (V_d > 300 & V_d < 400){E_T <- 9.2 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 8.5}
if (V_d > 400 & V_d < 500){E_T <- 8.5 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 7.8}
if (V_d > 500 & V_d < 600){E_T <- 7.8 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 7.0}
if (V_d > 600 & V_d < 700){E_T <- 7.0 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 6.3}
if (V_d > 700 & V_d < 800){E_T <- 6.3 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 5.6}
if (V_d > 800 & V_d < 900){E_T <- 5.6 - 0.8 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 4.8}
if (V_d > 900 & V_d < 1000){E_T <- 4.8 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 4.1}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 12.6 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 12.6}
if (V_d > 100 & V_d < 200){E_T <- 12.6 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 11.9}
if (V_d > 200 & V_d < 300){E_T <- 11.9 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 11.1}
if (V_d > 300 & V_d < 400){E_T <- 11.1 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 10.4}
if (V_d > 400 & V_d < 500){E_T <- 10.4 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 9.7}
if (V_d > 500 & V_d < 600){E_T <- 9.7 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 8.9}
if (V_d > 600 & V_d < 700){E_T <- 8.9 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 8.2}
if (V_d > 700 & V_d < 800){E_T <- 8.2 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 7.5}
if (V_d > 800 & V_d < 900){E_T <- 7.5 - 0.8 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 6.7}
if (V_d > 900 & V_d < 1000){E_T <- 6.7 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 6.0}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 14.5 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 14.5}
if (V_d > 100 & V_d < 200){E_T <- 14.5 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 13.8}
if (V_d > 200 & V_d < 300){E_T <- 13.8 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 13.0}
if (V_d > 300 & V_d < 400){E_T <- 13.0 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 12.3}
if (V_d > 400 & V_d < 500){E_T <- 12.3 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 11.6}
if (V_d > 500 & V_d < 600){E_T <- 11.6 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 10.8}
if (V_d > 600 & V_d < 700){E_T <- 10.8 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 10.1}
if (V_d > 700 & V_d < 800){E_T <- 10.1 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 9.3}
if (V_d > 800 & V_d < 900){E_T <- 9.3 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 8.6}
if (V_d > 900 & V_d < 1000){E_T <- 8.6 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 7.9}
}
}
if (gradient == 0.07){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 8.9 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 8.9}
if (V_d > 100 & V_d < 200){E_T <- 8.9 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 8.1}
if (V_d > 200 & V_d < 300){E_T <- 8.1 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 7.4}
if (V_d > 300 & V_d < 400){E_T <- 7.4 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 6.7}
if (V_d > 400 & V_d < 500){E_T <- 6.7 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 5.9}
if (V_d > 500 & V_d < 600){E_T <- 5.9 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 5.2}
if (V_d > 600 & V_d < 700){E_T <- 5.2 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 4.5}
if (V_d > 700 & V_d < 800){E_T <- 4.5 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.7}
if (V_d > 800 & V_d < 900){E_T <- 3.7 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.0}
if (V_d > 900 & V_d < 1000){E_T <- 3.0 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.3}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 9.4 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 9.4}
if (V_d > 100 & V_d < 200){E_T <- 9.4 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 8.6}
if (V_d > 200 & V_d < 300){E_T <- 8.6 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 7.9}
if (V_d > 300 & V_d < 400){E_T <- 7.9 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 7.1}
if (V_d > 400 & V_d < 500){E_T <- 7.1 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 6.4}
if (V_d > 500 & V_d < 600){E_T <- 6.4 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 5.7}
if (V_d > 600 & V_d < 700){E_T <- 5.7 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 4.9}
if (V_d > 700 & V_d < 800){E_T <- 4.9 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.2}
if (V_d > 800 & V_d < 900){E_T <- 4.2 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.5}
if (V_d > 900 & V_d < 1000){E_T <- 3.5 - 0.8 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.7}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 9.8 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 9.8}
if (V_d > 100 & V_d < 200){E_T <- 9.8 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 9.1}
if (V_d > 200 & V_d < 300){E_T <- 9.1 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 8.4}
if (V_d > 300 & V_d < 400){E_T <- 8.4 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 7.6}
if (V_d > 400 & V_d < 500){E_T <- 7.6 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 6.9}
if (V_d > 500 & V_d < 600){E_T <- 6.9 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 6.1}
if (V_d > 600 & V_d < 700){E_T <- 6.1 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 5.4}
if (V_d > 700 & V_d < 800){E_T <- 5.4 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.7}
if (V_d > 800 & V_d < 900){E_T <- 4.7 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.9}
if (V_d > 900 & V_d < 1000){E_T <- 3.9 - 0.8 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.2}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 10.3 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 10.3}
if (V_d > 100 & V_d < 200){E_T <- 10.3 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 9.6}
if (V_d > 200 & V_d < 300){E_T <- 9.6 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 8.8}
if (V_d > 300 & V_d < 400){E_T <- 8.8 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 8.1}
if (V_d > 400 & V_d < 500){E_T <- 8.1 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 7.4}
if (V_d > 500 & V_d < 600){E_T <- 7.4 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 6.6}
if (V_d > 600 & V_d < 700){E_T <- 6.6 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 5.9}
if (V_d > 700 & V_d < 800){E_T <- 5.9 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 5.1}
if (V_d > 800 & V_d < 900){E_T <- 5.1 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 4.4}
if (V_d > 900 & V_d < 1000){E_T <- 4.4 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.7}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 11.2 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 11.2}
if (V_d > 100 & V_d < 200){E_T <- 11.2 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 10.5}
if (V_d > 200 & V_d < 300){E_T <- 10.5 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 9.8}
if (V_d > 300 & V_d < 400){E_T <- 9.8 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 9.0}
if (V_d > 400 & V_d < 500){E_T <- 9.0 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 8.3}
if (V_d > 500 & V_d < 600){E_T <- 8.3 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 7.6}
if (V_d > 600 & V_d < 700){E_T <- 7.6 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 6.8}
if (V_d > 700 & V_d < 800){E_T <- 6.8 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 6.1}
if (V_d > 800 & V_d < 900){E_T <- 6.1 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 5.4}
if (V_d > 900 & V_d < 1000){E_T <- 5.4 - 0.8 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 4.6}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 12.2 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 12.2}
if (V_d > 100 & V_d < 200){E_T <- 12.2 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 11.5}
if (V_d > 200 & V_d < 300){E_T <- 11.5 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 10.7}
if (V_d > 300 & V_d < 400){E_T <- 10.7 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 10.0}
if (V_d > 400 & V_d < 500){E_T <- 10.0 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 9.2}
if (V_d > 500 & V_d < 600){E_T <- 9.2 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 8.5}
if (V_d > 600 & V_d < 700){E_T <- 8.5 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 7.8}
if (V_d > 700 & V_d < 800){E_T <- 7.8 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 7.0}
if (V_d > 800 & V_d < 900){E_T <- 7.0 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 6.3}
if (V_d > 900 & V_d < 1000){E_T <- 6.3 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 5.6}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 14.1 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 14.1}
if (V_d > 100 & V_d < 200){E_T <- 14.1 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 13.3}
if (V_d > 200 & V_d < 300){E_T <- 13.3 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 12.6}
if (V_d > 300 & V_d < 400){E_T <- 12.6 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 11.9}
if (V_d > 400 & V_d < 500){E_T <- 11.9 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 11.1}
if (V_d > 500 & V_d < 600){E_T <- 11.1 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 10.4}
if (V_d > 600 & V_d < 700){E_T <- 10.4 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 9.7}
if (V_d > 700 & V_d < 800){E_T <- 9.7 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 8.9}
if (V_d > 800 & V_d < 900){E_T <- 8.9 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 8.2}
if (V_d > 900 & V_d < 1000){E_T <- 8.2 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 7.5}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 16.0 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 16.0}
if (V_d > 100 & V_d < 200){E_T <- 16.0 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 15.2}
if (V_d > 200 & V_d < 300){E_T <- 15.2 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 14.5}
if (V_d > 300 & V_d < 400){E_T <- 14.5 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 13.8}
if (V_d > 400 & V_d < 500){E_T <- 13.8 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 13.0}
if (V_d > 500 & V_d < 600){E_T <- 13.0 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 12.3}
if (V_d > 600 & V_d < 700){E_T <- 12.3 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 11.6}
if (V_d > 700 & V_d < 800){E_T <- 11.6 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 10.8}
if (V_d > 800 & V_d < 900){E_T <- 10.8 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 10.1}
if (V_d > 900 & V_d < 1000){E_T <- 10.1 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 9.4}
}
}
}
if (output == 'TDR'){
if (gradient == 0.03){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 1.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 1.4}
if (V_d > 100 & V_d < 200){E_T <- 1.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 1.1}
if (V_d > 200 & V_d < 300){E_T <- 1.1 - 0.1 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 1.0}
if (V_d > 300 & V_d < 400){E_T <- 1.0}
if (V_d == 400){E_T <- 1.0}
if (V_d > 400 & V_d < 500){E_T <- 1.0}
if (V_d == 500){E_T <- 1.0}
if (V_d > 500 & V_d < 600){E_T <- 1.0}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 1.7 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 1.7}
if (V_d > 100 & V_d < 200){E_T <- 1.7 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 1.3}
if (V_d > 200 & V_d < 300){E_T <- 1.3 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 1.0}
if (V_d > 300 & V_d < 400){E_T <- 1.0}
if (V_d == 400){E_T <- 1.0}
if (V_d > 400 & V_d < 500){E_T <- 1.0}
if (V_d == 500){E_T <- 1.0}
if (V_d > 500 & V_d < 600){E_T <- 1.0}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 1.9 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 1.9}
if (V_d > 100 & V_d < 200){E_T <- 1.9 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 1.6}
if (V_d > 200 & V_d < 300){E_T <- 1.6 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 1.3}
if (V_d > 300 & V_d < 400){E_T <- 1.3 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.0}
if (V_d > 400 & V_d < 500){E_T <- 1.0}
if (V_d == 500){E_T <- 1.0}
if (V_d > 500 & V_d < 600){E_T <- 1.0}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 2.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 2.2}
if (V_d > 100 & V_d < 200){E_T <- 2.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 1.9}
if (V_d > 200 & V_d < 300){E_T <- 1.9 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 1.6}
if (V_d > 300 & V_d < 400){E_T <- 1.6 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.2}
if (V_d > 400 & V_d < 500){E_T <- 1.2 - 0.2 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.0}
if (V_d > 500 & V_d < 600){E_T <- 1.0}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 2.8 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 2.8}
if (V_d > 100 & V_d < 200){E_T <- 2.8 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 2.4}
if (V_d > 200 & V_d < 300){E_T <- 2.4 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 2.1}
if (V_d > 300 & V_d < 400){E_T <- 2.1 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.8}
if (V_d > 400 & V_d < 500){E_T <- 1.8 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.4}
if (V_d > 500 & V_d < 600){E_T <- 1.4 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.1}
if (V_d > 600 & V_d < 700){E_T <- 1.1 - 0.1 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 3.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 3.3}
if (V_d > 100 & V_d < 200){E_T <- 3.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.0}
if (V_d > 200 & V_d < 300){E_T <- 3.0 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 2.7}
if (V_d > 300 & V_d < 400){E_T <- 2.7 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.3}
if (V_d > 400 & V_d < 500){E_T <- 2.3 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.0}
if (V_d > 500 & V_d < 600){E_T <- 2.0 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.7}
if (V_d > 600 & V_d < 700){E_T <- 1.7 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.3}
if (V_d > 700 & V_d < 800){E_T <- 1.3 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 4.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.4}
if (V_d > 100 & V_d < 200){E_T <- 4.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.1}
if (V_d > 200 & V_d < 300){E_T <- 4.1 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.8}
if (V_d > 300 & V_d < 400){E_T <- 3.8 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.4}
if (V_d > 400 & V_d < 500){E_T <- 3.4 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.1}
if (V_d > 500 & V_d < 600){E_T <- 3.1 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.8}
if (V_d > 600 & V_d < 700){E_T <- 2.8 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.4}
if (V_d > 700 & V_d < 800){E_T <- 2.4 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.1}
if (V_d > 800 & V_d < 900){E_T <- 2.1 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.8}
if (V_d > 900 & V_d < 1000){E_T <- 1.8 - 0.4 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.4}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 5.5 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.5}
if (V_d > 100 & V_d < 200){E_T <- 5.5 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.2}
if (V_d > 200 & V_d < 300){E_T <- 5.2 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.9}
if (V_d > 300 & V_d < 400){E_T <- 4.9 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.5}
if (V_d > 400 & V_d < 500){E_T <- 4.5 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.2}
if (V_d > 500 & V_d < 600){E_T <- 4.2 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.9}
if (V_d > 600 & V_d < 700){E_T <- 3.9 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.5}
if (V_d > 700 & V_d < 800){E_T <- 3.5 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.2}
if (V_d > 800 & V_d < 900){E_T <- 3.2 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.9}
if (V_d > 900 & V_d < 1000){E_T <- 2.9 - 0.4 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.5}
}
}
if (gradient == 0.04){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 2.3 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 2.3}
if (V_d > 100 & V_d < 200){E_T <- 2.3 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 1.9}
if (V_d > 200 & V_d < 300){E_T <- 1.9 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 1.6}
if (V_d > 300 & V_d < 400){E_T <- 1.6 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.3}
if (V_d > 400 & V_d < 500){E_T <- 1.3 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.0}
if (V_d > 500 & V_d < 600){E_T <- 1.0}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 2.6 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 2.6}
if (V_d > 100 & V_d < 200){E_T <- 2.6 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 2.2}
if (V_d > 200 & V_d < 300){E_T <- 2.2 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 1.9}
if (V_d > 300 & V_d < 400){E_T <- 1.9 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.5}
if (V_d > 400 & V_d < 500){E_T <- 1.5 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.2}
if (V_d > 500 & V_d < 600){E_T <- 1.2 - 0.2 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 2.8 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 2.8}
if (V_d > 100 & V_d < 200){E_T <- 2.8 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 2.5}
if (V_d > 200 & V_d < 300){E_T <- 2.5 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 2.2}
if (V_d > 300 & V_d < 400){E_T <- 2.2 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.8}
if (V_d > 400 & V_d < 500){E_T <- 1.8 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.5}
if (V_d > 500 & V_d < 600){E_T <- 1.5 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.2}
if (V_d > 600 & V_d < 700){E_T <- 1.2 - 0.2 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 3.1 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 3.1}
if (V_d > 100 & V_d < 200){E_T <- 3.1 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 2.8}
if (V_d > 200 & V_d < 300){E_T <- 2.8 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 2.4}
if (V_d > 300 & V_d < 400){E_T <- 2.4 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.1}
if (V_d > 400 & V_d < 500){E_T <- 2.1 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.8}
if (V_d > 500 & V_d < 600){E_T <- 1.8 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.4}
if (V_d > 600 & V_d < 700){E_T <- 1.4 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.1}
if (V_d > 700 & V_d < 800){E_T <- 1.1 - 0.1 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 3.7 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 3.7}
if (V_d > 100 & V_d < 200){E_T <- 3.7 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.3}
if (V_d > 200 & V_d < 300){E_T <- 3.3 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.0}
if (V_d > 300 & V_d < 400){E_T <- 3.0 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.7}
if (V_d > 400 & V_d < 500){E_T <- 2.7 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.3}
if (V_d > 500 & V_d < 600){E_T <- 2.3 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.0}
if (V_d > 600 & V_d < 700){E_T <- 2.0 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.7}
if (V_d > 700 & V_d < 800){E_T <- 1.7 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.3}
if (V_d > 800 & V_d < 900){E_T <- 1.3 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 4.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.2}
if (V_d > 100 & V_d < 200){E_T <- 4.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.9}
if (V_d > 200 & V_d < 300){E_T <- 3.9 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.5}
if (V_d > 300 & V_d < 400){E_T <- 3.5 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.2}
if (V_d > 400 & V_d < 500){E_T <- 3.2 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.9}
if (V_d > 500 & V_d < 600){E_T <- 2.9 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.5}
if (V_d > 600 & V_d < 700){E_T <- 2.5 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.2}
if (V_d > 700 & V_d < 800){E_T <- 2.2 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.9}
if (V_d > 800 & V_d < 900){E_T <- 1.9 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.5}
if (V_d > 900 & V_d < 1000){E_T <- 1.5 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.2}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 5.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.3}
if (V_d > 100 & V_d < 200){E_T <- 5.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.0}
if (V_d > 200 & V_d < 300){E_T <- 5.0 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.6}
if (V_d > 300 & V_d < 400){E_T <- 4.6 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.3}
if (V_d > 400 & V_d < 500){E_T <- 4.3 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.0}
if (V_d > 500 & V_d < 600){E_T <- 4.0 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.6}
if (V_d > 600 & V_d < 700){E_T <- 3.6 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.3}
if (V_d > 700 & V_d < 800){E_T <- 3.3 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.0}
if (V_d > 800 & V_d < 900){E_T <- 3.0 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.6}
if (V_d > 900 & V_d < 1000){E_T <- 2.6 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.3}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 6.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 6.4}
if (V_d > 100 & V_d < 200){E_T <- 6.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 6.1}
if (V_d > 200 & V_d < 300){E_T <- 6.1 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.8}
if (V_d > 300 & V_d < 400){E_T <- 5.8 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.4}
if (V_d > 400 & V_d < 500){E_T <- 5.4 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 5.1}
if (V_d > 500 & V_d < 600){E_T <- 5.1 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.8}
if (V_d > 600 & V_d < 700){E_T <- 4.8 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 4.4}
if (V_d > 700 & V_d < 800){E_T <- 4.4 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.1}
if (V_d > 800 & V_d < 900){E_T <- 4.1 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.7}
if (V_d > 900 & V_d < 1000){E_T <- 3.7 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.4}
}
}
if (gradient == 0.05){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 3.2 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 3.2}
if (V_d > 100 & V_d < 200){E_T <- 3.2 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 2.8}
if (V_d > 200 & V_d < 300){E_T <- 2.8 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 2.5}
if (V_d > 300 & V_d < 400){E_T <- 2.5 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.2}
if (V_d > 400 & V_d < 500){E_T <- 2.2 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.8}
if (V_d > 500 & V_d < 600){E_T <- 1.8 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.5}
if (V_d > 600 & V_d < 700){E_T <- 1.5 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.2}
if (V_d > 700 & V_d < 800){E_T <- 1.2 - 0.2 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 3.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 3.4}
if (V_d > 100 & V_d < 200){E_T <- 3.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.1}
if (V_d > 200 & V_d < 300){E_T <- 3.1 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 2.8}
if (V_d > 300 & V_d < 400){E_T <- 2.8 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.4}
if (V_d > 400 & V_d < 500){E_T <- 2.4 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.1}
if (V_d > 500 & V_d < 600){E_T <- 2.1 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.8}
if (V_d > 600 & V_d < 700){E_T <- 1.8 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.4}
if (V_d > 700 & V_d < 800){E_T <- 1.4 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.1}
if (V_d > 800 & V_d < 900){E_T <- 1.1 - 0.1 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 3.7 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 3.7}
if (V_d > 100 & V_d < 200){E_T <- 3.7 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.4}
if (V_d > 200 & V_d < 300){E_T <- 3.4 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.0}
if (V_d > 300 & V_d < 400){E_T <- 3.0 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.7}
if (V_d > 400 & V_d < 500){E_T <- 2.7 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.4}
if (V_d > 500 & V_d < 600){E_T <- 2.4 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.0}
if (V_d > 600 & V_d < 700){E_T <- 2.0 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.7}
if (V_d > 700 & V_d < 800){E_T <- 1.7 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.4}
if (V_d > 800 & V_d < 900){E_T <- 1.4 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 4.0 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.0}
if (V_d > 100 & V_d < 200){E_T <- 4.0 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.7}
if (V_d > 200 & V_d < 300){E_T <- 3.7 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.3}
if (V_d > 300 & V_d < 400){E_T <- 3.3 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.0}
if (V_d > 400 & V_d < 500){E_T <- 3.0 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.7}
if (V_d > 500 & V_d < 600){E_T <- 2.7 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.3}
if (V_d > 600 & V_d < 700){E_T <- 2.3 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.0}
if (V_d > 700 & V_d < 800){E_T <- 2.0 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.6}
if (V_d > 800 & V_d < 900){E_T <- 1.6 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.3}
if (V_d > 900 & V_d < 1000){E_T <- 1.3 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 4.5 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.5}
if (V_d > 100 & V_d < 200){E_T <- 4.5 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.2}
if (V_d > 200 & V_d < 300){E_T <- 4.2 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.9}
if (V_d > 300 & V_d < 400){E_T <- 3.9 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.5}
if (V_d > 400 & V_d < 500){E_T <- 3.5 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.2}
if (V_d > 500 & V_d < 600){E_T <- 3.2 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.9}
if (V_d > 600 & V_d < 700){E_T <- 2.9 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.5}
if (V_d > 700 & V_d < 800){E_T <- 2.5 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.2}
if (V_d > 800 & V_d < 900){E_T <- 2.2 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.9}
if (V_d > 900 & V_d < 1000){E_T <- 1.9 - 0.4 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.5}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 5.1 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.1}
if (V_d > 100 & V_d < 200){E_T <- 5.1 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.8}
if (V_d > 200 & V_d < 300){E_T <- 4.8 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.4}
if (V_d > 300 & V_d < 400){E_T <- 4.4 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.1}
if (V_d > 400 & V_d < 500){E_T <- 4.1 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.8}
if (V_d > 500 & V_d < 600){E_T <- 3.8 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.4}
if (V_d > 600 & V_d < 700){E_T <- 3.4 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.1}
if (V_d > 700 & V_d < 800){E_T <- 3.1 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.8}
if (V_d > 800 & V_d < 900){E_T <- 2.8 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.4}
if (V_d > 900 & V_d < 1000){E_T <- 2.4 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.1}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 6.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 6.2}
if (V_d > 100 & V_d < 200){E_T <- 6.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.9}
if (V_d > 200 & V_d < 300){E_T <- 5.9 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.5}
if (V_d > 300 & V_d < 400){E_T <- 5.5 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.2}
if (V_d > 400 & V_d < 500){E_T <- 5.2 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.9}
if (V_d > 500 & V_d < 600){E_T <- 4.9 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.5}
if (V_d > 600 & V_d < 700){E_T <- 4.5 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 4.2}
if (V_d > 700 & V_d < 800){E_T <- 4.2 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.9}
if (V_d > 800 & V_d < 900){E_T <- 3.9 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.5}
if (V_d > 900 & V_d < 1000){E_T <- 3.5 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.2}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 7.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 7.3}
if (V_d > 100 & V_d < 200){E_T <- 7.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 7.0}
if (V_d > 200 & V_d < 300){E_T <- 7.0 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 6.6}
if (V_d > 300 & V_d < 400){E_T <- 6.6 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 6.3}
if (V_d > 400 & V_d < 500){E_T <- 6.3 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 6.0}
if (V_d > 500 & V_d < 600){E_T <- 6.0 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 5.6}
if (V_d > 600 & V_d < 700){E_T <- 5.6 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 5.3}
if (V_d > 700 & V_d < 800){E_T <- 5.3 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 5.0}
if (V_d > 800 & V_d < 900){E_T <- 5.0 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 4.6}
if (V_d > 900 & V_d < 1000){E_T <- 4.6 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 4.3}
}
}
if (gradient == 0.06){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 4.0 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.0}
if (V_d > 100 & V_d < 200){E_T <- 4.0 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.7}
if (V_d > 200 & V_d < 300){E_T <- 3.7 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.4}
if (V_d > 300 & V_d < 400){E_T <- 3.4 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.0}
if (V_d > 400 & V_d < 500){E_T <- 3.0 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.7}
if (V_d > 500 & V_d < 600){E_T <- 2.7 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.4}
if (V_d > 600 & V_d < 700){E_T <- 2.4 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.0}
if (V_d > 700 & V_d < 800){E_T <- 2.0 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.7}
if (V_d > 800 & V_d < 900){E_T <- 1.7 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.4}
if (V_d > 900 & V_d < 1000){E_T <- 1.4 - 0.4 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 4.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.3}
if (V_d > 100 & V_d < 200){E_T <- 4.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.0}
if (V_d > 200 & V_d < 300){E_T <- 4.0 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.6}
if (V_d > 300 & V_d < 400){E_T <- 3.6 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.3}
if (V_d > 400 & V_d < 500){E_T <- 3.3 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.0}
if (V_d > 500 & V_d < 600){E_T <- 3.0 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.6}
if (V_d > 600 & V_d < 700){E_T <- 2.6 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.3}
if (V_d > 700 & V_d < 800){E_T <- 2.3 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.0}
if (V_d > 800 & V_d < 900){E_T <- 2.0 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.6}
if (V_d > 900 & V_d < 1000){E_T <- 1.6 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.3}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 4.6 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.6}
if (V_d > 100 & V_d < 200){E_T <- 4.6 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.3}
if (V_d > 200 & V_d < 300){E_T <- 4.3 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.9}
if (V_d > 300 & V_d < 400){E_T <- 3.9 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.6}
if (V_d > 400 & V_d < 500){E_T <- 3.6 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.3}
if (V_d > 500 & V_d < 600){E_T <- 3.3 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.9}
if (V_d > 600 & V_d < 700){E_T <- 2.9 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.6}
if (V_d > 700 & V_d < 800){E_T <- 2.6 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.3}
if (V_d > 800 & V_d < 900){E_T <- 2.3 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.9}
if (V_d > 900 & V_d < 1000){E_T <- 1.9 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.6}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 4.9 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.9}
if (V_d > 100 & V_d < 200){E_T <- 4.9 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.5}
if (V_d > 200 & V_d < 300){E_T <- 4.5 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.2}
if (V_d > 300 & V_d < 400){E_T <- 4.2 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.9}
if (V_d > 400 & V_d < 500){E_T <- 3.9 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.5}
if (V_d > 500 & V_d < 600){E_T <- 3.5 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.2}
if (V_d > 600 & V_d < 700){E_T <- 3.2 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.9}
if (V_d > 700 & V_d < 800){E_T <- 2.9 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.5}
if (V_d > 800 & V_d < 900){E_T <- 2.5 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.2}
if (V_d > 900 & V_d < 1000){E_T <- 2.2 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.9}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 5.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.4}
if (V_d > 100 & V_d < 200){E_T <- 5.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.1}
if (V_d > 200 & V_d < 300){E_T <- 5.1 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.8}
if (V_d > 300 & V_d < 400){E_T <- 4.8 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.4}
if (V_d > 400 & V_d < 500){E_T <- 4.4 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.1}
if (V_d > 500 & V_d < 600){E_T <- 4.1 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.8}
if (V_d > 600 & V_d < 700){E_T <- 3.8 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.4}
if (V_d > 700 & V_d < 800){E_T <- 3.4 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.1}
if (V_d > 800 & V_d < 900){E_T <- 3.1 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.7}
if (V_d > 900 & V_d < 1000){E_T <- 2.7 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.4}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 6.0 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 6.0}
if (V_d > 100 & V_d < 200){E_T <- 6.0 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.6}
if (V_d > 200 & V_d < 300){E_T <- 5.6 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.3}
if (V_d > 300 & V_d < 400){E_T <- 5.3 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.0}
if (V_d > 400 & V_d < 500){E_T <- 5.0 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.6}
if (V_d > 500 & V_d < 600){E_T <- 4.6 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.3}
if (V_d > 600 & V_d < 700){E_T <- 4.3 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 4.0}
if (V_d > 700 & V_d < 800){E_T <- 4.0 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.6}
if (V_d > 800 & V_d < 900){E_T <- 3.6 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.3}
if (V_d > 900 & V_d < 1000){E_T <- 3.3 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.0}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 7.1 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 7.1}
if (V_d > 100 & V_d < 200){E_T <- 7.1 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 6.7}
if (V_d > 200 & V_d < 300){E_T <- 6.7 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 6.4}
if (V_d > 300 & V_d < 400){E_T <- 6.4 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 6.1}
if (V_d > 400 & V_d < 500){E_T <- 6.1 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 5.7}
if (V_d > 500 & V_d < 600){E_T <- 5.7 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 5.4}
if (V_d > 600 & V_d < 700){E_T <- 5.4 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 5.1}
if (V_d > 700 & V_d < 800){E_T <- 5.1 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.7}
if (V_d > 800 & V_d < 900){E_T <- 4.7 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 4.4}
if (V_d > 900 & V_d < 1000){E_T <- 4.4 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 4.1}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 8.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 8.2}
if (V_d > 100 & V_d < 200){E_T <- 8.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 7.9}
if (V_d > 200 & V_d < 300){E_T <- 7.9 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 7.5}
if (V_d > 300 & V_d < 400){E_T <- 7.5 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 7.2}
if (V_d > 400 & V_d < 500){E_T <- 7.2 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 6.8}
if (V_d > 500 & V_d < 600){E_T <- 6.8 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 6.5}
if (V_d > 600 & V_d < 700){E_T <- 6.5 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 6.2}
if (V_d > 700 & V_d < 800){E_T <- 6.2 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 5.8}
if (V_d > 800 & V_d < 900){E_T <- 5.8 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 5.5}
if (V_d > 900 & V_d < 1000){E_T <- 5.5 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 5.2}
}
}
if (gradient == 0.07){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 4.9 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.9}
if (V_d > 100 & V_d < 200){E_T <- 4.9 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.6}
if (V_d > 200 & V_d < 300){E_T <- 4.6 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.3}
if (V_d > 300 & V_d < 400){E_T <- 4.3 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.9}
if (V_d > 400 & V_d < 500){E_T <- 3.9 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.6}
if (V_d > 500 & V_d < 600){E_T <- 3.6 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.3}
if (V_d > 600 & V_d < 700){E_T <- 3.3 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.9}
if (V_d > 700 & V_d < 800){E_T <- 2.9 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.6}
if (V_d > 800 & V_d < 900){E_T <- 2.6 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.2}
if (V_d > 900 & V_d < 1000){E_T <- 2.2 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.9}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 5.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.2}
if (V_d > 100 & V_d < 200){E_T <- 5.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.9}
if (V_d > 200 & V_d < 300){E_T <- 4.9 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.5}
if (V_d > 300 & V_d < 400){E_T <- 4.5 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.2}
if (V_d > 400 & V_d < 500){E_T <- 4.2 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.9}
if (V_d > 500 & V_d < 600){E_T <- 3.9 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.5}
if (V_d > 600 & V_d < 700){E_T <- 3.5 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.2}
if (V_d > 700 & V_d < 800){E_T <- 3.2 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.9}
if (V_d > 800 & V_d < 900){E_T <- 2.9 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.5}
if (V_d > 900 & V_d < 1000){E_T <- 2.5 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.2}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 5.5 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.5}
if (V_d > 100 & V_d < 200){E_T <- 5.5 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.1}
if (V_d > 200 & V_d < 300){E_T <- 5.1 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.8}
if (V_d > 300 & V_d < 400){E_T <- 4.8 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.5}
if (V_d > 400 & V_d < 500){E_T <- 4.5 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.1}
if (V_d > 500 & V_d < 600){E_T <- 4.1 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.8}
if (V_d > 600 & V_d < 700){E_T <- 3.8 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.5}
if (V_d > 700 & V_d < 800){E_T <- 3.5 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.1}
if (V_d > 800 & V_d < 900){E_T <- 3.1 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.8}
if (V_d > 900 & V_d < 1000){E_T <- 2.8 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.5}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 5.8 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.8}
if (V_d > 100 & V_d < 200){E_T <- 5.8 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.4}
if (V_d > 200 & V_d < 300){E_T <- 5.4 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.1}
if (V_d > 300 & V_d < 400){E_T <- 5.1 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.7}
if (V_d > 400 & V_d < 500){E_T <- 4.7 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.4}
if (V_d > 500 & V_d < 600){E_T <- 4.4 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.1}
if (V_d > 600 & V_d < 700){E_T <- 4.1 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.7}
if (V_d > 700 & V_d < 800){E_T <- 3.7 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.4}
if (V_d > 800 & V_d < 900){E_T <- 3.4 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.1}
if (V_d > 900 & V_d < 1000){E_T <- 3.1 - 0.4 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.7}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 6.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 6.3}
if (V_d > 100 & V_d < 200){E_T <- 6.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 6.0}
if (V_d > 200 & V_d < 300){E_T <- 6.0 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.6}
if (V_d > 300 & V_d < 400){E_T <- 5.6 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.3}
if (V_d > 400 & V_d < 500){E_T <- 5.3 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 5.0}
if (V_d > 500 & V_d < 600){E_T <- 5.0 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.6}
if (V_d > 600 & V_d < 700){E_T <- 4.6 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 4.3}
if (V_d > 700 & V_d < 800){E_T <- 4.3 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.0}
if (V_d > 800 & V_d < 900){E_T <- 4.0 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.6}
if (V_d > 900 & V_d < 1000){E_T <- 3.6 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.3}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 6.9 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 6.9}
if (V_d > 100 & V_d < 200){E_T <- 6.9 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 6.5}
if (V_d > 200 & V_d < 300){E_T <- 6.5 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 6.2}
if (V_d > 300 & V_d < 400){E_T <- 6.2 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.9}
if (V_d > 400 & V_d < 500){E_T <- 5.9 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 5.5}
if (V_d > 500 & V_d < 600){E_T <- 5.5 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 5.2}
if (V_d > 600 & V_d < 700){E_T <- 5.2 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 4.9}
if (V_d > 700 & V_d < 800){E_T <- 4.9 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.5}
if (V_d > 800 & V_d < 900){E_T <- 4.5 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 4.2}
if (V_d > 900 & V_d < 1000){E_T <- 4.2 - 0.4 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.8}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 8.0 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 8.0}
if (V_d > 100 & V_d < 200){E_T <- 8.0 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 7.6}
if (V_d > 200 & V_d < 300){E_T <- 7.6 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 7.3}
if (V_d > 300 & V_d < 400){E_T <- 7.3 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 7.0}
if (V_d > 400 & V_d < 500){E_T <- 7.0 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 6.6}
if (V_d > 500 & V_d < 600){E_T <- 6.6 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 6.3}
if (V_d > 600 & V_d < 700){E_T <- 6.3 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 6.0}
if (V_d > 700 & V_d < 800){E_T <- 6.0 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 5.6}
if (V_d > 800 & V_d < 900){E_T <- 5.6 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 5.3}
if (V_d > 900 & V_d < 1000){E_T <- 5.3 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 5.0}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 9.1 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 9.1}
if (V_d > 100 & V_d < 200){E_T <- 9.1 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 8.7}
if (V_d > 200 & V_d < 300){E_T <- 8.7 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 8.4}
if (V_d > 300 & V_d < 400){E_T <- 8.4 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 8.1}
if (V_d > 400 & V_d < 500){E_T <- 8.1 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 7.7}
if (V_d > 500 & V_d < 600){E_T <- 7.7 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 7.4}
if (V_d > 600 & V_d < 700){E_T <- 7.4 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 7.1}
if (V_d > 700 & V_d < 800){E_T <- 7.1 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 6.7}
if (V_d > 800 & V_d < 900){E_T <- 6.7 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 6.4}
if (V_d > 900 & V_d < 1000){E_T <- 6.4 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 6.1}
}
}
}
}
E_T
}
regenesis90/KHCMinR documentation built on Dec. 22, 2021, 2:06 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions E_T_2lane_Road
#' Heavy Vehicle Correction Factor according to the Traffic Volume in the Direction(E_T)
#'
#' This function follows <Table 7-4>, <Table 7-5>, <Table 7-6>, <Table 7-7> (p.177)
#' @param topography *Categorical* Choose one from : \code{'flatland'}, \code{'hill'}, \code{'specific_slope}
#' @param gradient *Numeric* If \code{topography = 'specific_slope'}, must use it. The gradient of slope.
#' @param V *Numeric* If \code{topography = 'specific_slope'}, must use it. Traffic Volume in direction(pcph?)
#' @param L *Numeric* If \code{topography = 'specific_slope'}, must use it. The length of the slope.(m)
#' @param output *Categorical* Choose one from : \code{'travel_speed'}, \code{'TDR'}
#' @export E_T_2lane_road Heavy Vehicle Correction Factor according to the Traffic Volume in the Direction
#' @examples
#' E_T_2lane_Road(topography = 'flatland', V_d = 332, output = 'TDR')
#' E_T_2lane_Road(topography = 'hill', V_d = 459, output = 'travel_speed')
#' E_T_2lane_Road(topography = 'specific_slope', gradient = 0.04, L = 1200, V_d = 838, output = 'travel_speed')
E_T_2lane_Road <- function(topography = NULL, gradient = NULL, L = NULL, V_d = NULL, output = NULL){
if (topography == 'flatland'){
if (output == 'travel_speed'){
if (V_d == 100){E_T <- 4.1}
if (V_d > 100 & V_d < 200){E_T <- 4.1 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.7}
if (V_d > 200 & V_d < 300){E_T <- 3.7 - 0.5 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.2}
if (V_d > 300 & V_d < 400){E_T <- 3.2 - 0.5 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.7}
if (V_d > 400 & V_d < 500){E_T <- 2.7 - 0.6 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.3}
if (V_d > 500 & V_d < 600){E_T <- 2.3 - 0.5 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.8}
if (V_d > 600 & V_d < 700){E_T <- 1.8 - 0.5 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.3}
if (V_d > 700 & V_d < 800){E_T <- 1.3 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d == 1000){E_T <- 1.0}
if (V_d > 1000){E_T <- 1.0}
}
if (output == 'TDR'){
if (V_d == 100){E_T <- 2.6}
if (V_d > 100 & V_d < 200){E_T <- 2.6 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 2.3}
if (V_d > 200 & V_d < 300){E_T <- 2.3 - 0.2 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 2.1}
if (V_d > 300 & V_d < 400){E_T <- 2.1 - 0.2 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.9}
if (V_d > 400 & V_d < 500){E_T <- 1.9 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.6}
if (V_d > 500 & V_d < 600){E_T <- 1.6 - 0.2 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.4}
if (V_d > 600 & V_d < 700){E_T <- 1.4 - 0.2 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.2}
if (V_d > 700 & V_d < 800){E_T <- 1.2 - 0.2 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d == 1000){E_T <- 1.0}
if (V_d > 1000){E_T <- 1.0}
}
}
if (topography == 'hill'){
if (output == 'travel_speed'){
if (V_d == 100){E_T <- 6.6}
if (V_d > 100 & V_d < 200){E_T <- 6.6 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.9}
if (V_d > 200 & V_d < 300){E_T <- 5.9 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.2}
if (V_d > 300 & V_d < 400){E_T <- 5.2 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.5}
if (V_d > 400 & V_d < 500){E_T <- 4.5 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.8}
if (V_d > 500 & V_d < 600){E_T <- 3.8 - 0.6 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.1}
if (V_d > 600 & V_d < 700){E_T <- 3.1 - 0.6 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.5}
if (V_d > 700 & V_d < 800){E_T <- 2.5 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.8}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.1}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d == 1000){E_T <- 1.0}
if (V_d > 1000){E_T <- 1.0}
}
if (output == 'TDR'){
if (V_d == 100){E_T <- 3.7}
if (V_d > 100 & V_d < 200){E_T <- 3.7 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.3}
if (V_d > 200 & V_d < 300){E_T <- 3.3 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.0}
if (V_d > 300 & V_d < 400){E_T <- 3.0 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.6}
if (V_d > 400 & V_d < 500){E_T <- 2.6 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.3}
if (V_d > 500 & V_d < 600){E_T <- 2.3 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.0}
if (V_d > 600 & V_d < 700){E_T <- 2.0 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.6}
if (V_d > 700 & V_d < 800){E_T <- 1.6 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.3}
if (V_d > 700 & V_d < 800){E_T <- 1.3 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d == 1000){E_T <- 1.0}
if (V_d > 1000){E_T <- 1.0}
}
}
if (topography == 'specific_slope'){
if (output == 'travel_speed'){
if (gradient == 0.03){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 2.9 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 2.9}
if (V_d > 100 & V_d < 200){E_T <- 2.9 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 2.2}
if (V_d > 200 & V_d < 300){E_T <- 2.2 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 1.5}
if (V_d > 300 & V_d < 400){E_T <- 1.5 - 0.5 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.0}
if (V_d > 400 & V_d < 500){E_T <- 1.0}
if (V_d == 500){E_T <- 1.0}
if (V_d > 500 & V_d < 600){E_T <- 1.0}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 3.4 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 3.4}
if (V_d > 100 & V_d < 200){E_T <- 3.4 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 2.7}
if (V_d > 200 & V_d < 300){E_T <- 2.7 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 1.9}
if (V_d > 300 & V_d < 400){E_T <- 1.9 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.2}
if (V_d > 400 & V_d < 500){E_T <- 1.2 - 0.2 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.0}
if (V_d > 500 & V_d < 600){E_T <- 1.0}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 3.9 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 3.9}
if (V_d > 100 & V_d < 200){E_T <- 3.9 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.1}
if (V_d > 200 & V_d < 300){E_T <- 3.1 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 2.4}
if (V_d > 300 & V_d < 400){E_T <- 2.4 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.7}
if (V_d > 400 & V_d < 500){E_T <- 1.7 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.0}
if (V_d > 500 & V_d < 600){E_T <- 1.0}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 4.4 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.4}
if (V_d > 100 & V_d < 200){E_T <- 4.4 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.6}
if (V_d > 200 & V_d < 300){E_T <- 3.6 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 2.9}
if (V_d > 300 & V_d < 400){E_T <- 2.9 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.2}
if (V_d > 400 & V_d < 500){E_T <- 2.2 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.4}
if (V_d > 500 & V_d < 600){E_T <- 1.4 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 5.3 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.3}
if (V_d > 100 & V_d < 200){E_T <- 5.3 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.6}
if (V_d > 200 & V_d < 300){E_T <- 4.6 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.8}
if (V_d > 300 & V_d < 400){E_T <- 3.8 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.1}
if (V_d > 400 & V_d < 500){E_T <- 3.1 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.4}
if (V_d > 500 & V_d < 600){E_T <- 2.4 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.6}
if (V_d > 600 & V_d < 700){E_T <- 1.6 - 0.6 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 6.3 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 6.3}
if (V_d > 100 & V_d < 200){E_T <- 6.3 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.5}
if (V_d > 200 & V_d < 300){E_T <- 5.5 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.8}
if (V_d > 300 & V_d < 400){E_T <- 4.8 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.0}
if (V_d > 400 & V_d < 500){E_T <- 4.0 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.3}
if (V_d > 500 & V_d < 600){E_T <- 3.3 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.6}
if (V_d > 600 & V_d < 700){E_T <- 2.6 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.8}
if (V_d > 700 & V_d < 800){E_T <- 1.8 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.1}
if (V_d > 800 & V_d < 900){E_T <- 1.1 - 0.1 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 8.1 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 8.1}
if (V_d > 100 & V_d < 200){E_T <- 8.1 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 7.4}
if (V_d > 200 & V_d < 300){E_T <- 7.4 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 6.7}
if (V_d > 300 & V_d < 400){E_T <- 6.7 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.9}
if (V_d > 400 & V_d < 500){E_T <- 5.9 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 5.2}
if (V_d > 500 & V_d < 600){E_T <- 5.2 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.5}
if (V_d > 600 & V_d < 700){E_T <- 4.5 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.7}
if (V_d > 700 & V_d < 800){E_T <- 3.7 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.0}
if (V_d > 800 & V_d < 900){E_T <- 3.0 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.3}
if (V_d > 900 & V_d < 1000){E_T <- 2.3 - 0.8 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.5}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 10.0 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 10.0}
if (V_d > 100 & V_d < 200){E_T <- 10.0 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 9.3}
if (V_d > 200 & V_d < 300){E_T <- 9.3 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 8.6}
if (V_d > 300 & V_d < 400){E_T <- 8.6 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 7.8}
if (V_d > 400 & V_d < 500){E_T <- 7.8 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 7.1}
if (V_d > 500 & V_d < 600){E_T <- 7.1 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 6.4}
if (V_d > 600 & V_d < 700){E_T <- 6.4 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 5.6}
if (V_d > 700 & V_d < 800){E_T <- 5.6 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.9}
if (V_d > 800 & V_d < 900){E_T <- 4.9 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 4.2}
if (V_d > 900 & V_d < 1000){E_T <- 4.2 - 0.8 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.4}
}
}
if (gradient == 0.04){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 4.4 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.4}
if (V_d > 100 & V_d < 200){E_T <- 4.4 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.7}
if (V_d > 200 & V_d < 300){E_T <- 3.7 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.0}
if (V_d > 300 & V_d < 400){E_T <- 3.0 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.2}
if (V_d > 400 & V_d < 500){E_T <- 2.2 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.5}
if (V_d > 500 & V_d < 600){E_T <- 1.5 - 0.5 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 4.9 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.9}
if (V_d > 100 & V_d < 200){E_T <- 4.9 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.2}
if (V_d > 200 & V_d < 300){E_T <- 4.2 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.4}
if (V_d > 300 & V_d < 400){E_T <- 3.4 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.7}
if (V_d > 400 & V_d < 500){E_T <- 2.7 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.0}
if (V_d > 500 & V_d < 600){E_T <- 2.0 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.2}
if (V_d > 600 & V_d < 700){E_T <- 1.2 - 0.2 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 5.4 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.4}
if (V_d > 100 & V_d < 200){E_T <- 5.4 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.6}
if (V_d > 200 & V_d < 300){E_T <- 4.6 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.9}
if (V_d > 300 & V_d < 400){E_T <- 3.9 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.2}
if (V_d > 400 & V_d < 500){E_T <- 3.2 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.4}
if (V_d > 500 & V_d < 600){E_T <- 2.4 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.7}
if (V_d > 600 & V_d < 700){E_T <- 1.7 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 5.8 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.8}
if (V_d > 100 & V_d < 200){E_T <- 5.8 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.1}
if (V_d > 200 & V_d < 300){E_T <- 5.1 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.4}
if (V_d > 300 & V_d < 400){E_T <- 4.4 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.6}
if (V_d > 400 & V_d < 500){E_T <- 3.6 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.9}
if (V_d > 500 & V_d < 600){E_T <- 2.9 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.2}
if (V_d > 600 & V_d < 700){E_T <- 2.2 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.4}
if (V_d > 700 & V_d < 800){E_T <- 1.4 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 6.8 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 6.8}
if (V_d > 100 & V_d < 200){E_T <- 6.8 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 6.1}
if (V_d > 200 & V_d < 300){E_T <- 6.1 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.3}
if (V_d > 300 & V_d < 400){E_T <- 5.3 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.6}
if (V_d > 400 & V_d < 500){E_T <- 4.6 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.8}
if (V_d > 500 & V_d < 600){E_T <- 3.8 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.1}
if (V_d > 600 & V_d < 700){E_T <- 3.1 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.4}
if (V_d > 700 & V_d < 800){E_T <- 2.4 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.6}
if (V_d > 800 & V_d < 900){E_T <- 1.6 - 0.6 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 7.7 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 7.7}
if (V_d > 100 & V_d < 200){E_T <- 7.7 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 7.0}
if (V_d > 200 & V_d < 300){E_T <- 7.0 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 6.3}
if (V_d > 300 & V_d < 400){E_T <- 6.3 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.5}
if (V_d > 400 & V_d < 500){E_T <- 5.5 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.8}
if (V_d > 500 & V_d < 600){E_T <- 4.8 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.1}
if (V_d > 600 & V_d < 700){E_T <- 4.1 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.3}
if (V_d > 700 & V_d < 800){E_T <- 3.3 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.6}
if (V_d > 800 & V_d < 900){E_T <- 2.6 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.9}
if (V_d > 900 & V_d < 1000){E_T <- 1.9 - 0.8 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.1}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 9.6 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 9.6}
if (V_d > 100 & V_d < 200){E_T <- 9.6 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 8.9}
if (V_d > 200 & V_d < 300){E_T <- 8.9 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 8.2}
if (V_d > 300 & V_d < 400){E_T <- 8.2 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 7.4}
if (V_d > 400 & V_d < 500){E_T <- 7.4 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 6.7}
if (V_d > 500 & V_d < 600){E_T <- 6.7 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 6.0}
if (V_d > 600 & V_d < 700){E_T <- 6.0 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 5.2}
if (V_d > 700 & V_d < 800){E_T <- 5.2 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.5}
if (V_d > 800 & V_d < 900){E_T <- 4.5 - 0.8 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.7}
if (V_d > 900 & V_d < 1000){E_T <- 3.7 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.0}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 11.5 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 11.5}
if (V_d > 100 & V_d < 200){E_T <- 11.5 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 10.8}
if (V_d > 200 & V_d < 300){E_T <- 10.8 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 10.1}
if (V_d > 300 & V_d < 400){E_T <- 10.1 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 9.3}
if (V_d > 400 & V_d < 500){E_T <- 9.3 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 8.6}
if (V_d > 500 & V_d < 600){E_T <- 8.6 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 7.8}
if (V_d > 600 & V_d < 700){E_T <- 7.8 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 7.1}
if (V_d > 700 & V_d < 800){E_T <- 7.1 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 6.4}
if (V_d > 800 & V_d < 900){E_T <- 6.4 - 0.8 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 5.6}
if (V_d > 900 & V_d < 1000){E_T <- 5.6 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 4.9}
}
}
if (gradient == 0.05){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 5.9 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.9}
if (V_d > 100 & V_d < 200){E_T <- 5.9 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.2}
if (V_d > 200 & V_d < 300){E_T <- 5.2 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.4}
if (V_d > 300 & V_d < 400){E_T <- 4.4 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.7}
if (V_d > 400 & V_d < 500){E_T <- 3.7 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.0}
if (V_d > 500 & V_d < 600){E_T <- 3.0 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.2}
if (V_d > 600 & V_d < 700){E_T <- 2.2 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.5}
if (V_d > 700 & V_d < 800){E_T <- 1.5 - 0.5 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 6.4 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 6.4}
if (V_d > 100 & V_d < 200){E_T <- 6.4 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.6}
if (V_d > 200 & V_d < 300){E_T <- 5.6 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.9}
if (V_d > 300 & V_d < 400){E_T <- 4.9 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.2}
if (V_d > 400 & V_d < 500){E_T <- 4.2 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.4}
if (V_d > 500 & V_d < 600){E_T <- 3.4 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.7}
if (V_d > 600 & V_d < 700){E_T <- 2.7 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.0}
if (V_d > 700 & V_d < 800){E_T <- 2.0 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.2}
if (V_d > 800 & V_d < 900){E_T <- 1.2 - 0.2 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 6.9 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 6.9}
if (V_d > 100 & V_d < 200){E_T <- 6.9 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 6.1}
if (V_d > 200 & V_d < 300){E_T <- 6.1 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.4}
if (V_d > 300 & V_d < 400){E_T <- 5.4 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.6}
if (V_d > 400 & V_d < 500){E_T <- 4.6 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.9}
if (V_d > 500 & V_d < 600){E_T <- 3.9 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.2}
if (V_d > 600 & V_d < 700){E_T <- 3.2 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.4}
if (V_d > 700 & V_d < 800){E_T <- 2.4 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.7}
if (V_d > 800 & V_d < 900){E_T <- 1.7 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 7.3 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 7.3}
if (V_d > 100 & V_d < 200){E_T <- 7.3 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 6.6}
if (V_d > 200 & V_d < 300){E_T <- 6.6 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.9}
if (V_d > 300 & V_d < 400){E_T <- 5.9 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.1}
if (V_d > 400 & V_d < 500){E_T <- 5.1 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.4}
if (V_d > 500 & V_d < 600){E_T <- 4.4 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.7}
if (V_d > 600 & V_d < 700){E_T <- 3.7 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.9}
if (V_d > 700 & V_d < 800){E_T <- 2.9 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.2}
if (V_d > 800 & V_d < 900){E_T <- 2.2 - 0.8 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.4}
if (V_d > 900 & V_d < 1000){E_T <- 1.4 - 0.4 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 8.3 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 8.3}
if (V_d > 100 & V_d < 200){E_T <- 8.3 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 7.5}
if (V_d > 200 & V_d < 300){E_T <- 7.5 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 6.8}
if (V_d > 300 & V_d < 400){E_T <- 6.8 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 6.1}
if (V_d > 400 & V_d < 500){E_T <- 6.1 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 5.3}
if (V_d > 500 & V_d < 600){E_T <- 5.3 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.6}
if (V_d > 600 & V_d < 700){E_T <- 4.6 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.9}
if (V_d > 700 & V_d < 800){E_T <- 3.9 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.1}
if (V_d > 800 & V_d < 900){E_T <- 3.1 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.4}
if (V_d > 900 & V_d < 1000){E_T <- 2.4 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.7}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 9.2 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 9.2}
if (V_d > 100 & V_d < 200){E_T <- 9.2 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 8.5}
if (V_d > 200 & V_d < 300){E_T <- 8.5 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 7.8}
if (V_d > 300 & V_d < 400){E_T <- 7.8 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 7.0}
if (V_d > 400 & V_d < 500){E_T <- 7.0 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 6.3}
if (V_d > 500 & V_d < 600){E_T <- 6.3 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 5.5}
if (V_d > 600 & V_d < 700){E_T <- 5.5 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 4.8}
if (V_d > 700 & V_d < 800){E_T <- 4.8 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.1}
if (V_d > 800 & V_d < 900){E_T <- 4.1 - 0.8 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.3}
if (V_d > 900 & V_d < 1000){E_T <- 3.3 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.6}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 11.1 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 11.1}
if (V_d > 100 & V_d < 200){E_T <- 11.1 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 10.4}
if (V_d > 200 & V_d < 300){E_T <- 10.4 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 9.6}
if (V_d > 300 & V_d < 400){E_T <- 9.6 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 8.9}
if (V_d > 400 & V_d < 500){E_T <- 8.9 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 8.2}
if (V_d > 500 & V_d < 600){E_T <- 8.2 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 7.4}
if (V_d > 600 & V_d < 700){E_T <- 7.4 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 6.7}
if (V_d > 700 & V_d < 800){E_T <- 6.7 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 6.0}
if (V_d > 800 & V_d < 900){E_T <- 6.0 - 0.8 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 5.2}
if (V_d > 900 & V_d < 1000){E_T <- 5.2 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 4.5}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 13.0 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 13.0}
if (V_d > 100 & V_d < 200){E_T <- 13.0 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 12.3}
if (V_d > 200 & V_d < 300){E_T <- 12.3 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 11.5}
if (V_d > 300 & V_d < 400){E_T <- 11.5 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 10.8}
if (V_d > 400 & V_d < 500){E_T <- 10.8 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 10.1}
if (V_d > 500 & V_d < 600){E_T <- 10.1 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 9.3}
if (V_d > 600 & V_d < 700){E_T <- 9.3 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 8.6}
if (V_d > 700 & V_d < 800){E_T <- 8.6 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 7.9}
if (V_d > 800 & V_d < 900){E_T <- 7.9 - 0.8 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 7.1}
if (V_d > 900 & V_d < 1000){E_T <- 7.1 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 6.4}
}
}
if (gradient == 0.06){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 7.4 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 7.4}
if (V_d > 100 & V_d < 200){E_T <- 7.4 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 6.7}
if (V_d > 200 & V_d < 300){E_T <- 6.7 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.9}
if (V_d > 300 & V_d < 400){E_T <- 5.9 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.2}
if (V_d > 400 & V_d < 500){E_T <- 5.2 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.5}
if (V_d > 500 & V_d < 600){E_T <- 4.5 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.7}
if (V_d > 600 & V_d < 700){E_T <- 3.7 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.0}
if (V_d > 700 & V_d < 800){E_T <- 3.0 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.2}
if (V_d > 800 & V_d < 900){E_T <- 2.2 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.5}
if (V_d > 900 & V_d < 1000){E_T <- 1.5 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 0.8}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 7.9 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 7.9}
if (V_d > 100 & V_d < 200){E_T <- 7.9 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 7.1}
if (V_d > 200 & V_d < 300){E_T <- 7.1 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 6.4}
if (V_d > 300 & V_d < 400){E_T <- 6.4 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.7}
if (V_d > 400 & V_d < 500){E_T <- 5.7 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.9}
if (V_d > 500 & V_d < 600){E_T <- 4.9 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.2}
if (V_d > 600 & V_d < 700){E_T <- 4.2 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.5}
if (V_d > 700 & V_d < 800){E_T <- 3.5 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.7}
if (V_d > 800 & V_d < 900){E_T <- 2.7 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.0}
if (V_d > 900 & V_d < 1000){E_T <- 2.0 - 0.8 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.2}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 8.3 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 8.3}
if (V_d > 100 & V_d < 200){E_T <- 8.3 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 7.6}
if (V_d > 200 & V_d < 300){E_T <- 7.6 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 6.9}
if (V_d > 300 & V_d < 400){E_T <- 6.9 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 6.1}
if (V_d > 400 & V_d < 500){E_T <- 6.1 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 5.4}
if (V_d > 500 & V_d < 600){E_T <- 5.4 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.7}
if (V_d > 600 & V_d < 700){E_T <- 4.7 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.9}
if (V_d > 700 & V_d < 800){E_T <- 3.9 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.2}
if (V_d > 800 & V_d < 900){E_T <- 3.2 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.5}
if (V_d > 900 & V_d < 1000){E_T <- 2.5 - 0.8 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.7}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 8.8 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 8.8}
if (V_d > 100 & V_d < 200){E_T <- 8.8 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 8.1}
if (V_d > 200 & V_d < 300){E_T <- 8.1 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 7.3}
if (V_d > 300 & V_d < 400){E_T <- 7.3 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 6.6}
if (V_d > 400 & V_d < 500){E_T <- 6.6 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 5.9}
if (V_d > 500 & V_d < 600){E_T <- 5.9 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 5.1}
if (V_d > 600 & V_d < 700){E_T <- 5.1 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 4.4}
if (V_d > 700 & V_d < 800){E_T <- 4.4 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.7}
if (V_d > 800 & V_d < 900){E_T <- 3.7 - 0.8 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.9}
if (V_d > 900 & V_d < 1000){E_T <- 2.9 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.2}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 9.8 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 9.8}
if (V_d > 100 & V_d < 200){E_T <- 9.8 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 9.0}
if (V_d > 200 & V_d < 300){E_T <- 9.0 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 8.3}
if (V_d > 300 & V_d < 400){E_T <- 8.3 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 7.6}
if (V_d > 400 & V_d < 500){E_T <- 7.6 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 6.8}
if (V_d > 500 & V_d < 600){E_T <- 6.8 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 6.1}
if (V_d > 600 & V_d < 700){E_T <- 6.1 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 5.3}
if (V_d > 700 & V_d < 800){E_T <- 5.3 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.6}
if (V_d > 800 & V_d < 900){E_T <- 4.6 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.9}
if (V_d > 900 & V_d < 1000){E_T <- 3.9 - 0.8 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.1}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 10.7 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 10.7}
if (V_d > 100 & V_d < 200){E_T <- 10.7 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 10.0}
if (V_d > 200 & V_d < 300){E_T <- 10.0 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 9.2}
if (V_d > 300 & V_d < 400){E_T <- 9.2 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 8.5}
if (V_d > 400 & V_d < 500){E_T <- 8.5 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 7.8}
if (V_d > 500 & V_d < 600){E_T <- 7.8 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 7.0}
if (V_d > 600 & V_d < 700){E_T <- 7.0 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 6.3}
if (V_d > 700 & V_d < 800){E_T <- 6.3 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 5.6}
if (V_d > 800 & V_d < 900){E_T <- 5.6 - 0.8 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 4.8}
if (V_d > 900 & V_d < 1000){E_T <- 4.8 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 4.1}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 12.6 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 12.6}
if (V_d > 100 & V_d < 200){E_T <- 12.6 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 11.9}
if (V_d > 200 & V_d < 300){E_T <- 11.9 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 11.1}
if (V_d > 300 & V_d < 400){E_T <- 11.1 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 10.4}
if (V_d > 400 & V_d < 500){E_T <- 10.4 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 9.7}
if (V_d > 500 & V_d < 600){E_T <- 9.7 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 8.9}
if (V_d > 600 & V_d < 700){E_T <- 8.9 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 8.2}
if (V_d > 700 & V_d < 800){E_T <- 8.2 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 7.5}
if (V_d > 800 & V_d < 900){E_T <- 7.5 - 0.8 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 6.7}
if (V_d > 900 & V_d < 1000){E_T <- 6.7 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 6.0}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 14.5 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 14.5}
if (V_d > 100 & V_d < 200){E_T <- 14.5 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 13.8}
if (V_d > 200 & V_d < 300){E_T <- 13.8 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 13.0}
if (V_d > 300 & V_d < 400){E_T <- 13.0 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 12.3}
if (V_d > 400 & V_d < 500){E_T <- 12.3 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 11.6}
if (V_d > 500 & V_d < 600){E_T <- 11.6 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 10.8}
if (V_d > 600 & V_d < 700){E_T <- 10.8 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 10.1}
if (V_d > 700 & V_d < 800){E_T <- 10.1 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 9.3}
if (V_d > 800 & V_d < 900){E_T <- 9.3 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 8.6}
if (V_d > 900 & V_d < 1000){E_T <- 8.6 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 7.9}
}
}
if (gradient == 0.07){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 8.9 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 8.9}
if (V_d > 100 & V_d < 200){E_T <- 8.9 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 8.1}
if (V_d > 200 & V_d < 300){E_T <- 8.1 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 7.4}
if (V_d > 300 & V_d < 400){E_T <- 7.4 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 6.7}
if (V_d > 400 & V_d < 500){E_T <- 6.7 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 5.9}
if (V_d > 500 & V_d < 600){E_T <- 5.9 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 5.2}
if (V_d > 600 & V_d < 700){E_T <- 5.2 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 4.5}
if (V_d > 700 & V_d < 800){E_T <- 4.5 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.7}
if (V_d > 800 & V_d < 900){E_T <- 3.7 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.0}
if (V_d > 900 & V_d < 1000){E_T <- 3.0 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.3}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 9.4 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 9.4}
if (V_d > 100 & V_d < 200){E_T <- 9.4 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 8.6}
if (V_d > 200 & V_d < 300){E_T <- 8.6 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 7.9}
if (V_d > 300 & V_d < 400){E_T <- 7.9 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 7.1}
if (V_d > 400 & V_d < 500){E_T <- 7.1 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 6.4}
if (V_d > 500 & V_d < 600){E_T <- 6.4 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 5.7}
if (V_d > 600 & V_d < 700){E_T <- 5.7 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 4.9}
if (V_d > 700 & V_d < 800){E_T <- 4.9 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.2}
if (V_d > 800 & V_d < 900){E_T <- 4.2 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.5}
if (V_d > 900 & V_d < 1000){E_T <- 3.5 - 0.8 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.7}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 9.8 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 9.8}
if (V_d > 100 & V_d < 200){E_T <- 9.8 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 9.1}
if (V_d > 200 & V_d < 300){E_T <- 9.1 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 8.4}
if (V_d > 300 & V_d < 400){E_T <- 8.4 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 7.6}
if (V_d > 400 & V_d < 500){E_T <- 7.6 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 6.9}
if (V_d > 500 & V_d < 600){E_T <- 6.9 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 6.1}
if (V_d > 600 & V_d < 700){E_T <- 6.1 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 5.4}
if (V_d > 700 & V_d < 800){E_T <- 5.4 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.7}
if (V_d > 800 & V_d < 900){E_T <- 4.7 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.9}
if (V_d > 900 & V_d < 1000){E_T <- 3.9 - 0.8 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.2}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 10.3 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 10.3}
if (V_d > 100 & V_d < 200){E_T <- 10.3 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 9.6}
if (V_d > 200 & V_d < 300){E_T <- 9.6 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 8.8}
if (V_d > 300 & V_d < 400){E_T <- 8.8 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 8.1}
if (V_d > 400 & V_d < 500){E_T <- 8.1 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 7.4}
if (V_d > 500 & V_d < 600){E_T <- 7.4 - 0.8 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 6.6}
if (V_d > 600 & V_d < 700){E_T <- 6.6 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 5.9}
if (V_d > 700 & V_d < 800){E_T <- 5.9 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 5.1}
if (V_d > 800 & V_d < 900){E_T <- 5.1 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 4.4}
if (V_d > 900 & V_d < 1000){E_T <- 4.4 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.7}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 11.2 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 11.2}
if (V_d > 100 & V_d < 200){E_T <- 11.2 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 10.5}
if (V_d > 200 & V_d < 300){E_T <- 10.5 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 9.8}
if (V_d > 300 & V_d < 400){E_T <- 9.8 - 0.8 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 9.0}
if (V_d > 400 & V_d < 500){E_T <- 9.0 - 0.7 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 8.3}
if (V_d > 500 & V_d < 600){E_T <- 8.3 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 7.6}
if (V_d > 600 & V_d < 700){E_T <- 7.6 - 0.8 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 6.8}
if (V_d > 700 & V_d < 800){E_T <- 6.8 - 0.7 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 6.1}
if (V_d > 800 & V_d < 900){E_T <- 6.1 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 5.4}
if (V_d > 900 & V_d < 1000){E_T <- 5.4 - 0.8 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 4.6}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 12.2 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 12.2}
if (V_d > 100 & V_d < 200){E_T <- 12.2 - 0.7 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 11.5}
if (V_d > 200 & V_d < 300){E_T <- 11.5 - 0.8 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 10.7}
if (V_d > 300 & V_d < 400){E_T <- 10.7 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 10.0}
if (V_d > 400 & V_d < 500){E_T <- 10.0 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 9.2}
if (V_d > 500 & V_d < 600){E_T <- 9.2 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 8.5}
if (V_d > 600 & V_d < 700){E_T <- 8.5 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 7.8}
if (V_d > 700 & V_d < 800){E_T <- 7.8 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 7.0}
if (V_d > 800 & V_d < 900){E_T <- 7.0 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 6.3}
if (V_d > 900 & V_d < 1000){E_T <- 6.3 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 5.6}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 14.1 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 14.1}
if (V_d > 100 & V_d < 200){E_T <- 14.1 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 13.3}
if (V_d > 200 & V_d < 300){E_T <- 13.3 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 12.6}
if (V_d > 300 & V_d < 400){E_T <- 12.6 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 11.9}
if (V_d > 400 & V_d < 500){E_T <- 11.9 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 11.1}
if (V_d > 500 & V_d < 600){E_T <- 11.1 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 10.4}
if (V_d > 600 & V_d < 700){E_T <- 10.4 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 9.7}
if (V_d > 700 & V_d < 800){E_T <- 9.7 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 8.9}
if (V_d > 800 & V_d < 900){E_T <- 8.9 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 8.2}
if (V_d > 900 & V_d < 1000){E_T <- 8.2 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 7.5}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 16.0 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 16.0}
if (V_d > 100 & V_d < 200){E_T <- 16.0 - 0.8 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 15.2}
if (V_d > 200 & V_d < 300){E_T <- 15.2 - 0.7 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 14.5}
if (V_d > 300 & V_d < 400){E_T <- 14.5 - 0.7 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 13.8}
if (V_d > 400 & V_d < 500){E_T <- 13.8 - 0.8 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 13.0}
if (V_d > 500 & V_d < 600){E_T <- 13.0 - 0.7 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 12.3}
if (V_d > 600 & V_d < 700){E_T <- 12.3 - 0.7 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 11.6}
if (V_d > 700 & V_d < 800){E_T <- 11.6 - 0.8 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 10.8}
if (V_d > 800 & V_d < 900){E_T <- 10.8 - 0.7 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 10.1}
if (V_d > 900 & V_d < 1000){E_T <- 10.1 - 0.7 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 9.4}
}
}
}
if (output == 'TDR'){
if (gradient == 0.03){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 1.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 1.4}
if (V_d > 100 & V_d < 200){E_T <- 1.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 1.1}
if (V_d > 200 & V_d < 300){E_T <- 1.1 - 0.1 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 1.0}
if (V_d > 300 & V_d < 400){E_T <- 1.0}
if (V_d == 400){E_T <- 1.0}
if (V_d > 400 & V_d < 500){E_T <- 1.0}
if (V_d == 500){E_T <- 1.0}
if (V_d > 500 & V_d < 600){E_T <- 1.0}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 1.7 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 1.7}
if (V_d > 100 & V_d < 200){E_T <- 1.7 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 1.3}
if (V_d > 200 & V_d < 300){E_T <- 1.3 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 1.0}
if (V_d > 300 & V_d < 400){E_T <- 1.0}
if (V_d == 400){E_T <- 1.0}
if (V_d > 400 & V_d < 500){E_T <- 1.0}
if (V_d == 500){E_T <- 1.0}
if (V_d > 500 & V_d < 600){E_T <- 1.0}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 1.9 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 1.9}
if (V_d > 100 & V_d < 200){E_T <- 1.9 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 1.6}
if (V_d > 200 & V_d < 300){E_T <- 1.6 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 1.3}
if (V_d > 300 & V_d < 400){E_T <- 1.3 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.0}
if (V_d > 400 & V_d < 500){E_T <- 1.0}
if (V_d == 500){E_T <- 1.0}
if (V_d > 500 & V_d < 600){E_T <- 1.0}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 2.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 2.2}
if (V_d > 100 & V_d < 200){E_T <- 2.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 1.9}
if (V_d > 200 & V_d < 300){E_T <- 1.9 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 1.6}
if (V_d > 300 & V_d < 400){E_T <- 1.6 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.2}
if (V_d > 400 & V_d < 500){E_T <- 1.2 - 0.2 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.0}
if (V_d > 500 & V_d < 600){E_T <- 1.0}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 2.8 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 2.8}
if (V_d > 100 & V_d < 200){E_T <- 2.8 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 2.4}
if (V_d > 200 & V_d < 300){E_T <- 2.4 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 2.1}
if (V_d > 300 & V_d < 400){E_T <- 2.1 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.8}
if (V_d > 400 & V_d < 500){E_T <- 1.8 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.4}
if (V_d > 500 & V_d < 600){E_T <- 1.4 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.1}
if (V_d > 600 & V_d < 700){E_T <- 1.1 - 0.1 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 3.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 3.3}
if (V_d > 100 & V_d < 200){E_T <- 3.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.0}
if (V_d > 200 & V_d < 300){E_T <- 3.0 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 2.7}
if (V_d > 300 & V_d < 400){E_T <- 2.7 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.3}
if (V_d > 400 & V_d < 500){E_T <- 2.3 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.0}
if (V_d > 500 & V_d < 600){E_T <- 2.0 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.7}
if (V_d > 600 & V_d < 700){E_T <- 1.7 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.3}
if (V_d > 700 & V_d < 800){E_T <- 1.3 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 4.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.4}
if (V_d > 100 & V_d < 200){E_T <- 4.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.1}
if (V_d > 200 & V_d < 300){E_T <- 4.1 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.8}
if (V_d > 300 & V_d < 400){E_T <- 3.8 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.4}
if (V_d > 400 & V_d < 500){E_T <- 3.4 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.1}
if (V_d > 500 & V_d < 600){E_T <- 3.1 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.8}
if (V_d > 600 & V_d < 700){E_T <- 2.8 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.4}
if (V_d > 700 & V_d < 800){E_T <- 2.4 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.1}
if (V_d > 800 & V_d < 900){E_T <- 2.1 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.8}
if (V_d > 900 & V_d < 1000){E_T <- 1.8 - 0.4 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.4}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 5.5 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.5}
if (V_d > 100 & V_d < 200){E_T <- 5.5 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.2}
if (V_d > 200 & V_d < 300){E_T <- 5.2 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.9}
if (V_d > 300 & V_d < 400){E_T <- 4.9 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.5}
if (V_d > 400 & V_d < 500){E_T <- 4.5 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.2}
if (V_d > 500 & V_d < 600){E_T <- 4.2 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.9}
if (V_d > 600 & V_d < 700){E_T <- 3.9 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.5}
if (V_d > 700 & V_d < 800){E_T <- 3.5 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.2}
if (V_d > 800 & V_d < 900){E_T <- 3.2 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.9}
if (V_d > 900 & V_d < 1000){E_T <- 2.9 - 0.4 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.5}
}
}
if (gradient == 0.04){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 2.3 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 2.3}
if (V_d > 100 & V_d < 200){E_T <- 2.3 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 1.9}
if (V_d > 200 & V_d < 300){E_T <- 1.9 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 1.6}
if (V_d > 300 & V_d < 400){E_T <- 1.6 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.3}
if (V_d > 400 & V_d < 500){E_T <- 1.3 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.0}
if (V_d > 500 & V_d < 600){E_T <- 1.0}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 2.6 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 2.6}
if (V_d > 100 & V_d < 200){E_T <- 2.6 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 2.2}
if (V_d > 200 & V_d < 300){E_T <- 2.2 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 1.9}
if (V_d > 300 & V_d < 400){E_T <- 1.9 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.5}
if (V_d > 400 & V_d < 500){E_T <- 1.5 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.2}
if (V_d > 500 & V_d < 600){E_T <- 1.2 - 0.2 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.0}
if (V_d > 600 & V_d < 700){E_T <- 1.0}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 2.8 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 2.8}
if (V_d > 100 & V_d < 200){E_T <- 2.8 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 2.5}
if (V_d > 200 & V_d < 300){E_T <- 2.5 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 2.2}
if (V_d > 300 & V_d < 400){E_T <- 2.2 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 1.8}
if (V_d > 400 & V_d < 500){E_T <- 1.8 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.5}
if (V_d > 500 & V_d < 600){E_T <- 1.5 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.2}
if (V_d > 600 & V_d < 700){E_T <- 1.2 - 0.2 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.0}
if (V_d > 700 & V_d < 800){E_T <- 1.0}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 3.1 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 3.1}
if (V_d > 100 & V_d < 200){E_T <- 3.1 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 2.8}
if (V_d > 200 & V_d < 300){E_T <- 2.8 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 2.4}
if (V_d > 300 & V_d < 400){E_T <- 2.4 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.1}
if (V_d > 400 & V_d < 500){E_T <- 2.1 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.8}
if (V_d > 500 & V_d < 600){E_T <- 1.8 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.4}
if (V_d > 600 & V_d < 700){E_T <- 1.4 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.1}
if (V_d > 700 & V_d < 800){E_T <- 1.1 - 0.1 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 3.7 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 3.7}
if (V_d > 100 & V_d < 200){E_T <- 3.7 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.3}
if (V_d > 200 & V_d < 300){E_T <- 3.3 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.0}
if (V_d > 300 & V_d < 400){E_T <- 3.0 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.7}
if (V_d > 400 & V_d < 500){E_T <- 2.7 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.3}
if (V_d > 500 & V_d < 600){E_T <- 2.3 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.0}
if (V_d > 600 & V_d < 700){E_T <- 2.0 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.7}
if (V_d > 700 & V_d < 800){E_T <- 1.7 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.3}
if (V_d > 800 & V_d < 900){E_T <- 1.3 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 4.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.2}
if (V_d > 100 & V_d < 200){E_T <- 4.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.9}
if (V_d > 200 & V_d < 300){E_T <- 3.9 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.5}
if (V_d > 300 & V_d < 400){E_T <- 3.5 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.2}
if (V_d > 400 & V_d < 500){E_T <- 3.2 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.9}
if (V_d > 500 & V_d < 600){E_T <- 2.9 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.5}
if (V_d > 600 & V_d < 700){E_T <- 2.5 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.2}
if (V_d > 700 & V_d < 800){E_T <- 2.2 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.9}
if (V_d > 800 & V_d < 900){E_T <- 1.9 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.5}
if (V_d > 900 & V_d < 1000){E_T <- 1.5 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.2}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 5.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.3}
if (V_d > 100 & V_d < 200){E_T <- 5.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.0}
if (V_d > 200 & V_d < 300){E_T <- 5.0 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.6}
if (V_d > 300 & V_d < 400){E_T <- 4.6 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.3}
if (V_d > 400 & V_d < 500){E_T <- 4.3 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.0}
if (V_d > 500 & V_d < 600){E_T <- 4.0 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.6}
if (V_d > 600 & V_d < 700){E_T <- 3.6 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.3}
if (V_d > 700 & V_d < 800){E_T <- 3.3 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.0}
if (V_d > 800 & V_d < 900){E_T <- 3.0 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.6}
if (V_d > 900 & V_d < 1000){E_T <- 2.6 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.3}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 6.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 6.4}
if (V_d > 100 & V_d < 200){E_T <- 6.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 6.1}
if (V_d > 200 & V_d < 300){E_T <- 6.1 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.8}
if (V_d > 300 & V_d < 400){E_T <- 5.8 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.4}
if (V_d > 400 & V_d < 500){E_T <- 5.4 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 5.1}
if (V_d > 500 & V_d < 600){E_T <- 5.1 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.8}
if (V_d > 600 & V_d < 700){E_T <- 4.8 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 4.4}
if (V_d > 700 & V_d < 800){E_T <- 4.4 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.1}
if (V_d > 800 & V_d < 900){E_T <- 4.1 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.7}
if (V_d > 900 & V_d < 1000){E_T <- 3.7 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.4}
}
}
if (gradient == 0.05){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 3.2 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 3.2}
if (V_d > 100 & V_d < 200){E_T <- 3.2 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 2.8}
if (V_d > 200 & V_d < 300){E_T <- 2.8 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 2.5}
if (V_d > 300 & V_d < 400){E_T <- 2.5 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.2}
if (V_d > 400 & V_d < 500){E_T <- 2.2 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 1.8}
if (V_d > 500 & V_d < 600){E_T <- 1.8 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.5}
if (V_d > 600 & V_d < 700){E_T <- 1.5 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.2}
if (V_d > 700 & V_d < 800){E_T <- 1.2 - 0.2 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.0}
if (V_d > 800 & V_d < 900){E_T <- 1.0}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 3.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 3.4}
if (V_d > 100 & V_d < 200){E_T <- 3.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.1}
if (V_d > 200 & V_d < 300){E_T <- 3.1 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 2.8}
if (V_d > 300 & V_d < 400){E_T <- 2.8 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.4}
if (V_d > 400 & V_d < 500){E_T <- 2.4 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.1}
if (V_d > 500 & V_d < 600){E_T <- 2.1 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 1.8}
if (V_d > 600 & V_d < 700){E_T <- 1.8 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.4}
if (V_d > 700 & V_d < 800){E_T <- 1.4 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.1}
if (V_d > 800 & V_d < 900){E_T <- 1.1 - 0.1 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 3.7 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 3.7}
if (V_d > 100 & V_d < 200){E_T <- 3.7 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.4}
if (V_d > 200 & V_d < 300){E_T <- 3.4 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.0}
if (V_d > 300 & V_d < 400){E_T <- 3.0 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 2.7}
if (V_d > 400 & V_d < 500){E_T <- 2.7 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.4}
if (V_d > 500 & V_d < 600){E_T <- 2.4 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.0}
if (V_d > 600 & V_d < 700){E_T <- 2.0 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 1.7}
if (V_d > 700 & V_d < 800){E_T <- 1.7 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.4}
if (V_d > 800 & V_d < 900){E_T <- 1.4 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.0}
if (V_d > 900 & V_d < 1000){E_T <- 1.0}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 4.0 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.0}
if (V_d > 100 & V_d < 200){E_T <- 4.0 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.7}
if (V_d > 200 & V_d < 300){E_T <- 3.7 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.3}
if (V_d > 300 & V_d < 400){E_T <- 3.3 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.0}
if (V_d > 400 & V_d < 500){E_T <- 3.0 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.7}
if (V_d > 500 & V_d < 600){E_T <- 2.7 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.3}
if (V_d > 600 & V_d < 700){E_T <- 2.3 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.0}
if (V_d > 700 & V_d < 800){E_T <- 2.0 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.6}
if (V_d > 800 & V_d < 900){E_T <- 1.6 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.3}
if (V_d > 900 & V_d < 1000){E_T <- 1.3 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 4.5 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.5}
if (V_d > 100 & V_d < 200){E_T <- 4.5 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.2}
if (V_d > 200 & V_d < 300){E_T <- 4.2 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.9}
if (V_d > 300 & V_d < 400){E_T <- 3.9 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.5}
if (V_d > 400 & V_d < 500){E_T <- 3.5 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.2}
if (V_d > 500 & V_d < 600){E_T <- 3.2 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.9}
if (V_d > 600 & V_d < 700){E_T <- 2.9 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.5}
if (V_d > 700 & V_d < 800){E_T <- 2.5 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.2}
if (V_d > 800 & V_d < 900){E_T <- 2.2 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.9}
if (V_d > 900 & V_d < 1000){E_T <- 1.9 - 0.4 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.5}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 5.1 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.1}
if (V_d > 100 & V_d < 200){E_T <- 5.1 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.8}
if (V_d > 200 & V_d < 300){E_T <- 4.8 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.4}
if (V_d > 300 & V_d < 400){E_T <- 4.4 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.1}
if (V_d > 400 & V_d < 500){E_T <- 4.1 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.8}
if (V_d > 500 & V_d < 600){E_T <- 3.8 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.4}
if (V_d > 600 & V_d < 700){E_T <- 3.4 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.1}
if (V_d > 700 & V_d < 800){E_T <- 3.1 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.8}
if (V_d > 800 & V_d < 900){E_T <- 2.8 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.4}
if (V_d > 900 & V_d < 1000){E_T <- 2.4 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.1}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 6.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 6.2}
if (V_d > 100 & V_d < 200){E_T <- 6.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.9}
if (V_d > 200 & V_d < 300){E_T <- 5.9 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.5}
if (V_d > 300 & V_d < 400){E_T <- 5.5 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.2}
if (V_d > 400 & V_d < 500){E_T <- 5.2 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.9}
if (V_d > 500 & V_d < 600){E_T <- 4.9 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.5}
if (V_d > 600 & V_d < 700){E_T <- 4.5 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 4.2}
if (V_d > 700 & V_d < 800){E_T <- 4.2 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.9}
if (V_d > 800 & V_d < 900){E_T <- 3.9 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.5}
if (V_d > 900 & V_d < 1000){E_T <- 3.5 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.2}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 7.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 7.3}
if (V_d > 100 & V_d < 200){E_T <- 7.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 7.0}
if (V_d > 200 & V_d < 300){E_T <- 7.0 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 6.6}
if (V_d > 300 & V_d < 400){E_T <- 6.6 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 6.3}
if (V_d > 400 & V_d < 500){E_T <- 6.3 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 6.0}
if (V_d > 500 & V_d < 600){E_T <- 6.0 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 5.6}
if (V_d > 600 & V_d < 700){E_T <- 5.6 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 5.3}
if (V_d > 700 & V_d < 800){E_T <- 5.3 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 5.0}
if (V_d > 800 & V_d < 900){E_T <- 5.0 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 4.6}
if (V_d > 900 & V_d < 1000){E_T <- 4.6 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 4.3}
}
}
if (gradient == 0.06){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 4.0 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.0}
if (V_d > 100 & V_d < 200){E_T <- 4.0 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 3.7}
if (V_d > 200 & V_d < 300){E_T <- 3.7 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.4}
if (V_d > 300 & V_d < 400){E_T <- 3.4 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.0}
if (V_d > 400 & V_d < 500){E_T <- 3.0 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 2.7}
if (V_d > 500 & V_d < 600){E_T <- 2.7 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.4}
if (V_d > 600 & V_d < 700){E_T <- 2.4 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.0}
if (V_d > 700 & V_d < 800){E_T <- 2.0 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 1.7}
if (V_d > 800 & V_d < 900){E_T <- 1.7 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.4}
if (V_d > 900 & V_d < 1000){E_T <- 1.4 - 0.4 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.0}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 4.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.3}
if (V_d > 100 & V_d < 200){E_T <- 4.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.0}
if (V_d > 200 & V_d < 300){E_T <- 4.0 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.6}
if (V_d > 300 & V_d < 400){E_T <- 3.6 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.3}
if (V_d > 400 & V_d < 500){E_T <- 3.3 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.0}
if (V_d > 500 & V_d < 600){E_T <- 3.0 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.6}
if (V_d > 600 & V_d < 700){E_T <- 2.6 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.3}
if (V_d > 700 & V_d < 800){E_T <- 2.3 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.0}
if (V_d > 800 & V_d < 900){E_T <- 2.0 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.6}
if (V_d > 900 & V_d < 1000){E_T <- 1.6 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.3}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 4.6 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.6}
if (V_d > 100 & V_d < 200){E_T <- 4.6 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.3}
if (V_d > 200 & V_d < 300){E_T <- 4.3 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 3.9}
if (V_d > 300 & V_d < 400){E_T <- 3.9 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.6}
if (V_d > 400 & V_d < 500){E_T <- 3.6 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.3}
if (V_d > 500 & V_d < 600){E_T <- 3.3 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 2.9}
if (V_d > 600 & V_d < 700){E_T <- 2.9 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.6}
if (V_d > 700 & V_d < 800){E_T <- 2.6 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.3}
if (V_d > 800 & V_d < 900){E_T <- 2.3 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 1.9}
if (V_d > 900 & V_d < 1000){E_T <- 1.9 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.6}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 4.9 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.9}
if (V_d > 100 & V_d < 200){E_T <- 4.9 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.5}
if (V_d > 200 & V_d < 300){E_T <- 4.5 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.2}
if (V_d > 300 & V_d < 400){E_T <- 4.2 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.9}
if (V_d > 400 & V_d < 500){E_T <- 3.9 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.5}
if (V_d > 500 & V_d < 600){E_T <- 3.5 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.2}
if (V_d > 600 & V_d < 700){E_T <- 3.2 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.9}
if (V_d > 700 & V_d < 800){E_T <- 2.9 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.5}
if (V_d > 800 & V_d < 900){E_T <- 2.5 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.2}
if (V_d > 900 & V_d < 1000){E_T <- 2.2 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.9}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 5.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.4}
if (V_d > 100 & V_d < 200){E_T <- 5.4 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.1}
if (V_d > 200 & V_d < 300){E_T <- 5.1 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.8}
if (V_d > 300 & V_d < 400){E_T <- 4.8 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.4}
if (V_d > 400 & V_d < 500){E_T <- 4.4 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.1}
if (V_d > 500 & V_d < 600){E_T <- 4.1 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.8}
if (V_d > 600 & V_d < 700){E_T <- 3.8 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.4}
if (V_d > 700 & V_d < 800){E_T <- 3.4 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.1}
if (V_d > 800 & V_d < 900){E_T <- 3.1 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.7}
if (V_d > 900 & V_d < 1000){E_T <- 2.7 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.4}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 6.0 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 6.0}
if (V_d > 100 & V_d < 200){E_T <- 6.0 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.6}
if (V_d > 200 & V_d < 300){E_T <- 5.6 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.3}
if (V_d > 300 & V_d < 400){E_T <- 5.3 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.0}
if (V_d > 400 & V_d < 500){E_T <- 5.0 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.6}
if (V_d > 500 & V_d < 600){E_T <- 4.6 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.3}
if (V_d > 600 & V_d < 700){E_T <- 4.3 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 4.0}
if (V_d > 700 & V_d < 800){E_T <- 4.0 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.6}
if (V_d > 800 & V_d < 900){E_T <- 3.6 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.3}
if (V_d > 900 & V_d < 1000){E_T <- 3.3 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.0}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 7.1 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 7.1}
if (V_d > 100 & V_d < 200){E_T <- 7.1 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 6.7}
if (V_d > 200 & V_d < 300){E_T <- 6.7 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 6.4}
if (V_d > 300 & V_d < 400){E_T <- 6.4 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 6.1}
if (V_d > 400 & V_d < 500){E_T <- 6.1 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 5.7}
if (V_d > 500 & V_d < 600){E_T <- 5.7 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 5.4}
if (V_d > 600 & V_d < 700){E_T <- 5.4 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 5.1}
if (V_d > 700 & V_d < 800){E_T <- 5.1 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.7}
if (V_d > 800 & V_d < 900){E_T <- 4.7 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 4.4}
if (V_d > 900 & V_d < 1000){E_T <- 4.4 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 4.1}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 8.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 8.2}
if (V_d > 100 & V_d < 200){E_T <- 8.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 7.9}
if (V_d > 200 & V_d < 300){E_T <- 7.9 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 7.5}
if (V_d > 300 & V_d < 400){E_T <- 7.5 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 7.2}
if (V_d > 400 & V_d < 500){E_T <- 7.2 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 6.8}
if (V_d > 500 & V_d < 600){E_T <- 6.8 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 6.5}
if (V_d > 600 & V_d < 700){E_T <- 6.5 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 6.2}
if (V_d > 700 & V_d < 800){E_T <- 6.2 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 5.8}
if (V_d > 800 & V_d < 900){E_T <- 5.8 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 5.5}
if (V_d > 900 & V_d < 1000){E_T <- 5.5 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 5.2}
}
}
if (gradient == 0.07){
if (L == 400){
if (V_d > 0 & V_d < 100){E_T <- 4.9 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 4.9}
if (V_d > 100 & V_d < 200){E_T <- 4.9 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.6}
if (V_d > 200 & V_d < 300){E_T <- 4.6 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.3}
if (V_d > 300 & V_d < 400){E_T <- 4.3 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 3.9}
if (V_d > 400 & V_d < 500){E_T <- 3.9 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.6}
if (V_d > 500 & V_d < 600){E_T <- 3.6 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.3}
if (V_d > 600 & V_d < 700){E_T <- 3.3 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 2.9}
if (V_d > 700 & V_d < 800){E_T <- 2.9 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.6}
if (V_d > 800 & V_d < 900){E_T <- 2.6 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.2}
if (V_d > 900 & V_d < 1000){E_T <- 2.2 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 1.9}
}
if (L == 800){
if (V_d > 0 & V_d < 100){E_T <- 5.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.2}
if (V_d > 100 & V_d < 200){E_T <- 5.2 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 4.9}
if (V_d > 200 & V_d < 300){E_T <- 4.9 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.5}
if (V_d > 300 & V_d < 400){E_T <- 4.5 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.2}
if (V_d > 400 & V_d < 500){E_T <- 4.2 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 3.9}
if (V_d > 500 & V_d < 600){E_T <- 3.9 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.5}
if (V_d > 600 & V_d < 700){E_T <- 3.5 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.2}
if (V_d > 700 & V_d < 800){E_T <- 3.2 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 2.9}
if (V_d > 800 & V_d < 900){E_T <- 2.9 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.5}
if (V_d > 900 & V_d < 1000){E_T <- 2.5 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.2}
}
if (L == 1200){
if (V_d > 0 & V_d < 100){E_T <- 5.5 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.5}
if (V_d > 100 & V_d < 200){E_T <- 5.5 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.1}
if (V_d > 200 & V_d < 300){E_T <- 5.1 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 4.8}
if (V_d > 300 & V_d < 400){E_T <- 4.8 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.5}
if (V_d > 400 & V_d < 500){E_T <- 4.5 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.1}
if (V_d > 500 & V_d < 600){E_T <- 4.1 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 3.8}
if (V_d > 600 & V_d < 700){E_T <- 3.8 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.5}
if (V_d > 700 & V_d < 800){E_T <- 3.5 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.1}
if (V_d > 800 & V_d < 900){E_T <- 3.1 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 2.8}
if (V_d > 900 & V_d < 1000){E_T <- 2.8 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.5}
}
if (L == 1600){
if (V_d > 0 & V_d < 100){E_T <- 5.8 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 5.8}
if (V_d > 100 & V_d < 200){E_T <- 5.8 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 5.4}
if (V_d > 200 & V_d < 300){E_T <- 5.4 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.1}
if (V_d > 300 & V_d < 400){E_T <- 5.1 - 0.4 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 4.7}
if (V_d > 400 & V_d < 500){E_T <- 4.7 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 4.4}
if (V_d > 500 & V_d < 600){E_T <- 4.4 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.1}
if (V_d > 600 & V_d < 700){E_T <- 4.1 - 0.4 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 3.7}
if (V_d > 700 & V_d < 800){E_T <- 3.7 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 3.4}
if (V_d > 800 & V_d < 900){E_T <- 3.4 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.1}
if (V_d > 900 & V_d < 1000){E_T <- 3.1 - 0.4 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 2.7}
}
if (L == 2400){
if (V_d > 0 & V_d < 100){E_T <- 6.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 6.3}
if (V_d > 100 & V_d < 200){E_T <- 6.3 - 0.3 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 6.0}
if (V_d > 200 & V_d < 300){E_T <- 6.0 - 0.4 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 5.6}
if (V_d > 300 & V_d < 400){E_T <- 5.6 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.3}
if (V_d > 400 & V_d < 500){E_T <- 5.3 - 0.3 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 5.0}
if (V_d > 500 & V_d < 600){E_T <- 5.0 - 0.4 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 4.6}
if (V_d > 600 & V_d < 700){E_T <- 4.6 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 4.3}
if (V_d > 700 & V_d < 800){E_T <- 4.3 - 0.3 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.0}
if (V_d > 800 & V_d < 900){E_T <- 4.0 - 0.4 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 3.6}
if (V_d > 900 & V_d < 1000){E_T <- 3.6 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.3}
}
if (L == 3200){
if (V_d > 0 & V_d < 100){E_T <- 6.9 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 6.9}
if (V_d > 100 & V_d < 200){E_T <- 6.9 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 6.5}
if (V_d > 200 & V_d < 300){E_T <- 6.5 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 6.2}
if (V_d > 300 & V_d < 400){E_T <- 6.2 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 5.9}
if (V_d > 400 & V_d < 500){E_T <- 5.9 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 5.5}
if (V_d > 500 & V_d < 600){E_T <- 5.5 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 5.2}
if (V_d > 600 & V_d < 700){E_T <- 5.2 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 4.9}
if (V_d > 700 & V_d < 800){E_T <- 4.9 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 4.5}
if (V_d > 800 & V_d < 900){E_T <- 4.5 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 4.2}
if (V_d > 900 & V_d < 1000){E_T <- 4.2 - 0.4 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 3.8}
}
if (L == 4800){
if (V_d > 0 & V_d < 100){E_T <- 8.0 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 8.0}
if (V_d > 100 & V_d < 200){E_T <- 8.0 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 7.6}
if (V_d > 200 & V_d < 300){E_T <- 7.6 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 7.3}
if (V_d > 300 & V_d < 400){E_T <- 7.3 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 7.0}
if (V_d > 400 & V_d < 500){E_T <- 7.0 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 6.6}
if (V_d > 500 & V_d < 600){E_T <- 6.6 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 6.3}
if (V_d > 600 & V_d < 700){E_T <- 6.3 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 6.0}
if (V_d > 700 & V_d < 800){E_T <- 6.0 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 5.6}
if (V_d > 800 & V_d < 900){E_T <- 5.6 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 5.3}
if (V_d > 900 & V_d < 1000){E_T <- 5.3 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 5.0}
}
if (L == 6400){
if (V_d > 0 & V_d < 100){E_T <- 9.1 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 100){E_T <- 9.1}
if (V_d > 100 & V_d < 200){E_T <- 9.1 - 0.4 * (V_d - 100) * 0.01}
if (V_d == 200){E_T <- 8.7}
if (V_d > 200 & V_d < 300){E_T <- 8.7 - 0.3 * (V_d - 200) * 0.01}
if (V_d == 300){E_T <- 8.4}
if (V_d > 300 & V_d < 400){E_T <- 8.4 - 0.3 * (V_d - 300) * 0.01}
if (V_d == 400){E_T <- 8.1}
if (V_d > 400 & V_d < 500){E_T <- 8.1 - 0.4 * (V_d - 400) * 0.01}
if (V_d == 500){E_T <- 7.7}
if (V_d > 500 & V_d < 600){E_T <- 7.7 - 0.3 * (V_d - 500) * 0.01}
if (V_d == 600){E_T <- 7.4}
if (V_d > 600 & V_d < 700){E_T <- 7.4 - 0.3 * (V_d - 600) * 0.01}
if (V_d == 700){E_T <- 7.1}
if (V_d > 700 & V_d < 800){E_T <- 7.1 - 0.4 * (V_d - 700) * 0.01}
if (V_d == 800){E_T <- 6.7}
if (V_d > 800 & V_d < 900){E_T <- 6.7 - 0.3 * (V_d - 800) * 0.01}
if (V_d == 900){E_T <- 6.4}
if (V_d > 900 & V_d < 1000){E_T <- 6.4 - 0.3 * (V_d - 900) * 0.01}
if (V_d >= 1000){E_T <- 6.1}
}
}
}
}
E_T
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.