分子研UVSOR松井研究室のブログページ

2018.03に分子科学研究所に異動、研究室を立ち上げ中です。

POV-rayで立方根を求めるマクロ

2019-08-25 00:04:37 | 岡崎にて
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で検索をしたら、過去の自分の書いた記事が出てきました。