function[Yl]=Greedy（nGPW）
W2=W;
[Yl]=sort（-P./W）;
W1=[];
X=[];
X1=[];
for?i=1:length（l）
????W1（i）=W2（l（i））;
end
W=W1;
for?i=1:n
????X（i）=0;
end
????RES=G;
????j=1;
????while?W（j）<=RES
????X（j）=1;
????RES=RES-W（j）;
????j=j+1;
????end
????for?t=j+1:n
????????RES=RES-W（t）;
????????if?RES<0
????????????RES=RES+W（t）
????????else?X（t）=1;
????????end
????end
for?i=1:length（l）
????X1（l（i））=X（i）;
end
X=X1;
disp（‘裝包方法為‘）;
disp（X）;
disp（X.*W2）;
disp（‘總的價值為‘）;
disp（P*X‘）;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????721??2009-09-16?17:12??船只裝貨\zhuangxiang.m

?????文件????????455??2009-09-16?16:33??船只裝貨\paixu.m

?????文件????????516??2011-04-19?22:05??Greedy.m

?????目錄??????????0??2009-08-19?21:25??船只裝貨

-----------?---------??----------?-----??----

?????????????????1692????????????????????4