221

Re: Формы, механизмы, энергия наномира - 29

Анатолий Шестопалов пишет:

Люди с гражданской позицией должны после каждой авиакатастрофы, землетрясения, взрыва метано-воздушной смеси в шахте объснять тупоголовым чиновникам, на всех заборах, что это у них руки по локоть в крови. Чиновники от науки и чиновники в правительстве убийцы!

Кушелев: Трудно не согласиться с Анатолием Шестопаловым. Но я бы добавил, что многие чиновники в одинаковой степени убийцы и самоубийцы, т.к. на тех же самолётах они же сами и гибнут...

Конечно, трудно поверить, что настоящие "летающие тарелки" можно вырезать с помощью таких же "тарелок" из обычного гранита, а себестоимость гранитной тарелке не выше себестоимости гранитного надгробия погибших в авиакатастрофе...

222

Re: Формы, механизмы, энергия наномира - 29

Kushelev пишет:

Кстати, Анатолий Васильевич Шестопалов уже может взять копию форума, в т.ч. 25 страниц темы Виктории Соколик у Лены Гунтик. DVD уже в Москве. Лене Гунтик можно написать прямо в этой теме.

Могу подъехать и забрать после завтра 23-го чтв с 9:00 до 15:30 если Елена Гунтик мне напишет на sinergo@mail.ru куда и восколько.

223

Re: Формы, механизмы, энергия наномира - 29

Kushelev пишет:
Victoria пишет:

А.Ю., мне мои пикотехнологические модели белков и нуклеиновых кислот нравятся больше Ваших smile, поскольку мои соответствуют общеизвестным экспериментальным данным, а Ваши преимущественно только Вашим представлениям.

Кушелев: Нравится, не нравится ...

Мне тоже Ваши модели азотистых оснований понравились больше, но они пока не прошли полноценной проверки. Если из них можно сделать минор Кушелева, то я уже смогу ими пользоваться для моделирования тРНК, но пока у меня не получается построения минора Кушелева из нуклеотидов с формой азотистых оснований от Виктории Соколик. Так что интересно было бы увидеть Вашу интерпретацию минора Кушелева.

Что же касается модели тРНК, то при чём тут "нравится"?

Я же прошу Вас показать, как ориентирована аминокислота по отношению к тРНК. Нравится Вам эта ориентация или не нравится, в данном случае вопрос не ставится.

Давайте посмотрим на Вашу модель комплекса тРНК - аминокислота. Мне Ваша модель непременно понравится smile

Александр Юрьевич, придуманный Вами и не обнаруженный в природе "минор Кушелева" не является объективным тестом для адекватности моих пикотехнологических моделей азотистых оснований.

224

Re: Формы, механизмы, энергия наномира - 29

Анатолий Шестопалов пишет:
Kushelev пишет:

Кстати, Анатолий Васильевич Шестопалов уже может взять копию форума, в т.ч. 25 страниц темы Виктории Соколик у Лены Гунтик. DVD уже в Москве. Лене Гунтик можно написать прямо в этой теме.

Могу подъехать и забрать после завтра 23-го чтв с 9:00 до 15:30 если Елена Гунтик мне напишет на sinergo@mail.ru куда и восколько.

Лена Гунтик попросила позвонить Анатолия Шестопалова по телефону (в личке). В интернет она выйти пока не может, но подъехать и передать диск в Чт или позже сможет. В Чт она появится в Москве после 16.00

225

Re: Формы, механизмы, энергия наномира - 29

Victoria пишет:

Александр Юрьевич, придуманный Вами и не обнаруженный в природе "минор Кушелева" не является объективным тестом для адекватности моих пикотехнологических моделей азотистых оснований.

Кушелев: -Ну его, этот минор Кушелева. Давайте посмотрим, как у Вас ориентирована аминокислота относительно тРНК. Совпадает ли направление N-C с осью симметрии акцепторного стебля тРНК?

