\begin{equation}
% cu_f = 10^{\mathrm{stdev}\left|\log cu_\mathrm{vesicle}\right|}
- cu_f = 10^{\left|\left<\log cu_\mathrm{vesicle} \right>\right|\mathrm{stdev} \log cu_\mathrm{vesicle}}
+ cu_f = 10^{\left|\left<\log cu_\mathrm{vesicle} \right>\right|\mathrm{stdev} \left|\log cu_\mathrm{vesicle}\right|}
\label{eq:curvature_forward}
\end{equation}
% 1.5 to 0.75 3 to 0.33
<<fig=TRUE,echo=FALSE,results=hide,width=7,height=7>>=
-grid <- expand.grid(x=seq(0,max(c(sd(log(c(1,3))),
- sd(log(c(1,0.33))),sd(log(c(0.33,3))))),length.out=20),
+grid <- expand.grid(x=seq(0,max(c(sd(abs(log(c(1,3)))),
+ sd(abs(log(c(1,0.33)))),sd(abs(log(c(0.33,3)))))),length.out=20),
y=seq(0,max(c(mean(log(c(1,3)),
mean(log(c(1,0.33))),
mean(log(c(0.33,3)))))),length.out=20))
rm(grid)
@
<<fig=TRUE,echo=FALSE,results=hide,width=7,height=7>>=
-grid <- expand.grid(x=seq(0,max(c(sd(log(c(1,3))),
- sd(log(c(1,0.33))),sd(log(c(0.33,3))))),length.out=20),
+grid <- expand.grid(x=seq(0,max(c(sd(abs(log(c(1,3)))),
+ sd(abs(log(c(1,0.33)))),sd(abs(log(c(0.33,3)))))),length.out=20),
y=seq(0,max(c(mean(log(c(1,3)),
mean(log(c(1,0.33))),
mean(log(c(0.33,3)))))),length.out=20))