Subscribe.Ru : Новости лаборатории Наномир

Всё, что мне неинтересно,
я делаю по принуждению...

Учитывая, что в ближайшем эксперименте, который планируется на 29 марта 2011 года, рубиновый генератор заработает в режиме регенерации, события могут продолжить развиваться непредсказуемо...

Я уже писал, что я не борец, а исследователь и не собираюсь повторять подвиг Джордано Бруно. Меня устраивает судьба Коперника :). Мне не нужны деньги, слава, почёт и т.п. Мне нужны условия для научных исследований. Возможно, что Вы читаете последний натуральный выпуск рассылки "Новости лаборатории НАНОМИР".

Что это значит? Это значит, что после создания микроволновой энергетики рассылку может продолжить писать совсем другой Кушелев. Он будет писать её против своей воли, по принуждению. И там будет написано "то, что нужно" ;). Это, конечно, пессимистический прогноз, и желательно, чтобы он не сбылся. А как будет на самом деле, вы узнаете скоро, а может быть, и не очень. Помните, что говорил по ТВ Михаил Сергеевич Горбачёв сразу после катастрофы в Чернобыле?

Цитата: Советское руководство признало факт аварии лишь после того, как повышение уровня радиации, вызванное радиоактивными осадками, было отмечено в Польше и Швеции

Поэтому узнать о создании микроволновой энергетики Вы можете из тех же источников ;)

Все 10 рубиновых шариков прошли ОТК лаборатории НАНОМИР :)

В лабораторию НАНОМИР доставлен измерительный генератор 5-мм диапазона

Миша (xuma) передал в лабораторию Наномир измерительный генератор на диапазон 53.57-78.33 ГГц
Это соответствует диапазону длин волн: 3.83 ... 5.6 мм.

Таким образом, теперь в лаборатории НАНОМИР появляется возможность настраивать рубиновые резонаторы, которые имеют диаметр от ~4 до 5.5 мм. Этот размер удобен тем, что рубиновые шарики фирм Swiss Jewel и Meller Optics такого размера стоят "копейки", в частности, шарики фирмы Swiss Jewel диаметром 4 мм стоят 2 доллара, если покупать 1000 штук.

Это в ~30 раз дешевле шариков диаметром 10 мм, которые инвестор лаборатории НАНОМИР, Вячеслав Васильев, приобрёл для ближайшего эксперимента в Дубне.

Параллельно с экспериментами в Дубне начинается подготовка к включению рубиновых шариков диаметром 4 ... 5.5 мм от электронно-лучевой сварки.

17 и 18 февраля 2011 года был проведён мощный эксперимент в Дубне, целью которого было уточнить рабочую частоту генератора. Я не был допущен к этому эксперименту. Видеозапись результатов эксперимента получил в Дубне 24 марта 2011 года.

"...и не удивляйтесь" (М.С.Горбачев), хочу напомнить, что приблизительно через неделю после включения рубинового генератора, можно уже летать на браслетах, а через месяц - на "летающих тарелках"...

Напомню, как выглядит приспособление, где размещались 6 резонаторов из ИАГ-Cr (зелёного цвета) в оправке из плотного пенопласта.

Эскиз оправки был нарисован во время обсуждения предстоящего эксперимента в Дубне.

Единственный пасаметр я увёз в Дубну, а в Дмитрове мне чудом удалось купить этот микрометр. В магазине "Инструменты" мне сказали, что микрометры больше не пользуются спросом...

N N диаметр частота частота
6 1 11.305 29.88 29.94 Самый мелкий шарик
5 2 11.313 29.86
4 3 11.315 29.88
3 4 11.317 29.87
- 5 11.318 29.88
- 6 11.319 29.86 29.875
2 7 11.333 29.79 29.85
1 8 11.347 29.75 29.81 Самый крупный шарик

В эксперименте резонировал шарик N2 (по нумерации в Дубне), который я сделал седьмым. Его резонансная частота 29.85 (по Дубне) ближе всех к резонансной частоте генератора 29.86 (по Дубне).

При диаметре 10.00 мм и частоте 29.6...29.9 (при охлаждении) число узлов стоячей волны = 20.

Материал с форума лаборатории НАНОМИР: 2011-03-25

Из ускорителя вылетает пучок ускоренных частиц и проходит через замедляющую систему. В результате из замедляющей системы выходит когерентное излучение с длиной волны ~1 см мощностью 100 мегаватт. Этот луч проходит в просвете между шариками и возбуждает в них различные колебательные моды.

В этом режиме возбуждается именно та колебательная мода, на которой я планирую включить рубиновый генератор. Это мода EH11. 11 стоячих волн по экватору шарика. 22 узла, 22 пучности стоячей волны. Это при диаметре 11.3 мм. При диаметре 10.00 мм будет возбуждаться мода EH10. 10 стоячих волн по экватору шарика. 20 узлов, 20 пучностей стоячей волны. Есть небольшая вероятность, что я не угадал моду, но это - дело поправимое. По-хорошему нужно смоделировать резонатор в разных режимах и убедиться, что рабочая мода именно эта, но современного компьютера с ОЗУ 8...16 Gb у меня нет, поэтому "идём по СКП" (из Аватара).

