R'de bir denklem sistemi nasıl çözülür (3 örnek)

R’de bir denklem sistemini çözmek için yerleşik solvent() fonksiyonunu kullanabiliriz.

Aşağıdaki örnekler, R’deki birkaç farklı denklem sistemini çözmek için bu fonksiyonların nasıl kullanılacağını göstermektedir.

Örnek 1: İki değişkenli bir denklem sistemini çözün

Aşağıdaki denklem sistemine sahip olduğumuzu ve x ve y değerlerini çözmek istediğimizi varsayalım:

5x + 4 yıl = 35

2x + 6 yıl = 36

Aşağıdaki kod, x ve y değerlerini çözmek için R’deki solvent() işlevinin nasıl kullanılacağını gösterir:

 #define left-hand side of equations
left_matrix <- matrix(c(5, 2, 4, 6), nrow= 2 )

left_matrix

     [,1] [,2]
[1,] 5 4
[2,] 2 6

#define right-hand side of equations
right_matrix <- matrix(c(35, 36), nrow= 2 )

right_matrix

     [,1]
[1,] 35
[2,] 36

#solve for x and y
solve(left_matrix, right_matrix)  

     [,1]
[1,] 3
[2,] 5

Bu bize x’in değerinin 3 , y’nin değerinin ise 5 olduğunu söyler.

Örnek 2: Üç değişkenli bir denklem sistemini çözme

Aşağıdaki denklem sistemine sahip olduğumuzu ve x, y ve z değerlerini çözmek istediğimizi varsayalım:

4x + 2y + 1z = 34

3x + 5 yıl – 2z = 41

2x + 2a + 4z = 30

Aşağıdaki kod, x, y ve z değerlerini çözmek için R’deki solvent() fonksiyonunun nasıl kullanılacağını gösterir:

 #define left-hand side of equations
left_matrix <- matrix(c(4, 3, 2, 2, 5, 2, 1, -2, 4), nrow= 3 )

left_matrix

     [,1] [,2] [,3]
[1,] 4 2 1
[2,] 3 5 -2
[3,] 2 2 4

#define right-hand side of equations
right_matrix <- matrix(c(34, 41, 30), nrow= 3 )

right_matrix

     [,1]
[1,] 34
[2,] 41
[3,] 30

#solve for x, y, and z
solve(left_matrix, right_matrix) 

     [,1]
[1,] 5
[2,] 6
[3,] 2

Bu bize x’in değerinin 5 , y’nin değerinin 6 ve z’nin değerinin 2 olduğunu söyler.

Örnek 3: Dört değişkenli bir denklem sistemini çözme

Aşağıdaki denklem sistemine sahip olduğumuzu ve w, x, y ve z değerlerini çözmek istediğimizi varsayalım:

6w + 2x + 2y + 1z = 37

2w + 1x + 1y + 0z = 14

3s + 2x + 2a + 4z = 28

2w + 0x + 5y + 5z = 28

Aşağıdaki kod, w, x, y ve z değerlerini çözmek için R’deki solvent() işlevinin nasıl kullanılacağını gösterir:

 #define left-hand side of equations
left_matrix <- matrix(c(6, 2, 3, 2, 2, 1, 2, 0, 2, 1, 2, 5, 1, 0, 4, 5), nrow= 4 )

left_matrix

     [,1] [,2] [,3] [,4]
[1,] 6 2 2 1
[2,] 2 1 1 0
[3,] 3 2 2 4
[4,] 2 0 5 5

#define right-hand side of equations
right_matrix <- matrix(c(37, 14, 28, 28), nrow= 4 )

right_matrix

     [,1]
[1,] 37
[2,] 14
[3,] 28
[4,] 28

#solve for w, x, y and z
solve(left_matrix, right_matrix)

     [,1]
[1,] 4
[2,] 3
[3,] 3
[4,] 1

Bu bize w’nin değerinin 4 , x’in 3 , y’nin 3 ve z’nin 1 olduğunu söyler.

Ek kaynaklar

Aşağıdaki eğitimlerde R’de diğer yaygın işlemlerin nasıl gerçekleştirileceği açıklanmaktadır:

R’deki beş sayının özeti nasıl hesaplanır
R’de özet tablolar nasıl oluşturulur
R’de Z puanları nasıl hesaplanır