diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci deleted file mode 100644 index b6a53b62..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Diagcelldata.sci +++ /dev/null @@ -1,15 +0,0 @@ -// 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 |