//SCI2C: DEFAULT_PRECISION= DOUBLE

function mainfunction()


// test OpEqual
disp(1==1)
disp(1==2)
disp(1==2+%i)
disp(1+%i==2)
disp(1+%i==2+%i)

a=[1 2 ; 3 4]
b=[5 2 ; 6+%i 1-%i]

disp(a==a)
disp(a==b)
disp(b==a)
disp(b==b)


disp(3==a)
disp(5==b)
disp(a==4)
disp(b==2)

disp(1+%i==a)
disp(1-%i==b)
disp(a==6+%i)
disp(b==6+%i)

endfunction