blob: 5adb48378e50de78b0c8b4695ba528d370d489ac (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
// 08.07.11
// 10.01.02
function Out=Parapt(P)
global PHI THETA
x=P(1);
y=P(2);
z=P(3);
Xz=-x*sin(PHI)+y*cos(PHI);
Yz=-x*cos(PHI)*cos(THETA)-y*sin(PHI)*cos(THETA)+z*sin(THETA);
Out=[Xz,Yz];
endfunction
|