运筹学课程设计源代码-题目是《某商店要制订明年第一季度某种商品的进货和销

时间：2021-11-06 11:24:07 资料我要投稿

相关推荐

运筹学课程设计源代码-题目是《某商店要制订明年第一季度某种商品的进货和销售计划》

运筹学建模与源代码

运筹学课程设计源代码-题目是《某商店要制订明年第一季度某种商品的进货和销售计划》

上海龙凤1314 shlf题目：某商店要制订明年第一季度某种商品的进货和销售计划。一直该店的仓库容量最多

可存储该种商品500件，而今年年底有200件存货。该店在每月月初进货一次。一直各月份进货和销售该种商品的单价如下表所示。问每个月应进货和销售该种商品个多少件，才能使总利润最大。并按要求分别完成下列分析：（1）2月份的进货单价在何范围内变化时最优进销策略不变?（2）3月份的售价在何范围内变化是最优进销策略不变？（3）第一月份初库

1.所建模型

上海龙凤1314 shlf1.1 设定变量设x1为一月份的进货量 x2 为二月份的进货量 x3为三月份的进货量 x4为一月份的销售量 x5为二月份的销售量 x6为三月份的销售量

2.2 约束条件的确定

一月份的进货量加月初库存量小于总库存量：x1 ≤300 一月份的销售量小于总库存量： -x1+ x4 ≤200 二月份的进货量月初加库存量小于总库存量：x1+ x2–x4≤300

