//SCI2C: DEFAULT_PRECISION= DOUBLE

function mainfunction()

//test cos


disp (cos(7/10));
disp (cos((2+11*%i)/10))

c=[4 2 3 ;8 8 4; 3 4 5]
d=[4 2 3+3*%i ;8 8-1*%i 4; 3+4*%i 4 5]

disp (cos(c))
disp (cos(d))

endfunction