Tut 2 Q5;
K1 = {1, 2, 1}; K2 = {1, 2, 3}; K3 = {4, 3, 1}; 
    K4 = {1, 3, 2};
K = {K1, K2, K3, K4};
Print["K=", K // MatrixForm];
Kreduce = RowReduce[K];
Print["Kreduce=", 
        Kreduce // MatrixForm];
K123 = {K1, K2, K3};
Kreduceabc = RowReduce[K123];
Print["Kreduceabc=", 
        Kreduceabc // MatrixForm];
K234 = {K2, K3, K4};
Kreduceabc = RowReduce[K234];
Print["Kreduceabc=", 
        Kreduceabc // MatrixForm];
K341 = {K3, K4, K1};
Kreduceabc = RowReduce[K341];
Print["Kreduceabc=", 
        Kreduceabc // MatrixForm];
K124 = {K1, K2, K4};
Kreduceabc = RowReduce[K124];
Print["Kreduceabc=", 
        Kreduceabc // MatrixForm];
Print["Rank[K124]=", 
        MatrixRank[K124]];