用R

以下是方程式：

f1<-function(x){miu0-(n1*x[1]-n2*x[2]-n3*x[3])/n}

f2<-function(a){sum((data1-x[1])/(1+a*(data1-x[1])))}

f3<-function(b){sum((data2-x[2])/(1+b*(data2-x[2])))}

f4<-function(c){sum((data3-x[3])/(1+c*(data3-x[3])))}

data1=c(0.028742605 0.098977723 0.129229645 0.006230172 0.265617644 0.165758965 0.517863130 0.210410100 0.106577087)

data2=c(0.09818036 0.30264860 0.32248084 0.37043087 0.20969506 0.13279921 0.01236193 0.44709777)

data3=c(0.40935868 0.07743694 0.06754163)

n1=9;n2=8;n3=3;n=20

---

f1看起来像家庭作业…@Alex不幸的是，这不是家庭作业，这是我的研究。。。。。。只是被困在这里。。。。。这对非PGR学生来说可能太难了。你需要更多的约束，否则你将无法解决它。@SamDickson是的，我同意。也许我的归纳法有问题