http://img-fotki.yandex.ru/get/5905/nanoworld2003.18/0_48868_7c41c91a_orig.gif

Те же видеокадры режима возбуждения в 5 раз медленнее.

При сильном возбуждении резонаторов вдоль пучностей волны бегут миниатюрные молнии. Приблизительно так и работают источники энергии инопланетян. Только в автономном режиме. Для достижения автономного режима нужно заменить одиночные шарики на систему из 4-х рубиновых шариков одинакового диаметра. Хотя есть подозрение, что будут работать и системы из шариков с диаметром, скажем 10-11-10-11 мм

Изучая различные бисерные структуры я нашёл изображение источников энергии регулируемой мощности. Вот как происходит процесс регулирования мощности рубиновых генераторов инопланетян:

16:23:12 ‹Zoldrax› Да, но цвет-то воздушного разряда...
16:26:21 ‹kushelev› Цвет в темноте искаженный. В 37 режимах были и разряды, и свечение шариков
16:27:08 ‹kushelev› Внимательно посмотрите по ссылке: http://img-fotki.yandex.ru/get/5004/nanoworld2003.18/0_487d7_70d27fe2_orig.gif
16:27:12 ‹Zoldrax› Т.е., если светится кристалл зеленым, а не голубым, то это обнадеживает.
16:28:30 ‹kushelev› Кристалл светится зеленым, но при такой освещенности цвет камера не передает
16:28:44 ‹kushelev› По ссылке вообще нет разрядов

Готовим оправку для рубиновых и гранатовых резонаторов.

s1 = sphere radius:5 segs:20 position:[5,5,0] wirecolor:[255,0,0]
s2 = sphere radius:5 segs:20 position:[5,-5,0]
s3 = sphere radius:5 segs:20 position:[-5,5,0]
s4 = sphere radius:5 segs:20 position:[-5,-5,0]
select #(s1,s2,s3,s4)
macros.run "Modifier stack" "convert_to_Mesh"
attach s1 s2
attach s3 s4
attach s1 s3
s1.pivot = [0,0,0]
rotate s1 45 [0,0,1]
move s1 [27.07,0,0]
s1.pivot = [0,0,0]
s2 = copy s1 wirecolor:[0,255,0]
s2.pivot = [0,0,0]
rotate s2 90 [0,0,1]
s3 = copy s1 wirecolor:[255,0,0]
s3.pivot = [0,0,0]
rotate s3 180 [0,0,1]
s4 = copy s1 wirecolor:[0,255,0]
s4.pivot = [0,0,0]
rotate s4 270 [0,0,1]
t1 = tube radius1:20 radius2:60 height:8 sides:80 position:[0,0,0] wirecolor:[200,200,200]

Вячеслав Васильев: Александр Юрьевич! Пожалуйста, свяжитесь со мной сегодня. На предмет поручений Владимиру по закупке необходимых Вам материалов. Я в Москве всего день, так что забегаюсь, а решить этот вопрос надо, чтобы не затягивать.

Кушелев: Доброго времени суток! Пытался связаться с Вами по скайпу.
Телефоны работают только на приём звонков:

[13:08:44] sysxuma:

Для каких задач на данном этапе времени требуется финансирование, помимо мощного компьютера?
[13:13:58] Кушелев Александр Юрьевич: В рассылке расписано. Вот здесь: http://subscribe.ru/archive/science.news.nanoworldnews/201103/16203414.html Читать после фразы: Подготовка к изготовлению рубинового генератора (и не только)
[13:17:10] Кушелев Александр Юрьевич: Учитывая, что до начала эксперимента в Дубне остаётся полтора рабочих дня, времени на составления всяческих бумаг просто нет. Если у меня будут деньги или кто-то поедет со мной закупать необходимое для эксперимента, то успеть ещё можно. Если дотянуть до пон., то с ближайшим экспериментом "не судьба"...
[13:21:34] sysxuma: с ближайшим экспериментов скорее всего пролетаем...
сколько необходимо и достаточно денег для изготовления рубинового генератора, хотя бы примерно для ориентира
[13:25:55] Кушелев Александр Юрьевич: Для изготовления не хватает абразивов, игл, двигателей, микрометров и др. мелочей. Всё это можно успеть купить до пон., если сегодня у меня будет, скажем, от 10 000 рублей или больше. Гарантии, конечно, нет, но вероятность большая.

[13:34:07] sysxuma: сегодня, боюсь, что ничего не выйдет, если же работник всё-таки потребуется, то он может в нагрузку с компьютером привезти еще и денег для подготовки рубинового генератора

ближайший день, в который он может отправиться, это воскресенье.
[13:47:20] Кушелев Александр Юрьевич: Если в воскр., то теоретически успеваем

