|
|
"John Greenwood" <joh### [at] john-greenwoodcouk> wrote:
....
> // Rounded objects: Illustration of R_Surface
....
> #declare R_function = function( p,F){
> select(-(p<=-1) , select((F>1)-(F<-1) , -1 , F , 1)+1
> , select(-(p!=1) , select((F>1)-(F<-1) , -1 ,
> ..5*p*pow(F,5)-(p+.5)*pow(F,3)+(1.5+.5*p)*F , 1)+1
> ,F/(sqrt(.17+pow(F,2))) +1
> ) )
> }
....
> #declare R_S_function = function( p,x,y,z,F){
> select(-(p<=-1) , select((F>1)-(F<-1) , -1 , F , 1)+1
> , select(-(p!=1) , select((F>1)-(F<-1) , -1 ,
> ..5*p*pow(F,5)-(p+.5)*pow(F,3)+(1.5+.5*p)*F , 1)+1
> ,F/(sqrt(.17+pow(F,2))) +1
> ) )
> }
It seems to me that the R_function(p, F) and the R_S_function(p, x, y, z, F)
above will give the same result, as the x, y and z values are not used in the
R_S_function.
Is this what you intended ?
--
Tor Olav
http://subcube.com
Post a reply to this message
|
|