From 07a5ce882a370601f4b287dd8bd23d994086983e Mon Sep 17 00:00:00 2001 From: Matthew Strapp Date: Mon, 4 Nov 2019 10:04:53 -0600 Subject: E --- math2373/lab7/p100.m | 33 +++++++++++++++++---------------- 1 file changed, 17 insertions(+), 16 deletions(-) (limited to 'math2373/lab7/p100.m') diff --git a/math2373/lab7/p100.m b/math2373/lab7/p100.m index 26ce350..3559149 100644 --- a/math2373/lab7/p100.m +++ b/math2373/lab7/p100.m @@ -1,19 +1,20 @@ -clear d; -A=[0 1/3 1/2 1/2 0; - 1/4 0 0 0 0; - 1/4 1/3 0 0 0; - 1/4 1/3 1/2 0 1; - 1/2 0 0 1/2 0]; +A=[ 0 1/2 0 0 0 0; + 0 0 1/3 0 1/2 0; + 1/4 1/2 0 0 0 0; + 1/4 0 0 0 1/2 0; + 1/4 0 1/3 0 0 1; + 1/4 0 1/3 1 0 0; ]; %Matrix A from lab -p1=[1;0;0;0;0]; -p2=[0;1;0;0;0]; -p3=[0;0;1;0;0]; -p4=[0;0;0;1;0]; -p5=[0;0;0;0;1]; -for n=1:500 - %p1=A*p1; - %p2=A*p2; +p1=[1;0;0;0;0;0]; +p2=[0;1;0;0;0;0]; +p3=[0;0;1;0;0;0]; +p4=[0;0;0;1;0;0]; +p5=[0;0;0;0;1;0]; +p6=[0;0;0;0;0;1]; +for n=1:100 + p1=A*p1; + p2=A*p2; p3=A*p3; - %p4=A*p4; - %p5=A*p5; + p4=A*p4; + p5=A*p5; end -- cgit v1.2.3