Вести из Дубны

Видеокадр светящегося гранатового шарика из Дубны.

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

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

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

Подробнее: http://nanoworld88.narod.ru/data/212.htm

Когда я рассказал специалистам, что режим N26 - это как раз возбуждение моды "шепчущей галереи", они решили это проверить досконально. И проверили в конце мая.

Суть этого научного открытия заключается в том, что теперь все диэлектрические резонаторы можно легко защитить от перенапряжения. Для этого всего лишь достаточно перейти от лейкосапфира, например, к рубину с интенсивной окраской. Лазерные резонаторы делают из рубина N6 (со слабой окраской ионами хрома), а для защиты резонаторов придётся увеличить выпуск рубина, который ранее применялся лишь для имитации природного рубина в ювелирных изделиях. Зато таким (инопланетным!) способом легко защитить диэлектрические резонаторы в современных устройствах и в технике будущего.

---

 Подготовка исследования в 5-мм диапазоне

[12:20:29] *****: Поговорил по поводу диодов - они сейчас не могут продать. Все 3А133 на складе промаркированы как военные. Они могут промаркировать некоторое количество диодов как гражданские при выпуске следующей партии, но это будет не скоро. Точных сроков она не знает.
[12:20:59] *****: добрый день :)
[13:03:26] Кушелев Александр Юрьевич: Добрый день!
[13:03:48] Кушелев Александр Юрьевич: Жаль, но тогда можно попробовать достать диоды на Митинском рынке или на других фирмах...
[13:06:28] Кушелев Александр Юрьевич: На Митинский рынок надо ехать с деньгами. У меня, к сожалению, нет денег даже на проезд...

[13:07:30] Acceleron - Ярослав Старухин: жду продолжения на форуме. ссылку на ваш текст я перешлю Медведеву. Вам и всем заинтересованным рекомендую самостоятельно сделать сообщение в Твиттере для Медведева. Раз есть такая возможность, ею надо пользоваться. Все в рамках закона, к чему и призывает Президент РФ. Проявлять инициативу, быть честным и уметь ставить и решать сверхзадачи.

Кушелев: У меня есть подозрение, что президенты и олигархи заметят лабораторию Наномир уже после того, как будет включена "вечная лампочка". Именно её они и заметят :)

Эликсир "вечной молодости" они тоже заметят, но только те, которые доживут до его создания. :)

И пикотехнологию они заметят, когда она уже будет продаваться на Западе...

Уважаемый Ярослав Петрович!
Не кажется ли Вам, что нам в первую очередь нужно ориентироваться на частных инвесторов, которым по плечу создать эликсир "вечной молодости", микроволновую энергетику,  лицензировать пикотехнологию и т.д.?

---

Продолжение переговоров с потенциальным инвестором.

itec01: Да возможности то есть, я вам уже А.Ю. написал про это ранее, но увы разговор   не имел продолжения, вы опять сбились на рассказы о будущем, а меня интересует как и любого  инвестора, что я могу получить  на мою инвестицию - четко , понятно и записано на бумаге и подписано, а так...охлаждайте шарики, меняйте температуру и т.д. и т.п.
Более того я вам написал, что можно провести эксперименты на аппарате ЭЛС  в НИИКИЭТ.. а в ответ полубред.

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

Вы не хотите продавать летательные браслеты и "летающие тарелки", "вечные лампочки" и композитно-лучевые инструменты?

Или Вы совсем не понимаете по-русски? :)

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

Да не просил я обьяснить, как и где можно применять новые источники энергии-  я спрашивал вас зачем мне это нужно делать ?
На что вы ответили следуюшим образом -"Вы не хотите продавать летательные браслеты и "летающие тарелки", "вечные лампочки" и композитно-лучевые инструменты?"
А.Ю. я вам про применение новых источников могу сам рассказать фантастические рассказы, я заканчивал в свое время МФТИ тот-же факультет что и Андрей Скляров..
Поэтому давайте или по делу или никак, мне надоел уже этот бред..

А.Ю, я вам написал,что можно купить 50 рубиновых шариков 10мм диаметра, можно провести эксперименты на ЭЛС в НИИКИЭТ. Но что я получу с этого, зачем мне нужно это делать?

