统计软件期中考试A(2013级)答案

[,4] [,5]Р[1,] 1.0000000 0.5000000 0.3333333 0.2500000 0.2000000Р[2,] 0.5000000 0.3333333 0.2500000 0.2000000 0.1666667Р[3,] 0.3333333 0.2500000 0.2000000 0.1666667 0.1428571Р[4,] 0.2500000 0.2000000 0.1666667 0.1428571 0.1250000Р[5,] 0.2000000 0.1666667 0.1428571 0.1250000 0.1111111Р> det(H)Р[1] 3.749295e-12Р> solve(H)Р [,1] [,2] [,3] [,4] [,5]Р[1,] 25 -300 1050 -1400 630Р[2,] -300 4800 -18900 26880 -12600Р[3,] 1050 -18900 79380 -117600 56700Р[4,] -1400 26880 -117600 179200 -88200Р[5,] 630 -12600 56700 -88200 44100Р>Р3. (10分)鸡兔同笼问题:鸡和兔关在一个笼子里,已知共有头36个,脚100个,编制自定义函数,求笼内关了多少只兔和多少只鸡。РJT<-function(T,J)Р{Р for(x in 1:T)Р {Рif(2*x+4*(T-x)= =J)Р return(list(hen =x,rabbit =T-x))Р}Р}РTJ(T=36,J=100)Рfor (x in 1:36) if (2*x+4*(36-x)==100) print(list(hen=x,rabbit=36-x))Р输出:Р$henР[1] 22Р$rabbitР[1] 14