mirror of
http://43.156.76.180:8026/YuuMJ/EukPhylo.git
synced 2025-12-28 12:50:25 +08:00
6 lines
127 B
Matlab
6 lines
127 B
Matlab
function r=rot(n,i,j,phi)
|
|
% get rotation matrix for one turn
|
|
|
|
r=eye(n);
|
|
r([i,j],[i,j])=[cos(phi),sin(phi);-sin(phi),cos(phi)];
|