Jt Total Commwdtr 7.50a - Wydziel Fizyki Technicznej i Matematyki Stosowanej Politechnik
'* Edrtof - C:\Users\2byszek\2ad_Met Num\Matj^njmj:ad\Ukł_roac_Htlb-m*
41 % V M 41 Stedc Sase
ro lin3olve (A,b)
cnd=cond (A); display (cndL) ; rtKłnes (n, 1) ; b*su» (A, 2)1; i^inv (A) *b
%z=A\b %dokładnie to saao y#llnsolve (A, b) r#abs {A*x—b) p*abs(A*y-b)
%q==abs (A*z-b)
bl» [max (rd-x) max (rd-y) max (r) max(p)]
i script | Ln 1 Coł 5 | OVR
mm • T B