2015年全国大学生数学建模竞赛D题众筹筑屋（含word论文和源代码资源）

本文链接：https://blog.csdn.net/qq_35500719/article/details/140627889

文章目录

一、部分题目
二、部分论文
三、部分源代码
四、2010-2023相关题目

一、部分题目

2015高教社杯全国大学生数学建模竞赛题目

D题众筹筑屋规划方案设计

众筹筑屋是互联网时代一种新型的房地产形式。现有占地面积为102077.6平方米的众筹筑屋项目（详情见附件1）。项目推出后，有上万户购房者登记参筹。项目规定参筹者每户只能认购一套住房。

在建房规划设计中，需考虑诸多因素，如容积率、开发成本、税率、预期收益等。根据国家相关政策，不同房型的容积率、开发成本、开发费用等在核算上要求均不同，相关条例与政策见附件2和附件3。

请你结合本题附件中给出的具体要求及相关政策，建立数学模型，回答如下问题：

问题1 为了信息公开及民主决策，需要将这个众筹筑屋项目原方案（称作方案Ⅰ）的成本与收益、容积率和增值税等信息进行公布。请你们建立模型对方案I进行全面的核算，帮助其公布相关信息。

问题2 通过对参筹者进行抽样调查，得到了参筹者对11种房型购买意愿的比例（见附件1）。为了尽量满足参筹者的购买意愿，请你重新设计建设规划方案（称为方案Ⅱ），并对方案II进行核算。

问题3 一般而言，投资回报率达到25%以上的众筹项目才会被成功执行。你们所给出的众筹筑屋方案Ⅱ能否被成功执行？如果能，请说明理由。如果不能，应怎样调整才能使此众筹筑屋项目能被成功执行？

二、部分论文

请添加图片描述

三、部分源代码

问题二中平均满意度优化模型Lingo求解命令

完整代码 https://github.com/yan-fanyu/CUMCM-Paper-And-SourceCode
model:
	sets:
		ts/1..11/:amin,amax,x,bl,mj,myd;
	endsets
	data:
		amin=50,50,50,150,100,150,50,100,50,50,50;
		amax=450,500,300,500,550,350,450,250,350,400,250;
		mj=77,98,117,145,156,167,178,126,103,129,133;	
		myd=0.4,0.6,0.5,0.6,0.7,0.8,0.9,0.6,0.2,0.3,0.4;
	enddata
	@for(ts:@gin(x));
	@sum(ts:mj*x)-mj(9)*x(9)-mj(10)*x(10)-mj(11)*x(11)<=232736;
	@for(ts:x>=amin);
	@for(ts:x<=amax);
	max=@sum(ts:x*myd)/@sum(ts:x);
end

问题三中平均满意度、回报率优化模型Lingo求解命令