226

Re: Формы, механизмы, энергия наномира - 29

http://img-fotki.yandex.ru/get/5507/nanoworld2003.2c/0_511a8_731e340a_S
Оригинал: http://img-fotki.yandex.ru/get/5507/nan … a_orig.gif

Кушелев: Сегодня мне удалось смоделировать А-минорное взаимодействие!

http://img-fotki.yandex.ru/get/5304/nanoworld2003.2d/0_511e4_1a1d812f_L.jpg
Оригинал: http://img-fotki.yandex.ru/get/5304/nan … f_orig.jpg

Оказалось, что параллельно с возникновением водородной связи между азотистым основанием аденина (А) и третьей CH2-группой рибозы другого нуклеотида, возникает взаимодействие между фосфатными группами этих же нуклеотидов. Взаимное расположение фосфатных групп напоминает взаимное расположение радикалов лейцина в лейциновых "молниях-застёжках" белков.

Для А-минорного взаимодействия характерно, что "А-стопки" в действительности представляют собой классическую одноцепочечную спираль РНК, ось симметрии которой совпадает с осью симметрии двухцепочечной спирали, с которой взаимодействует одноцепочечная. Таким образом длинные участки с А-минорным взаимодействием и трёхцепочечная (или трёхнитевая) РНК - это одна и та же структура smile

http://img-fotki.yandex.ru/get/5111/nanoworld2003.2d/0_511ec_cf58de80_L.jpg
Оригинал: http://img-fotki.yandex.ru/get/5111/nan … 0_orig.jpg

В этом ракурсе хорошо видна диэфирная связь между азотистым основанием А и третьей СН2-группой рибозы другого нуклеотида.

http://img-fotki.yandex.ru/get/5908/nanoworld2003.2c/0_511cb_bf6017e6_S.gif
Оригинал: http://img-fotki.yandex.ru/get/5908/nan … 6_orig.gif

Кадры крупно можно посмотреть в фотоальбоме "Пикотехнологические модели": http://fotki.yandex.ru/users/nanoworld2 … 9941/?p=16

227

Re: Формы, механизмы, энергия наномира - 29

Kushelev пишет:

Лена Гунтик попросила позвонить Анатолия Шестопалова по телефону

Договорился с Еленой, что буду ей звонить в четверг.

228

Re: Формы, механизмы, энергия наномира - 29

Пикотехнология белков, ДНК, РНК

Victoria пишет:

А.Ю., всё отлично, только СН2-группа рибозы на Вашем фото не третья, а первая по счёту (третья -- это та, с ОН-группой, через которую присоединяется фосфатная группа другого нуклеотида).

Странно. А разве с ОН-группой не 5-ая?

Давайте их пронумеруем для верности smile

Кстати, у меня появилась мысль дополнить скрипт возможностью строить не только комплементарные нуклеотиды, но и нуклеотиды, которые связаны А-минорным взаимодействием. Ведь их строить так же легко. Просто нужно не на 180 градусов поворачивать, а сдвигать вдоль оси симметрии smile

229

Re: Формы, механизмы, энергия наномира - 29

Пикотехнология белков, ДНК, РНК

Victoria пишет:
Kushelev пишет:
Victoria пишет:

А.Ю., всё отлично, только СН2-группа рибозы на Вашем фото не третья, а первая по счёту (третья -- это та, с ОН-группой, через которую присоединяется фосфатная группа другого нуклеотида).

Странно. А разве с ОН-группой не 5-ая?

Давайте их пронумеруем для верности smile

Кстати, у меня появилась мысль дополнить скрипт возможностью строить не только комплементарные нуклеотиды, но и нуклеотиды, которые связаны А-минорным взаимодействием. Ведь их строить так же легко. Просто нужно не на 180 градусов поворачивать, а сдвигать вдоль оси симметрии smile

Их уже до нас с Вами пронумеровали, потому предлагаю неперенумеровывать.

