三维空间中的分形.pptVIP

参考书：《分形算法与程序设计》 9.4 Sierpinski海绵 ? x6=x+l/2; y6=y+l/2; z6=z+l/2; ? x7=x-l/2; y7=y+l/2; z7=z-l/2; ? x8=x+l/2; y8=y+l/2; z8=z-l/2; 9.4 Sierpinski海绵 void CRenderDlg::Drawscene(double x, double y, double z, double l,double n) { if (n 1) { //画一级Sierpinski海绵 l:=l/3; lft(x-l,y+l,z-l,l); //后左上 lft(x,y+l,z-l,l); //后中上 lft(x+l,y+l,z-l,l); //后右上 lft(x-l,y,z-l,l); //后左中 lft(x+l,y,z-l,l); //后右中 lft(x-l,y-l,z-l,l); //后左下 lft(x,y-l,z-l,l); //后中下 lft(x+l,y-l,z-l,l);