summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Parapt.sci
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