//SCI2C: DEFAULT_PRECISION= DOUBLE

function mainfunction()

//test ones

//reals


//disp(ones())

disp(ones(1))

disp(ones(4))

disp(ones(1,1))

disp(ones(1,4))

disp(ones(4,4))

disp(ones(4,1))

a=[1 2 3; 4 5 6; 7 8 9]

disp(ones(a))

//complexe

disp(ones(2+%i))

b=a+%i

disp(ones(b))


endfunction