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

Выпуск 247

 Лаборатория Наномир

Когда реальность открывает тайны,
уходят в тень и меркнут чудеса ...

Раскрыта тайна А-минорного взаимодействия!

http://img-fotki.yandex.ru/get/5507/nanoworld2003.2c/0_511a8_731e340a_S

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

http://img-fotki.yandex.ru/get/5304/nanoworld2003.2d/0_511e4_1a1d812f_L.jpg

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

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

http://img-fotki.yandex.ru/get/5111/nanoworld2003.2d/0_511ec_cf58de80_L.jpg

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

http://img-fotki.yandex.ru/get/5908/nanoworld2003.2c/0_511cb_bf6017e6_S.gif

Кадры крупно можно посмотреть в фотоальбоме "Пикотехнологические модели"

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

Обсудить на форуме.

 Научная пикотехнологическая викторина

http://img-fotki.yandex.ru/get/5607/nanoworld2003.2d/0_511f9_6e6ffda2_L.png

Виктория Соколик обозначила атомы азотистых оснований комплементарной пары G-C

http://img-fotki.yandex.ru/get/5807/nanoworld2003.2d/0_511fa_463a462_L.png

Все желающие могут иначе обозначить атомы азотистых оснований. Кто знает, может быть Вам повезёт в это пикотехнологическое "спортлото", и Вы выиграете Нобелевскую за правильное заполнение "лотерейных билетов" smile

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

http://img-fotki.yandex.ru/get/5010/nanoworld2003.2d/0_511fe_ac01e841_L.png
http://img-fotki.yandex.ru/get/5408/nanoworld2003.2d/0_511fd_46b5c8b5_L.png

Обсудить на форуме.

 

http://img-fotki.yandex.ru/get/4515/nanoworld2003.2d/0_51201_b17a2fe1_L.png

Карточка пикотехнологической научной викторины N2 A-U

http://img-fotki.yandex.ru/get/5408/nanoworld2003.2d/0_51202_93d6df4d_L.png
http://img-fotki.yandex.ru/get/4705/nanoworld2003.2d/0_51203_7f72f985_L.png
http://img-fotki.yandex.ru/get/4407/nanoworld2003.2d/0_51200_62a8cf2e_XL.png

Асимметричная схема расположения атомов наиболее логична при наличии симметричного урацилу псевдоурацила.

Согласно этой классификации, номера атомов рибозы получаются такими:

http://img-fotki.yandex.ru/get/5807/nanoworld2003.2d/0_51206_e425db8d_L.png

Желающие могут предложить свой вариант:

http://img-fotki.yandex.ru/get/4911/nanoworld2003.2d/0_51205_d6d7772d_L.png

Обсудить на форуме

 Модель изоакцепторного стебля тРНК

 

Модель Виктории Соколик

 

http://img-fotki.yandex.ru/get/5304/nanoworld2003.2d/0_51250_691e7ee1_M.gif

Макромодель тРНК. (Александр Кушелев)

http://img-fotki.yandex.ru/get/5707/nanoworld2003.2d/0_5124f_f63ce048_orig.gif

Связь C-N совпадает с осью вращения тРНК

http://nanoworld88.narod.ru/data/216_files/0_48cd7_9d30f602_S.gif
Подробнее

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

http://img-fotki.yandex.ru/get/5211/nanoworld2003.2d/0_51253_32f47217_S.gif

Кушелев: Компьютерная модель акцепторного стебля тРНК помогла сделать ещё одно научное открытие. Оказалось, что азотистые основания, которые держат аминокислоту четырьмя Ван-дер-Ваальсовыми связями ("макровзаимодействие") кроме этого ещё сдвигают аминокислоту на ось симметрии тРНК. Таким образом, связь C-N не только параллельна оси симметрии тРНК, но и вообще совпадает с ней!

Напомню, что общепринятая гипотеза противоречит модельному пикотехнологическому эксперименту по двум параметрам:

1. Угол между направлением C-N и осью симметрии акцепторного стебля ~50 градусов.
2. Группа азота аминокислоты находится на расстоянии более 10 атомных радиусов от оси симметрии АСС-стебля.

В моей модели АСС-конца оба параметра нулевые.

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

http://img-fotki.yandex.ru/get/5606/nanoworld2003.2d/0_51263_ece58a32_orig.gif

Позднее обнаружилось, что аминокислоту удерживает не 4, а 5 водородных связей. По две на каждое азотистое основание цитозина и 1 на гидроксил фосфатной группы.

