7 lines
126 B
Mathematica
7 lines
126 B
Mathematica
|
|
function C = intvmul(A,B)
|
||
|
|
a = A(1);
|
||
|
|
b = A(2);
|
||
|
|
c = B(1);
|
||
|
|
d = B(2);
|
||
|
|
C = [min([a*c, a*d, b*c, b*d]), max([a*c, a*d, b*c, b*d])];
|