[13:52:15] sysxuma: он выедет на машине часа в 3 и в 7-8 вечера только появится в Москоу сити
[13:52:49] Кушелев Александр Юрьевич: Годится

Фотоотчёт об экскурсии в г.Тулу, к Мартынову

Виктория Соколик: Это правильное желание. Я тоже понимаю необходимость перенести в виртуальное пространство хотя бы 3D Max, кольцегранную модель тРНК аланина, которую сейчас доделываю из реальных колечек. Однако, написание скрипта - это не менее трудоёмкая работа, чем связывание колечек. Хотя разновидностей азотистых оснований нуклеиновых кислот и меньше, чем аминокислот в белке. Нам бы найти продвинутого математика и программиста в команду, поскольку вычислять двухгранные углы поворота, да ещё и их синхронное изменение, не то что невозможно для биохимика, а слишком трудоёмко в силу скудных математических навыков

Plan пишет: Что это даёт? Какой смысл от этой модели, и какую пользу эта модель может принести для человечества, или хотя бы для Вас лично? Суть какая? Смотреть на картинку и радоваться как сине жёлтые и желто красные колечки соединились и крутятся из сторону в сторону? Что даст это? Какой практический смысл всего этого?...

Виктория Соколик: Дело в том, что виртуальная кольцегранная модель рибозы и других сложных органических молекул важна, нова и значима для узкого круга специалистов, которые с её помощью могут обосновать закономерности кодирования и трансляции генома, предусмотреть механизм создания новых синтетических белков с заданными свойствами и функциями и многое, многое другое. Для остальной части человечества данная модель настолько же значима в повседневной жизни, как для Вас, например, интеграл. Как часто Вы нуждаетесь в интеграле и какая Вам лично от него польза? А те ученые, которые изобрели для Вас мобильники, интернет, компьютер и т. д., вряд ли смогли бы обойтись без интеграла.

Кушелев: Пока у меня есть свободные дни перед началом подготовки эксперимента в Дубне, я решил создать скрипт "Пикотехнология ДНК/РНК". Спиральная часть тРНК составляет около 75%. Её можно собрать из ~15 000 пластмассовых колец. Нестандартные участки тРНК ~5000 колец я уже собрал.

Скрипт "Пикотех ДНК/РНК" сможет построить спиральные участки тРНК автоматически, т.е. по матрице нулевых композиционных углов. Нестандартную часть тРНК я смогу задать парами композиционных углов по пластмассовой модели. В результате все специалисты, которых интересует структура тРНК с точностью до пикометра, смогут скачать скрипт и изучать структуру на своём компьютере.

Себе лично я сэкономлю стоимость 20 000 пластмассовых колец и 30 000 минут работы по сборке пластмассовой модели тРНК. Это 30 000 / 60 = 500 часов моей работы. Учитывая мою квалификацию (от 200 у.е. в час) экономия будет не меньше 500 * 200 = 100 000 у.е.

А специалисты по структуре ДНК/РНК получат бесценный подарок, т.к. в настоящее время они пользуются моделями, которые имеют в 1000 раз ниже точность...

Оценить новые высокие технологии, в частности пикотехнологию, могут лишь единицы, а остальные смогут это понять только через десятилетия...

Виктория Соколик: А.Ю., какой же Вы молодец. Я не знала с какой стороны взяться за построение виртуальной модели тРНК, не вручную же строить 90 нуклеотидов, а Вы за два дня скрипт написали. Отличный результат, поздравляю

Кушелев: Продолжим создание скрипта. Для этого определим вектора, вокруг которых будут вращаться элементы виртуального пикотехнологического ДНК-конструктора.

Запускаем 3DS Max, запускаем скрипт, который пока строит лишь один из 9 нуклеотидов на выбор. Далее выделяем два кольцевых элемента:

Первый вектор, вокруг которого будет вращаться азотистое основание в обрамлении рибозы, соединяет центры этих колец. Сейчас я расскажу, как узнать координаты этих центров...

Вы видите список кольцевых элементов. Выделенные элементы отмечены красными стрелками. Инвертируем выделение (зелёная стрелка).

После инверсии выделения удаляем все кольцевые элементы (нажатием на клавишу Delete), кроме двух колец, которые после инверсии оказались невыделенными.

Далее экспортируем объект в ASCII Scene Export формат (.ase): File / Export / .ase

Далее открываем сохранённый .ase файл в текстовом редакторе и находим строчки:

и для 46-ого кольцевых элементов соответственно.

Это и есть начало и конец первого вектора. Вычитаем координаты центра 34-го кольца из координат центра 46-го кольца.

[-19.632, -33.750, 13.980] - [-43.391, -19.983, 4.351] = [23.759, -13.767, 9.629]

Проверим, как будет поворачиваться азотистое основание в обрамлении рибозы вокруг первого вектора. Для этого допишем пару строк в скрипте:

При повороте азотистого основания в обрамлении рибозы на 120 градусов вокруг первого вектора. Видно, что кольцевые элементы заняли соседние позиции, т.е. поворот произведён правильно. Модель не развалилась

