blob: 1574d812ccc41b3887e3b6db626ba866956ffac4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
// 13.08.13
function Out=Cancoordpara(P)
global PHI THETA;
Xz=P(1); Yz=P(2); Zz=P(3);
X=-Xz*sin(PHI)-Yz*cos(PHI)*cos(THETA)+Zz*cos(PHI)*sin(THETA);
Y=Xz*cos(PHI)-Yz*sin(PHI)*cos(THETA)+Zz*sin(PHI)*sin(THETA);
Z=Yz*sin(THETA)+Zz*cos(THETA);
Out=[X,Y,Z];
endfunction
|