| Exh3d | R Documentation |
3d Exhausive Validification
Exh3d(func = function(x,y,z) x^2+y^2+z^2<=sqrt(3^2+3^2+3^2),x=seq(from = -3, to = 3,by=.6),y=seq(from = -3, to = 3,by=.6),z=seq(from = -3, to = 3,by=.6))
func |
If a function is used to define the validification it should return a boolean vector with 3 independent variables in order e.g. x,y,z |
Exh3d(func = function(x,y,z) x^2+y^2+z^2<=sqrt(3^2+3^2+3^2),x=seq(from = -3, to = 3,by=.6),y=seq(from = -3, to = 3,by=.6),z=seq(from = -3, to = 3,by=.6))
## The function is currently defined as
function(func,x=seq(from = -3, to = 3,by=.1),
y=seq(from = -3, to = 3,by=.1),
z=seq(from = -3, to = 3,by=.1)){
message('start exhausive calculation')
v = NULL
for(i in x){
for(j in y){
for(k in z){
if(func(i,j,k)==T) v<-rbind(v,c(i,j,k))
}
}
}
message('calculation finished')
v
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.