C=function(a0,a1) { IT=c(100,200,300,400,500,600,700)`` w=c(1,2) n0=matrix(c(58,54,40,36,18,13,8,0,1,0,1,0,0,0),nrow=2) n0 n1=matrix(c(13,12,23,24,41,35,25,13,21,