Теперь определим координаты второго вектора, вокруг которого будут вращаться оба элемента виртуального пикотехнологического ДНК / РНК-конструктора одновременно.

*TM_POS -43.39056 -10.85528 7.63071 Torus07
*TM_POS -31.51117 -8.61048 15.72521 Torus03

Теперь нужно запрограммировать преобразование, которое перемещает выходной элемент n-ого нуклеотида в позицию входного элемента (n+1)-ого нуклеотида.

*TM_POS -31.51117 -8.61048 15.72521 Torus03 - начало вектора трансляции
*TM_POS -26.00000 -58.00000 -10.00000 Torus97 - конец вектора трансляции

Проверяем, попадёт ли центр кольцевого элемента фосфатной группы (начало вектора трансляции) в центр кольцевого элемента OH-группы рибозы? (в конец вектора трансляции)

Да, действительно попадает. Значит вектор трансляции определён правильно. Теперь осталось определить начальные углы трансляции, т.е. те, что дадут классическую спираль ДНК / РНК. При это точка A(n+1) должна совместиться с точкой A(n).

p = #(); p1 = #(); p2 = #(); aa = #(); ax = #(); ay = #(); r = #(); nuclcol = #(); gp = #(); gn = #(); gg = #()
-- 1 a - adenosine
-- 2 c - cytosine
-- 3 g - guanine
-- 4 t - timidine
-- 5 u - uracil
-- 6 i - inosine
-- 7 p - pseudouracil
-- 8 d - dihydrouracil
-- 9 m - methyl inosine
-- 10 x - circles maximum
-- 11 w - methyl-2-guanine
-- 12 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","c","a","g","g","c","c","u","u","a","g","c","p","t","g","g","c","c"
,"u","c","d","g","g","a","g","a","g","g","g","p","m","c","g","i","u","u","c","c","c","u","c","w"
,"c","g","c","g","a","d","g","g","c","d","g","a","u","g","c","g","v","u","g","u","g","c","g","g","g")
--*****************************************************************************************************************
px = #(4.2,-4.2,4.2,-4.2,-4.2,4.2,-4.2,4.2)
py = #(-4.2,-4.2,4.2,4.2,4.2,4.2,-4.2,-4.2)
pz = #(4.2,4.2,4.2,4.2,-4.2,-4.2,-4.2,-4.2)
pa = #(35.27,35.27,-35.27,-35.27,35.27,35.27,-35.27,-35.27)
pb = #(45,-45,45,-45,45,-45,45,-45)
-- PH4
-- pindex = #(1,0,0,1,0,1,1,0,1,1,1,1,1,1,0,1,1,1,1,1,1,0,1,1,0,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,0,0,0,0,0,0,0,0)
-- HP3
-- pindex = #(1,0,0,1,0,1,1,0,1,1,1,1,1,1,0,1,1,1,1,1,1,0,1,1,0,1,1,1,1,1,1,1,1,1,1,0,1,0,1,1,1,0,1,1,0,1,1,1)
-- pindex for second vector
-- pindex = #(1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,0,1,1,0,1,1,1,1,1,1,1,1,1,1,0,1,0,1,1,1,0,1,1,0,1,1,1)
-- PH2
pindex = #(1,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,1,1,0,1,1,1,1,1,1,1,1,1,1,0,1,0,1,1,1,0,1,1,0,1,1,1)
-- pindex for translation vector
-- pindex = #(1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,0,1,1,0,1,1,1,1,1,1,1,1,1,1,0,1,0,1,1,1,0,1,1,0,1,1,1)
for k = 2 to 2 do(
for ll = 1 to 8 do(p[ll] = torus radius1:4.8 radius2:0.4 segs:20 sides:12 position: [px[ll],py[ll],pz[ll]] wirecolor:[0,200,0]
rotate p[ll] pa[ll] [1,0,0]
rotate p[ll] pb[ll] [0,1,0])
for ll = 9 to 16 do(p[ll] = torus radius1:4.8 radius2:0.4 segs:20 sides:12 position: [px[ll-8],py[ll-8],pz[ll-8]] wirecolor:[0,200,0]
rotate p[ll] pa[ll-8] [1,0,0]
rotate p[ll] pb[ll-8] [0,1,0])
g1 = group #(p[09],p[10],p[11],p[12],p[13],p[14],p[15],p[16])
rotate g1 60 [1,1,1]
move g1 [8.4,8.4,8.4]
ungroup g1
for ll = 17 to 24 do(p[ll] = torus radius1:4.8 radius2:0.4 segs:20 sides:12 position: [px[ll-16],py[ll-16],pz[ll-16]] wirecolor:[0,200,0]
rotate p[ll] pa[ll-16] [1,0,0]
rotate p[ll] pb[ll-16] [0,1,0])
g2 = group #(p[17],p[18],p[19],p[20],p[21],p[22],p[23],p[24])
rotate g2 60 [-1,-1,1]
move g2 [-8.4,-8.4,8.4]
ungroup g2
for ll = 25 to 32 do(p[ll] = torus radius1:4.8 radius2:0.4 segs:20 sides:12 position: [px[ll-24],py[ll-24],pz[ll-24]] wirecolor:[0,200,0]
rotate p[ll] pa[ll-24] [1,0,0]
rotate p[ll] pb[ll-24] [0,1,0])
g3 = group #(p[25],p[26],p[27],p[28],p[29],p[30],p[31],p[32])
rotate g3 60 [-1,1,-1]
move g3 [-8.4,8.4,-8.4]
ungroup g3
for ll = 33 to 40 do(p[ll] = torus radius1:4.8 radius2:0.4 segs:20 sides:12 position: [px[ll-32],py[ll-32],pz[ll-32]] wirecolor:[0,150,0]
rotate p[ll] pa[ll-32] [1,0,0]
rotate p[ll] pb[ll-32] [0,1,0])
g4 = group #(p[33],p[34],p[35],p[36],p[37],p[38],p[39],p[40])
rotate g4 60 [1,-1,-1]
move g4 [8.4,-8.4,-8.4]
ungroup g4
for ll = 41 to 48 do(p[ll] = torus radius1:4.8 radius2:0.4 segs:20 sides:12 position: [px[ll-40],py[ll-40],pz[ll-40]] wirecolor:[200,200,1]
rotate p[ll] pa[ll-40] [1,0,0]
rotate p[ll] pb[ll-40] [0,1,0])
g5 = group #(p[41],p[42],p[43],p[44],p[45],p[46],p[47],p[48])
rotate g5 60 [1,-1,-1]
rotate g5 60 [-14,-2.8,-2.8]
move g5 [8.4,-8.4,-8.4]
move g5 [14,2.8,2.8]
ungroup g5
for ll = 1 to 48 do(if pindex[ll] < 1 then (delete p[ll]))
g6 = group $tor*
rotate g6 -45 [0,0,1]
rotate g6 -15.5 [1,0,0]
move g6 [-39.5,-14.5,13]
ungroup g6
-- rybose
x = #(6,-6,0,0,0,0,15,-15,23.5,-23.5,25,-25,20,-20,19,-19,19,-19,22.5,-22.5,22.5,-22.5,10,-10,10,-10,15.5,-15.5,15.5,-15.5,0,6,-6,0,-5.5,5.5,0,-23.7,-16.5,-26,-23.5,-18,-15.5,-26)
y = #(-58,-58,-58,-58,-49,-49,-55,-55,-47,-47,-37.5,-37.5,-26.5,-26.5,-50.5,-50.5,-50.5,-50.5,-32,-32,-32,-32,-47,-47,-47,-47,-38.5,-38.5,-38.5,-38.5,-55,-63,-63,-69,-60.5

,-60.5,-66,-55.7,-48,-58,-48,-58,-56,-50)
z = #(0,0,6,-6,7,-7,0,0,0,0,0,0,0,0,6,6,-6,-6,6,6,-6,-6,7,7,-7,-7,7,7,-7,-7,-13.5,-8.5,-8.5,-10.5,-16,-16,-18,-17.5,-13,-10,-15.5,-8,-15.5,-8)
a = #(90,90,30,-30,-20,20,90,90,90,90,90,90,90,90,30,30,-30,-30,30,30,-30,-30,-20,-20,20,20,-20,-20,20,20,75,50,50,75,50,50,-30,-30,80,80,60,60,60,60)
b = #(45,-45,0,0,0,0,-5,5,95,-95,65,-65,-15,15,45,-45,45,-45,120,-120,120,-120,30,-30,30,-30,90,-90,90,-90,0,75,-75,0,75,-75,0,-45,-45,-45,30,30,235,235)
ri = #(1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1)
-- ri for translation vector
-- ri = #(1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)
-- azotis
-- x - circles maximum
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])
-- a
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])
-- c
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])
-- g
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])
-- t
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])
-- u
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])
-- i
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])
-- p
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])
-- d
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])
-- m
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])
--
for i = 1 to 3 do for j = 1 to 5 do (
n = i + 3*(j-1)
if ai[n] > 0 then (aa[n] = torus radius1:4.8 radius2:0.4 segs:20 sides:12 position:[10*(i-2),10*(j-5),10*0.5] wirecolor: nuclcol
aa[n+12]=copy aa[n] wirecolor: nuclcol
move aa[n] [0,0,-10]))
for i = 1 to 2 do for j = 1 to 4 do (
m = i + 2*(j-1)
if axi[m] > 0 then (ax[m] = torus radius1:4.8 radius2:0.4 segs:20 sides:12 position:[10*(3*(i-1.5)),10*(j-4),0] wirecolor: nuclcol
rotate ax[m] 90 [0,1,0]))
for i = 1 to 3 do for j = 1 to 5 do (
m = i + 3*(j-1)
if ayi[m] > 0 then (ay[m] = torus radius1:4.8 radius2:0.4 segs:20 sides:12 position:[10*(i-2),10*(j-4.5),0] wirecolor: nuclcol
rotate ay[m] 90 [1,0,0]))
-- rybose
for l = 1 to 44 do(
if ri[l] > 0 then (r[l] = torus radius1:4.8 radius2:0.4 segs:20 sides:12 position: [x[l],y[l],z[l]] wirecolor: [200,200,0]
rotate r[l] a[l] [1,0,0]
rotate r[l] b[l] [0,0,1]
))
gp[k] = group #(p[01],p[04],p[06],p[07],p[17],p[18],p[19],p[20],p[21],p[23],p[24],p[26],p[27],p[28],p[29],p[30],p[31],p[32])
gn[k] = group $tor*
-- first vector
gn[k].pivot = [-19.632, -33.750, 13.980]
rotate gn[k] 0 [23.759, -13.767, 9.629]
gg[k] = group #(gp[k],gn[k])
-- second vector
gg[k].pivot = [-43.391, -10.855, 7.631]
rotate gg[k] 0 [-11.880, -2.245, -8.094]
-- translation vector
move gg[k] [5.511 ,-49.39, -25.725]
gg[k].pivot = [-26, -58, -10]
-- translation angles
rotate gg[k] 50 [0, 1, 0]
rotate gg[k] 35 [0, 0, 1])

