|
※2024/08/26,amino_acid-base.macを追記(マクロ集には未収載)!! [NEW!]
※2010/07/09,pdb_mini3.macを追加しDL版更新!!
※2008/05/08,pdb_org01.macを追加しDL版更新 → 同マクロ利用データによるコンテンツ例
※2008/03/28,日本化学会第88春季年会で本マクロについてポスター発表(報告ページ参照)
※2007/09/17,amino_aaa.macを追加しダウンロード版更新!!
※2006/05/17,アミノ酸のコンホメーション選択性識別マクロ(2種類)を追加
※2006/05/09,一部改変
※2005/06/14,amino_bcaa.macを追加しダウンロード版更新
※2005/02/11,Aspの疎水性インデックス順表示色を訂正
※同,PDBデータのサイズを小さくするマクロを追加掲載
※同,秀丸エディタのマクロライブラリに登録 [旧版です!]
※作例:βバレル型膜タンパク質の疎水性インデックス値
※作例:ノイラミニダーゼ立体構造予測データベース(理研)のデータより
1qd5をアミノ酸塩基の性質別に着色した例;右から二次構造,アミノ酸色,極性・非極性区別,疎水性インデックス順
※PDB部分データリストで作成;アミノ酸の親水性・疎水性参照
※参考(膜貫通タンパク質や1qd5のもつβ-バレル構造に関する文献例):「細胞の分子生物学 第4版」,pp.593-614
本秀丸エディタ用マクロは,1文字表記のFASTA形式アミノ酸配列データから以下に示すようないろいろなHTML形式の表を作成するものです。改変して様々な利用が可能と思います。改変等をされた場合は,利用した関連情報と一緒に作者までご連絡くだされば,公開可能なものはこのページで紹介させていただきます。
●1文字表記のアミノ酸配列データの入手とマクロによる本加工について(PDBデータ1qd5を例に)
Protein Data Bank (RCSB PDB)を利用して,1qd5でChime形式の分子モデルが参照できる。
同ページの左側メニューの Sequence Details をクリックすると以下のような配列データを参照できる。50塩基ごとに区切られ,その下行にhelixなどの二次構造情報が付記されている。
また,PDBデータページ上段の [Display Files] → [FASTA - Sequence] をクリックすると以下のようなFASTA形式配列が表示される。なお,このデータを用いれば,SOSUI WWW Serverを利用して膜貫通部分が存在するかどうかシミュレーションすることもできる(PDBとSOSUIを利用した演習参照)。
以上のような情報などから,HTML化したいデータ配列を作成する。以下は1qd5のβ-シート部分を抜き出したFASTA形式データ例である。
これのみHTML化ではなく,以下のようにコンマ区切りの3文字アミノ酸記号への変換だけである(CSV形式で利用可能)。
■amino_ac1.macによる加工(アミノ酸別着色;Chime仕様)
Tyr | Pro | ||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Tyr | Leu | Ile | Tyr | Thr | Gln | Thr | |||||||||||||
Asp | Glu | Val | Lys | Phe | Gln | Leu | Ser | Leu | Ala | Phe | Pro | Leu | Trp | Arg | |||||
Ser | Val | Leu | Gly | Ala | Ser | Tyr | Thr | Gln | Lys | Ser | Trp | Trp | |||||||
Phe | Arg | Glu | Thr | Asn | Tyr | Glu | Pro | Gln | Leu | Phe | Leu | Gly | Phe | Ala | Thr | Asp | Tyr | Arg | Phe |
Trp | Thr | Leu | Arg | Asp | Val | Glu | Met | Gly | Tyr | Asn | His | Asp | Ser | ||||||
Ser | Trp | Asn | Arg | Leu | Tyr | Thr | Arg | Leu | Met | Ala | Glu | Asn | |||||||
Trp | Leu | Val | Glu | Val | |||||||||||||||
Trp | Tyr | Val | |||||||||||||||||
Leu | Lys | Ile | Gly | Tyr | His | Leu | |||||||||||||
Ala | Val | Leu | Ser | Ala | Lys | Gly | Gln | Tyr | |||||||||||
Gly | Gly | Ala | Glu | Leu | Gly | Leu | Ser | Tyr | Pro | ||||||||||
Arg | Leu | Tyr | Thr | Gln | Val | Tyr | Ser | Gly | Tyr | ||||||||||
Asn | Gln | Thr | Arg | Val | Gly | Val | Gly | Val | Met |
■amino_pn1.macによる加工(極性〈酸性・塩基性〉・非極性(疎水性)区別)
Tyr | Pro | ||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Tyr | Leu | Ile | Tyr | Thr | Gln | Thr | |||||||||||||
Asp | Glu | Val | Lys | Phe | Gln | Leu | Ser | Leu | Ala | Phe | Pro | Leu | Trp | Arg | |||||
Ser | Val | Leu | Gly | Ala | Ser | Tyr | Thr | Gln | Lys | Ser | Trp | Trp | |||||||
Phe | Arg | Glu | Thr | Asn | Tyr | Glu | Pro | Gln | Leu | Phe | Leu | Gly | Phe | Ala | Thr | Asp | Tyr | Arg | Phe |
Trp | Thr | Leu | Arg | Asp | Val | Glu | Met | Gly | Tyr | Asn | His | Asp | Ser | ||||||
Ser | Trp | Asn | Arg | Leu | Tyr | Thr | Arg | Leu | Met | Ala | Glu | Asn | |||||||
Trp | Leu | Val | Glu | Val | |||||||||||||||
Trp | Tyr | Val | |||||||||||||||||
Leu | Lys | Ile | Gly | Tyr | His | Leu | |||||||||||||
Ala | Val | Leu | Ser | Ala | Lys | Gly | Gln | Tyr | |||||||||||
Gly | Gly | Ala | Glu | Leu | Gly | Leu | Ser | Tyr | Pro | ||||||||||
Arg | Leu | Tyr | Thr | Gln | Val | Tyr | Ser | Gly | Tyr | ||||||||||
Asn | Gln | Thr | Arg | Val | Gly | Val | Gly | Val | Met |
■amino_hin1.macによる加工(疎水性インデックス順;アミノ酸名)
Tyr | Pro | ||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Tyr | Leu | Ile | Tyr | Thr | Gln | Thr | |||||||||||||
Asp | Glu | Val | Lys | Phe | Gln | Leu | Ser | Leu | Ala | Phe | Pro | Leu | Trp | Arg | |||||
Ser | Val | Leu | Gly | Ala | Ser | Tyr | Thr | Gln | Lys | Ser | Trp | Trp | |||||||
Phe | Arg | Glu | Thr | Asn | Tyr | Glu | Pro | Gln | Leu | Phe | Leu | Gly | Phe | Ala | Thr | Asp | Tyr | Arg | Phe |
Trp | Thr | Leu | Arg | Asp | Val | Glu | Met | Gly | Tyr | Asn | His | Asp | Ser | ||||||
Ser | Trp | Asn | Arg | Leu | Tyr | Thr | Arg | Leu | Met | Ala | Glu | Asn | |||||||
Trp | Leu | Val | Glu | Val | |||||||||||||||
Trp | Tyr | Val | |||||||||||||||||
Leu | Lys | Ile | Gly | Tyr | His | Leu | |||||||||||||
Ala | Val | Leu | Ser | Ala | Lys | Gly | Gln | Tyr | |||||||||||
Gly | Gly | Ala | Glu | Leu | Gly | Leu | Ser | Tyr | Pro | ||||||||||
Arg | Leu | Tyr | Thr | Gln | Val | Tyr | Ser | Gly | Tyr | ||||||||||
Asn | Gln | Thr | Arg | Val | Gly | Val | Gly | Val | Met |
■amino_hiv1.macによる加工(疎水性インデックス順;数値)
-1.3 | -1.6 | ||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
-1.3 | 3.8 | 4.5 | -1.3 | -0.7 | -3.5 | -0.7 | |||||||||||||
-3.5 | -3.5 | 4.2 | -3.9 | 2.8 | -3.5 | 3.8 | -0.8 | 3.8 | 1.8 | 2.8 | -1.6 | 3.8 | -0.9 | -4.5 | |||||
-0.8 | 4.2 | 3.8 | -0.4 | 1.8 | -0.8 | -1.3 | -0.7 | -3.5 | -3.9 | -0.8 | -0.9 | -0.9 | |||||||
2.8 | -4.5 | -3.5 | -0.7 | -3.5 | -1.3 | -3.5 | -1.6 | -3.5 | 3.8 | 2.8 | 3.8 | -0.4 | 2.8 | 1.8 | -0.7 | -3.5 | -1.3 | -4.5 | 2.8 |
-0.9 | -0.7 | 3.8 | -4.5 | -3.5 | 4.2 | -3.5 | 1.9 | -0.4 | -1.3 | -3.5 | -3.2 | -3.5 | -0.8 | ||||||
-0.8 | -0.9 | -3.5 | -4.5 | 3.8 | -1.3 | -0.7 | -4.5 | 3.8 | 1.9 | 1.8 | -3.5 | -3.5 | |||||||
-0.9 | 3.8 | 4.2 | -3.5 | 4.2 | |||||||||||||||
-0.9 | -1.3 | 4.2 | |||||||||||||||||
3.8 | -3.9 | 4.5 | -0.4 | -1.3 | -3.2 | 3.8 | |||||||||||||
1.8 | 4.2 | 3.8 | -0.8 | 1.8 | -3.9 | -0.4 | -3.5 | -1.3 | |||||||||||
-0.4 | -0.4 | 1.8 | -3.5 | 3.8 | -0.4 | 3.8 | -0.8 | -1.3 | -1.6 | ||||||||||
-4.5 | 3.8 | -1.3 | -0.7 | -3.5 | 4.2 | -1.3 | -0.8 | -0.4 | -1.3 | ||||||||||
-3.5 | -3.5 | -0.7 | -4.5 | 4.2 | -0.4 | 4.2 | -0.4 | 4.2 | 1.9 |
■amino_ocd1.macによる加工(特性基 R のI/O値順;アミノ酸参照) …マクロ集には未収載(表下にマクロ掲載)
Tyr | Pro | ||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Tyr | Leu | Ile | Tyr | Thr | Gln | Thr | |||||||||||||
Asp | Glu | Val | Lys | Phe | Gln | Leu | Ser | Leu | Ala | Phe | Pro | Leu | Trp | Arg | |||||
Ser | Val | Leu | Gly | Ala | Ser | Tyr | Thr | Gln | Lys | Ser | Trp | Trp | |||||||
Phe | Arg | Glu | Thr | Asn | Tyr | Glu | Pro | Gln | Leu | Phe | Leu | Gly | Phe | Ala | Thr | Asp | Tyr | Arg | Phe |
Trp | Thr | Leu | Arg | Asp | Val | Glu | Met | Gly | Tyr | Asn | His | Asp | Ser | ||||||
Ser | Trp | Asn | Arg | Leu | Tyr | Thr | Arg | Leu | Met | Ala | Glu | Asn | |||||||
Trp | Leu | Val | Glu | Val | |||||||||||||||
Trp | Tyr | Val | |||||||||||||||||
Leu | Lys | Ile | Gly | Tyr | His | Leu | |||||||||||||
Ala | Val | Leu | Ser | Ala | Lys | Gly | Gln | Tyr | |||||||||||
Gly | Gly | Ala | Glu | Leu | Gly | Leu | Ser | Tyr | Pro | ||||||||||
Arg | Leu | Tyr | Thr | Gln | Val | Tyr | Ser | Gly | Tyr | ||||||||||
Asn | Gln | Thr | Arg | Val | Gly | Val | Gly | Val | Met |
// 1文字アミノ酸配列から3文字配列に変更して性質別のhtml形式表作成 // amino_ocd1.mac 【 詳細は http://www.ecosci.jp/pdb/hm/macro_g1.html 】 // 1文字アミノ酸配列記号以外はすべて X にしておくこと // 特性基 R のI/O値順 //範囲を選択中の場合は、選択を取り消した後全選択 if(selecting) escape; selectall; //文字数カウント $a = gettext(seltopx, seltopy, selendx, selendy); //message $a; #n = 0; #p = strstr($a, "\n"); while( #p >= 0 ) { $line[#n] = leftstr($a, #p-1); #l = strlen($line[#n]); #num[#n] = #l; if(#max < #l) { #max = #l; } $a = rightstr($a, strlen($a)-#p-1); #p = strstr($a, "\n"); #n = #n + 1; } escape; gofiletop; //selectall; //元の 1文字配列消去する時は行頭 // 削除 //delete; //元の 1文字配列消去する時は行頭 // 削除 //置換によるhtml作成 insert ""+"\n"; insert ""+"\n"; insert "特性基 R のI/O値順 "+"\n"; insert ""+"\n"; insert ""+"\n"; insert ""+"\n"; #i=0; while( #i < #n ) { insert "
"+"\n"; insert ""+"\n"; insert ""+"\n"; endmacro;"+"\n"; #j=0; while( #j < #num[#i] ) { $str = midstr($line[#i], #j,1); if($str=="I") $t=" <th bgcolor=#00FF00>Ile</th>"; else if($str=="L") $t=" <th bgcolor=#00FF00>Leu</th>"; else if($str=="V") $t=" <th bgcolor=#00FF00>Val</th>"; else if($str=="A") $t=" <th bgcolor=#00FF00>Ala</th>"; else if($str=="F") $t=" <th bgcolor=#64FF64>Phe</th>"; else if($str=="P") $t=" <th bgcolor=#64FF64>Pro</th>"; else if($str=="M") $t=" <th bgcolor=#82FF82>Met</th>"; else if($str=="C") $t=" <th bgcolor=#82FF82>Cys</th>"; else if($str=="W") $t=" <th bgcolor=#AAFFAA>Trp</th>"; else if($str=="Y") $t=" <th bgcolor=#AAFFAA>Tyr</th>"; else if($str=="K") $t=" <th bgcolor=#AAFFAA>Lys</th>"; else if($str=="G") $t=" <th bgcolor=#FFFF32>Gly</th>"; else if($str=="H") $t=" <th bgcolor=#FFC8DC>His</th>"; else if($str=="R") $t=" <th bgcolor=#FFC8DC>Arg</th>"; else if($str=="T") $t=" <th bgcolor=#FFA0C8>Thr</th>"; else if($str=="E") $t=" <th bgcolor=#FFA0C8>Glu</th>"; else if($str=="Q") $t=" <th bgcolor=#FF78A0>Gln</th>"; else if($str=="D") $t=" <th bgcolor=#FF78A0>Asp</th>"; else if($str=="S") $t=" <th bgcolor=#FF3C78>Ser</th>"; else if($str=="N") $t=" <th bgcolor=#FF3C78>Asn</th>"; else if($str=="X") $t=" <th bgcolor=#FFFFFF> </th>"; else $t=" <th bgcolor=#FFFFFF> </th>"; insert $t+"\n"; #j = #j+1; } insert " "+"\n"; #i = #i+1; } insert "
■amino_acid-base.macによる加工(酸性・中性〈芳香族〉・塩基性区別;アミノ酸参照) …マクロ集には未収載(表下にマクロ掲載)
Tyr | Pro | ||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Tyr | Leu | Ile | Tyr | Thr | Gln | Thr | |||||||||||||
Asp | Glu | Val | Lys | Phe | Gln | Leu | Ser | Leu | Ala | Phe | Pro | Leu | Trp | Arg | |||||
Ser | Val | Leu | Gly | Ala | Ser | Tyr | Thr | Gln | Lys | Ser | Trp | Trp | |||||||
Phe | Arg | Glu | Thr | Asn | Tyr | Glu | Pro | Gln | Leu | Phe | Leu | Gly | Phe | Ala | Thr | Asp | Tyr | Arg | Phe |
Trp | Thr | Leu | Arg | Asp | Val | Glu | Met | Gly | Tyr | Asn | His | Asp | Ser | ||||||
Ser | Trp | Asn | Arg | Leu | Tyr | Thr | Arg | Leu | Met | Ala | Glu | Asn | |||||||
Trp | Leu | Val | Glu | Val | |||||||||||||||
Trp | Tyr | Val | |||||||||||||||||
Leu | Lys | Ile | Gly | Tyr | His | Leu | |||||||||||||
Ala | Val | Leu | Ser | Ala | Lys | Gly | Gln | Tyr | |||||||||||
Gly | Gly | Ala | Glu | Leu | Gly | Leu | Ser | Tyr | Pro | ||||||||||
Arg | Leu | Tyr | Thr | Gln | Val | Tyr | Ser | Gly | Tyr | ||||||||||
Asn | Gln | Thr | Arg | Val | Gly | Val | Gly | Val | Met |
// 1文字アミノ酸配列から3文字配列に変更して性質別のhtml形式表作成 // amino_acid-base.mac 【 詳細は http://www.ecosci.jp/pdb/hm/macro_g1.html 】 // 1文字アミノ酸配列記号以外はすべて X にしておくこと // 酸性・中性〈芳香族〉・塩基性区別 //範囲を選択中の場合は、選択を取り消した後全選択 if(selecting) escape; selectall; //文字数カウント $a = gettext(seltopx, seltopy, selendx, selendy); //message $a; #n = 0; #p = strstr($a, "\n"); while( #p >= 0 ) { $line[#n] = leftstr($a, #p-1); #l = strlen($line[#n]); #num[#n] = #l; if(#max < #l) { #max = #l; } $a = rightstr($a, strlen($a)-#p-1); #p = strstr($a, "\n"); #n = #n + 1; } escape; gofiletop; //selectall; //元の 1文字配列消去する時は行頭 // 削除 //delete; //元の 1文字配列消去する時は行頭 // 削除 //置換によるhtml作成 insert ""+"\n"; insert ""+"\n"; insert "極性・非極性別 "+"\n"; insert ""+"\n"; insert ""+"\n"; insert ""+"\n"; #i=0; while( #i < #n ) { insert "
"+"\n"; insert ""+"\n"; insert ""+"\n"; endmacro;"+"\n"; #j=0; while( #j < #num[#i] ) { $str = midstr($line[#i], #j,1); if($str=="R") $t=" <td bgcolor=#9696FF>Arg</td>"; else if($str=="K") $t=" <td bgcolor=#9696FF>Lys</td>"; else if($str=="D") $t=" <td bgcolor=#FF6464>Asp</td>"; else if($str=="N") $t=" <td bgcolor=#FFFF32>Asn</td>"; else if($str=="E") $t=" <td bgcolor=#FF6464>Glu</td>"; else if($str=="Q") $t=" <td bgcolor=#FFFF32>Gln</td>"; else if($str=="H") $t=" <td bgcolor=#9696FF>His</td>"; else if($str=="P") $t=" <td bgcolor=#FFFF32>Pro</td>"; else if($str=="Y") $t=" <td bgcolor=#96FF64>Tyr</td>"; else if($str=="W") $t=" <td bgcolor=#96FF64>Trp</td>"; else if($str=="S") $t=" <td bgcolor=#FFFF32>Ser</td>"; else if($str=="T") $t=" <td bgcolor=#FFFF32>Thr</td>"; else if($str=="G") $t=" <td bgcolor=#FFFF32>Gly</td>"; else if($str=="A") $t=" <td bgcolor=#FFFF32>Ala</td>"; else if($str=="M") $t=" <td bgcolor=#FFFF32>Met</td>"; else if($str=="C") $t=" <td bgcolor=#FFFF32>Cys</td>"; else if($str=="F") $t=" <td bgcolor=#96FF64>Phe</td>"; else if($str=="L") $t=" <td bgcolor=#FFFF32>Leu</td>"; else if($str=="V") $t=" <td bgcolor=#FFFF32>Val</td>"; else if($str=="I") $t=" <td bgcolor=#FFFF32>Ile</td>"; else if($str=="X") $t=" <td bgcolor=#FFFFFF> </td>"; else $t=" <td bgcolor=#FFFFFF> </td>"; insert $t+"\n"; #j = #j+1; } insert " "+"\n"; #i = #i+1; } insert "
■amino_hissu_td.macによる加工(ヒトの必須・非必須区別;アミノ酸参照) …マクロ集には未収載(表下にマクロ掲載;2024/09/16各アミノ酸数表記を追加)
Tyr | Pro | ||||||||||||||||||
Tyr | Leu | Ile | Tyr | Thr | Gln | Thr | |||||||||||||
Asp | Glu | Val | Lys | Phe | Gln | Leu | Ser | Leu | Ala | Phe | Pro | Leu | Trp | Arg | |||||
Ser | Val | Leu | Gly | Ala | Ser | Tyr | Thr | Gln | Lys | Ser | Trp | Trp | |||||||
Phe | Arg | Glu | Thr | Asn | Tyr | Glu | Pro | Gln | Leu | Phe | Leu | Gly | Phe | Ala | Thr | Asp | Tyr | Arg | Phe |
Trp | Thr | Leu | Arg | Asp | Val | Glu | Met | Gly | Tyr | Asn | His | Asp | Ser | ||||||
Ser | Trp | Asn | Arg | Leu | Tyr | Thr | Arg | Leu | Met | Ala | Glu | Asn | |||||||
Trp | Leu | Val | Glu | Val | |||||||||||||||
Trp | Tyr | Val | |||||||||||||||||
Leu | Lys | Ile | Gly | Tyr | His | Leu | |||||||||||||
Ala | Val | Leu | Ser | Ala | Lys | Gly | Gln | Tyr | |||||||||||
Gly | Gly | Ala | Glu | Leu | Gly | Leu | Ser | Tyr | Pro | ||||||||||
Arg | Leu | Tyr | Thr | Gln | Val | Tyr | Ser | Gly | Tyr | ||||||||||
Asn | Gln | Thr | Arg | Val | Gly | Val | Gly | Val | Met |
// 1文字アミノ酸配列から必須・非必須区別のhtml形式表作成 // amino_hissu_td.mac 【 詳細は http://www.ecosci.jp/pdb/hm/macro_g1.html 】 // 1文字アミノ酸配列記号以外はすべて X にしておくこと //範囲を選択中の場合は、選択を取り消した後全選択 if(selecting) escape; selectall; //文字数カウント $a = gettext(seltopx, seltopy, selendx, selendy); //message $a; #n = 0; #p = strstr($a, "\n"); while( #p >= 0 ) { $line[#n] = leftstr($a, #p-1); #l = strlen($line[#n]); #num[#n] = #l; if(#max < #l) { #max = #l; } $a = rightstr($a, strlen($a)-#p-1); #p = strstr($a, "\n"); #n = #n + 1; } escape; gofiletop; //selectall; //元の 1文字配列消去する時は行頭 // 削除 //delete; //元の 1文字配列消去する時は行頭 // 削除 //置換によるhtml作成 insert ""+"\n"; insert ""+"\n"; insert "必須・非必須区別 "+"\n"; insert ""+"\n"; insert ""+"\n"; insert ""+"\n"; #i=0; while( #i < #n ) { insert "
"+"\n"; insert ""+"\n"; insert ""+"\n"; insert "必須 = "+str(#a1)+""+"\n"; #j=0; while( #j < #num[#i] ) { $str = midstr($line[#i], #j,1); #total = #total + 1; if($str=="I") { $t=" <td bgcolor=#FFAA00>Ile</td>"; #a1 = #a1 + 1; } else if($str=="L") { $t=" <td bgcolor=#FFAA00>Leu</td>"; #a1 = #a1 + 1; } else if($str=="V") { $t=" <td bgcolor=#FFAA00>Val</td>"; #a1 = #a1 + 1; } else if($str=="F") { $t=" <td bgcolor=#FFAA00>Phe</td>"; #a1 = #a1 + 1; } else if($str=="M") { $t=" <td bgcolor=#FFAA00>Met</td>"; #a1 = #a1 + 1; } else if($str=="W") { $t=" <td bgcolor=#FFAA00>Trp</td>"; #a1 = #a1 + 1; } else if($str=="K") { $t=" <td bgcolor=#FFAA00>Lys</td>"; #a1 = #a1 + 1; } else if($str=="H") { $t=" <td bgcolor=#FFAA00>His</td>"; #a1 = #a1 + 1; } else if($str=="T") { $t=" <td bgcolor=#FFAA00>Thr</td>"; #a1 = #a1 + 1; } else if($str=="R") { $t=" <td bgcolor=#FF88BB>Arg</td>"; #a2 = #a2 + 1; } else if($str=="A") { $t=" <td bgcolor=#FF88FF>Ala</td>"; #a3 = #a3 + 1; } else if($str=="P") { $t=" <td bgcolor=#FF88FF>Pro</td>"; #a3 = #a3 + 1; } else if($str=="C") { $t=" <td bgcolor=#FF88FF>Cys</td>"; #a3 = #a3 + 1; } else if($str=="Y") { $t=" <td bgcolor=#FF88FF>Tyr</td>"; #a3 = #a3 + 1; } else if($str=="G") { $t=" <td bgcolor=#FF88FF>Gly</td>"; #a3 = #a3 + 1; } else if($str=="E") { $t=" <td bgcolor=#FF88FF>Glu</td>"; #a3 = #a3 + 1; } else if($str=="Q") { $t=" <td bgcolor=#FF88FF>Gln</td>"; #a3 = #a3 + 1; } else if($str=="D") { $t=" <td bgcolor=#FF88FF>Asp</td>"; #a3 = #a3 + 1; } else if($str=="S") { $t=" <td bgcolor=#FF88FF>Ser</td>"; #a3 = #a3 + 1; } else if($str=="N") { $t=" <td bgcolor=#FF88FF>Asn</td>"; #a3 = #a3 + 1; } else if($str=="X") $t=" <td bgcolor=#FFFFFF> </td>"; else $t=" <td bgcolor=#FFFFFF> </td>"; insert $t+"\n"; #j = #j+1; } insert " "+"\n"; #i = #i+1; } insert "
"+"\n"; insert "準必須 = "+str(#a2)+"
"+"\n"; insert "非必須 = "+str(#a3)+"
"+"\n"; insert " 計 = "+str(#total)+"
"+"\n"; endmacro;
■amino_bcaa.macによる加工(BCAAのIle・Val・LeuおよびCysの区別とカウント) → 参考:今週の分子/BCAA
(1) 1a02のChain F(Leucine Zipper含む)の場合 → BCAAその2;Leucine Zipperを含むタンパク質例参照
※1行7残基で作成〔Leucine Zipperの配列:L-x(6)-L-x(6)-L-x(6)-L;Googleによる「"leucine zipper" PROSITE」検索結果〕
Met | Lys | Arg | Arg | Ile | Arg | Arg |
---|---|---|---|---|---|---|
Glu | Arg | Asn | Lys | Met | Ala | Ala |
Ala | Lys | Ser | Arg | Asn | Arg | Arg |
Arg | Glu | Leu | Thr | Asp | Thr | Leu |
Gln | Ala | Glu | Thr | Asp | Gln | Leu |
Glu | Asp | Glu | Lys | Ser | Ala | Leu |
Gln | Thr | Glu | Ile | Ala | Asn | Leu |
Leu | Lys | Glu | Lys | Glu | Lys | Leu |
(2) 1dmd(Cysリッチ)の場合 → メタロチオネインの例参照
※1行10残基
Ser | Pro | Cys | Gln | Lys | Cys | Thr | Ser | Gly | Cys |
---|---|---|---|---|---|---|---|---|---|
Lys | Cys | Ala | Thr | Lys | Glu | Glu | Cys | Ser | Lys |
Thr | Cys | Thr | Lys | Pro | Cys | Ser | Cys | Cys | Pro |
Lys |
(3) 1tupのChain B(Zinc Finger含む)の場合 → DNAの脆弱性と強靭性/p53参照
※1行20残基〔赤字がZinc FingerのCys176・His179・Cys238・Cys242;Googleによる「"Zinc Finger" PROSITE」検索結果も参照〕
Ser | Ser | Ser | Val | Pro | Ser | Gln | Lys | Thr | Tyr | Gln | Gly | Ser | Tyr | Gly | Phe | Arg | Leu | Gly | Phe |
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Leu | His | Ser | Gly | Thr | Ala | Lys | Ser | Val | Thr | Cys | Thr | Tyr | Ser | Pro | Ala | Leu | Asn | Lys | Met |
Phe | Cys | Gln | Leu | Ala | Lys | Thr | Cys | Pro | Val | Gln | Leu | Trp | Val | Asp | Ser | Thr | Pro | Pro | Pro |
Gly | Thr | Arg | Val | Arg | Ala | Met | Ala | Ile | Tyr | Lys | Gln | Ser | Gln | His | Met | Thr | Glu | Val | Val |
Arg | Arg | Cys | Pro | His | His | Glu | Arg | Cys | Ser | Asp | Ser | Asp | Gly | Leu | Ala | Pro | Pro | Gln | His |
Leu | Ile | Arg | Val | Glu | Gly | Asn | Leu | Arg | Val | Glu | Tyr | Leu | Asp | Asp | Arg | Asn | Thr | Phe | Arg |
His | Ser | Val | Val | Val | Pro | Tyr | Glu | Pro | Pro | Glu | Val | Gly | Ser | Asp | Cys | Thr | Thr | Ile | His |
Tyr | Asn | Tyr | Met | Cys | Asn | Ser | Ser | Cys | Met | Gly | Gly | Met | Asn | Arg | Arg | Pro | Ile | Leu | Thr |
Ile | Ile | Thr | Leu | Glu | Asp | Ser | Ser | Gly | Asn | Leu | Leu | Gly | Arg | Asn | Ser | Phe | Glu | Val | Arg |
Val | Cys | Ala | Cys | Pro | Gly | Arg | Asp | Arg | Arg | Thr | Glu | Glu | Glu | Asn | Leu | Arg | Lys | Lys | Gly |
Glu | Pro | His | His | Glu | Leu | Pro | Pro | Gly | Ser | Thr | Lys | Arg | Ala | Leu | Pro | Asn | Asn | Thr |
(4) amino_bcaa.mac改変版(Val・Gly抽出用)による1k28のChain Aの場合 → T4ファージのgp5タンパク質例参照
※1行30残基〔C末端側の三角形筒構造はVXGXXXXXの8残基のサイクルで形成;Valが8残基の先頭,灰色のセルは手作業による〕
Met | Glu | Met | Ile | Ser | Asn | Asn | Leu | Asn | Trp | Phe | Val | Gly | Val | Val | Glu | Asp | Arg | Met | Asp | Pro | Leu | Lys | Leu | Gly | Arg | Val | Arg | Val | Arg |
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Val | Val | Gly | Leu | His | Pro | Pro | Gln | Arg | Ala | Gln | Gly | Asp | Val | Met | Gly | Ile | Pro | Thr | Glu | Lys | Leu | Pro | Trp | Met | Ser | Val | Ile | Gln | Pro |
Ile | Thr | Ser | Ala | Ala | Met | Ser | Gly | Ile | Gly | Gly | Ser | Val | Thr | Gly | Pro | Val | Glu | Gly | Thr | Arg | Val | Tyr | Gly | His | Phe | Leu | Asp | Lys | Trp |
Lys | Thr | Asn | Gly | Ile | Val | Leu | Gly | Thr | Tyr | Gly | Gly | Ile | Val | Arg | Glu | Lys | Pro | Asn | Arg | Leu | Glu | Gly | Phe | Ser | Asp | Pro | Thr | Gly | Gln |
Tyr | Pro | Arg | Arg | Leu | Gly | Asn | Asp | Thr | Asn | Val | Leu | Asn | Gln | Gly | Gly | Glu | Val | Gly | Tyr | Asp | Ser | Ser | Ser | Asn | Val | Ile | Gln | Asp | Ser |
Asn | Leu | Asp | Thr | Ala | Ile | Asn | Pro | Asp | Asp | Arg | Pro | Leu | Ser | Glu | Ile | Pro | Thr | Asp | Asp | Asn | Pro | Asn | Met | Ser | Met | Ala | Glu | Met | Leu |
Arg | Arg | Asp | Glu | Gly | Leu | Arg | Leu | Lys | Val | Tyr | Trp | Asp | Thr | Glu | Gly | Tyr | Pro | Thr | Ile | Gly | Ile | Gly | His | Leu | Ile | Met | Lys | Gln | Pro |
Val | Arg | Asp | Met | Ala | Gln | Ile | Asn | Lys | Val | Leu | Ser | Lys | Gln | Val | Gly | Arg | Glu | Ile | Thr | Gly | Asn | Pro | Gly | Ser | Ile | Thr | Met | Glu | Glu |
Ala | Thr | Thr | Leu | Phe | Glu | Arg | Asp | Leu | Ala | Asp | Met | Gln | Arg | Asp | Ile | Lys | Ser | His | Ser | Lys | Val | Gly | Pro | Val | Trp | Gln | Ala | Val | Asn |
Arg | Ser | Arg | Gln | Met | Ala | Leu | Glu | Asn | Met | Ala | Phe | Gln | Met | Gly | Val | Gly | Gly | Val | Ala | Lys | Phe | Asn | Thr | Met | Leu | Thr | Ala | Met | Leu |
Ala | Gly | Asp | Trp | Glu | Lys | Ala | Tyr | Lys | Ala | Gly | Arg | Asp | Ser | Leu | Trp | Tyr | Gln | Gln | Thr | Lys | Gly | Arg | Ala | Ser | Arg | Val | Thr | Met | Ile |
Ile | Leu | Thr | Gly | Asn | Leu | Glu | Ser | Tyr | Gly | Val | Glu | Val | Lys | Thr | Pro | Ala | Arg | Ser | Leu | Ser | Ala | Met | Ala | Ala | Thr | Val | Ala | Lys | Ser |
Ser | Asp | Pro | Ala | Asp | Pro | Pro | Ile | Pro | Asn | Asp | Ser | Arg | Ile | Leu | Phe | Lys | Glu | Pro | Val | Ser | Ser | Tyr | Lys | Gly | Glu | Tyr | Pro | Tyr | Val |
His | Thr | Met | Glu | Thr | Glu | Ser | Gly | His | Ile | Gln | Glu | Phe | Asp | Asp | Thr | Pro | Gly | Gln | Glu | Arg | Tyr | Arg | Leu | Val | His | Pro | Thr | Gly | Thr |
Tyr | Glu | Glu | Val | Ser | Pro | Ser | Gly | Arg | Arg | Thr | Arg | Lys | Thr | Val | Asp | Asn | Leu | Tyr | Asp | Ile | Thr | Asn | Ala | Asp | Gly | Asn | Phe | Leu | Val |
Ala | Gly | Asp | Lys | Lys | Thr | Asn | Val | Gly | Gly | Ser | Glu | Ile | Tyr | Tyr | Asn | Met | Asp | Asn | Arg | Leu | His | Gln | Ile | Asp | Gly | Ser | Asn | Thr | Ile |
Phe | Val | Arg | Gly | Asp | Glu | Thr | Lys | Thr | Val | Glu | Gly | Asn | Gly | Thr | Ile | Leu | Val | Lys | Gly | Asn | Val | Thr | Ile | Ile | Val | Glu | Gly | Asn | Ala |
Asp | Ile | Thr | Val | Lys | Gly | Asp | Ala | Thr | Thr | Leu | Val | Glu | Gly | Asn | Gln | Thr | Asn | Thr | Val | Asn | Gly | Asn | Leu | Ser | Trp | Lys | Val | Ala | Gly |
Thr | Val | Asp | Trp | Asp | Val | Gly | Gly | Asp | Trp | Thr | Glu | Lys | Met | Ala | Ser | Met | Ser | Ser | Ile | Ser | Ser | Gly | Gln | Tyr | Thr | Ile | Asp | Gly | Ser |
Arg | Ile | Asp | Ile | Gly | Ser | Val | Asp | His | His | His | His | His | His |
(1) 1gwlの場合
※赤字がセルロース結合モジュール中の芳香族アミノ酸
Met | Asn | Val | Arg | Ala | Thr | Tyr | Thr | Val | Ile | Phe | Lys | Asn | Ala | Ser | Gly | Leu | Pro | Asn | Gly | Tyr | Asp | Asn | Trp | Gly |
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Trp | Gly | Cys | Thr | Leu | Ser | Tyr | Tyr | Gly | Gly | Ala | Met | Ile | Ile | Asn | Pro | Gln | Glu | Gly | Lys | Tyr | Gly | Ala | Val | Ser |
Leu | Lys | Arg | Asn | Ser | Gly | Ser | Phe | Arg | Gly | Gly | Ser | Leu | Arg | Phe | Asp | Met | Lys | Asn | Glu | Gly | Lys | Val | Lys | Ile |
Leu | Val | Glu | Asn | Ser | Glu | Ala | Asp | Glu | Lys | Phe | Glu | Val | Glu | Thr | Ile | Ser | Pro | Ser | Asp | Glu | Tyr | Val | Thr | Tyr |
Ile | Leu | Asp | Val | Asp | Phe | Asp | Leu | Pro | Phe | Asp | Arg | Ile | Asp | Phe | Gln | Asp | Ala | Pro | Gly | Asn | Gly | Asp | Arg | Ile |
Trp | Ile | Lys | Asn | Leu | Val | His | Ser | Thr | Gly | Ser | Ala | Asp | Asp | Phe | Val | Asp | Pro | Ile | Asn | Leu | Glu | His | His | His |
His | His | His |
本サイトでPDBデータを利用したコンテンツであるPDB部分データリスト,PDBデータのLigand結合部位,P450データ集メニュー,膜貫通タンパク質データ集などでは,読み込み速度を上げるためと所要の表示をするために元データから必要な部分だけを切り出して用いている。その手法は,本サイトにおけるPDBデータの加工についてに記しているが,このようなデータ加工をするためのマクロを以下に記載する。各緑字部分を範囲指定してコピーし,上記マクロと同じように秀丸プログラムが置いてあるフォルダに適当な名前(拡張子mac)で保存すれば利用できる。マクロ実行後に必要なChain以外を削除するなどの加工をした上で任意のファイル名(拡張子pdb;公開する場合はPDB IDがわかるようにしておく必要がある)で保存すれば,Chimeで参照できる。
(1) PDBデータをATOM,HETATMの座標データだけにしてサイズを小さくするマクロ
(1b) NMR複数構造用 ※pdb_mini_nmr.mac
(2) データサイズを小さくした後ANISOU行を削除するマクロ ※pdb_mini3.mac;ANISOU行を含む最近のデータに対して(1a) の代わりに利用(旧pdb_mini2.macは削除)
(3) アミノ酸のコンホメーション選択性(α構造・β構造)識別マクロ ※amino_2nd.mac(他に数値も出力する amino_2ndv.mac);アミノ酸のコンホメーション選択性参照
amino_2ndv.macで作成した表をExcelでグラフ化した例〔上〕と二次構造・コンホメーション選択性表示のアニメーション〔下〕
(4a) PDBsumのLigand-SITE情報データを小さくすると同時に有機性・無機性を算出するマクロ/タンパク質用 ※pdb_org01.mac(他に各アミノ酸残基数も出力する pdb_org02.mac);同マクロ利用データによるコンテンツ例 → PDBsumのLigand-SITE情報と有機性・無機性 2022年5月以降PDBsumサイトで新規データを公開しなくなったので同サイトでLigPlot+をDLし,PyMOL併用でデータを得ることができる。
(4b) PDBsumのLigand-SITE情報データを小さくすると同時に有機性・無機性を算出するマクロ/核酸用 ※pdb_org01_ATGCU.mac
◆補足:PDBデータのサイズを小さくするマクロ
ただし,PDBデータによっては特殊な書式になっていることもあり,その場合はこのマクロが有効でないので,確認の上利用していただきたい(元データを新規作業ファイルにコピーしてマクロを実行するとよい)。
※2005/02/12改変(高速化),2005/02/25(1b)追加,2006/05/09改変(“CONECT”行のないデータに対応),2006/05/17ダウンロード用圧縮ファイルに同梱
(1a) NMR複数構造以外用 ※pdb_mini1.mac
// PDBデータをATOM,HETATMの座標データだけにしてサイズを小さくするマクロ
// (NMR複数構造以外用)
gofiletop;
searchdown "\\nATOM" , regular;
beginsel;
gofiletop;
delete;
searchdown "\\nCONECT" , regular;
if ( result == true ) {
beginsel;
}
else {
gofiletop;
searchdown "\\nMASTER" , regular;
beginsel;
}
searchdown "\\nEND" , regular;
delete;
#line = y;
#n = #line;
gofiletop;
delete;
right 54;
beginrect;
moveto 82, #n;
delete;
gofiletop;
endmacro;
// PDBデータをATOM,HETATMの座標データだけにしてサイズを小さくするマクロ
// (NMR複数構造用)
gofiletop;
searchdown "\\nATOM" , regular;
beginsel;
gofiletop;
delete;
searchdown "\\nENDMDL" , regular;
beginsel;
searchdown "\\nEND " , regular;
delete;
#line = y;
#n = #line;
gofiletop;
delete;
right 54;
beginrect;
moveto 82, #n;
delete;
gofiletop;
endmacro;
// PDBデータをATOM,HETATMの座標データだけにしてサイズを小さくするマクロ
// ANISOU行を削除
// pdb_mimi3.mac 【 詳細は http://www.ecosci.jp/pdb/hm/macro_g1.html 】
gofiletop;
searchdown "\\nATOM" , regular;
beginsel;
gofiletop;
delete;
searchdown "\\nCONECT" , regular;
if ( result == true ) {
beginsel;
}
else {
gofiletop;
searchdown "\\nMASTER" , regular;
beginsel;
}
searchdown "\\nEND" , regular;
delete;
#line = y;
#n = #line;
gofiletop;
delete;
right 54;
beginrect;
moveto 82, #n;
delete;
gofiletop;
while(1){
searchdown "\nANISOU" , regular;
if ( result == true ) {
up 1;
deleteline;
}
else {
down 1;
selectline;
$a = gettext(seltopx, seltopy, selendx, selendy);
$b = leftstr($a, 3);
if($b=="END") {
break;
}
}
}
gofiletop;
endmacro;
// αヘリックス選択性・βストランド選択性の高いアミノ酸を色分けするマクロ
if(selecting)
escape;
selectall;
//文字数カウント
$a = gettext(seltopx, seltopy, selendx, selendy);
//message $a;
#n = 0;
#p = strstr($a, "\n");
while( #p >= 0 ) {
$line[#n] = leftstr($a, #p-1);
#l = strlen($line[#n]);
#num[#n] = #l;
if(#max < #l) {
#max = #l;
}
$a = rightstr($a, strlen($a)-#p-1);
#p = strstr($a, "\n");
#n = #n + 1;
}
escape;
gofiletop;
//selectall; //元の 1文字配列消去する時は行頭 // 削除
//delete; //元の 1文字配列消去する時は行頭 // 削除
//置換によるhtml作成
insert "<HTML>"+"\n";
insert "<HEAD>"+"\n";
insert "<TITLE>疎水性インデックス順</TITLE>"+"\n";
insert "</HEAD>"+"\n";
insert "<BODY>"+"\n";
insert "<TABLE border cellspacing=0 cellpadding=2 bgcolor=#FFFFFF>"+"\n";
#i=0; while( #i < #n ) {
insert "
"+"\n";
#j=0; while( #j < #num[#i] ) {
$str = midstr($line[#i], #j,1);
if($str=="R") $t=" <th bgcolor=#ffb4c8>Arg</th>";
else if($str=="K") $t=" <th bgcolor=#ffb4c8>Lys</th>";
else if($str=="D") $t=" <th bgcolor=#ffffff>Asp</th>";
else if($str=="N") $t=" <th bgcolor=#ffffff>Asn</th>";
else if($str=="E") $t=" <th bgcolor=#ff3c82>Glu</th>";
else if($str=="Q") $t=" <th bgcolor=#ffb4c8>Gln</th>";
else if($str=="H") $t=" <th bgcolor=#ffe6f0>His</th>";
else if($str=="P") $t=" <th bgcolor=#ffffff>Pro</th>";
else if($str=="Y") $t=" <th bgcolor=#ffdc28>Tyr</th>";
else if($str=="W") $t=" <th bgcolor=#ffe678>Trp</th>";
else if($str=="S") $t=" <th bgcolor=#ffffff>Ser</th>";
else if($str=="T") $t=" <th bgcolor=#fff0a0>Thr</th>";
else if($str=="G") $t=" <th bgcolor=#ffffff>Gly</th>";
else if($str=="A") $t=" <th bgcolor=#ff468c>Ala</th>";
else if($str=="M") $t=" <th bgcolor=#ff78aa>Met</th>";
else if($str=="C") $t=" <th bgcolor=#ffdc28>Cys</th>";
else if($str=="F") $t=" <th bgcolor=#ffe678>Phe</th>";
else if($str=="L") $t=" <th bgcolor=#ff78aa>Leu</th>";
else if($str=="V") $t=" <th bgcolor=#ffc800>Val</th>";
else if($str=="I") $t=" <th bgcolor=#ffd214>Ile</th>";
else if($str=="X") $t=" <th bgcolor=#FFFFFF> </th>";
else $t=" <th bgcolor=#FFFFFF> </th>";
insert $t+"\n";
#j = #j+1;
}
insert " "+"\n";
#i = #i+1;
}
insert "</TABLE>"+"\n";
insert "</BODY>"+"\n";
insert "</HTML>"+"\n";
endmacro;
●:αヘリックス選択性,■:βストランド選択性,▲:逆ターン選択性,━:HELIX(PDBデータのヘッダ),━:SHEET(同)
(PDBデータ1apsのModel 1の場合;スーパーフォールドの例であるαβサンドイッチ構造)
※参考:タンパク質二次構造予測(JST ゲノム解析ツール リンク集)
PDBデータ1c9eの二次構造とコンホメーション選択性表示のアニメーション(生体分子の構成元素で作成)
// HB情報を含むPDBsumデータを加工し有機概念図の有機性・無機性を計算するマクロ
// pdb_org01.mac(アミノ酸残基数非表示;表示版はpdb_org02.mac)
// 詳細: http://www.ecosci.jp/pdb/hm/macro_g1.html
// データ利用コンテンツ例: http://www.ecosci.jp/pdb/pdbsum_site.html
// 有機概念図: http://www.ecosci.jp/sheet/orgs_help.html
gofiletop;
searchdown "\\nATOM" , regular;
beginsel;
gofiletop;
delete;
searchdown "\\nCONECT" , regular;
if ( result == true ) {
beginsel;
}
else {
gofiletop;
searchdown "\\nMASTER" , regular;
beginsel;
}
searchdown "\z" , regular;
delete;
#line = y;
#n = #line;
gofiletop;
delete;
right 54;
beginrect;
moveto 82, #n;
delete;
gofiletop;
#nn = 0;
#n01 = 0;
#n02 = 0;
#n03 = 0;
#n04 = 0;
#n05 = 0;
#n06 = 0;
#n07 = 0;
#n08 = 0;
#n09 = 0;
#n10 = 0;
#n11 = 0;
#n12 = 0;
#n13 = 0;
#n14 = 0;
#n15 = 0;
#n16 = 0;
#n17 = 0;
#n18 = 0;
#n19 = 0;
#n20 = 0;
#n21 = 0;
#no = 0;
#ni = 0;
while(1){
searchdown " N ";
if ( result == true ) {
golinetop;
selectline;
$a = gettext(seltopx, seltopy, selendx, selendy);
$b = midstr($a, 17, 3);
if($b=="ALA") {#n01 = #n01 + 1;
#no = #no + 20;
}
else if($b=="ARG") {#n02 = #n02 + 1;
#no = #no + 80;
#ni = #ni + 190;
}
else if($b=="ASN") {#n03 = #n03 + 1;
#no = #no + 40;
#ni = #ni + 200;
}
else if($b=="ASP") {#n04 = #n04 + 1;
#no = #no + 40;
#ni = #ni + 150;
}
else if($b=="CYS") {#n05 = #n05 + 1;
#no = #no + 60;
#ni = #ni + 20;
}
else if($b=="GLN") {#n06 = #n06 + 1;
#no = #no + 60;
#ni = #ni + 200;
}
else if($b=="GLU") {#n07 = #n07 + 1;
#no = #no + 60;
#ni = #ni + 150;
}
else if($b=="GLY") #n08 = #n08 + 1;
else if($b=="HIS") {#n09 = #n09 + 1;
#no = #no + 80;
#ni = #ni + 152;
}
else if($b=="ILE") {#n10 = #n10 + 1;
#no = #no + 80;
}
else if($b=="LEU") {#n11 = #n11 + 1;
#no = #no + 70;
}
else if($b=="LYS") {#n12 = #n12 + 1;
#no = #no + 80;
#ni = #ni + 70;
}
else if($b=="MET") {#n13 = #n13 + 1;
#no = #no + 100;
#ni = #ni + 20;
}
else if($b=="PHE") {#n14 = #n14 + 1;
#no = #no + 140;
#ni = #ni + 15;
}
else if($b=="PRO") {#n15 = #n15 + 1;
#no = #no + 60;
#ni = #ni + 10;
}
else if($b=="SER") {#n16 = #n16 + 1;
#no = #no + 20;
#ni = #ni + 100;
}
else if($b=="THR") {#n17 = #n17 + 1;
#no = #no + 40;
#ni = #ni + 100;
}
else if($b=="TRP") {#n18 = #n18 + 1;
#no = #no + 180;
#ni = #ni + 130;
}
else if($b=="TYR") {#n19 = #n19 + 1;
#no = #no + 140;
#ni = #ni + 115;
}
else if($b=="VAL") {#n20 = #n20 + 1;
#no = #no + 50;
}
else #n21 = #n21 + 1;
escape;
down 1;
#nn = #nn +1;
}
else{
break;
}
}
gofiletop;
insert "# "+"\n";
insert "# "+"\n";
insert "# O(R) = "+str(#no)+"\n";
insert "# I(R) = "+str(#ni)+"\n";
// アミノ酸残基数を記載する時は以下の各行頭の // 削除
// insert "# ALA = "+str(#n01)+"\n";
// insert "# ARG = "+str(#n02)+"\n";
// insert "# ASN = "+str(#n03)+"\n";
// insert "# ASP = "+str(#n04)+"\n";
// insert "# CYS = "+str(#n05)+"\n";
// insert "# GLN = "+str(#n06)+"\n";
// insert "# GLU = "+str(#n07)+"\n";
// insert "# GLY = "+str(#n08)+"\n";
// insert "# HIS = "+str(#n09)+"\n";
// insert "# ILE = "+str(#n10)+"\n";
// insert "# LEU = "+str(#n11)+"\n";
// insert "# LYS = "+str(#n12)+"\n";
// insert "# MET = "+str(#n13)+"\n";
// insert "# PHE = "+str(#n14)+"\n";
// insert "# PRO = "+str(#n15)+"\n";
// insert "# SER = "+str(#n16)+"\n";
// insert "# THR = "+str(#n17)+"\n";
// insert "# TRP = "+str(#n18)+"\n";
// insert "# TYR = "+str(#n19)+"\n";
// insert "# VAL = "+str(#n20)+"\n";
// insert "# others = "+str(#n21)+"\n";
endmacro;
// HB情報を含むPDBsumデータを加工し有機概念図の有機性・無機性を計算するマクロ
// pdb_org01_ATGCU.mac(核酸データのみ用)
// 詳細: http://www.ecosci.jp/pdb/hm/macro_g1.html
// 有機概念図: http://www.ecosci.jp/ocd/
gofiletop;
searchdown "\\nATOM" , regular;
beginsel;
gofiletop;
delete;
searchdown "\\nCONECT" , regular;
if ( result == true ) {
beginsel;
}
else {
gofiletop;
searchdown "\\nMASTER" , regular;
beginsel;
}
searchdown "\z" , regular;
delete;
#line = y;
#n = #line;
gofiletop;
delete;
right 54;
beginrect;
moveto 82, #n;
delete;
gofiletop;
#nn = 0;
#b01 = 0;
#b02 = 0;
#b03 = 0;
#b04 = 0;
#b05 = 0;
#b06 = 0;
#no = 0;
#ni = 0;
while(1){
searchdown " P ";
if ( result == true ) {
golinetop;
selectline;
$a = gettext(seltopx, seltopy, selendx, selendy);
$b = midstr($a, 17, 3);
if(($b==" A") || ($b==" DA")) {#b01 = #b01 + 1;
#no = #no + 100;
#ni = #ni + 410;
}
else if(($b==" T") || ($b==" DT")) {#b02 = #b02 + 1;
#no = #no + 100;
#ni = #ni + 282;
}
else if(($b==" G") || ($b==" DG")) {#b03 = #b03 + 1;
#no = #no + 100;
#ni = #ni + 440;
}
else if(($b==" C") || ($b==" DC")) {#b04 = #b04 + 1;
#no = #no + 80;
#ni = #ni + 287;
}
else if(($b==" U") || ($b==" DU")) {#b05 = #b05 + 1;
#no = #no + 80;
#ni = #ni + 282;
}
else #b06 = #b06 + 1;
escape;
down 1;
#nn = #nn +1;
}
else{
break;
}
}
gofiletop;
insert "# "+"\n";
insert "# "+"\n";
insert "# O(R) = "+str(#no)+"\n";
insert "# I(R) = "+str(#ni)+"\n";
insert "# A = "+str(#b01)+"\n";
insert "# T = "+str(#b02)+"\n";
insert "# G = "+str(#b03)+"\n";
insert "# C = "+str(#b04)+"\n";
insert "# U = "+str(#b05)+"\n";
insert "# others = "+str(#b06)+"\n";
endmacro;
[左]ネオマイシン(neomycin B,アミノグリコシド系)が結合したRNA 1ei2のPDBsumデータ → 抗生物質を含むPDBデータ
[右]DNA・RNAの塩基部分の有機概念図
◆参考:その他の秀丸マクロ