summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.sci
blob: b2118c90c43b526c6e3e2b6d6ee1acce0afbfffb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
// 08.07.11

function Out=Xyzax3data(Xrange,Yrange,Zrange)
  J=mtlb_findstr(Xrange,'=');
  Tmp=evstr(part(Xrange,J+1:length(Xrange)));
  Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0];
  J=mtlb_findstr(Yrange,'=');
  Tmp=evstr(part(Yrange,J+1:length(Yrange)));
  Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0];
  J=mtlb_findstr(Zrange,'=');
  Tmp=evstr(part(Zrange,J+1:length(Zrange)));
  Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)];
  Out=MixS(Spaceline([Px,Qx]),Spaceline([Py,Qy]),Spaceline([Pz,Qz]));
endfunction