完整代码 https://github.com/yan-fanyu/CUMCM-Paper-And-SourceCode
model:
	sets:
		ts/1..11/:amin,amax,x,bl,mj,myd,kfcb,sj,jzzmj,xszje,kfzcb,tdje,pd,kffy,fdcfy,qtxm,kcxm,zze,zzl,zzs;
	endsets
	data:
		amin=50,50,50,150,100,150,50,100,50,50,50;
		amax=450,500,300,500,550,350,450,250,350,400,250;
		mj=77,98,117,145,156,167,178,126,103,129,133;	
		myd=0.4,0.6,0.5,0.6,0.7,0.8,0.9,0.6,0.2,0.3,0.4;
		kfcb=0.4263,0.4323,0.4532,0.5288,0.5268,0.5533,0.5685,0.4323,0.2663,0.2791,0.2982;
		sj=1.2,1.08,1.12,1.28,1.28,1.36,1.4,1.04,0.64,0.68,0.72;
		pd=1,1,0,1,1,1,1,0,1,1,0;
	enddata
	@for(ts:jzzmj=x*mj);
	@for(ts:xszje=jzzmj*sj);
	@for(ts:kfzcb=kfcb*jzzmj);
	zjzzmj=@sum(ts:jzzmj);
	@for(ts:tdje=jzzmj/zjzzmj*77717.9627);
	@for(ts:kffy=(pd*kfzcb+tdje)*0.1);
	@for(ts:fdcfy=0.0565*xszje);
	@for(ts:qtxm=kffy*2);
	@for(ts:kcxm=pd*kfzcb+kffy+tdje+fdcfy+qtxm);
	@for(ts:@free(zze));
	@for(ts:@free(zzl));
	@for(ts:zze=xszje-kcxm);
	@for(ts:zzl=zze/kcxm);
	p=(jzzmj(1)+jzzmj(2)+jzzmj(3))/(@sum(ts:jzzmj)-jzzmj(9)-jzzmj(10));
	fp=(jzzmj(4)+jzzmj(5)+jzzmj(6)+jzzmj(7)+jzzmj(8)+jzzmj(11))/(@sum(ts:jzzmj)-jzzmj(9)-jzzmj(10));
	@for(ts:zzs=@if(zzl#le#0,0,@if(zzl#le#0.5,0.3*zze,@if(zzl#le#1,0.4*zze-0.05*kcxm,@if(zzl#le#2,0.5*zze-0.15*kcxm,0.6*zze-0.35*kcxm)))));
	zzs1=@if(zzl(1)#le#0.2,0,zzs(1));
	zzs2=@if(zzl(2)#le#0.2,0,zzs(2));
	@free(zzs91);
	@free(zzs92);
	@free(zzs101);
	@free(zzs102);
	zzs91=@if(zzl(9)#le#0.2,0,zzs(9)*p);
	zzs92=zzs(9)*fp;
	zzs101=@if(zzl(10)#le#0.2,0,zzs(10)*p);
	zzs102=zzs(10)*fp;
	kfzzcb=@sum(ts:kfzcb);
	tdzje=@sum(ts:tdje);
	fdczfy=(kfzzcb+tdzje)*0.1;
	fdcsl=@sum(ts:fdcfy);
	zzzs=@sum(ts:zzs)-zzs(1)-zzs(2)-zzs(9)-zzs(10)+zzs1+zzs2+zzs91+zzs92+zzs101+zzs102;
	zcb=kfzzcb+tdzje+fdczfy+fdcsl;
	zsy=@sum(ts:xszje);
	jsy=zsy-zcb-zzzs;
	syl=jsy/zcb;
	syl>=0.25;
	@for(ts:@gin(x));
	@sum(ts:x*mj)-mj(9)*x(9)-mj(10)*x(10)-mj(11)*x(11)<=232736;
	@for(ts:x>=amin);
	@for(ts:x<=amax);
	max=@sum(ts:x*myd)/@sum(ts:x);
end

改进第二题优化模型Lingo求解命令

完整代码 https://github.com/yan-fanyu/CUMCM-Paper-And-SourceCode
model:
	sets:
		ts/1..11/:amin,amax,x,bl,mj,myd;
	endsets
	data:
		amin=50,50,50,150,100,150,50,100,50,50,50;
		amax=450,500,300,500,550,350,450,250,350,400,250;
		mj=77,98,117,145,156,167,178,126,103,129,133;	
		myd=0.4,0.6,0.5,0.6,0.7,0.8,0.9,0.6,0.2,0.3,0.4;
	enddata
	@for(ts:@gin(x));
	zmj=@sum(ts:mj*x)-mj(9)*x(9)-mj(10)*x(10)-mj(11)*x(11);
	zmj<=232736;
	@for(ts:x>=amin);
	@for(ts:x<=amax);
	zx=@sum(ts:x);
	y=
!1;	@sum(ts(i):@if(x(i)#le#myd(i)*zx,0,x(i)-myd(i)*zx))+
!2;	@sum(ts(i):@sum(ts(j)|(i+1)#le#j:
		@if((x(i)+x(j))#le#(@smax(myd(i),myd(j))*zx),0,
			((x(i)+x(j))-@smax(myd(i),myd(j))*zx)*(1-myd(i))*(1-myd(j))/(1-@smax(myd(i),myd(j)))
	)))+
!3;	@sum(ts(i):@sum(ts(j)|(i+1)#le#j:@sum(ts(k)|(j+1)#le#k:
		@if((x(i)+x(j)+x(k))#le#(@smax(myd(i),myd(j),myd(k))*zx),0,
			((x(i)+x(j)+x(k))-@smax(myd(i),myd(j),myd(k))*zx)*(1-myd(i))*(1-myd(j))*(1-myd(k))/(1-@smax(myd(i),myd(j),myd(k)))
	))))+
!4;	@sum(ts(i):@sum(ts(j)|(i+1)#le#j:@sum(ts(k)|(j+1)#le#k:@sum(ts(l)|(k+1)#le#l:
		@if((x(i)+x(j)+x(k)+x(l))#le#(@smax(myd(i),myd(j),myd(k),myd(l))*zx),0,
			((x(i)+x(j)+x(k)+x(l))-@smax(myd(i),myd(j),myd(k),myd(l))*zx)*(1-myd(i))*(1-myd(j))*(1-myd(k))*(1-myd(l))/(1-@smax(myd(i),myd(j),myd(k),myd(l)))
	)))))+
!5;	@sum(ts(i):@sum(ts(j)|(i+1)#le#j:@sum(ts(k)|(j+1)#le#k:@sum(ts(l)|(k+1)#le#l:@sum(ts(m)|(l+1)#le#m:
		@if((x(i)+x(j)+x(k)+x(l)+x(m))#le#(@smax(myd(i),myd(j),myd(k),myd(l),myd(m))*zx),0,
			((x(i)+x(j)+x(k)+x(l)+x(m))-
			@smax(myd(i),myd(j),myd(k),myd(l),myd(m))*zx)*
			(1-myd(i))*(1-myd(j))*(1-myd(k))*(1-myd(l))*(1-myd(m))/
			(1-@smax(myd(i),myd(j),myd(k),myd(l),myd(m)))
	))))))+
!6;	@sum(ts(i):@sum(ts(j)|(i+1)#le#j:@sum(ts(k)|(j+1)#le#k:@sum(ts(l)|(k+1)#le#l:@sum(ts(m)|(l+1)#le#m:@sum(ts(n)|(m+1)#le#n:
		@if((x(i)+x(j)+x(k)+x(l)+x(m)+x(n))#le#(@smax(myd(i),myd(j),myd(k),myd(l),myd(m),myd(n))*zx),0,
			((x(i)+x(j)+x(k)+x(l)+x(m)+x(n))-
			@smax(myd(i),myd(j),myd(k),myd(l),myd(m),myd(n))*zx)*
			(1-myd(i))*(1-myd(j))*(1-myd(k))*(1-myd(l))*(1-myd(m))*(1-myd(n))/
			(1-@smax(myd(i),myd(j),myd(k),myd(l),myd(m),myd(n)))
	)))))))+
