Документ взят из кэша поисковой машины. Адрес оригинального документа : http://kodomo.cmm.msu.ru/~haaalbert/Term3/2.spt Дата изменения: Tue Dec 26 03:46:20 2006 Дата индексирования: Tue Oct 2 06:43:01 2012 Кодировка: IBM-866

script DNA.def
restrict none
select dna or protein
wireframe 50
select dna
color green
define pol_at (oxygen,nitrogen) and dna
define nepol_at carbon and dna

define polribp within(3.5, *.O?* and dna) and polar
define polribn within(3.5, polribp) and *.O?*
define polrib polribp or polribn
restrict polrib
color cpk
select polribp
cpk 330
select polribn
cpk 250
select dna
backbone
restrict not ser338:a.cb
restrict not (his432:a.o or g858:t.O3*)
restrict not gln615:a.oe?
echo I7OJIRPHbIE KOHTAKTbI
echo Protein-deoxyribose contacts (9)
pause

define polphp within(3.5, *.O?P and dna) and polar
define polphn within(3.5, polphp) and *.O?P
define polph polphp or polphn
restrict polph
color cpk
select polphp
cpk 300
select polphn
cpk 200
select dna
backbone
restrict not his341:a.cd?
restrict not lys404:a.c?
restrict not arg604:a.cd
restrict not (asp365:a.c? or c819:p.O2?)
restrict not (thr357:a.cb or lys359a.cb)
restrict not (arg111:a.c? or c813.o1?)
echo Protein-phosphate contacts (10)
pause

define polmjgp within(3.5, pol_at and mjg) and polar
define polmjgn within(3.5, polmjgp) and pol_at and mjg
define polmjg polmjgp or polmjgn
restrict polmjg
color cpk
select polmjgp
cpk 300
select polmjgn
cpk 200
select dna
backbone
echo There's no protein-major_g contacts
pause

define polmigp within(3.5, pol_at and mig) and polar
define polmign within(3.5, polmigp) and pol_at and mig
define polmig polmigp or polmign
restrict polmig
color cpk
select polmigp
cpk 300
select polmign
cpk 200
select dna
backbone
restrict not lys394:a.ce
echo Protein-minor_g contacts (2)
pause

#неполярн
define nepolribp within(4.5, nepol_at and backbone) and hydrophobic
define nepolribn within(4.5, nepolribp) and nepol_at and backbone
define nepolrib nepolribp or nepolribn
restrict nepolrib
color cpk
select nepolribp
cpk 300
select nepolribn
cpk 200
select dna
backbone
echo HEI7OJIRPHbIE KOHTAKTbI
echo Protein-deoxyribose contacts (4?)
pause

define nepolmjgp within(4.5, nepol_at and mjg) and hydrophobic
define nepolmjgn within(4.5, nepolmjgp) and nepol_at and mjg
define nepolmjg nepolmjgp or nepolmjgn
restrict nepolmjg
color cpk
select nepolmjgp
cpk 300
select nepolmjgn
cpk 200
select dna
backbone
echo Protein-major_g contacts (1?)
pause

define nepolmigp within(4.5, nepol_at and mig) and hydrophobic
define nepolmign within(4.5, nepolmigp) and nepol_at and mig
define nepolmig nepolmigp or nepolmign
restrict nepolmig
color cpk
select nepolmigp
cpk 300
select nepolmign
cpk 200
select dna
backbone
echo Protein-minor_g contacts (1)
pause

#Спец контакт
restrict polph
color cpk
select dna
backbone
restrict (Arg111:a.* or (within(8.0,Arg111:a.*)and dna) or Arg604:a.* or (within(8.0,Arg604:a.*)and dna))
cpk off
backbone off
color cpk
echo specific recognition