上海龙凤1314 shlf二月份的销售量小于总库存量： -x1–x2+ x4+ x5 ≤200 三月份的进货量加月初库存量小于总库存量：x1+x2+ x3–x4–x5 ≤300 三月份的`销售量小于总库存量： -x1–x2–x3+ x4+ x5+ x6 ≤200 2.3 根据题意推理

maxZ=-8 x1-6 x2-9 x3+9 x4+8 x5+10 x6

上海龙凤1314 shlfx1 ≤300 -x1+ x4 ≤200 x1+ x2–x4≤300

上海龙凤1314 shlf-x1–x2+ x4+ x5 ≤200 x1+x2+ x3–x4–x5 ≤300 -x1–x2–x3+ x4+ x5+ x6 ≤200

上海龙凤1314 shlfxi ≥0 ， i=1、2、3、4、5、6

上海龙凤1314 shlf2.4 计算机求解前的手工数据准备

将原问题的所有约束条件添加人工变量x7、x8、x9、x10、x11、x12 maxZ=-8 x1-6 x2-9 x3+9 x4+8 x5+10 x6 x1 + x7 =300

上海龙凤1314 shlf-x1+ x4 + x8 =200 x1+ x2–x4 + x9 =300

-x1–x2+ x4+ x5 + x10 =200 x1+x2+ x3–x4–x5 + x11 =300 -x1–x2–x3+ x4+ x5+ x6+ x12 =200

xi ≥0，i=1、2、3、4、5、6、7、8、9、10、11、12 3、程序流程图

上海龙凤1314 shlf二、//程序源代码

JSP 部分

value="

开

始

//prompt("please input base variable quantity divideby '$':","");//输入框

Js 脚本代码

function yemian(jj,ii,get_re,base_variable_arr,arr_first_varry){//画出两阶段法的页面 var tb_body="",tr_value="",tab_value="",input_value="",i=1,j=1; var tr1_value=new Array();

var arr_input_value_2=new Array(); var arr_get_re=new Array(); if(get_re!==null&&get_re!=""){ arr_get_re=get_re.toString().substring(0,get_re.length-1).split("#");//中间所有的数据 arr_input_value_2=arr_get_re[0].toString().substring(0,arr_get_re[0].length-1).split(",");//第二行的数据 }

if(arr_first_varry==null){ arr_first_varry=new Array(); for(var kk=1;kk<=jj;kk++){ var X_j="X"+kk.toString(); arr_first_varry.push(X_j); } }

上海龙凤1314 shlfwhile(i<=ii){ while(i==1){//第一行 var fs_wz=0; tr_value=first_line(i,jj,fs_wz,arr_first_varry);//fs_wz--->负数位置 i++; } while(i==2){

//prompt("please input base variable quantity divideby '$':","");//输入框

Js 脚本代码

function yemian(jj,ii,get_re,base_variable_arr,arr_first_varry){//画出两阶段法的页面

var tb_body="",tr_value="",tab_value="",input_value="",i=1,j=1;

上海龙凤1314 shlfvar tr1_value=new Array();

var arr_input_value_2=new Array();

上海龙凤1314 shlfvar arr_get_re=new Array();

if(get_re!==null&&get_re!=""){

arr_get_re=get_re.toString().substring(0,get_re.length-1).split("#");//中间所有的数据 arr_input_value_2=arr_get_re[0].toString().substring(0,arr_get_re[0].length-1).split(",");//第二行的数据

}

if(arr_first_varry==null){

arr_first_varry=new Array();

for(var kk=1;kk<=jj;kk++){

上海龙凤1314 shlfvar X_j="X"+kk.toString();

arr_first_varry.push(X_j);

}

while(i<=ii){

上海龙凤1314 shlfwhile(i==1){//第一行

var fs_wz=0;

上海龙凤1314 shlftr_value=first_line(i,jj,fs_wz,arr_first_varry);//fs_wz--->负数位置

i++;

}

上海龙凤1314 shlfwhile(i==2){

上海龙凤1314 shlftr_value+=second_line(i,jj,arr_input_value_2);

i++;

}

if(i>=3&&i<=ii){

上海龙凤1314 shlftr_value+=mid_line(ii,jj,arr_get_re,base_variable_arr);

break;

}

上海龙凤1314 shlfif(i<=ii){

上海龙凤1314 shlffor(var row_i=i;row_i<=ii;row_i++){

上海龙凤1314 shlfif(row_i==1){//第一行

上海龙凤1314 shlfvar fs_wz=0;

上海龙凤1314 shlftr_value=first_line(row_i,jj,fs_wz,arr_first_varry);//fs_wz--->负数位置

row_i++;

}

else if(row_i==2){

上海龙凤1314 shlftr_value+=second_line(row_i,jj,arr_input_value_2);

row_i++;

}

else if(row_i>=3&&row_i<=ii){

上海龙凤1314 shlftr_value+=mid_line(ii,jj,arr_get_re,base_variable_arr);

// break;

}

tab_value=""+tr_value+"";

上海龙凤1314 shlftb_body=document.getElementById("div1");

tb_body.innerHTML=tab_value;

// hidden();

上海龙凤1314 shlfdocument.getElementById("hidden1").value=jj;//把列数值 jj赋给隐含文本

上海龙凤1314 shlfdocument.getElementById("hidden2").value=ii;//把行数值 ii赋给隐含文本

}

上海龙凤1314 shlffunction first_line(i,jj,fs_wz,arr_first_varry){//第一行 function：Add_Row()，Add_Column()；Delete_Column()

var td_value1="",td1_value="",Xj="",tr_value1="",Xj_all="";

for(var j=1;j<=jj;j++){

上海龙凤1314 shlfXj_all+=arr_first_varry[j-1].toString()+"$";

td_value1=td_value1+""+arr_first_varry[j-1]+"";

}

var base_input1=document.getElementById("first_bl");//变量存入隐含文本------7.10 base_input1.value=Xj_all; td1_value="XBb"+td_value1; //td1_value=td1_value+td_value1;//前两单元格 tr_value1=""+td1_value+""; return tr_value1;

上海龙凤1314 shlffunction second_line(i,jj,arr_input_value_2){//第二行 function：Result()，Delete_Row() var td_value2="",td2_value="",txt_id="",tr_value2="" ,Xj="",input_str="";

上海龙凤1314 shlffor(var j=0;j<=jj;j++){

if(arr_input_value_2[j]=="undefined"||arr_input_value_2[j]==null){

arr_input_value_2[j]=""; }

txt_id="txt"+i.toString()+j.toString();

input_str="" ;

td_value2=td_value2 +""+input_str+"";

}

td2_value="Z"+td_value2;

tr_value2=""+td2_value+"";

////alert("tr_value2 =="+tr_value2);

return tr_value2;

}

上海龙凤1314 shlffunction mid_line(ii,jj,arr_get_re,base_variable_arr){//中间行

var arr_input_value_mid=new Array();

var td3_value="",td_value3="",txt_id="",txt_id1="",select_option1="",tr_value_mid=""; if(base_variable_arr==null){

base_variable_arr=new Array()

}

for(var i=3;i<=parseInt(ii);i++){

上海龙凤1314 shlfarr_input_value_mid[i-3]=new Array();

上海龙凤1314 shlf//alert("arr_get_re 2222 =="+arr_get_re.toString());

if(arr_get_re!=""&&arr_get_re!="undefined"&&i<=parseInt(ii)){

上海龙凤1314 shlf//if(arr_get_re[i-2]!=""&&arr_get_re[i-2]!="undefined"){

arr_input_value_mid[i-3]=arr_get_re[i-2].toString().substring(0,arr_get_re[i-2].length).toString().split(",");///////////////

//}

}else{

arr_input_value_mid[i-3]=new Array();

上海龙凤1314 shlffor(var n=0;n

上海龙凤1314 shlfarr_input_value_mid[i-3][n]="";

}

上海龙凤1314 shlffor(var j=0;j<=jj;j++){

txt_id="txt"+i.toString()+j.toString();

if(arr_input_value_mid[i-3][j]=="undefined"||arr_input_value_mid[i-3][j]==null){ arr_input_value_mid[i-3][j]="";

}

上海龙凤1314 shlfvar X_value1="" ;

上海龙凤1314 shlftd_value3 +=""+X_value1+"";

}

if(base_variable_arr[i-3]==null||base_variable_arr[i-3]==""||base_variable_arr[i-3]=="undefined"){

上海龙凤1314 shlfbase_variable_arr[i-3]="";

}

上海龙凤1314 shlfselect_option1="

=\">><\"><</option>";

上海龙凤1314 shlftd3_value +=""+base_variable_arr[i-3]+""+td_value3+"";

tr_value_mid+=""+td3_value+"";

td3_value="";

td_value3="";

}

return tr_value_mid;

}

上海龙凤1314 shlffunction Go_on() {//转标准形式

var ii = 0, jj = 0;

var input_value_str = "", get_re = "";

var arr_input_value = new Array();

上海龙凤1314 shlf//var aa=prompt("please input base variable quantity divideby '$':","");//输入基变量用 "$" 做分隔符

var aa = prompt("输入基变量用 $ 做分隔符(例如X2$X3)", "");//输入基变量用 "$" 做分隔符

上海龙凤1314 shlfvar base_variable_arr = new Array();

if (aa != ""&& aa != null && aa != "undefined") {

document.getElementById("basic_standard").value=aa;

base_variable_arr = aa.toString().split("$");

// var base_input = document.getElementById("basic_standard");//基变量存入隐含文本------7.10

// base_input.value = aa;

}

jj = parseInt(document.getElementById("hidden1").value);

ii = parseInt(document.getElementById("hidden2").value);

get_re = get_input_value(ii, jj);

var get_res = get_re.replace(/,#/g, "#");

var base_input2 = document.getElementById("mid_value");//基变量存入隐含文本------7.10

base_input2.value = get_res;

yemian(jj, ii, get_re, base_variable_arr);

}

上海龙凤1314 shlffunction get_input_value(ii,jj){//获取table值 input+select-----

上海龙凤1314 shlfvar txt_id="",input_value_str="",input_value_all="";

for(var i=2;i<=ii;i++){

for(var j=0;j<=jj;j++){

上海龙凤1314 shlftxt_id="txt"+i.toString()+j.toString();

input_value_str+=document.getElementById(txt_id).value+",";

}

input_value_str+="#";

}

上海龙凤1314 shlfreturn input_value_str;

}

上海龙凤1314 shlffunction Add_Column(){//增加一列

上海龙凤1314 shlfvar ii=0,jj=0,get_re="";

上海龙凤1314 shlfjj=parseInt(document.getElementById("hidden1").value)+1;

上海龙凤1314 shlfii=parseInt(document.getElementById("hidden2").value);

get_re=get_input_value(ii,jj-1).toString();

yemian(jj,ii,get_re);

}

function Delete_Column(){//删除一列

var ii=0,jj=0,get_re="";

jj=parseInt(document.getElementById("hidden1").value)-1;

ii=parseInt(document.getElementById("hidden2").value);

上海龙凤1314 shlfget_re=get_input_value(ii,jj+1).toString().substring(0,get_input_value(ii,jj+1).length-1); yemian(jj,ii,get_re);

}

function Add_Row(){//增加一行

var ii=0,jj=0,get_re="";

jj=parseInt(document.getElementById("hidden1").value);

ii=parseInt(document.getElementById("hidden2").value)+1;

get_re=get_input_value(ii-1,jj).toString()+"#";

上海龙凤1314 shlfyemian(jj,ii,get_re);

}

上海龙凤1314 shlffunction Delete_Row(){//删除一行

var ii=0,jj=0,get_re="";

jj=parseInt(document.getElementById("hidden1").value);

ii=parseInt(document.getElementById("hidden2").value)-1;

get_re=get_input_value(ii+1,jj).toString().substring(0,get_input_value(ii+1,jj).length-1); yemian(jj,ii,get_re);

}

function Result(){ //计算出最后结果，显示在页面上

var str_base="",str_varry="",str_mid="";

//var arr_base=new Array();

上海龙凤1314 shlfvar arr_varry=new Array();

var arr_mid=new Array();

上海龙凤1314 shlfvar ew_arr_mid=new Array();

var jj=0, ii=0;

jj=parseInt(document.getElementById("hidden1").value);

ii=parseInt(document.getElementById("hidden2").value);

str_base=document.getElementById("basic_standard").value;

;

str_varry=document.getElementById("first_bl").value;

str_mid=document.getElementById("mid_value").value;

上海龙凤1314 shlfstr_mid=str_mid.toString().substring(0,str_mid.length-1);

上海龙凤1314 shlf// alert("str_base =="+str_base +" str_varry =="+str_varry +" str_mid

//7_11_15_43 ls

上海龙凤1314 shlf//arr_base=str_base.toString().split("$");

arr_varry=str_varry.toString().substring(0,str_varry.length-1).split("$");

上海龙凤1314 shlfarr_mid=str_mid.toString().split("#");

上海龙凤1314 shlffor(var k=0;k

ew_arr_mid[k]=new Array();

ew_arr_mid[k]=arr_mid[k].toString().split(",");

}

for(var k=0;k

上海龙凤1314 shlffor(var j=0;j

上海龙凤1314 shlfif(ew_arr_mid[k][j]==""){

//alert("是空格啊");

ew_arr_mid[k][j]=0;

}

else {

ew_arr_mid[k][j]=parseFloat(ew_arr_mid[k][j]);

}

上海龙凤1314 shlfvar arr_not_base_loc=find_not_base_loc(str_base,arr_varry);

上海龙凤1314 shlfvar fs_loc_min=first_line_juge(arr_not_base_loc,ew_arr_mid); =="+str_mid);

上海龙凤1314 shlfif(fs_loc_min!=-1){

alert("222222222222这是基变量啊 str_base============"+str_base); workout_result(ew_arr_mid,str_base,arr_varry,fs_loc_min,jj,ii);////--------------- }else{alert("1111111已经是最优解，无需继续计算!!!");}

}

上海龙凤1314 shlffunction find_not_base_loc(str_base,arr_varry){//找出非基变量的位置

上海龙凤1314 shlf//var arr_loc_jl=new Array();

var arr_loc_jl="";

for(var i=0;i

上海龙凤1314 shlfvar ss=arr_varry[i].toString();

var loc_jl=str_base.toString().indexOf(ss,0);

if(loc_jl==-1){

上海龙凤1314 shlfarr_loc_jl=arr_loc_jl+(i+1)+",";

//break;

}

上海龙凤1314 shlfalert("非基变量的位置 ===="+arr_loc_jl);

上海龙凤1314 shlfreturn arr_loc_jl;

}

function first_line_juge(arr_not_base_loc,ew_arr_mid){//找出非基变量负数最小的位置 var fs_loc=-1,n_b_min=0;

上海龙凤1314 shlfvar arr_not_base=new Array();

arr_not_base=arr_not_base_loc.split(",");

上海龙凤1314 shlffor(var k=0;k

上海龙凤1314 shlfvar kk=parseInt(arr_not_base[k]);

var n_b_judge=parseInt(ew_arr_mid[0][kk]);

上海龙凤1314 shlfif(n_b_judge

n_b_min=n_b_judge;

fs_loc=kk

}

上海龙凤1314 shlfalert("主元所在的列数 ==="+fs_loc);

return fs_loc;

}

//ew_arr_mid 中间数组串；str_base 基变量串；arr_varry 首行的数组；fs_loc_min 主元所在列；

function workout_result(ew_arr_mid,str_base,arr_varry,fs_loc_min,jj,ii){

var bz_min_loc=-1;//记录最小位置

var bz_jl=1000000;//记录基变量与最小负数列的比值确定换入换出变量 //7_11_16_18 ls

var arr_base=new Array();

arr_base=str_base.split("$"); for(var k=1;k0){ } } var bz_pd=ew_arr_mid[k][0]/ew_arr_mid[k][fs_loc_min];//比值 if(bz_pd=0){ bz_jl=bz_pd; bz_min_loc=k; } if(bz_min_loc==-1){//比值全部为负（不是单纯刑法，未处理） alert("此题用单纯型法无法求解"); } else if(bz_min_loc!=-1){

//arr_base[bz_min_loc-1]=arr_varry[fs_loc_min-1];//互换换入换出变量（arr_varry[fs_loc_min-1] 为X1，X2）（bz_min_loc 行）

//7_11_16_26 ls

arr_base[bz_min_loc-1]=arr_varry[fs_loc_min-1];//互换换入换出变量（arr_varry[fs_loc_min-1] 为X1，X2）（bz_min_loc 行）

var jz_cs_z=ew_arr_mid[bz_min_loc][fs_loc_min];//（取出主元）基准乘数 for(var m=0;m<=jj;m++){//主元行除以主元值（主元化为1）

ew_arr_mid[bz_min_loc][m]=ew_arr_mid[bz_min_loc][m]/jz_cs_z;

}

var a=1;

//行下表出错

for(var n=0;n

var jz_cs_f=ew_arr_mid[n][fs_loc_min];//基准乘数

for(var j=0;j<=jj;j++){

上海龙凤1314 shlfif(n==bz_min_loc){