ke <- 0.2350; di <- 4;
ar <- ar.fn(ke, di)
ttc <- 20; dr <- 2.26; cl <- 0.57; f <- 0.74; wtkg <- 86;
dr <- dr.fn(ttc,cl,wtkg,f)
f = 0.74; dpo <- 3440; vd = 2.8; ar = 2.4;
cmax <- cmax.fn(f, dpo, vd, ar)
f <- 0.74; dpo <- 3440; di <- 4; cl <- 0.37;
css <-css.fn(f, dpo, di, cl)
cmax <- 25.37; ke <- 0.1333; di <- 4;
cmin <- cmin.fn(cmax, ke, di)
msc <- 50; mec <- 20; ke <- 0.2078;
di <- di.fn(msc, mec, ke)
dr <- 1.42; di <- 4;
dm <- dm.fn(dr, di)
dr <- 0.86; di <- 4;
dpo <- dpo.fn(dr, di)
ttc <- 32.74; cl <- 0.59; wtkg <- 86; f <- 0.74;
dr <- dr.fn(ttc, cl, wtkg, f)
msc = 50; mec = 20;
ttc <- ttc.fn(msc, mec)Run the code above in your browser using DataLab