summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.sci
blob: b47055934adcca700708c53f2d4dcf888d1f810d (plain)
1
2
3
4
5
6
7
8
9
10
// 08.05.20

function N=Trunc(X)
  if X>=0
    N=floor(X)
  else
    N=ceil(X)
  end
endfunction