- 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)
+@
+
+<<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 <- to.kcal(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=list("Vesicle Complex Formation",rot=30),
+ ylab=list("Monomer Complex Formation",rot=-35),
+ zlab=list("Complex Formation Backward (kcal)",rot=93)))