Скрипт:

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

aa = #(); ax = #(); ay = #(); 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")
--
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
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")
--
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)
--
aminor = #(0,0,0,0,0,0,0,0,0,0
-- 11
,0,0,0,0,0,0,0,0,0,0
-- 21
,0,0,0,0,0,0,0,0,0,0
-- 31
,0,0,0,0,0,0,0,0,0,0
-- 41
,0,0,0,0,0,0,0,0,0,0
-- 51
,0,0,0,0,0,0,0,0,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]
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]
-- ACC-end (part 1, aminoacid)
ami1 = copy m3
ami1.material = newmat[1]
move ami1 [0,-30,0]
ami2 = copy ami1
move ami2 [-9,-20,0]
-- ami22 = copy ami2
-- ami22.pivot = [0,-107.5,5.7]
-- rotate ami22 180 [1,0,0]
ami3 = copy ami2
move ami3 [18,0,0]
ami33 = copy ami3
ami33.pivot = [0,-107.5,5.7]
rotate ami33 180 [1,0,0]
ami1.pivot = [0,-83.5,0]
rotate ami1 90 [0,0,1]
ami4 = copy ami1
move ami4 [0,-10,0]
-- attach ami2 ami22
attach ami1 ami2
attach ami3 ami33
attach ami1 ami3
attach ami1 ami4
ami1.pivot = [0,-83.5,0]
rotate ami1 (90-35.27) [1,0,0]
move ami1 [-12.5,42,5]
amiaxis = box length:1 width:1 height:1  position:[-21.5,-54,-12]
Converttomesh amiaxis
amiaxis.material = newmat[13]
attach amiaxis ami1
amiaxis.pivot = [-21.5,-64,-12]
rotate amiaxis -80 [0,1,0]
move amiaxis [-32,-40,3]
--
m3.material = newmat[12]
metil = copy m3
metil.material = newmat[1]
m4 = copy m3
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
m6.material = newmat[12]
m13 = copy m3
m13.material = newmat[12]
m13.pivot = [0,-66,0]
rotate m13 -72 [1,0,0]
m14 = copy m13
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
m5.material = newmat[12]
m7 = copy m4
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])
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
m9.material = newmat[11]
m9.pivot = [-37.5,-13,-0.5]
rotate m9 72 [1,0,0]
m10 = copy m8
m10.material = newmat[11]
m10.pivot = [-37.5,-13,-0.5]
rotate m10 144 [1,0,0]
m11 = copy m8
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
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 = 4 to 4 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); 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); 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); 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); 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); 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); 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); 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); 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); 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); nc=9)
if (seq[k] == nucl[11]) 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); nc=11)
if (seq[k] == nucl[12]) 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); nc=12)
--
element1 = box length:1 width:1 height:1  position:[0,0,-0.5]
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:9.8 width:9.8 height:9.8 position:[9.9*(i-2),9.9*(j-5),9.9*0.5-9.9]
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); 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); 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); 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); 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); 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); 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); 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); 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); 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); nc=9)
if (complement[k] == nucl[11]) 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); nc=11)
if (complement[k] == nucl[12]) 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); nc=12)
element4 = box length:1 width:1 height:1  position:[0,0,-0.5]
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:9.8 width:9.8 height:9.8 position:[9.9*(i-2),9.9*(j-5),9.9*0.5-9.9]
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])
-- ACC-end (part 2)
if k==4 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); nc=1)
element41 = box length:1 width:1 height:1  position:[0,0,-0.5]
Converttomesh element41
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:9.8 width:9.8 height:9.8 position:[9.9*(i-2),9.9*(j-5),9.9*0.5-9.9]
select #(aa[n]); macros.run  "Modifier stack" "convert_to_Mesh"
attach element41 aa[n]
element41.material = newmat[nc]))
element42 = copy m8
element43 = copy m3
attach element41 element42
attach element41 element43
element41.pivot = [0,0,0]
rotate element41 180 [1,0,0]
-- antitranslation
move element41 [0,-50, 0]
element41.pivot = [-60,0,0]
-- translation angles
rotate element41 36 [0, 1, 0]
element51 = copy element41
attach element4 element41
-- antitranslation
-- move element51 [0,-50, 0]
-- element51.pivot = [-60,0,0]
-- translation angles
-- rotate element51 36 [0, 1, 0]
-- attach element4 element51
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); nc=1
element7 = box length:0.5 width:0.5 height:0.5  position:[0,9.5,-0.25]
Converttomesh element7
element7h = box length:1 width:1 height:1  position:[0,9.5,-0.5]
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]
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.7 width:9.7 height:9.7  position:[0,10,-4.85]
h0 = box length:9.7 width:9.7 height:9.7  position:[0,-10,-4.85]
h2 = box length:9.7 width:9.7 height:9.7  position:[10,0,-4.85]
h3 = box length:9.7 width:9.7 height:9.7  position:[-10,0,-4.85]
Converttomesh h1
Converttomesh h0
Converttomesh h2
Converttomesh h3
attach h1 h2
attach h1 h3
attach h1 h0
h1.material = newmat[13]
attach element1 h1
-- ACC-end (part 3)
if k==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); nc=2
element21 = box length:1 width:1 height:1  position:[-10,0,-0.5]
Converttomesh element21
element211 = copy element21
move element211 [20,0,0]
attach element21 element211
element21.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:9.8 width:9.8 height:9.8 position:[9.9*(i-2),9.9*(j-5),9.9*0.5-9.9]
select #(aa[n]); macros.run  "Modifier stack" "convert_to_Mesh"
aa[n].material = newmat[nc]
attach element21 aa[n]
-- element21.material = newmat[nc]
))
element22 = copy m8
element23 = copy m3
element24 = copy m8
-- translation vector
move element24 [0,-50, 0]
element24.pivot = [-60,0,0]
-- translation angles
rotate element24 36 [0, 1, 0]
attach element21 element23
g21 = group #(element21, element22, element24)
g21.pivot=[0,-40,0]
rotate g21 180 [1,0,0]
rotate g21 -40 [0,0,1]
move g21 [-17,-12,7]
ungroup g21
element31 = copy element21
element31.pivot = [-65,0,7]
rotate element31 50 [0,1,0]
attach element21 element22
attach element21 element24
attach element21 element31
)
-- 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]
if k==4 then (attach trnk element21
attach trnk amiaxis
attach trnk element51)
)
--
delete m3
delete m8
delete metil
-- delete amiaxis
piv = box length:1 width:1 height:1  position:[-71,-70,5]
Converttomesh piv
piv.material = newmat[13]
attach trnk piv
trnk.pivot = [-51,-150,8.5]
trnk.rotation.controller[2].controller.value = 0
animate on
at time 100 trnk.rotation.controller[2].controller.value = -360

