fork download
  1. % A B C
  2. A = [1 -1 ; % A B 10
  3. 1 -1 ; % A B 30
  4. 0 1]; % B C 50
  5.  
  6. C = diag(1./[10 30 50]);
  7. f = zeros(size(A, 2), 1);
  8. f(1) = 1;
  9.  
  10. x = A'*C*A\f;
  11. disp(x(1));
  12.  
  13. % A B C D E F
  14. A = [1 0 -1 0 0; % A C 5
  15. 1 -1 0 0 0; % A B 10
  16. -1 0 0 1 0; % D A 5
  17. 0 0 0 1 -1; % D E 10
  18. 0 0 1 0 -1; % C E 10
  19. 0 0 0 0 1; % E F 15
  20. 0 1 0 0 0]; % B F 20
  21.  
  22. C = diag(1./[5 10 5 10 10 15 20]);
  23. f = zeros(size(A, 2), 1);
  24. f(1) = 1;
  25.  
  26. x = A'*C*A\f;
  27. disp(x(1));
  28.  
  29. % A B C D
  30. A = [1 -1 0 ; % A B 10
  31. 1 0 -1 ; % A C 10
  32. 0 1 0 ; % B D 10
  33. 0 0 1 ; % C D 10
  34. 0 1 -1 ]; % B C 10
  35.  
  36.  
  37. C = diag(1./[10 10 10 10 10]);
  38. f = zeros(size(A, 2), 1);
  39. f(1) = 1;
  40.  
  41. x = A'*C*A\f;
  42. disp(x(1));
  43.  
  44.  
Success #stdin #stdout 0.5s 121728KB
stdin
Standard input is empty
stdout
 57.500
 12.857
 10.000