!7;	@sum(ts(i):@sum(ts(j)|(i+1)#le#j:@sum(ts(k)|(j+1)#le#k:@sum(ts(l)|(k+1)#le#l:@sum(ts(m)|(l+1)#le#m:@sum(ts(n)|(m+1)#le#n:@sum(ts(o)|(n+1)#le#o:
		@if((x(i)+x(j)+x(k)+x(l)+x(m)+x(n)+x(o))#le#(@smax(myd(i),myd(j),myd(k),myd(l),myd(m),myd(n),myd(o))*zx),0,
			((x(i)+x(j)+x(k)+x(l)+x(m)+x(n)+x(o))-
			@smax(myd(i),myd(j),myd(k),myd(l),myd(m),myd(n),myd(o))*zx)*
			(1-myd(i))*(1-myd(j))*(1-myd(k))*(1-myd(l))*(1-myd(m))*(1-myd(n))*(1-myd(o))/
			(1-@smax(myd(i),myd(j),myd(k),myd(l),myd(m),myd(n),myd(o)))
	))))))))+
!8;	@sum(ts(i):@sum(ts(j)|(i+1)#le#j:@sum(ts(k)|(j+1)#le#k:@sum(ts(l)|(k+1)#le#l:@sum(ts(m)|(l+1)#le#m:@sum(ts(n)|(m+1)#le#n:@sum(ts(o)|(n+1)#le#o:@sum(ts(p)|(o+1)#le#p:
		@if((x(i)+x(j)+x(k)+x(l)+x(m)+x(n)+x(o)+x(p))#le#(@smax(myd(i),myd(j),myd(k),myd(l),myd(m),myd(n),myd(o),myd(p))*zx),0,
			((x(i)+x(j)+x(k)+x(l)+x(m)+x(n)+x(o)+x(p))-
			@smax(myd(i),myd(j),myd(k),myd(l),myd(m),myd(n),myd(o),myd(p))*zx)*
			(1-myd(i))*(1-myd(j))*(1-myd(k))*(1-myd(l))*(1-myd(m))*(1-myd(n))*(1-myd(o))*(1-myd(p))/
			(1-@smax(myd(i),myd(j),myd(k),myd(l),myd(m),myd(n),myd(o),myd(p)))
	)))))))))+