Кушелев: Так я и предлагаю проставить на пикотехнологических моделях номера, которые соответствуют общепринятой нумерации. Можете?

И хотелось бы всё-таки услышать ответ на мой вопрос. В Вашей модели тРНК аминокислота ориентирована так же, как в моей? Ось симметрии акцепторного конца совпадает с направлением связи C-N ?

230

Re: Формы, механизмы, энергия наномира - 29

Пикотехнология белков, ДНК, РНК

http://img-fotki.yandex.ru/get/4704/nanoworld2003.2d/0_511f4_ca9524f1_orig.gif

Маленьким белым кубиком изображена водородная связь между аденином и второй(?) группой CH2 рибозы другого нуклеотида. Фосфатные группы аденина показаны голубым цветом, чтобы легче было отличить от фосфатных групп других нуклеотидов.

В скрипте добавлена матрица aminor, которая для тРНК, в которой нет А-минорного взаимодействия, должна состоять из одних нулей. В данном скрипте она состоит из единиц, чтобы показать модель минорного взаимодействия.

Скрипт:

-- Nanoworld Laboratory
-- Alexander Kushelev
-- Pikotechnological DNA / RNA - model
-- http://nanoworld.narod.ru/

aa = #(); ax = #(); ay = #(); nuclcol = #(); aminor = #()
-- adenosine, cytosine, guanine, timidine, uracil, inosine, pseudouracil, dihydrouracil, methyl inosine, x-circles maximum, w-methyl-2-guanine, v-methyl-1-guanine
nucl = #("a","c","g","t","u","i","p","d","m","x","w","v")
nuclcolor = #([200,0,0],[200,100,100],[0,200,200],[0,0,200],[100,0,200],[200,0,200],[150,0,0],[100,50,0],[0,80,50],[100,100,100])
--*****************************************************************************************************************
seq = #("a","c","c","a","c","c","u","g","c","u"
-- 11
,"c","a","g","g","c","c","u","u","a","g"
-- 21
,"c","p","t","g","g","c","c","u","c","d"
-- 31
,"g","g","a","g","a","g","g","g","p","m"
-- 41
,"c","g","i","u","u","c","c","c","u","c"
-- 51
,"w","c","g","c","g","a","d","g","g","c"
-- 61
,"d","g","a","u","g","c","g","v","u","g"
-- 71                76
,"u","g","c","g","g","g")
--*****************************************************************************************************************
-- seq = #("c","c","c","c","c","c","c","c","c","c","c","c","c","c","c","c","c","c","c","c")
-- seq = #("i","i","i","i","i","i","i","i","i","i","i","i","i","i","i","i","i","i","i")
--*****************************************************************************************************************
-- complement
complement = #("u","g","g","u","g","g","g","c","g","u"
-- 11
,"g","u","c","c","g","g","0","t","p","0"
-- 21
,"0","0","0","0","0","0","0","0","0","w"
-- 31
,"0","0","0","c","u","c","c","c","i","0"
-- 41
,"0","0","0","0","0","0","0","0","0","0"
-- 51
,"0","g","c","g","u","a","g","d","0","0"
-- 61
,"0","0","0","0","0","0","0","0","0","0"
-- 71                 76
,"0","0","0","0","0","0")
-- complement = #("t","t","t","t","t","t","t","t","t","t","t","t","t","t","t","t","t","t","t","t")
-- complement = #("p","p","p","p","p","p","p","p","p","p","p","p","p","p","p","p","p","p","p","p")
ci = #(1,1,1,1,1,1,1,1,1,1
-- 11
,1,1,1,1,1,1,0,2,3,0
-- 21
,0,0,0,0,0,0,0,0,0,0
-- 31
,0,0,0,1,1,1,1,1,3,0
-- 41
,0,0,0,0,0,0,0,0,0,0
-- 51
,0,1,1,1,4,5,6,6,0,0
-- 61
,0,0,0,0,0,0,0,0,0,0
-- 71      76
,0,0,0,0,0,0)
-- ci = #(2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2) 
-- ci = #(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)
-- ci = #(3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3)
--*****************************************************************************************************************
aminor = #(0,1,1,1,1,1,1,1,1,1
-- 11
,1,1,1,1,1,1,1,1,1,1
-- 21
,1,1,1,1,1,1,1,1,1,1
-- 31
,1,1,1,1,1,1,1,1,1,1
-- 41
,1,1,1,1,1,1,1,1,1,1
-- 51
,1,1,1,1,1,1,1,1,1,1
-- 61
,1,1,1,1,1,1,1,1,1,1
-- 71      76
,1,1,1,1,1,1)
--*****************************************************************************************************************
--                                                      turn
anglecomp1 = #(0,0,0,0,0,0,0,0,0,0
-- 11
,   0,   0,   0,   0,   0,   0,   0, 120,   0,   0
-- 21
,-120,   0,   0,   0,   0,   0,   0,   0,   0,   0
-- 31
,   0,   0,   0,   0,   0,   0,   0, -20, -40,  40
-- 41
,   0, -30,   0,   0,   0,   0,   0,   0,   0,   0
-- 51
,   0,   0,   0,   0,   0,   0,   0,   0, 120,   0
-- 61
,   0,   0,   0,   0,   0,   0,   0,   0,   0,   0
-- 71                       76
,   0,   0,   0,   0,   0,   0)
anglecomp2 = #(0,0,0,0,0,0,0,0,0,0
-- 11
, 120,   0,   0,   0,   0,   0,   0,   0, -30, -60
-- 21
, 120,   0,   0,   0,   0,   0,   0,   0,   0,   0
-- 31
,   0,   0,   0,   0,   0,   0,   0,   0,   0,-120
-- 41
,   0, 120,   0,   0,   0,   0,   0,   0,   0,   0
-- 51
,   0,   0,   0,   0,   0,   0,   0,   0,  60,   0
-- 61
,0   ,   0,   0,   0,   0,   0,   0,   0,   0,   0
-- 71                       76
,   0,   0,   0,   0,   0,   0)
--*****************************************************************************************************************
trnk = torus radius1:0.1 radius2:0.04 segs:3 sides:3 position: [0,0,0] wirecolor:[200,200,200]
Converttomesh trnk

