Taller
Taller
Taller
Brayan Escola
1. Una caja de 13 Mg contiene una pieza de equipo y está sostenida por tres grúas cuyos cables se unen en
el anillo D, como se muestra en la figura. Determine las tensiones en los cables DA, DB y DC.
1
clear %permite borrar las variables almacenadas
format long %permite utilizar la maxima capacidad de la maquina
A=[3/5 -2/7 -4/13;4/5 6/7 12/13;0 -3/7 3/13]
A = 3×3
0.600000000000000 -0.285714285714286 -0.307692307692308
0.800000000000000 0.857142857142857 0.923076923076923
0 -0.428571428571429 0.230769230769231
b=[0;127400;0]
b = 3×1
0
127400
0
gaussnpiv%script normal
ETAPA 1=
m(2,1)= 1.333333333333333
m(3,1)= 0
ETAPA 2=
2
Los Multiplicadores correspondientes a esta etapa son:
m(3,2)= -0.346153846153846
SOLUCI?N:
La matriz Ab final:
1.0e+05 *
X1= 49000
X2= 3.429999999999999e+04
X3= 63700
A = 3×3
0.600000000000000 -0.285714285714286 -0.307692307692308
0.800000000000000 0.857142857142857 0.923076923076923
0 -0.428571428571429 0.230769230769231
b=[0;127400;0]
b = 3×1
0
127400
0
Ab = 3×4
105 ×
0.000006000000000 -0.000002857142857 -0.000003076923077 0
3
0.000008000000000 0.000008571428571 0.000009230769231 1.274000000000000
0 -0.000004285714286 0.000002307692308 0
1.0e+05 *
% y=diag(sol)
n=3;
for i=1:n
Xi=X(1,i);
fprintf('\nX%g=',i)
disp(Xi);
end
X1=
49000
X2=
3.429999999999999e+04
X3=
63700
A = 3×3
0.600000000000000 -0.285714285714286 -0.307692307692308
0.800000000000000 0.857142857142857 0.923076923076923
0 -0.428571428571429 0.230769230769231
b=[0;127400;0]
b = 3×1
0
127400
0
4
9 -746788372.35181742654835.48753236358980.19104875970488.9521
10 2489506907.8393-5808700818.2916-10787587233.970116253234963.1737
11 -8298144026.130819362484694.305335958900146.567054177449877.2457
12 27660692420.4361-64541467014.3510-119862724455.2233180591499590.8189
13 -92202095734.7872215138372014.5034399542690884.0777601971665302.7297
14 307340531449.2906-717127758081.6781-1331808693580.25902006572217675.7659
15 -1024468225830.96852390426008905.59384439362587967.53126688574058919.2207
16 3414894298436.5625-7968086547718.6465-14797875017191.769522295246863064.0703
17 -11382980782455.209026560288641028.824249326250333339.234474317489543546.8906
18 37943269487184.0312-88534295321462.7500-164420834168430.7812247724965145156.3125
No se alcanzó la convergencia
Ejercicio 2
A = 3×3
-5 5 3
5 6 1
3 1 7
b=[1;2;3]
b = 3×1
1
2
3
gaussnpiv%script normal
ETAPA 1=
5
Los Multiplicadores correspondientes a esta etapa son:
m(2,1)= -1
m(3,1)= -0.600000000000000
ETAPA 2=
m(3,2)= 0.363636363636364
SOLUCI?N:
La matriz Ab final:
-5.000000000000000 5.000000000000000 3.000000000000000 1.000000000000000
0 11.000000000000000 4.000000000000000 3.000000000000000
0 0 7.345454545454546 2.509090909090909
X1= 0.153465346534653
X2= 0.148514851485149
X3= 0.341584158415842
A = 3×3
-5 5 3
6
5 6 1
3 1 7
b=[1;2;3]
b = 3×1
1
2
3
Ab = 3×4
-5 5 3 1
5 6 1 2
3 1 7 3
-5.000000000000000 5.000000000000000 3.000000000000000 1.000000000000000
0 11.000000000000000 4.000000000000000 3.000000000000000
0 0 7.345454545454546 2.509090909090909
sol = 3×3
0.153465346534653 0 0
0 0.148514851485149 0
0 0 0.341584158415842
% y=diag(sol)
n=3;
for i=1:n
Xi=X(1,i);
fprintf('\nX%g=',i)
disp(Xi);
end
X1=
0.153465346534653
X2=
0.148514851485149
X3=
0.341584158415842
A = 3×3
-5 5 3
5 6 1
3 1 7
b=[1;2;3]
b = 3×1
1
2
3
7
n=3; %número de ecuaciones
GaussSeidel
Ejercicio 3
A = 3×3
102 ×
0.033300000000000 0.048100000000000 -0.022200000000000
0.048100000000000 0.100000000000000 7.450000000000000
-0.022200000000000 0.074500000000000 0.150000000000000
b=[5;0;2]
b = 3×1
5
0
2
gaussnpiv%script normal
8
La Matriz C, que corresponte a la matriz aumentada [Ab] es =
1.0e+02 *
ETAPA 1=
m(2,1)= 1.444444444444444
m(3,1)= -0.666666666666667
ETAPA 2=
m(3,2)= 3.491445212959590
SOLUCI?N:
9
La matriz Ab final:
1.0e+03 *
X1= 0.749222866050857
X2= 0.515382830044366
X3= -0.011755154746508
A = 3×3
102 ×
0.033300000000000 0.048100000000000 -0.022200000000000
0.048100000000000 0.100000000000000 7.450000000000000
-0.022200000000000 0.074500000000000 0.150000000000000
b=[5;0;2]
b = 3×1
5
0
2
Ab = 3×4
102 ×
0.033300000000000 0.048100000000000 -0.022200000000000 0.050000000000000
0.048100000000000 0.100000000000000 7.450000000000000 0
-0.022200000000000 0.074500000000000 0.150000000000000 0.020000000000000
1.0e+02 *
% y=diag(sol)
n=3;
for i=1:n
Xi=X(1,i);
fprintf('\nX%g=',i)
10
disp(Xi);
end
X1=
0.749222866050857
X2=
0.515382830044366
X3=
-0.011755154746508
A = 3×3
102 ×
0.033300000000000 0.048100000000000 -0.022200000000000
0.048100000000000 0.100000000000000 7.450000000000000
-0.022200000000000 0.074500000000000 0.150000000000000
b=[5;0;2]
b = 3×1
5
0
2
Ejercicio 4
11
Método de Gauss sin pivoteo
clc %permite borrar el area de trabajo
clear %permite borrar las variables almacenadas
format long %permite utilizar la maxima capacidad de la maquina
A=[72 0 0 9 0 0;0 2.88 0 0 0 -4.5; 0 0 18 9 0 0; 0 0 9 12 0 0;0 0 0 0 33 0;0 -4.5 0 0 0 33]
A = 6×6
72.000000000000000 0 0 9.000000000000000
0 2.880000000000000 0 0
0 0 18.000000000000000 9.000000000000000
0 0 9.000000000000000 12.000000000000000
0 0 0 0
0 -4.500000000000000 0 0
b = 6×1
2.000000000000000
0.500000000000000
1.000000000000000
0
1.200000000000000
5.000000000000000
gaussnpiv%script normal
ETAPA 1=
12
Los Multiplicadores correspondientes a esta etapa son:
m(2,1)= 0
m(3,1)= 0
m(4,1)= 0
m(5,1)= 0
m(6,1)= 0
ETAPA 2=
m(3,2)= 0
m(4,2)= 0
m(5,2)= 0
m(6,2)= -1.562500000000000
ETAPA 3=
13
La matriz correspondiente a esta etapa antes del proceso:
72.000000000000000 0 0 9.000000000000000 0
0 2.880000000000000 0 0 0 -4.5000000000
0 0 18.000000000000000 9.000000000000000 0
0 0 9.000000000000000 12.000000000000000 0
0 0 0 0 33.000000000000000
0 0 0 0 0 25.9687500000
m(4,3)= 0.500000000000000
m(5,3)= 0
m(6,3)= 0
ETAPA 4=
m(5,4)= 0
m(6,4)= 0
ETAPA 5=
14
0 0 0 7.500000000000000 0
0 0 0 0 33.000000000000000
0 0 0 0 0 25.9687500000
m(6,5)= 0
SOLUCI?N:
La matriz Ab final:
72.000000000000000 0 0 9.000000000000000 0
0 2.880000000000000 0 0 0 -4.5000000000
0 0 18.000000000000000 9.000000000000000 0
0 0 0 7.500000000000000 0
0 0 0 0 33.000000000000000
0 0 0 0 0 25.9687500000
X1= 0.036111111111111
X2= 0.521460088247092
X3= 0.088888888888889
X4= -0.066666666666667
X5= 0.036363636363636
X6= 0.222623345367028
A = 6×6
72.000000000000000 0 0 9.000000000000000
0 2.880000000000000 0 0
0 0 18.000000000000000 9.000000000000000
15
0 0 9.000000000000000 12.000000000000000
0 0 0 0
0 -4.500000000000000 0 0
b=[2;0.5;1;0;1.2;5]
b = 6×1
2.000000000000000
0.500000000000000
1.000000000000000
0
1.200000000000000
5.000000000000000
Ab = 6×7
72.000000000000000 0 0 9.000000000000000
0 2.880000000000000 0 0
0 0 18.000000000000000 9.000000000000000
0 0 9.000000000000000 12.000000000000000
0 0 0 0
0 -4.500000000000000 0 0
72.000000000000000 0 0 9.000000000000000 0
0 -4.500000000000000 0 0 0 33.0000000000
0 0 18.000000000000000 9.000000000000000 0
0 0 0 7.500000000000000 0
0 0 0 0 33.000000000000000
0 0 0 0 0 16.6200000000
sol = 6×6
0.036111111111111 0 0 0
0 0.521460088247092 0 0
0 0 0.088888888888889 0
0 0 0 -0.066666666666667
0 0 0 0
0 0 0 0
y=diag(sol)
y = 6×1
0.036111111111111
0.521460088247092
0.088888888888889
-0.066666666666667
0.036363636363636
0.222623345367028
n=6;
for i=1:n
Xi=X(1,i);
fprintf('\nX%g=',i)
disp(Xi);
end
X1=
0.036111111111111
X2=
0.521460088247092
X3=
16
0.088888888888889
X4=
-0.066666666666667
X5=
0.036363636363636
X6=
0.222623345367028
A = 6×6
72.000000000000000 0 0 9.000000000000000
0 2.880000000000000 0 0
0 0 18.000000000000000 9.000000000000000
0 0 9.000000000000000 12.000000000000000
0 0 0 0
0 -4.500000000000000 0 0
b=[2;0.5;1;0;1.2;5]
b = 6×1
2.000000000000000
0.500000000000000
1.000000000000000
0
1.200000000000000
5.000000000000000
17