{[ promptMessage ]}

Bookmark it

{[ promptMessage ]}

Lecture Notes 3-3 - Class Notes 3-3 File:ClsExInflows.mle...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full Document Right Arrow Icon
Background image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: Class Notes 3-3 File:ClsExInflows.mle 3-3‘2010 A 1.000 -0.200 0.000 -0.100 -0.300 1.000 0.000 0.000 -0.700 -0.200 1.000 0.000 0.000 —0.500 -1.000 1.000 lam:{ 6.207, 2.862, 4.918, 6.349} ---------------------- test solution —---------------- A.1am - extlam x:{ —0.000, 0.000, 0.000, 0.000} [* compute workstation inflow rates for a network of workstations *] ReaIFormat[8,3]; IntegerForrnat[3]; Print["Fi1e:ClsExInflowsmle 3-3-2010"]; extlam = {5,100}; [* network equations *] A = Table[0.0, {i,4},{j,4}]; [* lam[[1]] = extlam[[1]] + 0.21am[[2]] + 0.11am[[4]]; *1 A[[1,1]] = 1-0; A[[1.2]] = -0-2; A[[1,4]] = -0-1; [* Iarn[[2]] = 1+0.31am[[1]]; *] A[[2,2]] = 1-0; A[[2.1]] = -0-3; [* Iam[[3]] = 0+0.71am[[1]] + 0.2lam[[2]]; *] A[[3=3]] = 10; A[[3,1]] = -0-7; A[[3,2}] = -0-2; [* Iam[[4]] = 0+0.51am[[2]] + 1am[[3]]; *] A[[4,4]] = 1.0; A[[4,2]] = -0.5; A[[4,31] = -1.0; Print["A"]; MatrixPrint[1 .OA]; lam = Inverse[A].ext1an1; Pfiflt[" n]; Print["lam: ",lam]; Print[" "]; Print[" ---------------------- test solution ----------------- "] ; Print[" "]; x = A.Ia1n - extlam; Print["A.lam - extlam"]; Print["x: ",x]; ...
View Full Document

{[ snackBarMessage ]}