newmat = multimaterial name:"MyMultiMat" numsubs: (14)
newmat[1].faceted = on
newmat[2].faceted = on
newmat[3].faceted = on
newmat[4].faceted = on
newmat[5].faceted = on
newmat[6].faceted = on
newmat[7].faceted = on
newmat[8].faceted = on
newmat[9].faceted = on
newmat[10].faceted = on
newmat[11].faceted = on
newmat[12].faceted = on
newmat[13].faceted = on
newmat[14].faceted = on
newmat[1].diffuse = (color 200 0 0)
newmat[2].diffuse = (color 200 100 100)
newmat[3].diffuse = (color 0 200 200)
newmat[4].diffuse = (color 0 0 200)
newmat[5].diffuse = (color 100 0 200)
newmat[6].diffuse = (color 200 0 200)
newmat[7].diffuse = (color 150 0 0)
newmat[8].diffuse = (color 100 50 0)
newmat[9].diffuse = (color 0 80 50)
newmat[10].diffuse = (color 100 100 100)
newmat[11].diffuse = (color 0 200 0)
newmat[12].diffuse = (color 200 200 0)
newmat[13].diffuse = (color 255 255 255)
newmat[14].diffuse = (color 0 0 0)
--
m3 = mesh vertices: #([-2.828,-45.5,-2.828]
,[2.828,-45.5,-2.828],[2.828,-45.5,2.828],[-2.828,-45.5,2.828],[-2.828,-61.5,-2.828],[2.828,-61.5,-2.828]
,[2.828,-61.5,2.828],[-2.828,-61.5,2.828],[-2.828,-53.5,-8.485],[-5.657,-49.5,-5.657],[-8.485,-53.5,-2.828]
,[-5.657,-57.5,-5.657],[8.485,-53.5,2.828],[5.657,-49.5,5.657],[2.828,-53.5,8.485],[5.657,-57.5,5.657]
,[5.657,-49.5,-5.657],[2.828,-53.5,-8.485],[5.657,-57.5,-5.657],[8.485,-53.5,-2.828],[-5.657,-49.5,5.657]
,[-8.485,-53.5,2.828],[-5.657,-57.5,5.657],[-2.828,-53.5,8.485]) \
faces: #([1,3,2],[1,4,3],[5,6,7],[5,7,8],[9,11,10],[9,12,11],[13,14,15],[13,15,16],[17,19,18],[17,20,19],[21,22,23],[21,23,24]
,[1,2,17],[17,18,9],[9,10,1],[1,17,9],[10,22,4],[4,1,10],[10,11,22],[22,21,4],[11,5,23],[23,22,11],[11,12,5],[5,8,23]
,[12,18,6],[6,5,12],[12,9,18],[18,19,6],[8,16,24],[24,23,8],[16,15,24],[8,7,16],[15,3,21],[21,24,15],[15,14,3]
,[3,4,21],[14,20,2],[2,3,14],[14,13,20],[20,17,2],[13,7,19],[19,20,13],[13,16,7],[7,6,19]) \
wirecolor: [255,255,0]
m3.material = newmat[12]
m4 = copy m3 wirecolor: [255,255,0]
m4.material = newmat[12]
m4.pivot = [0,-40,0]
rotate m4 -120 [0,0,1]
move m4 [-7.5,-0.5,0]
m6 = copy m3  wirecolor: [255,255,0]
m6.material = newmat[12]
m13 = copy m3 wirecolor: [255,255,0]
m13.material = newmat[12]
m13.pivot = [0,-66,0]
rotate m13 -72 [1,0,0]
m14 = copy m13 wirecolor: [0,255,0]
m14.material = newmat[11]
g1 = group #(m6, m14)
g1.pivot = [0,-40,0]
rotate g1 -45 [0,0,1]
move g1 [-5.5,2.5,0]
ungroup g1
m5 = copy m6 wirecolor: [255,255,0]
m5.material = newmat[12]
m7 = copy m4 wirecolor: [255,255,0]
m7.material = newmat[12]
g2 = group #(m5, m7)
g2.pivot = [0,-40,0]
rotate g2 180 [0,1,0]
ungroup g2
m8 = mesh vertices: #([-4,0,-8],[0,-4,-8],[4,0,-8],[0,4,-8],[-4,0,8],[0,-4,8],[4,0,8],[0,4,8]
,[-8,-4,0],[-8,0,-4],[-8,4,0],[-8,0,4],[8,-4,0],[8,0,-4],[8,4,0],[8,0,4]
,[0,-8,-4],[-4,-8,0],[0,-8,4],[4,-8,0],[0,8,-4],[-4,8,0],[0,8,4],[4,8,0]) \
faces: #([1,3,2],[1,4,3],[5,6,7],[5,7,8],[9,11,10],[9,12,11],[13,14,15],[13,15,16],[17,19,18],[17,20,19],[21,22,23],[21,23,24]
,[1,2,17],[17,18,9],[9,10,1],[1,17,9],[10,22,4],[4,1,10],[10,11,22],[22,21,4],[11,5,23],[23,22,11],[11,12,5],[5,8,23]
,[12,18,6],[6,5,12],[12,9,18],[18,19,6],[8,16,24],[24,23,8],[16,15,24],[8,7,16],[15,3,21],[21,24,15],[15,14,3]
,[3,4,21],[14,20,2],[2,3,14],[14,13,20],[20,17,2],[13,7,19],[19,20,13],[13,16,7],[7,6,19]) \
wirecolor: [0,255,0]
m8.material = newmat[11]
rotate m8 45 [1,0,0]
rotate m8 90 [0,0,1]
move m8 [-37.5,0,0]
m9 = copy m8 wirecolor: [0,255,0]
m9.material = newmat[11]
m9.pivot = [-37.5,-13,-0.5]
rotate m9 72 [1,0,0]
m10 = copy m8 wirecolor: [0,255,0]
m10.material = newmat[11]
m10.pivot = [-37.5,-13,-0.5]
rotate m10 144 [1,0,0]
m11 = copy m8 wirecolor: [0,255,0]
m11.material = newmat[11]
m11.pivot = [-37.5,-13,-0.5]
rotate m11 18 [1,0,0]
rotate m11 90 [0,0,1]
rotate m11 180 [1,0,0]
rotate m11 -18 [1,0,0]
move m11 [0,7,24]
m12 = copy m9 wirecolor: [255,255,0]
m12.material = newmat[12]
m12.pivot = [-37.5,-23.5,15]
rotate m12 -120 [0,0,1]
attach m3 m4
attach m5 m7
attach m6 m13
attach m3 m5
attach m3 m6
attach m8 m9
attach m8 m11
attach m3 m10
attach m12 m14
attach m3 m12
--
for k = 1 to 2 do(
-- adenosine, cytosine, guanine, timidine, uracil, inosine, pseudouracil, dihydrouracil, methyl inosine, x-circles maximum, w-methyl-2-guanine, v-methyl-1-guanine
if (seq[k] == nucl[10]) then (ai = #(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1); axi = #(1,1,1,1,1,1,1,1); ayi = #(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1); nuclcol = nuclcolor[10]; nc=10)
if (seq[k] == nucl[1]) then (ai = #(0,0,0,1,1,1,1,1,1,1,1,1,0,1,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,1,0,0,0,0,0,0,0,1,0,1,0,1,0); nuclcol = nuclcolor[1]; nc=1)
if (seq[k] == nucl[2]) then (ai = #(0,0,0,1,1,1,1,1,1,1,0,1,0,0,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,1,0,0,0,0,0,1,0,1,0,1,0,0,0); nuclcol = nuclcolor[2]; nc=2)
if (seq[k] == nucl[3]) then (ai = #(0,1,0,1,1,1,1,1,1,1,1,1,0,1,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,0,0,0,0,0,0,0,0,1,0,1,0,1,0); nuclcol = nuclcolor[3]; nc=3)
if (seq[k] == nucl[4]) then (ai = #(0,0,0,1,1,1,1,1,1,1,0,1,0,0,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,1,0,0,0,0,0,1,0,1,0,1,0,0,0); nuclcol = nuclcolor[4]; nc=4)
if (seq[k] == nucl[5]) then (ai = #(0,0,0,1,1,1,1,1,1,1,0,1,0,0,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,1,0,0,0,0,0,1,0,1,0,1,0,0,0); nuclcol = nuclcolor[5]; nc=5)
if (seq[k] == nucl[6]) then (ai = #(0,0,0,1,1,1,1,1,1,1,1,1,0,1,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,1,0,0,0,0,0,0,0,1,0,1,0,1,0); nuclcol = nuclcolor[6]; nc=6)
if (seq[k] == nucl[7]) then (ai = #(0,0,0,1,1,1,1,1,1,1,0,1,0,0,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,1,0,0,0,0,0,1,0,1,0,1,0,0,0); nuclcol = nuclcolor[7]; nc=7)
if (seq[k] == nucl[8]) then (ai = #(0,0,0,1,1,1,1,1,1,1,0,1,0,0,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,1,0,0,0,0,0,1,0,1,0,1,0,0,0); nuclcol = nuclcolor[8]; nc=8)
if (seq[k] == nucl[9]) then (ai = #(0,0,0,1,1,1,1,1,1,1,1,1,0,1,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,1,0,0,0,0,0,0,0,1,0,1,0,1,0); nuclcol = nuclcolor[9]; nc=9)
--
element1 = box length:1 width:1 height:1  position:[0,0,-0.5] wirecolor: nuclcol
Converttomesh element1
for i = 1 to 3 do for j = 1 to 5 do (n = i + 3*(j-1)
if ai[n] > 0 then (aa[n] = box length:10 width:10 height:10 position:[10*(i-2),10*(j-5),10*0.5-10] wirecolor: nuclcol
select #(aa[n]); macros.run  "Modifier stack" "convert_to_Mesh"
attach element1 aa[n]
element1.material = newmat[nc]))
element2 = copy m8
element3 = copy m3
attach element1 element3
--
if ci[k] > 0 then (
--
if (complement[k] == nucl[10]) then (ai = #(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1); axi = #(1,1,1,1,1,1,1,1); ayi = #(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1); nuclcol = nuclcolor[10]; nc=10)
if (complement[k] == nucl[1]) then (ai = #(0,0,0,1,1,1,1,1,1,1,1,1,0,1,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,1,0,0,0,0,0,0,0,1,0,1,0,1,0); nuclcol = nuclcolor[1]; nc=1)
if (complement[k] == nucl[2]) then (ai = #(0,0,0,1,1,1,1,1,1,1,0,1,0,0,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,1,0,0,0,0,0,1,0,1,0,1,0,0,0); nuclcol = nuclcolor[2]; nc=2)
if (complement[k] == nucl[3]) then (ai = #(0,1,0,1,1,1,1,1,1,1,1,1,0,1,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,0,0,0,0,0,0,0,0,1,0,1,0,1,0); nuclcol = nuclcolor[3]; nc=3)
if (complement[k] == nucl[4]) then (ai = #(0,0,0,1,1,1,1,1,1,1,0,1,0,0,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,1,0,0,0,0,0,1,0,1,0,1,0,0,0); nuclcol = nuclcolor[4]; nc=4)
if (complement[k] == nucl[5]) then (ai = #(0,0,0,1,1,1,1,1,1,1,0,1,0,0,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,1,0,0,0,0,0,1,0,1,0,1,0,0,0); nuclcol = nuclcolor[5]; nc=5)
if (complement[k] == nucl[6]) then (ai = #(0,0,0,1,1,1,1,1,1,1,1,1,0,1,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,1,0,0,0,0,0,0,0,1,0,1,0,1,0); nuclcol = nuclcolor[6]; nc=6)
if (complement[k] == nucl[7]) then (ai = #(0,0,0,1,1,1,1,1,1,1,0,1,0,0,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,1,0,0,0,0,0,1,0,1,0,1,0,0,0); nuclcol = nuclcolor[7]; nc=7)
if (complement[k] == nucl[8]) then (ai = #(0,0,0,1,1,1,1,1,1,1,0,1,0,0,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,1,0,0,0,0,0,1,0,1,0,1,0,0,0); nuclcol = nuclcolor[8]; nc=8)
if (complement[k] == nucl[9]) then (ai = #(0,0,0,1,1,1,1,1,1,1,1,1,0,1,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,1,0,0,0,0,0,0,0,1,0,1,0,1,0); nuclcol = nuclcolor[9]; nc=9)
element4 = box length:1 width:1 height:1  position:[0,0,-0.5] wirecolor: nuclcol
Converttomesh element4
for i = 1 to 3 do for j = 1 to 5 do (n = i + 3*(j-1)
if ai[n] > 0 then (aa[n] = box length:10 width:10 height:10 position:[10*(i-2),10*(j-5),10*0.5-10] wirecolor: nuclcol
select #(aa[n]); macros.run  "Modifier stack" "convert_to_Mesh"
attach element4 aa[n]
element4.material = newmat[nc]))
element5 = copy m8
element6 = copy m3
attach element4 element6
attach element4 element5
element4.pivot = [0,0,0]
if ci[k] == 1 then (rotate element4 180 [1,0,0])
if ci[k] == 2 then (rotate element4 180 [1,0,0]; rotate element4 -90 [0,1,0]; move element4 [0,-20,0])
if ci[k] == 3 then (rotate element4 180 [1,0,0]; rotate element4 180 [0,1,0])
if ci[k] == 4 then (rotate element4 180 [1,0,0]; rotate element4 22.5 [0,1,0]; move element4 [0,10,0])
if ci[k] == 5 then (rotate element4 180 [1,0,0]; rotate element4 45 [0,1,0]; rotate element4 45 [0,0,1]; move element4 [-20,20,0])
if ci[k] == 6 then (rotate element4 180 [1,0,0]; rotate element4 -135 [0,1,0])
attach element1 element4)
--
if aminor[k] > 0 then (ai = #(0,0,0,1,1,1,1,1,1,1,1,1,0,1,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,1,0,0,0,0,0,0,0,1,0,1,0,1,0); nuclcol = nuclcolor[1]; nc=1
element7 = box length:0.5 width:0.5 height:0.5  position:[0,9.5,-0.25] wirecolor: nuclcol
Converttomesh element7
element7h = box length:1 width:1 height:1  position:[0,9.5,-0.5] wirecolor: [255,255,255]
Converttomesh element7h
element7h.material = newmat[13]
for i = 1 to 3 do for j = 1 to 5 do (n = i + 3*(j-1)
if ai[n] > 0 then (aa[n] = box length:10 width:10 height:10 position:[10*(i-2),10*(j-5),10*0.5-10] wirecolor: nuclcol
select #(aa[n]); macros.run  "Modifier stack" "convert_to_Mesh"
attach element7 aa[n]
element7.material = newmat[nc]))
element8 = copy m8
element8.material = newmat[3]
element9 = copy m3
element9.material = newmat[12]
attach element7 element8
attach element7 element9
attach element7 element7h
element7.pivot = [0,0,0]
rotate element7 -12 [0,1,0]
move element7 [15,-68,0]
attach element1 element7
)
--
h1 = box length:9.9 width:9.9 height:9.9  position:[0,10,-4.95] wirecolor: [255,255,255]
h0 = box length:9.9 width:9.9 height:9.9  position:[0,-10,-4.95] wirecolor: [255,255,255]
h2 = box length:9.9 width:9.9 height:9.9  position:[10,0,-4.95] wirecolor: [255,255,255]
h3 = box length:9.9 width:9.9 height:9.9  position:[-10,0,-4.95] wirecolor: [255,255,255]
Converttomesh h1
Converttomesh h0
Converttomesh h2
Converttomesh h3
attach h1 h2
attach h1 h3
attach h1 h0
h1.material = newmat[13]
attach element1 h1
-- first vector
gr1 = group #(element1,trnk)
gr1.pivot = [-37.451, -2.887, 14.138]
rotate gr1 anglecomp1[k] [0, -27.384, -9.84]
if k == 40 then (rotate gr1 -90 [0, 0, 1] ; rotate gr1 -20 [0, 1, 0] )
ungroup gr1
-- second vector
gr2 = #(element1, element2, trnk)
gr2.pivot = [-43.391, -10.855, 7.631]
rotate gr2 anglecomp2[k] [-11.880, -2.245, -8.094]
ungroup gr2
-- translation vector
attach trnk element1
attach trnk element2
move trnk [0,-50, 0]
trnk.pivot = [-60,0,0]
-- translation angles
rotate trnk 36 [0, 1, 0]
-- rotate trnk 35 [0, 0, 1]
)
--
delete m3
delete m8
trnk.rotation.controller[2].controller.value = 0
-- animate on
-- at time 100 trnk.rotation.controller[2].controller.value = 360