global a1;
for i=1:6
    for j=1:4
        a(i,j)=str2num(get(a1(i,j),'string'));
    end
end
%i表示投資種類
%j表示投資年數
%定義第i種投資在4年里的總收益為b(i);
for i=1:6
    b(i)=0;
    for j=1:4
        b(i)=b(i)+a(i,j);
    end
end
%定義各種投資資金的比率分別為x(1),x(2),x(3),x(4),x(5),x(6)其中x(1)+x(2)+x(4)+x(5)+x(6)=1;
%定義在第j年的收益為R(j)
x(1)=sym('x1');
x(2)=sym('x2');
x(3)=sym('x3');
x(4)=sym('x4');
x(5)=sym('x5');
x(6)=sym('x6');
t=a(1,1)*x(1)+a(2,1)*x(2)+a(3,1)*x(3)+a(4,1)*x(4)+a(5,1)*x(5)+a(6,1)*x(6);
y=a(1,2)*x(1)+a(2,2)*x(2)+a(3,2)*x(3)+a(4,2)*x(4)+a(5,2)*x(5)+a(6,2)*x(6);
p=a(1,3)*x(1)+a(2,3)*x(2)+a(3,3)*x(3)+a(4,3)*x(4)+a(5,3)*x(5)+a(6,3)*x(6);
q=a(1,4)*x(1)+a(2,4)*x(2)+a(3,4)*x(3)+a(4,4)*x(4)+a(5,4)*x(5)+a(6,4)*x(6);
B=t+y+p+q;
  %假設S=（1/10）*B；
  xishu=mean(a,2);
%獲取投資風險的權重數
a3=findobj('tag','edit1');
a2=get(a3,'string');
u=str2num(a2);
y=-(1-u)*B+u*B/10;
f=xishu;
A=[1 1 1 1 1 1];
b=1;
lb=zeros(6,1);
[jieguo,fval,exitflag,output,lambda]=linprog(f,A,b,[],[],lb);
shuchu='';
for i=1:6
    shuchu=strcat(shuchu,strcat('方案',num2str(i),'的比例為：',num2str(jieguo(i)),';'));
end
jie=findobj('tag','edit2');
set(jie,'string',shuchu);