1. អនុគមន៍ថ្លៃដើម ចំណូល និងប្រាក់ចំណេញ

1.1 រកអនុគមន៍ចំណូលR(q)

រូបមន្ត៖ចំណូល=តម្លៃផលិតផល*បរិមាណផលិតផល

R<-makeFun((50-0.5*q)*q~q)
R
## function (q) 
## (50 - 0.5 * q) * q

1.2 រកអនុគមន៍ប្រាក់ចំណេញP(q)

រូបមន្ត៖ចំណេញ=ចំណូល-ចំណាយ

P<-makeFun((((50-0.5*q)*q)-(100+10*q+0.5*q^2)~q))
P
## function (q) 
## ((50 - 0.5 * q) * q) - (100 + 10 * q + 0.5 * q^2)

1.3 សង់ក្រហ្វិកC(q) & R(q)

## function (q) 
## 100 + 10 * q + 0.5 * q^2

2. ចូររកដេរីវេនៃអនុគមន៍ចំណាយ ចំណូល និងចំណេញ

2.1 គណនាអនុគមន៍ថ្លៃដើមMC(q)

MC(q)ជាដេរីវេចំណាយ

MC<-D(100+10*q+0.5*q^2~q,"q")
MC
## function (q) 
## q + 10

2.2 គណនាអនុគមន៍អំណោយផលប្រចាំឯកតាMR(q)

MR(q)ជាដេរីយចំណូល

MR<-D((50 - 0.5 * q) * q~q,"q")
MR
## function (q) 
## 50 - q

2.3 គណនាអនុគមន៍ប្រាក់ចំ់ណេញប្រចាំឯកតាMP(q)

MP(q)ជាដេរីយចំណេញ

MP<-D(((50 - 0.5 * q) * q) - (100 + 10 * q + 0.5 * q^2)~q,"q")
MP
## function (q) 
## 2 * (20 - q)

2.4 សង់ក្រាហ្វីកMC&MCលើក្រាហ្វីកតែមួយ និងសង់ក្រាហ្វីកMP

-សង់ក្រាហ្វីកMC&MCលើក្រាហ្វីកតែមួយ និងសង់

-សង់ក្រាហ្វីកMP

## mapping: x = 50, y = 40, label = MP(q) 
## geom_text: parse = FALSE, check_overlap = FALSE, size.unit = mm, na.rm = FALSE
## stat_identity: na.rm = FALSE
## position_identity

3. ប្រាក់ចំណាយអតិបរមា

3.1 បរិមាណប្រាក់ចំណេញអតិបរិមា

findZeros(2 * (20 - q)~q)
##    q
## 1 20

3.2 គណនាប្រាក់ចំណេញអតិបរិមា

P(20)
## [1] 300

4. ចំណុចស្រង់ដើម

4.1 ស្វែងរកបរិមាណផលិតដែលធ្វើឲ្យ P(q) = ០

findZeros(((50 - 0.5 * q) * q) - (100 + 10 * q + 0.5 * q^2)~q)
##         q
## 1  2.6795
## 2 37.3205