模糊数学实验报告三模糊决策与糊线性规划.docVIP

实验三 模糊决策与糊线性规划 实验目的： 会用模糊综合评判模型进行综合评判，掌握将模糊线性规划转化为一般线性规划的方法，会使用数学软件Lindo求解一般线性规划. 实验学时：4学时 实验内容： ⑴ 教学过程的综合评判等. ⑵ 将已知模糊线性规划问题用C语言编程生成Lindo软件的数据格式，再用Lindo软件求解. ⑶ 编程求解模糊关系方程的最大解. 实验日期：2015年11月6日 操作步骤： 将模糊线性规划问题转化为普通线性规划问题，并用Lindo软件求解. 用C语言编程生成Lindo软件的数据格式 #includestdio.h #includemath.h void main() { double c[]={1,-4,6};//目标系数 double A[3][3]={1,1,1,1,-6,1,1,-3,-1};//技术系数矩阵 double b[]={8,6,-4};//目标右端常数 double fc=38;//第一个线性规划问题的最优值 double dc=8.25;//第一、二个线性规划问题的最优值之差 double d[]={2,1,0.5};//伸缩指标 char opt=1;//0表示min;1表示max char cont[]={-1,1,0};//约束条件-1表示≤;0表示=;1表示≥ int m=3,n=3;//m约束条件个数;n变量个数 FILE *fp; int i,j; fp=fopen(xxxx.txt,w); if(opt)fprintf(fp,Max ); else fprintf(fp,min ); for(j=0;jn;j++) { if(c[j]==0)continue; if(jc[j]0)fprintf(fp,+); else if(c[j]0)fprintf(fp,-); fprintf(fp,%6.4fx%d,fabs(c[j]),j+1); } fprintf(fp,\ns.t. ); for(i=0;im;i++) { for(j=0;jn;j++) { if(A[i][j]==0)continue; if(jA[i][j]0)fprintf(fp,+); else if(A[i][j]0)fprintf(fp,-); fprintf(fp,%6.4fx%d,fabs(A[i][j]),j+1); } if(cont[i]==-1)fprintf(fp,); else if(cont[i]==0)fprintf(fp,=); else fprintf(fp,); fprintf(fp,%6.4f\n,b[i]); } fprintf(fp,\n\n\n); if(opt)fprintf(fp,Max ); else fprintf(fp,min ); for(j=0;jn;j++) { if(c[j]==0)continue; if(jc[j]0)fprintf(fp,+); else if(c[j]0)fprintf(fp,-); fprintf(fp,%6.4fx%d,fabs(c[j]),j+1); } fprintf(fp,\ns.t. ); for(i=0;im;i++) { for(j=0;jn;j++) { if(A[i][j]==0)continue; if(jA[i][j]0)fprintf(fp,+); else if(A[i][j]0)fprintf(fp,-); fprintf(fp,%6.4fx%d,fabs(A[i][j]),j+1); } if(cont[i]==-1)fprintf(fp,%6.4f\n,b[i]+d[i]); else if(cont[i]==0) { fprintf(fp,%6.4f\n,b[i]+d[i]); for(j=0;jn;j++) { if(A[i][j]==0)continue; if(jA[i][j]0)fprintf(fp,+); else if(A[i][j]0)fprintf(fp,-); fprintf(fp,%6.4fx%d,fabs(A[i][j]),j+1); } fprintf(fp,%6.4f\n,b[i]-d[i]); } else fprintf(fp,%6.4f\n,b[i]-d[i]); } fprintf(fp,\n\n\n); fprintf(fp,Max lmd); fprintf