rzabaa
Operator Łopaty
Dołączył: 20 Wrz 2007
Posty: 19
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
Wysłany: Sob 13:49, 01 Mar 2008 Temat postu: |
|
|
function x=nad(A,B)
S=A'*A;
t=A'*B;
x=inv(S)*t;
endfunction
A=[1 1;0.5 1;-1 1;0 1]
B=[1.5;2;0;0.5]
x=nad(A,B)
m1=[0,2];
n1=1.5-m1;
plot(m1,n1);
hold on;
m2=[0,2];
n2=2-0.5*m1;
plot(m2,n2);
hold on;
m3=[0,2];
n3=m3;
plot(m3,n3);
hold on;
m4=[0,2];
n4=[0.5,0.5];
plot(m4,n4);
hold on;
x1=x(1);
x2=x(2);
plot(x1,x2,"*");
hold on;
[A*x B]
pause
Post został pochwalony 0 razy
Ostatnio zmieniony przez rzabaa dnia Pią 1:52, 07 Mar 2008, w całości zmieniany 2 razy
|
|