Кушелев: Откуда я знаю, надо Вам это или нет? Вы зарегистрировались на форуме лаборатории Наномир 20 мая 2006 года. 5 лет назад. Зачем? За 5 лет можно было бы определиться, что Вам нужно, а что нет :)

Я не могу за Вас решать, что Вам нужно, а что нет. Вы уж сами как-нибудь определитесь :)

itec01: А что у вас есть на сегодняшний день ?

Кушелев: У меня есть научные и технические результаты. Есть и несколько версий Пикотех, которые можно продавать уже сегодня.

Кушелев: Вячеславу Васильеву, например, нужно было купить рубиновые шарики для эксперимента в Дубне. Если удастся их включить, то он будет продавать рубиновые генераторы. Если Вам тоже это интересно, то можете поучаствовать, если неинтересно, можете не участвовать.

itec01: Ну вот давайте об этом поподробнее - мое мыло itec03@netscape.net

Кушелев: А у меня на этот счёт секретов нет. Результаты совместной деятельности принадлежат участникам проекта пропорционально коэффициентам творческого и финансового участия.

itec01: А.Ю. а у меня есть и мне нужна более подробная информация и Соглашение какое-то.. и т.д.

Пикотех -это не мое совсем, и я не salesman и плюс там совсем сыро и базы никакой .ИМХО.

Кушелев: Что значит "совсем сыро"?

Пикотех позволяет экономить по 10 000 долл. на каждой структуре белка. И это только на тех белках, которые кристаллизуются. Их около 3%. А структуру остальных белков Вам никакой рентген не покажет. А точность Пикотех в 1000 раз выше точности рентгена :)

Кушелев: Если Вас интересуют конкретные цифры, спрашивайте :)

itec01: А.Ю. а у меня есть и мне нужна более подробная информация и Соглашение какое-то.. и т.д.

Кушелев: Нет проблем. Присылайте проект договора. Если меня (и моих компаньонов) устроят Ваши условия, то "вперёд, и с песней" :)

Кушелев: Результаты совместной деятельности принадлежат участникам проекта пропорционально коэффициентам творческого и финансового участия.

itec01: А кто это фиксирует на бумаге и как это считается и кто этим занимается и какое юридическое лицо?

Кушелев: А пока это на уровне устных договорённостей. При необходимости можно зафиксировать документально. Пока такой необходимости не было.

itec01: Кто такой В.В и какова его роль в проекте, есть ли юридическое лицо от имени кого ведутся работы и считается доля участия ?

Кушелев: Кто такой В.В, он сам лучше расскажет. Его роль в проекте - соинвестор. Доля участия легко считается. Общая сумма вложений около 300 000 долл (без индексации).

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

$300,000 - это реальные деньги? а вы без галош и без одежды и не на что шарики купить или это вы считаете  $300,000 за возможность провести эксперимент(ы) на установке в Дубне?
Тогда я тоже сказочно богат - я вам могу представить за провести эксперименты на ЭЛС в НИИКИЭТ и на установках ЯМ.

Кушелев: Эксперимент в Дубне планирую не я. Если события будут развиваться благоприятно, то эксперимент может состояться в конце июня. Если нет, то позже. Например, осенью. А может и вообще не состояться. Ведь мы там напрашиваемся на халяву...

itec01: Как на халяву - вы же  доказывали, что Старухин инвестировал $30мл., так как он договорился о проведении экспериментов в Дубне, как вас понимать?

Кушелев: Давайте лучше Вы оцените, сколько стоит один эксперимент в Дубне. Стоимость ускорителя известна, 300 миллионов долл. Эксперимент готовился в несколько этапов. Все они освещались на форуме лаборатории Наномир и в рассылке. Может быть Ваша оценка всем понравится больше, чем моя :)

itec01: $300,000 - это реальные деньги?

Кушелев: Вполне. Вы думаете, что с 1989 по 2011 год я смог бы прожить без денег? :)

Вы поделите 300 000 на 2011-1989=22 в среднем получается 13.6 тыс. в год или 1136 долл. в месяц. В Москве 1000 долл. в месяц считается скромной зарплатой...

А почему у меня нет денег на шарики? Очень просто. Мне приходится за жильё отдавать практически 1000 долл. в месяц.

