\label{eq:charge_forward}
\end{equation}
-<<fig=TRUE,echo=FALSE,results=hide,width=7,height=5>>=
+<<fig=TRUE,echo=FALSE,results=hide,width=7,height=7>>=
x <- seq(-1,0,length.out=20)
y <- seq(-1,0,length.out=20)
grid <- expand.grid(x=x,y=y)
print(wireframe(z~x*y,grid,cuts=50,
drape=TRUE,
scales=list(arrows=FALSE),
- xlab="Average Vesicle Charge",
- ylab="Component Charge",
- zlab="Charge Forward"))
+ xlab=list("Average Vesicle Charge",rot=30),
+ ylab=list("Component Charge",rot=-35),
+ zlab=list("Charge Forward",rot=93)))
rm(x,y,grid)
@
\label{eq:unsaturation_backward}
\end{equation}
-<<fig=TRUE,echo=FALSE,results=hide,width=5,height=5>>=
+<<fig=TRUE,echo=FALSE,results=hide,width=7,height=7>>=
grid <- expand.grid(x=seq(0,4,length.out=20),
y=seq(0,4,length.out=20))
grid$z <- 10^(abs(3.5^-grid$x-3.5^-grid$y))
print(wireframe(z~x*y,grid,cuts=50,
drape=TRUE,
scales=list(arrows=FALSE),
- xlab="Average Vesicle Unsaturation",
- ylab="Monomer Unsaturation",
- zlab="Unsaturation Backward"))
+ xlab=list("Average Vesicle Unsaturation",rot=30),
+ ylab=list("Monomer Unsaturation",rot=-35),
+ zlab=list("Unsaturation Backward",rot=93)))
rm(grid)
@
\label{eq:charge_backwards}
\end{equation}
-<<fig=TRUE,echo=FALSE,results=hide,width=7,height=5>>=
+<<fig=TRUE,echo=FALSE,results=hide,width=7,height=7>>=
x <- seq(-1,0,length.out=20)
y <- seq(-1,0,length.out=20)
grid <- expand.grid(x=x,y=y)
print(wireframe(z~x*y,grid,cuts=50,
drape=TRUE,
scales=list(arrows=FALSE),
- xlab="Average Vesicle Charge",
- ylab="Component Charge",
- zlab="Charge Backwards"))
+ xlab=list("Average Vesicle Charge",rot=30),
+ ylab=list("Component Charge",rot=-35),
+ zlab=list("Charge Backwards",rot=93)))
rm(x,y,grid)
@
\label{eq:curvature_backwards}
\end{equation}
-<<fig=TRUE,echo=FALSE,results=hide,width=7,height=5>>=
+<<fig=TRUE,echo=FALSE,results=hide,width=7,height=7>>=
grid <- expand.grid(x=seq(0.8,1.33,length.out=20),
y=seq(0.8,1.33,length.out=20))
grid$z <- 7^(1-1/(20*(log(grid$x)-log(grid$y))^2+1))
print(wireframe(z~x*y,grid,cuts=50,
drape=TRUE,
scales=list(arrows=FALSE),
- xlab="Vesicle Curvature",
- ylab="Monomer Curvature",
- zlab="Curvature Backward"))
+ xlab=list("Vesicle Curvature",rot=30),
+ ylab=list("Monomer Curvature",rot=-35),
+ zlab=list("Curvature Backward",rot=93)))
rm(grid)
@
\label{eq:length_backward}
\end{equation}
-<<fig=TRUE,echo=FALSE,results=hide,width=7,height=5>>=
+<<fig=TRUE,echo=FALSE,results=hide,width=7,height=7>>=
grid <- expand.grid(x=seq(12,24,length.out=20),
y=seq(12,24,length.out=20))
grid$z <- 3.2^(abs(grid$x-grid$y))
print(wireframe(z~x*y,grid,cuts=50,
drape=TRUE,
scales=list(arrows=FALSE),
- xlab="Average Vesicle Length",
- ylab="Monomer Length",
- zlab="Length Backward"))
+ xlab=list("Average Vesicle Length",rot=30),
+ ylab=list("Monomer Length",rot=-35),
+ zlab=list("Length Backward",rot=93)))
rm(grid)
@
\label{eq:complex_formation_backward}
\end{equation}
-<<fig=TRUE,echo=FALSE,results=hide,width=7,height=5>>=
+<<fig=TRUE,echo=FALSE,results=hide,width=7,height=7>>=
grid <- expand.grid(x=seq(-1,3,length.out=20),
y=seq(-1,3,length.out=20))
grid$z <- 3.2^(grid$x*grid$y-abs(grid$x*grid$y))
print(wireframe(z~x*y,grid,cuts=50,
drape=TRUE,
scales=list(arrows=FALSE),
- xlab="Vesicle Complex Formation",
- ylab="Monomer Complex Formation",
- zlab="Complex Formation Backward"))
+ xlab=list("Vesicle Complex Formation",rot=30),
+ ylab=list("Monomer Complex Formation",rot=-35),
+ zlab=list("Complex Formation Backward",rot=93)))
rm(grid)
@