"Мозг пикомашины"

http://img-fotki.yandex.ru/get/4406/nanoworld2003.2d/0_512ba_a6e2c3d6_S.gif

Упрощенная (многогранная) пикотехнологическая модель белка инсулина и его зеркальное отражение.

Обсудить на форуме

 Приглашение к сотрудничеству

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

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

В одиночку внедрить технологии, выводящие цивилизацию на новый уровень,  невозможно. Благодаря поддержке множества заинтересованных людей проделана огромная работа. Ознакомиться с её результатами можно изучив материал рассылки "Новости лаборатории Наномир". Люди науки могут изучить научные труды.

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

В этом году были куплены рубиновые шарики для эксперимента на сумму ~1000 долл. В результате было сделано научное открытие, проверена защита диэлектрических резонаторов от перенапряжения. В этом же году, вероятно, можно будет создать микроволновую энергетику, т.к. удалось найти сырьё (рубин #8), из которого сделаны рубиновые шарики для эксперимента в Дубне.

28 сентября начался эксперимент по созданию "эликсира вечной молодости". Благодаря первому взносу (в размере 500 долларов) Золдракса и поддержке других соинвесторов. Продолжаются переговоры с потенциальными инвесторами по поводу финансирования этого проекта.

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

Сотрудничество может быть различным:

- участие в научных дискуссиях на форуме (конструктивное)

- совместное создание коммерческого продукта

- поиск инвесторов

- выступить менеджером по продаже готовых коммерческих продуктов

- конструктивные предложения по продвижению идей лаборатории Наномир

- содействие в проведении экспериментов и т.п.

- написание совместных научных статей и т.п.

- материальный вклад (денежный или обеспечение оборудованием и материалами)


Пожалуйста, сообщайте о своем вкладе, чтобы мы зачли Вас как партнера лаборатории Наномир.

+7-926-5101703, +7-903-2003424, +7-916-8265031, Skype: Kushelev2009, mail: kushelev2011@yandex.ru

веб-мани: WM-кошелек R426964799301