matlab.mws

Maplen ja MATLABin yhteistyö

Ladataan MATLAB-paketti

> with(Matlab);

[chol, closelink, defined, det, dimensions, eig, ev...
[chol, closelink, defined, det, dimensions, eig, ev...

Avataan MATLAB-linkki

> openlink();

Luodaan Maplessa matriisi

> A:=array(1..3,1..3,[[1,2,3],[4,5,6],[7,8,9]]);

A := matrix([[1, 2, 3], [4, 5, 6], [7, 8, 9]])

Viedään matriisi MATLABiin

> setvar("A",A);

Luodaan MATLAB-ikkunassa satunnaismatriisi ja haetaan sen Mapleen

> B:=getvar("B"):

> print(B);

_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]
_rtable[32282332]

> luku:=rand(1..10):

Luodaan satunnaislukuja väliltä 1..10 sisältävä matriisi

> C:=array(1..10,1..10,[]);
for i from 1 to 10 do
for j from 1 to 10 do C[i,j]:=luku();
od;
od;

C := array(1 .. 10,1 .. 10,[])

> print(C);

matrix([[2, 1, 8, 4, 7, 9, 6, 9, 2, 10], [6, 4, 8, ...

Lasketaan MATLABin avulla matriisin C LU-hajotelma

> (L,U):=lu(C);

L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]
L, U := _rtable[32286236], _rtable[32291284]

> Digits:=3;
evalm(L&*U);

Digits := 3

matrix([[2.00, 1.00, 8.00, 4.00, 7.00, 9.00, 6.00, ...

> evalm(L);

matrix([[.200, .698e-1, 1., 0., 0., 0., 0., 0., 0.,...

> evalm(U);

matrix([[10., 2., 10., 8., 4., 6., 5., 2., 7., 10.]...

>

>