itec01: Знаете А.Ю, что-то настолько все мутно, что не хочется даже влезать в это - с одной стороны, вопиющая бедность - нет денег на обувь, одежду - а с другой $1,000 за квартиру в Дмитрове, а сдругой стороны -  $300,000 , а с другой стороны 300млн. - а где результаты то на эти деньги???

Кушелев: А никто силком и не тянет. Если Вас интересуют юридические документы, то в чём проблема? Написали проект договора, если меня (и партнёров) что-то не устроит, мы свои цифры напишем. А как Вы хотели иначе? :)

Никто не собирается Вас обманывать. Что в договоре будет написано, то и будет. :)

Вот если бы Вы с 2006-го года не только на форуме зарегистрировались, а открыли бы финансирование для лаборатории Наномир, то для Вас всё было бы прозрачно уже в 2006-ом году. А так прозрачность может получиться в 2011-ом :)

itec01: нет денег на обувь, одежду - а с другой $1,000 за квартиру в Дмитрове

Кушелев: Да. Это нас государственные служащие на 63 000 рублей за 6 месяцев кинули. Обещали дотацию, как очередникам, а когда мы документы собрали, сказали, что деньги у государства кончились. Программа помощи очередникам приостановлена. Меня это не удивляет. Помните, как в 1991-ом году сообщили по радио, что "все ваши денежки тю-тю"? У меня тогда все денежки были вложены в пластмассовые колечки для штор. Поэтому и не пропало ничего... :)

---

Структурные формулы азотистых оснований.

Структурные формулы азотистых оснований и пикотехнологические модели нуклеотидов (гуанин - цитозин).

Скрипт (водородные связи изображены только для частного случая):

p = #(); p1 = #(); p2 = #(); aa = #(); ax = #(); ay = #(); r = #()
; nuclcol = #(); gp = #(); gn = #(); gg = #(); anuk = #()
-- 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],[0,200,0],[200,200,0],[255,255,255],[0,0,0])
--****************************************************
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")
--****************************************************
complement = #("0","0","0","0","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")
--****************************************************
ci = #(0,0,0,0,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)
--****************************************************
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
--****************************************************
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)
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)
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)
trnk.material = newmat[10]
for k = 5 to 5 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])
macros.run  "Modifier stack" "convert_to_Mesh"; element2 = copy p[1] wirecolor: [0,200,0]
for ll = 2 to 32 do(if pindex2[ll] > 0 then (attach element2 p[ll])); delete p[1]
element2.material = newmat[11]
-- 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,-29.53,-31.51,-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,-60.5,-66,-55.7,-48,-58,-48,-58,-56,-50,-28.049,-26.864,-25.754,-24.57,-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,13.98,7.507,15.584,9.165,4.35,14.032,9.217,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
,-55,55,40,70,-55,55,71.5,71.5,0,-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,-120
,60,-40,-18,-120,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 = copy r[1] wirecolor: [200,200,0]
for ll = 2 to 60 do(if ri[ll] > 0 then (attach element1 r[ll]))
delete r[1]
element1.material = newmat[12]
-- 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)
--
element0 = torus radius1:0.1 radius2:0.05 segs:3 sides:3 position:[0,0,0] wirecolor: nuclcol
Converttomesh element0
for i = 1 to 3 do for j = 1 to 5 do (n = i + 3*(j-1)
if ai[n] > 0 then (anuk[n] = sphere radius:0.5 segs:20 position:[10*(i-2),10*(j-5),0] wirecolor: [0,0,0]
Converttomesh anuk[n]
anuk[n].material = newmat[14]
attach element0 anuk[n]))
--
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]; select #(aa[n],aa[n+12]); macros.run  "Modifier stack" "convert_to_Mesh"
attach element0 aa[n];attach element0 aa[n+12]))
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]; Converttomesh ax[m]
attach element0 ax[m]))
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]; Converttomesh ay[m]
attach element0 ay[m])
element0.material = newmat[nc])
--
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:0.1 width:0.1 height:0.1  position:[0,0,-0.05] 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 (anuk[n] = sphere radius:0.5 segs:20 position:[10*(i-2),10*(j-5),0] wirecolor: [0,0,0]
Converttomesh anuk[n]
anuk[n].material = newmat[14]
attach element4 anuk[n]))
--
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]; select #(aa[n],aa[n+12]); macros.run  "Modifier stack" "convert_to_Mesh"
attach element4 aa[n];attach element4 aa[n+12]))
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]; Converttomesh ax[m]
attach element4 ax[m]))
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]; Converttomesh ay[m]
attach element4 ay[m])
element4.material = newmat[nc])
--
element5 = copy element2
element6 = copy element1
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)
-- H
h1 = sphere radius:0.5 segs:20 position:[0,-10,0] wirecolor: [255,255,255]
h2 = sphere radius:0.5 segs:20 position:[10,0,0] wirecolor: [255,255,255]
h3 = sphere radius:0.5 segs:20 position:[-10,0,0] wirecolor: [255,255,255]
Converttomesh h1
Converttomesh h2
Converttomesh h3
attach h1 h2
attach h1 h3
h1.material = newmat[13]
attach element1 h1
-- first vector
gr1 = group #(element0, element1,trnk)
gr1.pivot = [-37.451, -2.887, 14.138]
rotate gr1 anglecomp1[k] [0, -27.384, -9.84]
ungroup gr1
-- second vector
gr2 = #(element0, 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 element0
attach trnk element1
attach trnk element2
move trnk [5.511 ,-49.39, -25.725]
trnk.pivot = [-26, -58, -10]
-- translation angles
rotate trnk 50 [0, 1, 0]
rotate trnk 35 [0, 0, 1])

