, . .
. , , , (, , ..). , .
.., (, ), , . , .
. , , , , . , , , .
, :
^ , , ;
Simula, - ;
, .
.
: , , .. IBM, /1. -68. , , . /1 , , , . . .
^ /1 . , , . , .
, .
|
|
. , ( ) . , .
. . .
^ .
. . .
, , ( ), .
, , , - . , , - .
.
, , , .
34) 1. MATLAB
MATLAB (. Cleve Moler) 1970- , -. Linpack EISPACK . , . 1982 , , . (. John N. (Jack) Little) 1983 . , , (. Steve Bangert). MATLAB C 1984 The MathWorks . JACKPAC. MATLAB ( ), . , , .
MATLAB , , , , - , .
|
|
, MATLAB, . , . . , . pre-parsed , , . , .
MATLAB , (. Think vectorized).
, magic.m, M n:
[J,I] = meshgrid(1:n);
A = mod(I+J-(n+3)/2,n);
B = mod(I+2*J-2,n);
M = n*A + B + 1;
, A B ( A , B):
A(1:end) = B(end:-1:1);
sinc-, MATLAB
, sinc- :
[X,Y] = meshgrid(-8:.5:8);
R = sqrt(X.^2 + Y.^2);
Z = sin(R)./R;
Z(R==0) = 1;
mesh(X,Y,Z);
.
ww = repmat (w, [size(b,1) 1]);
A = b.*ww*b';
,
for i = 1:size(b,1)
for j = i:size(b,1)
A (i, j) = sum (b (i,:).*b (j,:).*w);
end
for j = 1:i
A (i, j) = A (j, i);
end
end
.