1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
//SCI2C: DEFAULT_PRECISION= DOUBLE function mainfunction() //test inversion disp (inv(3)) disp (inv(3+2*%i)) c=[4 2 3 ;8 8 4; 3 4 5] d=[4 2 3 ;8 8-1*%i 4; 3+4*%i 4 5] disp (inv(c)) disp (inv(d)) endfunction