Pov-rayで立方根を求めるマクロ、
再掲です。
#macro Cubrt(Val)
#if (Val=0) #declare Out=0; #end
#if (Val<0)
#declare Out=-sqrt(sqrt(Val*sqrt(sqrt(Val*sqrt(sqrt(Val*sqrt(sqrt(Val*Val)) )) )) ));
#end
#if (Val>0)
#declare Out=sqrt(sqrt(Val*sqrt(sqrt(Val*sqrt(sqrt(Val*sqrt(sqrt(Val*Val)) )) )) ));
#end
Out
#end
急に必要になり、
webで検索をしたら、過去の自分の書いた記事が出てきました。
再掲です。
#macro Cubrt(Val)
#if (Val=0) #declare Out=0; #end
#if (Val<0)
#declare Out=-sqrt(sqrt(Val*sqrt(sqrt(Val*sqrt(sqrt(Val*sqrt(sqrt(Val*Val)) )) )) ));
#end
#if (Val>0)
#declare Out=sqrt(sqrt(Val*sqrt(sqrt(Val*sqrt(sqrt(Val*sqrt(sqrt(Val*Val)) )) )) ));
#end
Out
#end
急に必要になり、
webで検索をしたら、過去の自分の書いた記事が出てきました。