summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.sci
blob: 5c237179324b08201645dc63eec48613f2244556 (plain)
1
2
3
4
5
6
7
8
// 08.07.11

function Out=Zparapt(P)
  global PHI THETA;
  x=P(1); y=P(2); z=P(3);
  Out=x*cos(PHI)*sin(THETA)+y*sin(PHI)*sin(THETA)+z*cos(THETA);
endfunction