1. Пользоваться форумом на планшетах и телефонах стало удобнее благодаря Tapatalk

Губка Менгера(Куб Серпинского)

Тема в разделе "MAXScript", создана пользователем Gulnazino, 24 апр 2014.

Модераторы: Savin Denis
  1. Gulnazino

    Gulnazino Пользователь сайта

    С нами с:
    23.04.2014
    Сообщения:
    2
    Симпатии:
    0
    Баллы:
    2
    Ищу скрипт-реализация губки Менгера.
    мой скрипт,но нужна более обобщенная реализация
    Код:
    b=box length:99 width:99 height:99 pos:[0,0,0] wirecolor:[255,255,0]
    --global a=99
    select b
    --while i<=3 do
    for i=1 to 3 do 
    	( d=99/(3^i)  
         for j=1 to 3^(i-1) do 
    		for n=1 to  3^(i-1) do  
    		     (b1=box length:d width:d height:99 pos:[(((99/2)*(2*j-1))/((3^(i-1))))-99/2,(((99/2)*(2*n-1))/((3^(i-1))))-99/2,0] 
    	           boolObj.createBooleanObject $ 
    				boolObj.SetOperandB $ b1 4 1)
    				for m=1 to 3^(i-1) do for k=1 to  3^(i-1) do
    				(b2=box length:99 width:d height:d pos:[((99*(2*m-1))/(2*(3^(i-1))))-99/2,0,(99*(3*k-2))/(3^i)]
    	        boolObj.createBooleanObject $ 
    	        boolObj.SetOperandB $ b2 4 2 )
    				
    				)
     

    Вложения:

    • 3330085.jpg
      3330085.jpg
      Размер файла:
      331,7 КБ
      Просмотров:
      222
  2. Александр Якушев

    Александр Якушев Активный участник

    С нами с:
    13.08.2009
    Сообщения:
    77
    Симпатии:
    1
    Баллы:
    7
    Не рассматриваете вариант создания куба из маленьких кубиков, к примеру 1000х1000х1000 и без всяких булевых операций просто убрать ненужные?
    но 1000х1000х1000 многовато получается ), может только если в массивах это все посчитать
     
Модераторы: Savin Denis

Поделиться этой страницей