Структурные формулы азотистых оснований и пикотехнологические модели нуклеотидов (аденин - тимидин/урацил).

Скрипт (водородные связи строит корректно только для мажорных азотистых оснований):

p = #(); p1 = #(); p2 = #(); aa = #(); ax = #(); ay = #(); r = #()
; nuclcol = #(); gp = #(); gn = #(); gg = #(); anuk = #()
-- 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],[0,200,0],[200,200,0],[255,255,255],[0,0,0])
--****************************************************
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")
--****************************************************
complement = #("0","0","0","0","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")
--****************************************************
ci = #(0,0,0,0,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)
--****************************************************
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
--****************************************************
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)
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)
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)
trnk.material = newmat[10]
for k = 12 to 12 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])
macros.run  "Modifier stack" "convert_to_Mesh"; element2 = copy p[1] wirecolor: [0,200,0]
for ll = 2 to 32 do(if pindex2[ll] > 0 then (attach element2 p[ll])); delete p[1]
element2.material = newmat[11]
-- 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,-29.53,-31.51,-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,-60.5,-66,-55.7,-48,-58,-48,-58,-56,-50,-28.049,-26.864,-25.754,-24.57,-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,13.98,7.507,15.584,9.165,4.35,14.032,9.217,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
,-55,55,40,70,-55,55,71.5,71.5,0,-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,-120
,60,-40,-18,-120,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 = copy r[1] wirecolor: [200,200,0]
for ll = 2 to 60 do(if ri[ll] > 0 then (attach element1 r[ll]))
delete r[1]
element1.material = newmat[12]
-- 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,1,0,1,1,1,1,1,1,1,0,1,0,0,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,0,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,1,0,1,1,1,1,1,1,1,0,1,0,0,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,0,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)
--
element0 = torus radius1:0.1 radius2:0.05 segs:3 sides:3 position:[0,0,0] wirecolor: nuclcol
Converttomesh element0
for i = 1 to 3 do for j = 1 to 5 do (n = i + 3*(j-1)
if ai[n] > 0 then (anuk[n] = sphere radius:0.5 segs:20 position:[10*(i-2),10*(j-5),0] wirecolor: [0,0,0]
Converttomesh anuk[n]
anuk[n].material = newmat[14]
attach element0 anuk[n]))
--
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]; select #(aa[n],aa[n+12]); macros.run  "Modifier stack" "convert_to_Mesh"
attach element0 aa[n];attach element0 aa[n+12]))
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]; Converttomesh ax[m]
attach element0 ax[m]))
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]; Converttomesh ay[m]
attach element0 ay[m])
element0.material = newmat[nc])
--
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,1,0,1,1,1,1,1,1,1,0,1,0,0,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,0,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,1,0,1,1,1,1,1,1,1,0,1,0,0,0); axi = #(0,0,1,1,0,0,0,0); ayi = #(0,0,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:0.1 width:0.1 height:0.1  position:[0,0,-0.05] 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 (anuk[n] = sphere radius:0.5 segs:20 position:[10*(i-2),10*(j-5),0] wirecolor: [0,0,0]
Converttomesh anuk[n]
anuk[n].material = newmat[14]
attach element4 anuk[n]))
--
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]; select #(aa[n],aa[n+12]); macros.run  "Modifier stack" "convert_to_Mesh"
attach element4 aa[n];attach element4 aa[n+12]))
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]; Converttomesh ax[m]
attach element4 ax[m]))
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]; Converttomesh ay[m]
attach element4 ay[m])
element4.material = newmat[nc])
--
element5 = copy element2
element6 = copy element1
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)
-- H
h1 = sphere radius:0.4 segs:20 position:[0,10,0] wirecolor: [255,255,255]
h0 = sphere radius:0.4 segs:20 position:[0,-10,0] wirecolor: [255,255,255]
h2 = sphere radius:0.4 segs:20 position:[10,0,0] wirecolor: [255,255,255]
h3 = sphere radius:0.4 segs:20 position:[-10,0,0] 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 #(element0, element1,trnk)
gr1.pivot = [-37.451, -2.887, 14.138]
rotate gr1 anglecomp1[k] [0, -27.384, -9.84]
ungroup gr1
-- second vector
gr2 = #(element0, 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 element0
attach trnk element1
attach trnk element2
move trnk [5.511 ,-49.39, -25.725]
trnk.pivot = [-26, -58, -10]
-- translation angles
rotate trnk 50 [0, 1, 0]
rotate trnk 35 [0, 0, 1])

