summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.sci
blob: b6a53b62513c0fc939c35c30dc6bba750a681a72 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
// 10.03.28

function Out=Diagcelldata(Tb,Nc,Nr)
  Tmp=Findcell(Tb,Nc,Nr);
  C=Tmp(1);
  Dx=Tmp(2);
  Dy=Tmp(3);
  Pne=C+[Dx,Dy];
  Pnw=C+[-Dx,Dy];
  Psw=C+[-Dx,-Dy];
  Pse=C+[Dx,-Dy];
  Tmp1=Listplot(Pnw,Pse);
  Tmp2=Listplot(Pne,Psw);
  Out=list(Tmp1,Tmp2);
endfunction;