p = #(); p1 = #(); p2 = #(); aa = #(); ax = #(); ay = #(); r = #(); nuclcol = #(); gp = #(); gn = #(); gg = #()
element0 = #(); element1 = #(); element2 = #()
-- 1 a - adenosine
-- 2 c - cytosine
-- 3 g - guanine
-- 4 t - timidine
-- 5 u - uracil
-- 6 i - inosine
-- 7 p - pseudouracil
-- 8 d - dihydrouracil
-- 9 m - methyl inosine
-- 10 x - circles maximum
-- 11 w - methyl-2-guanine
-- 12 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","c","a","g","g","c","c","u","u","a","g","c","p","t","g","g","c","c"
,"u","c","d","g","g","a","g","a","g","g","g","p","m","c","g","i","u","u","c","c","c","u","c","w"
,"c","g","c","g","a","d","g","g","c","d","g","a","u","g","c","g","v","u","g","u","g","c","g","g","g")
--*****************************************************************************************************************
px = #(4.2,-4.2,4.2,-4.2,-4.2,4.2,-4.2,4.2)
py = #(-4.2,-4.2,4.2,4.2,4.2,4.2,-4.2,-4.2)
pz = #(4.2,4.2,4.2,4.2,-4.2,-4.2,-4.2,-4.2)
pa = #(35.27,35.27,-35.27,-35.27,35.27,35.27,-35.27,-35.27)
pb = #(45,-45,45,-45,45,-45,45,-45)
-- PH2
-- pindex = #(1,0,0,1,0,1,1,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,0,1,1, 0,1,1,1,1,1,1,1, 1,1,1,0,1,0,1,1, 1,0,1,1,0,1,1,1)
pindex = #(1,0,0,1,0,1,1,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,0,1,1, 0,1,1,1,1,1,1,1, 1,1,1,0,1,0,1,1, 1,0,1,1,0,1,1,1)
pindex2 = #(1,0,0,1,0,1,1,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,0,1,1, 0,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0)
for k = 1 to 1 do(
for ll = 1 to 8 do(if pindex[ll] > 0 then (p[ll] = torus radius1:4.8 radius2:0.4 segs:20 sides:12 position: [px[ll],py[ll],pz[ll]] wirecolor:[0,200,0]
rotate p[ll] pa[ll] [1,0,0]
rotate p[ll] pb[ll] [0,1,0]))
g0 = group #(p[01],p[04],p[06],p[07])
for ll = 17 to 24 do(if pindex[ll] > 0 then (p[ll] = torus radius1:4.8 radius2:0.4 segs:20 sides:12 position: [px[ll-16],py[ll-16],pz[ll-16]] wirecolor:[0,200,0]
rotate p[ll] pa[ll-16] [1,0,0]
rotate p[ll] pb[ll-16] [0,1,0]))
g2 = group #(p[17],p[18],p[19],p[20],p[21],p[23],p[24])
rotate g2 60 [-1,-1,1]
move g2 [-8.4,-8.4,8.4]
for ll = 25 to 32 do(if pindex[ll] > 0 then (p[ll] = torus radius1:4.8 radius2:0.4 segs:20 sides:12 position: [px[ll-24],py[ll-24],pz[ll-24]] wirecolor:[0,200,0]
rotate p[ll] pa[ll-24] [1,0,0]
rotate p[ll] pb[ll-24] [0,1,0]))
g3 = group #(p[26],p[27],p[28],p[29],p[30],p[31],p[32])
rotate g3 60 [-1,1,-1]
move g3 [-8.4,8.4,-8.4]
g6 = group #(g0,g2,g3)
g6.pivot = [0,0,0]
rotate g6 -45 [0,0,1]
rotate g6 -15.5 [1,0,0]
move g6 [-37.5,-9.5,11.5]
ungroup g6
ungroup g3
ungroup g2
ungroup g0
select #(p[01],p[04],p[06],p[07],p[17],p[18],p[19],p[20],p[21],p[23],p[24],p[26],p[27],p[28],p[29],p[30],p[31],p[32])
-- select $tor*
macros.run "Modifier stack" "convert_to_Mesh"
element2[k] = copy p[1] wirecolor: [0,200,0]
for ll = 2 to 32 do(if pindex2[ll] > 0 then (attach element2[k] p[ll]))
delete p[1]
--
-- rybose
x = #(6,-6,0,0,0,0,15,-15,23.5,-23.5,25,-25,20,-20,19,-19,19,-19,22.5,-22.5,22.5,-22.5,10,-10,10,-10,15.5,-15.5,15.5,-15.5,0,6,-6,0,-5.5,5.5,0,-23.7,-16.5,-26,-23.5

,-21.611,-23.59,-21.611,-19.631,-29.53,-27.55,-43.389,-43.39,-37.45,-37.45,-31.51,-31.51,-37.45,-37.45)
y = #(-58,-58,-58,-58,-49,-49,-55,-55,-47,-47,-37.5,-37.5,-26.5,-26.5,-50.5,-50.5,-50.5,-50.5,-32,-32,-32,-32,-47,-47,-47,-47,-38.5,-38.5,-38.5,-38.5,-55,-63,-63,-69,-60.5