---

Приблизительно такую ("трёхкрылую") структуру может иметь тРНК с длинной вариабельной петлёй.

---

Виктория Соколик: Физики нарушили принцип неопределенности

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

В классическом эксперименте с двумя щелями, впервые проведенном более 200 лет назад, световые волны проходят через одну из параллельных щелей, что на выходе дает характерную интерференционную картину чередующихся светлых и темных полос.

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

Если у щелей поместить детекторы, которые будут определять, через какую щель прошел фотон, то интерференционная картина исчезнет. Это проявление принципа неопределенности Гейзенберга: невозможно одновременно и точно измерить и положение фотона (через какую из щелей он проходит) и его импульс (отображением которого является интерференционная картина.

Освещенность экрана, когда открыта лишь одна щель (вверху), или когда открыты обе щели (внизу)

Физик Афраим Штейнберг (Aephraim Steinberg) из Университета Торонто и его коллеги показали, что возможно точно измерить положение фотонов и получить примерную информацию о его импульсе, используя подход, известный как "слабые измерения".

Ученые посылали фотоны один за другим через установку с двумя щелями, используя расщепитель (светоделитель) светового пучка и две трубочки из оптоволокна. Также они использовали детектор, который определял положение фотонов на некотором расстоянии от щелей, и кристаллы кальцита перед детекторами для изменения поляризации фотона, что в итоге позволяло им сделать грубую оценку импульса каждого фотона по изменению его поляризации.

Измеряя импульсы многих фотонов, исследователи смогли выяснить средний импульс фотонов, соответствующий определенному положению в детекторе. Затем они повторяли измерения, увеличивая расстояние от щелей до детектора, после чего построили средние траектории фотонов. При этом интерференционная картина не разрушалась.

Любопытно, что полученные траектории оказались очень близки к тому, что предсказывает "нетрадиционная" (альтернативная Копенгагенской) интерпретация квантовой механики, известная как теория пилотной волны (pilot-wave theory), в которой каждая частица обладает вполне определенной траекторией, проходящей лишь через одну щель, в то время как связанная с ней волна проходит через обе щели одновременно.

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

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

Victoria пишет:

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

Кушелев: Поздравляю, Виктория!
Это - Ваша победа не только в области биологии, но и в области физики. Вы попали "не в бровь, а в глаз" :) Эта статья - один из ключевых моментов истории науки. Науки, которая медленно, но верно возвращается на классический путь.

Огромное Вам спасибо за статью!