File: sci_triu.sci

package info (click to toggle)

scilab 2.4-1

links: PTS
area: non-free
in suites: potato, slink
size: 55,196 kB
ctags: 38,019
sloc: ansic: 231,970; fortran: 148,976; tcl: 7,099; makefile: 4,585; sh: 2,978; csh: 154; cpp: 101; asm: 39; sed: 5

file content (11 lines) | stat: -rw-r--r-- 254 bytes

parent folder | download | duplicates (2)

function [stk,txt,top]=sci_triu()
// Copyright INRIA
txt=[]
if rhs==2 then
  s1=stk(top-1)
  stk=list('triu('+s1(1)+','+stk(top)(1)+')','0',s1(3),s1(4),s1(5),'?')
  top=top-1
else
  s1=stk(top)
  stk=list('triu('+s1(1)+')','0',s1(3),s1(4),s1(5),'?')
end