,-32.563,-33.747,-34.857,-36.042,-26.864,-19.981,-23.46,-16.576,-19.981,-26.864,-23.385,-30.268)
z = #(0,0,6,-6,7,-7,0,0,0,0,0,0,0,0,6,6,-6,-6,6,6,-6,-6,7,7,-7,-7,7,7,-7,-7,-13.5,-8.5,-8.5,-10.5,-16,-16,-18,-17.5,-13,-10,-15.5,-8,-15.5,-8,17.242,9.165,15.637,7.56,5.902

,4.35,9.165,-0.517,4.297)
a = #(90,90,30,-30,-20,20,90,90,90,90,90,90,90,90,30,30,-30,-30,30,30,-30,-30,-20,-20,20,20,-20,-20,20,20,75,50,50,75,50,50,-30,-30,80,80,60,60,60,60,40,70

,-71.5,71.5,71.5,0,-71.5)
b = #(45,-45,0,0,0,0,-5,5,95,-95,65,-65,-15,15,45,-45,45,-45,120,-120,120,-120,30,-30,30,-30,90,-90,90,-90,0,75,-75,0,75,-75,0,-45,-45,-45,30,30,235,235

,60,-40,-18,-60,60,0,0,-60,60,0,0)
ri = #(1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,0,1,1,0,1,1,1,1,1,1,0,1,0,1,1)
for l = 1 to 60 do(
if ri[l] > 0 then (r[l] = torus radius1:4.8 radius2:0.4 segs:20 sides:12 position: [x[l],y[l],z[l]] wirecolor: [200,200,0]
rotate r[l] a[l] [1,0,0]
rotate r[l] b[l] [0,0,1]
))
select #(r[1],r[2],r[3],r[5],r[6],r[7],r[8],r[9],r[10],r[11],r[12],r[13],r[14],r[15],r[16],r[17],r[19]
,r[21],r[22],r[23],r[24],r[25],r[26],r[27],r[28],r[29],r[30],r[31],r[32],r[33],r[34],r[35],r[36],r[37],r[38],r[39]
,r[41],r[42],r[43],r[44],r[45],r[47],r[48],r[50],r[51],r[52],r[53],r[54],r[55],r[57],r[59],r[60])
macros.run "Modifier stack" "convert_to_Mesh"
element1[k] = copy r[1] wirecolor: [200,200,0]
for ll = 2 to 60 do(if ri[ll] > 0 then (attach element1[k] r[ll]))
delete r[1]
--
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])
-- a
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])
-- c
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])
-- g
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])
-- t
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])
-- u
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])
-- i
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])
-- p
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])
-- d
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])
-- m
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])
--
for i = 1 to 3 do for j = 1 to 5 do (
n = i + 3*(j-1)
if ai[n] > 0 then (aa[n] = torus radius1:4.8 radius2:0.4 segs:20 sides:12 position:[10*(i-2),10*(j-5),10*0.5] wirecolor: nuclcol
aa[n+12]=copy aa[n] wirecolor: nuclcol
move aa[n] [0,0,-10]))
for i = 1 to 2 do for j = 1 to 4 do (
m = i + 2*(j-1)
if axi[m] > 0 then (ax[m] = torus radius1:4.8 radius2:0.4 segs:20 sides:12 position:[10*(3*(i-1.5)),10*(j-4),0] wirecolor: nuclcol
rotate ax[m] 90 [0,1,0]))
for i = 1 to 3 do for j = 1 to 5 do (
m = i + 3*(j-1)
if ayi[m] > 0 then (ay[m] = torus radius1:4.8 radius2:0.4 segs:20 sides:12 position:[10*(i-2),10*(j-4.5),0] wirecolor: nuclcol
rotate ay[m] 90 [1,0,0])))

