ryamada22 https://blog.hatena.ne.jp/ryamada22/ ryamadaの遺伝学・遺伝統計学メモ https://ryamada22.hatenablog.jp/ R 昨日の記事で高次らせんを描いた これを一昨日の記事のDNA２重らせんと組み合わせると… library(rgl) # 基本的には高次らせん ori <- c(0,0,0) # 第i円の半径。DNA２重らせんの円周は10オングストロームに合わせ、Rsの最終要素の値は10 Rs <- c(640,160,40,10) # DNA２重らせんの１周あたりの伸びが34オングストロームなので、後ろから２番目の円の半径x角に関してはそれを反映させた値とするべくTs[length(Rs)-1]をRs[length(Rs)-1]の値で調整している # 後で出るパラメタtが１刻みの整数であるので、Tsの最終円の値… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada22.hatenablog.jp%2Fentry%2F20131226%2F1387941758" title="DNA二重らせんの高次畳みこみ - ryamadaの遺伝学・遺伝統計学メモ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.f.st-hatena.com/images/fotolife/r/ryamada22/20131225/20131225122143.jpg Hatena Blog https://hatena.blog 2013-12-26 12:22:38 rich https://ryamada22.hatenablog.jp/entry/20131226/1387941758 1.0 100%