From 138f77fe71e43adc24ecb030d73df81cc5c4eb7e Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 4 Sep 2017 09:45:51 +0900 Subject: add ketpic --- .../ketpic/ketlib/ketpicscifiles6/Diagcelldata.sci | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.sci (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.sci') diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.sci new file mode 100644 index 00000000..b6a53b62 --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.sci @@ -0,0 +1,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; \ No newline at end of file -- cgit v1.2.3