Программист мог бы дописать программу буквально за полчаса, т.к. нужно всего лишь автоматизировать процесс наращивания структуры тРНК. Поштучно добавлять нуклеотиды, т.е. достраивать модель я уже могу, используя функцию merge.

"Летающие тарелки" можно создать в качестве реквизита к продолжению фильма "Аватар"

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

Эликсир "вечной молодости" создадут на Пандоре?

О том, как создать эликсир "вечной молодости", я написал в газете "Дмитровские известия" ещё в сентябре 2010 года. Прошло более 7 месяцев. Если я не ошибаюсь (а как хотелось бы ошибиться!), на нашей планете люди готовы и дальше умирать от несчастной старости. Если удастся заинтересовать Джеймса Кэмерона сценариями для продолжения фильма "Аватар", то в качестве реквизита ко второй серии будут созданы настоящие "летающие тарелки", а эликсир "вечной молодости" можно будет создать прямо на Пандоре, откуда его будут привозить на нашу планету с межзвёздной наценкой ;)

Но если лично Вас интересует создание отечественного эликсира "вечной молодости", то напомню, что ~90% от затрат по проведению эксперимента Золдракса / Zoldrax берёт на себя Институт геронтологии НАМН Украины, а инвесторам предлагается оплатить только лабораторных животных, корм для мышек и расходные материалы для операций и анализов, т.е. в общей сложности нужно набрать 2.5 тыс. долл. И тот, кто внесёт часть этой суммы, сможет после создания эликсира "вечной молодости" не только омолодиться, но и участвовать в продаже эликсира. Напомню, что только экономия на выплате пенсий в масштабах планеты превысит валовой продукт России, т.е. 2.5 триллиона долл. в месяц.

