h2oの原子座標

水 - Wikipedia
ぐぐってもなかなか見つからなかったので自分で計算しました。以下メモ。
ボンド長95.84pm、結合角104の水の座標。
酸素の座標を0,0,0とする。
x y z
0.0000000 0.0000000 0
0.7575408 -0.5870796 0
-0.7575408 -0.5870796 0

Rで関数にしてみました。

genh2o<-function(){
	h2o<-data.frame()
	a<-0.9584
	alfa<-104.45*pi/180
	h2o<-rbind(h2o,
		cbind(0,0,0),
		cbind(a*sin(alfa/2),-a*cos(alfa/2),0),
		cbind(-a*sin(alfa/2),-a*cos(alfa/2),0)
		)
	return(h2o)
}