!9;	@sum(ts(i):@sum(ts(j)|(i+1)#le#j:@sum(ts(k)|(j+1)#le#k:@sum(ts(l)|(k+1)#le#l:@sum(ts(m)|(l+1)#le#m:@sum(ts(n)|(m+1)#le#n:@sum(ts(o)|(n+1)#le#o:@sum(ts(p)|(o+1)#le#p:@sum(ts(q)|(p+1)#le#q:
		@if((x(i)+x(j)+x(k)+x(l)+x(m)+x(n)+x(o)+x(p)+x(q))#le#(@smax(myd(i),myd(j),myd(k),myd(l),myd(m),myd(n),myd(o),myd(p),myd(q))*zx),0,
			((x(i)+x(j)+x(k)+x(l)+x(m)+x(n)+x(o)+x(p)+x(q))-
			@smax(myd(i),myd(j),myd(k),myd(l),myd(m),myd(n),myd(o),myd(p),myd(q))*zx)*
			(1-myd(i))*(1-myd(j))*(1-myd(k))*(1-myd(l))*(1-myd(m))*(1-myd(n))*(1-myd(o))*(1-myd(p))*(1-myd(q))/
			(1-@smax(myd(i),myd(j),myd(k),myd(l),myd(m),myd(n),myd(o),myd(p),myd(q)))
	))))))))))+
!10;	@sum(ts(i):@sum(ts(j)|(i+1)#le#j:@sum(ts(k)|(j+1)#le#k:@sum(ts(l)|(k+1)#le#l:@sum(ts(m)|(l+1)#le#m:@sum(ts(n)|(m+1)#le#n:@sum(ts(o)|(n+1)#le#o:@sum(ts(p)|(o+1)#le#p:@sum(ts(q)|(p+1)#le#q:@sum(ts(r)|(q+1)#le#r:
		@if((x(i)+x(j)+x(k)+x(l)+x(m)+x(n)+x(o)+x(p)+x(q)+x(r))#le#(@smax(myd(i),myd(j),myd(k),myd(l),myd(m),myd(n),myd(o),myd(p),myd(q),myd(r))*zx),0,
			((x(i)+x(j)+x(k)+x(l)+x(m)+x(n)+x(o)+x(p)+x(q)+x(r))-
			@smax(myd(i),myd(j),myd(k),myd(l),myd(m),myd(n),myd(o),myd(p),myd(q),myd(r))*zx)*
			(1-myd(i))*(1-myd(j))*(1-myd(k))*(1-myd(l))*(1-myd(m))*(1-myd(n))*(1-myd(o))*(1-myd(p))*(1-myd(q))*(1-myd(r))/
			(1-@smax(myd(i),myd(j),myd(k),myd(l),myd(m),myd(n),myd(o),myd(p),myd(q),myd(r)))
	)))))))))))+
!11;	(@sum(ts:x)-@smax(myd(1),myd(2),myd(3),myd(4),myd(5),myd(6),myd(7),myd(8),myd(9),myd(10),myd(11)))*(1-myd(1))*(1-myd(2))*(1-myd(3))*(1-myd(4))*(1-myd(5))*(1-myd(6))*(1-myd(7))*(1-myd(8))*(1-myd(9))*(1-myd(10))*(1-myd(11))/(1-@smax(myd(1),myd(2),myd(3),myd(4),myd(5),myd(6),myd(7),myd(8),myd(9),myd(10),myd(11)));
	min=y/zx;
end

完整代码

完整代码 https://github.com/yan-fanyu/CUMCM-Paper-And-SourceCode