วิธีแก้ระบบสมการใน r (3 ตัวอย่าง)

ในการแก้ระบบสมการใน R เราสามารถใช้ฟังก์ชัน solve() ที่มีอยู่แล้วภายในได้

ตัวอย่างต่อไปนี้แสดงวิธีใช้ฟังก์ชันเหล่านี้เพื่อแก้ระบบสมการต่างๆ ใน R

ตัวอย่างที่ 1: แก้ระบบสมการในตัวแปรสองตัว

สมมติว่าเรามีระบบสมการต่อไปนี้และเราต้องการแก้ค่า x และ y:

5x + 4 ปี = 35

2x + 6 ปี = 36

รหัสต่อไปนี้แสดงวิธีการใช้ฟังก์ชัน solve() ใน R เพื่อแก้ค่า x และ y:

 #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

สิ่งนี้บอกเราว่าค่าของ x คือ 3 และค่าของ y คือ 5

ตัวอย่างที่ 2: การแก้ระบบสมการด้วยตัวแปร 3 ตัว

สมมติว่าเรามีระบบสมการต่อไปนี้และเราต้องการแก้ค่าของ x, y และ z:

4x + 2y + 1z = 34

3x + 5 ปี – 2z = 41

2x + 2a + 4z = 30

รหัสต่อไปนี้แสดงวิธีใช้ฟังก์ชัน solve() ใน R เพื่อแก้ค่า x, y และ z:

 #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

นี่บอกเราว่าค่าของ x คือ 5 ค่าของ y คือ 6 และค่าของ z คือ 2

ตัวอย่างที่ 3: การแก้ระบบสมการที่มีตัวแปรสี่ตัว

สมมติว่าเรามีระบบสมการต่อไปนี้และเราต้องการแก้ค่าของ w, x, y และ z:

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

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

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

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

รหัสต่อไปนี้แสดงวิธีการใช้ฟังก์ชัน solve() ใน R เพื่อแก้ค่าของ w, x, y และ z:

 #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

สิ่งนี้บอกเราว่าค่าของ w คือ 4 , x คือ 3 , y คือ 3 และ z คือ 1

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีดำเนินการทั่วไปอื่นๆ ใน R:

วิธีการคำนวณผลสรุปของตัวเลขห้าตัวใน R
วิธีสร้างตารางสรุปใน R
วิธีการคำนวณคะแนน Z ใน R