diff options
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.sci | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.sci new file mode 100755 index 00000000..b6a53b62 --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/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 |