Учитывая, что настоящие "летающие тарелки" могут быть изготовлены в качестве декораций к очередной серии фильма "Аватар", первыми на нашу настоящую Луну могут высадиться ... аборигены с Пандоры! Естественно, что после Пандоры сделать компьютерную графику "на Луне" - не проблема, но сенсацией может стать реальная съёмка фильма на реальной Луне, куда ещё (к сожалению) не ступала нога человека. При этом Джеймс Кэмерон сможет спасти честь Америки (или хотя бы её часть), правительство которой уже 40 лет обманывает народы всех стран, продолжая лгать о пилотируемых полётах к Луне и высадке людей на Луну.

Те, кто смотрел фильм "Аватар", могли заметить необычные виды животных, например нечто типа шакалов с лапами, строение которых совпадает со строением скелета многорукого Шивы, запечатлённого в частности в скульптурах храмовых комплексов в Индии.

Учитывая, что жители Пандоры в космос не летали, можно сделать вывод, что животный мир Пандоры натуральный, т.е. он должен был появиться в процессе эволюции на этой планете. В таком случае все млекопитающие должны иметь сходное строение скелета, т.е. у аборигенов Пандоры должны быть руки, как у многорукого Шивы...

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

Кстати, неплохая идея для второй серии "Аватара"

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

Настоящие многорукие аборигены Пандоры могли быть потомками высокоразвитых инопланетян. У них могла остаться аппаратура инопланетян, которую можно показать во второй серии фильма "Аватар". А в третьей серии можно показать и самих инопланетян в эпизоде "Третье пришествие".

Изюминка сценария заключается в том, что бюджет фильма "Аватар" позволит в качестве декораций создать настоящие "летающие тарелки", трезубцы, ваджры, боевые жилеты-катафоты...

Прикиньте, какой триумф будет у фильма, если там будет показана действующая техника инопланетян, созданная в качестве декораций к фильму?

А на выходе из зрительного зала в обмен на стереоочки зрители будут получать флакончики с эликсиром "вечной молодости", которых должно хватить до выхода следующей серии фильма "Аватар". Приходите смотреть следующую серию, а Вам уже не 90 лет, а 30...

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

Эротическая маскировка инопланетных звездолётов...

Изучая "Храмовый комплекс Кхаджурахо / Khajurahpo" я обнаружил явные признаки мегалитических объектов. Это означает, что скульптуры изначально были изготовлены инопланетянами. Зачем, спрашивается, изображать в т.ч. эротические сцены на поверхности, скажем, звездолёта или выпаривательного комплекса? Зная, что фигуры людей и животных обычно изображаются для маскировки, нетрудно догадаться, что и в этом случае мы видим именно маскировку, цель которой максимально отвлечь внимание потенциального врага от его основной задачи. Пока он будет соображать, что он видит, пройдёт некоторое время, а при разборках инопланетян счёт идёт на микро- и наносекунды...