diff options
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.sci')
-rw-r--r-- | texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.sci | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.sci new file mode 100644 index 00000000..d14f3b3a --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.sci @@ -0,0 +1,7 @@ +// 10.11.04 + +function Out=Roundstr(X,Ni,Nf) + Na=Ni+1+Nf; + Fmt='%'+string(Na)+'.'+string(Nf)+'f'; + Out=sprintf(Fmt,X); +endfunction; |