[]
yüksek lisanstan atılma durumu nedir
merhaba arkadaşlar yüksek lisanstan atılma kalktı. fakat durum nasıl işleyecek anlamadım. bir sürü bilgi kirliliği var. şimdi ben tezli yüksek lisansın tüm derslerini verdim (seminer dahil). geriye bir tek tezi yazma kısmı kaldı ki daha başlayamadım ve geriye 1 sene tecilim kaldı.
Gelecek seneye kadar tezimi yazıp teslim edemezsem ne olacak?
bazı yerlerde zamlı olarak harç ödeyip öğrenciliğin uzatabileceğinden bahsedilmiş bazı yerlerde ise askere gidip devamdan bahsedilmiş. beni aydınlatırsanız sevinirim. saygılar sevgiler
Gelecek seneye kadar tezimi yazıp teslim edemezsem ne olacak?
bazı yerlerde zamlı olarak harç ödeyip öğrenciliğin uzatabileceğinden bahsedilmiş bazı yerlerde ise askere gidip devamdan bahsedilmiş. beni aydınlatırsanız sevinirim. saygılar sevgiler
1 mi 2 mi ne dönem daha veriyorlar tamamlayabilmen için. atılma kalkmadı heralde ya, seminer gibi zorunlu dersleri veremezsen şutluyorlar hala benim bildiğim. tez yazmadan önce kayıt dondurabilirsin, gelince kaydını devam ettirip tezini yazarsın.
- linuxville
(10.04.12 19:20:28)
atılma kalkmıs olmali. okulun yonetmeligini bir incele ve okuldaki calisanlara bir sor durumu.
tezi de yazar bitirirsin illa ki.
eger zorlanıyorsan tezsize geçiş yap.
tezi de yazar bitirirsin illa ki.
eger zorlanıyorsan tezsize geçiş yap.
- sage (10.04.12 19:25:20)
[]
nemlenmis hap kullanimi?
merhaba 3 ay omru kalmis steve jobslar,
internetten carnitine almistim bugun actim daha paketi alali iki hafta oluyor. haplar nemli hafiften hani paketi falan her seyi kapaliydi ben actim ama icinden bir iki hap islak cikti killandim. bir de nemlenmesin diye bir sey varya iclerinde hani o baya bir neminkendine cekmeye calismis sanirim. iki hap yarisina kadar nemli kutu uzerinde son kullanma tarihi 07.2012 yorumlarinizi bekliyorum arkadaslar kullansam bir sey olur mu aldigim adama mail de attim simdi
internetten carnitine almistim bugun actim daha paketi alali iki hafta oluyor. haplar nemli hafiften hani paketi falan her seyi kapaliydi ben actim ama icinden bir iki hap islak cikti killandim. bir de nemlenmesin diye bir sey varya iclerinde hani o baya bir neminkendine cekmeye calismis sanirim. iki hap yarisina kadar nemli kutu uzerinde son kullanma tarihi 07.2012 yorumlarinizi bekliyorum arkadaslar kullansam bir sey olur mu aldigim adama mail de attim simdi
nemli hapları içmeyin, gerisini için. bence bişey olmaz.
girişe koptum bu arada :D
girişe koptum bu arada :D
- delfina (05.09.11 00:57:42)
ahahahhahaha giriş cümlei çok iyi. internetten almışsın geri gönder df.
- roket adam (05.09.11 09:21:01)
[]
iphone uygulama ve oyun tavsiyeleri ?
merhaba spartacuslar,
iphone da siz neler kullaniyorsunu?
viber ,whatsup, sleepcycle ,imovie, photosynth, angrybirds,puppet show, flightradar, iphonebul, airtycoon2, phonedrive, dropbox, soundhound, emoji ,tunewiki, mayhos ,fifa11 ,dirtygirl, tikitotem, magicpiano, metalstorm ,epicwar, fightnight, super8 ,liveatc, ladida...
benim tavsiye edecegim bazi oyun ve programlar bunlar siz neler kullaniyorsunuz ozellikle neleri tavsiye edersiniz..
iphone da siz neler kullaniyorsunu?
viber ,whatsup, sleepcycle ,imovie, photosynth, angrybirds,puppet show, flightradar, iphonebul, airtycoon2, phonedrive, dropbox, soundhound, emoji ,tunewiki, mayhos ,fifa11 ,dirtygirl, tikitotem, magicpiano, metalstorm ,epicwar, fightnight, super8 ,liveatc, ladida...
benim tavsiye edecegim bazi oyun ve programlar bunlar siz neler kullaniyorsunuz ozellikle neleri tavsiye edersiniz..
of of güzel duyuru :)
skype, shazam, myphone+, doodlejump, flick football, fruit ninja, cut the rope..
skype, shazam, myphone+, doodlejump, flick football, fruit ninja, cut the rope..
- sozlukte kullanmak istediginiz nick (02.06.11 00:35:55)
thor, caveman, ligtv (online mac izlemek icin)
- intimate
(02.06.11 00:38:34 ~ 00:39:45)
fruit ninja, infinity blade, solomon's keep, stumbleupon, wolfram, instagram, wiki, springpad, sleep cycle, procrastinator, nike+gps.... gibi gibi tavsiyelerim. hepsini tavsiye ediyorum.
- Koruk (02.06.11 00:41:25)
Dün restore ettim, en önemli gördüğümden bugün hemen yüklediğim uygulamalar:
Mobile RSS - SleepCycle - Eurosport - MerriamWebster Dictionary - Momento Diary
Mobile RSS - SleepCycle - Eurosport - MerriamWebster Dictionary - Momento Diary
- joelskellington (02.06.11 00:43:00)
photosynth, convert units, xe currency, stanza, scanner pro, teamviewer, fieldrunners, real golf 2011, flick kick football.
- emrag (02.06.11 02:56:26)
e peki herkes jailbreak'li mi?
- altinci nesil caylak (02.06.11 08:45:49)
oyun icin High Noon ve Stylish Sprint super.
Uygulama icin teamviewer, dropbox, whatsapp, instagram.
Uygulama icin teamviewer, dropbox, whatsapp, instagram.
- polkaf (02.06.11 12:34:00)
yok jailbreaksiz benimkisi :).
- madworld (02.06.11 14:53:55)
[]
Turkcell numara tasima sorusu ?
merhaba dostlar,
kasim ayinda turkcell faturali hat aldim bunu aveali faturali hatta tasiyabilir miyim ? hani bir yil bekleme zamani falan var mi ?
tesekkur ederim
kasim ayinda turkcell faturali hat aldim bunu aveali faturali hatta tasiyabilir miyim ? hani bir yil bekleme zamani falan var mi ?
tesekkur ederim
yok rahatlıkla geçebilirsiniz
- Aslan Yürekli (15.04.11 11:38:43)
sanırım ilk abonelikte 1 ay sonraki her taşımada da 3 ay diye biliyorum. her iki durumda da sıkıntı yok sizde.
- ben smyrna (15.04.11 11:39:41)
tesekkur ederim dostlar
- madworld (15.04.11 11:50:42)
3 aylık kullanıcı olmanız gerekiyor. o koşulla taşınabiliyor. taşıdıktan sonra ise istediğiniz her an tekrar taşıyabilirsiniz
- köfte (15.04.11 12:30:33)
[]
will-shall farkini aciklayabilir misiniz ?
Merhaba frigyali dostlarim,
Ingilizcedeki will-shall farkini bir aciklayabilir misiniz? Shall sanirim daha resmi olarak kullaniliyordu hatirlayamiyorum bir turlu tam olarak. Mesela bir test de ciksa nasil ayirt edebilirim biraz bilgi verebilir misini? saygilar sevgiler
Ingilizcedeki will-shall farkini bir aciklayabilir misiniz? Shall sanirim daha resmi olarak kullaniliyordu hatirlayamiyorum bir turlu tam olarak. Mesela bir test de ciksa nasil ayirt edebilirim biraz bilgi verebilir misini? saygilar sevgiler
benim hatırladığım kadarıyla da shall daha resmi ve daha çok bir şeyler teklif ederken kullanılıyordu. mesela ''shall we go out?'' gibi. will i zaten biliyoruz. spontane konuşmalarda kullanılan gelecek zaman eki fln
- wise (17.02.11 21:29:28)
yani shall artık will anlamında kullanılmıyo çok benim bildiğim
eski kullanım olduğu için pek bilmiyorum ama mesela shall
Shall we dance ?
Shall we go? gibi öneri (formal tabi azcık) cümlelerinde kullanılıyo
I shall rule all !! gibi egoistik kullanımları da var :]
naçizane bu kadar biliyorum
eski kullanım olduğu için pek bilmiyorum ama mesela shall
Shall we dance ?
Shall we go? gibi öneri (formal tabi azcık) cümlelerinde kullanılıyo
I shall rule all !! gibi egoistik kullanımları da var :]
naçizane bu kadar biliyorum
- mushtopus (17.02.11 21:31:01)
i will go = gideceğim
i shall go = gitmeliyim
i shall go = gitmeliyim
- :/ (17.02.11 22:14:53)
[]
Matlab da su kodlari calistirip bir screenshot verebilir misiniz?
merhaba arkadaslar mac kullaniyorum bir turlu halledemedim su isi su kodu(karinca kolonisi optimizasyonu ile ilgili) calistirip baslnagic sonuc 2-3 tane screenshot verebilir misiniz?
sagolun varolun.
www.easy-share.com ACO.docx
function ACO(inputfile)
%% Example: ACO('ulysses22.tsp')
disp('AS is reading input nodes file...');
[Dimension,NodeCoord,NodeWeight,Name]=FileInput(inputfile);
disp([num2str(Dimension),' nodes in',Name,' has been read in']);
disp(['AS start at ',datestr(now)]);
%%%%%%%%%%%%% the key parameters of Ant System %%%%%%%%%
MaxITime=1e3;
AntNum=Dimension;
alpha=1;
beta=5;
rho=0.65;
%%%%%%%%%%%%% the key parameters of Ant System %%%%%%%%%
fprintf('Showing Iterative Best Solution:\n');
[GBTour,GBLength,Option,IBRecord] = ...
AS(NodeCoord,NodeWeight,AntNum,MaxITime,alpha,beta,rho);
disp(['AS stop at ',datestr(now)]);
disp('Drawing the iterative course''s curve');
figure(1);
subplot(2,1,1)
plot(1:length(IBRecord(1,:)),IBRecord(1,:));
xlabel('Iterative Time');
ylabel('Iterative Best Cost');
title(['Iterative Course: ','GMinL=',num2str(GBLength),', FRIT=',num2str(Option.OptITime)]);
subplot(2,1,2)
plot(1:length(IBRecord(2,:)),IBRecord(2,:));
xlabel('Iterative Time');
ylabel('Average Node Branching');
figure(2);
DrawCity(NodeCoord,GBTour);
title([num2str(Dimension),' Nodes Tour Path of ',Name]);
function [Dimension,NodeCoord,NodeWeight,Name]=FileInput(infile)
if ischar(infile)
fid=fopen(infile,'r');
else
disp('input file no exist');
return;
end
if fid<0
disp('error while open file');
return;
end
NodeWeight = [];
while feof(fid)==0
temps=fgetl(fid);
if strcmp(temps,'')
continue;
elseif strncmpi('NAME',temps,4)
k=findstr(temps,':');
Name=temps(k+1:length(temps));
elseif strncmpi('DIMENSION',temps,9)
k=findstr(temps,':');
d=temps(k+1:length(temps));
Dimension=str2double(d); %str2num
elseif strncmpi('EDGE_WEIGHT_SECTION',temps,19)
formatstr = [];
for i=1:Dimension
formatstr = [formatstr,'%g '];
end
NodeWeight=fscanf(fid,formatstr,[Dimension,Dimension]);
NodeWeight=NodeWeight';
elseif strncmpi('NODE_COORD_SECTION',temps,18) || strncmpi('DISPLAY_DATA_SECTION',temps,20)
NodeCoord=fscanf(fid,'%g %g %g',[3 Dimension]);
NodeCoord=NodeCoord';
end
end
fclose(fid);
function plothandle=DrawCity(CityList,Tours)
xd=[];yd=[];
nc=length(Tours);
plothandle=plot(CityList(:,2:3),'.');
set(plothandle,'MarkerSize',16);
for i=1:nc
xd(i)=CityList(Tours(i),2);
yd(i)=CityList(Tours(i),3);
end
set(plothandle,'XData',xd,'YData',yd);
line(xd,yd);
function [GBTour,GBLength,Option,IBRecord]=AS(CityMatrix,WeightMatrix,AntNum,MaxITime,alpha,beta,rho)
%% (Ant System) date:070427
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Reference：
% Dorigo M, Maniezzo Vittorio, Colorni Alberto.
% The Ant System: Optimization by a colony of cooperating agents [J].
% IEEE Transactions on Systems, Man, and Cybernetics--Part B,1996, 26(1)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
global ASOption Problem AntSystem
ASOption = InitParameter(CityMatrix,AntNum,alpha,beta,rho,MaxITime);
Problem = InitProblem(CityMatrix,WeightMatrix);
AntSystem = InitAntSystem();
ITime = 0;
IBRecord = [];
if ASOption.DispInterval ~= 0
close all
set(gcf,'Doublebuffer','on');
hline=plot(1,1,'-o');
end
while 1
InitStartPoint();
for step = 2:ASOption.n
for ant = 1:ASOption.m
P = CaculateShiftProb(step,ant);
nextnode = Roulette(P,1);
RefreshTabu(step,ant,nextnode);
end
end
CloseTours();
ITime = ITime + 1;
CaculateToursLength();
GlobleRefreshPheromone();
ANB = CaculateANB();
[GBTour,GBLength,IBRecord(:,ITime)] = GetResults(ITime,ANB);
ShowIterativeCourse(GBTour,ITime,hline);
% ShowIterativeCourse(IBRecord(3:end,ITime),ITime,hline);
if Terminate(ITime,ANB)
break;
end
end
Option = ASOption;
%% --------------------------------------------------------------
function ASOption = InitParameter(Nodes,AntNum,alpha,beta,rho,MaxITime)
ASOption.n = length(Nodes(:,1));
ASOption.m = AntNum;
ASOption.alpha = alpha;
ASOption.beta = beta;
ASOption.rho = rho;
ASOption.MaxITime = MaxITime;
ASOption.OptITime = 1;
ASOption.Q = 10;
ASOption.C = 100;
ASOption.lambda = 0.15;
ASOption.ANBmin = 2;
ASOption.GBLength = inf;
ASOption.GBTour = zeros(length(Nodes(:,1))+1,1);
ASOption.DispInterval = 10;
rand('state',sum(100*clock));
%% --------------------------------------------------------------
function Problem = InitProblem(Nodes,WeightMatrix)
global ASOption
n = length(Nodes(:,1));
MatrixTau = (ones(n,n)-eye(n,n))*ASOption.C;
Distances = WeightMatrix;
SymmetryFlag = false;
if isempty(WeightMatrix)
Distances = CalculateDistance(Nodes);
SymmetryFlag = true;
end
Problem = struct('nodes',Nodes,'dis',Distances,'tau',MatrixTau,'symmetry',SymmetryFlag);
%% --------------------------------------------------------------
function AntSystem = InitAntSystem()
global ASOption
AntTours = zeros(ASOption.m,ASOption.n+1);
ToursLength = zeros(ASOption.m,1);
AntSystem = struct('tours',AntTours,'lengths',ToursLength);
%% --------------------------------------------------------------
function InitStartPoint()
global AntSystem ASOption
AntSystem.tours = zeros(ASOption.m,ASOption.n+1);
rand('state',sum(100*clock));
AntSystem.tours(:,1) = randint(ASOption.m,1,[1,ASOption.n]);
AntSystem.lengths = zeros(ASOption.m,1);
%% --------------------------------------------------------------
function Probs = CaculateShiftProb(step_i, ant_k)
global AntSystem ASOption Problem
CurrentNode = AntSystem.tours(ant_k, step_i-1);
VisitedNodes = AntSystem.tours(ant_k, 1:step_i-1);
tau_i = Problem.tau(CurrentNode,:);
tau_i(1,VisitedNodes) = 0;
dis_i = Problem.dis(CurrentNode,:);
dis_i(1,CurrentNode) = 1;
Probs = (tau_i.^ASOption.alpha).*((1./dis_i).^ASOption.beta);
if sum(Probs) ~= 0
Probs = Probs/sum(Probs);
else
NoVisitedNodes = setdiff(1:ASOption.n,VisitedNodes);
Probs(1,NoVisitedNodes) = 1/length(NoVisitedNodes);
end
%% --------------------------------------------------------------
function Select = Roulette(P,num)
m = length(P);
flag = (1-sum(P)<=1e-5);
Select = zeros(1,num);
rand('state',sum(100*clock));
r = rand(1,num);
for i=1:num
sumP = 0;
j = ceil(m*rand);
while (sumP<r(i)) && flag
sumP = sumP + P(mod(j-1,m)+1);
j = j+1;
end
Select(i) = mod(j-2,m)+1;
end
%% --------------------------------------------------------------
function RefreshTabu(step_i,ant_k,nextnode)
global AntSystem
AntSystem.tours(ant_k,step_i) = nextnode;
%% --------------------------------------------------------------
function CloseTours()
global AntSystem ASOption
AntSystem.tours(:,ASOption.n+1) = AntSystem.tours(:,1);
%% --------------------------------------------------------------
function CaculateToursLength()
global AntSystem ASOption Problem
Lengths = zeros(ASOption.m,1);
for k=1:ASOption.m
for i=1:ASOption.n
Lengths(k)=Lengths(k)+...
Problem.dis(AntSystem.tours(k,i),AntSystem.tours(k,i+1));
end
end
AntSystem.lengths = Lengths;
%% --------------------------------------------------------------
function [GBTour,GBLength,Record] = GetResults(ITime,ANB)
global AntSystem ASOption
[IBLength,AntIndex] = min(AntSystem.lengths);
IBTour = AntSystem.tours(AntIndex,:);
if IBLength<=ASOption.GBLength
ASOption.GBLength = IBLength;
ASOption.GBTour = IBTour;
ASOption.OptITime = ITime;
end
GBTour = ASOption.GBTour';
GBLength = ASOption.GBLength;
Record = [IBLength,ANB,IBTour]';
%% --------------------------------------------------------------
function GlobleRefreshPheromone()
global AntSystem ASOption Problem
AT = AntSystem.tours;
TL = AntSystem.lengths;
sumdtau=zeros(ASOption.n,ASOption.n);
for k=1:ASOption.m
for i=1:ASOption.n
sumdtau(AT(k,i),AT(k,i+1))=sumdtau(AT(k,i),AT(k,i+1))+ASOption.Q/TL(k);
if Problem.symmetry
sumdtau(AT(k,i+1),AT(k,i))=sumdtau(AT(k,i),AT(k,i+1));
end
end
end
Problem.tau=Problem.tau*(1-ASOption.rho)+sumdtau;
%% --------------------------------------------------------------
function flag = Terminate(ITime,ANB)
global ASOption
flag = false;
if ANB<=ASOption.ANBmin || ITime>=ASOption.MaxITime
flag = true;
end
%% --------------------------------------------------------------
function ANB = CaculateANB()
global ASOption Problem
mintau = min(Problem.tau+ASOption.C*eye(ASOption.n,ASOption.n));
sigma = max(Problem.tau) - mintau;
dis = Problem.tau - repmat(sigma*ASOption.lambda+mintau,ASOption.n,1);
NB = sum(dis>=0,1);
ANB = sum(NB)/ASOption.n;
%% --------------------------------------------------------------
function Distances = CalculateDistance(Nodes)
global ASOption
Nodes(:,1)=[];
Distances=zeros(ASOption.n,ASOption.n);
for i=2:ASOption.n
for j=1:i
if(i==j)
continue;
else
dij=Nodes(i,:)-Nodes(j,:);
Distances(i,j)=sqrt(dij(1)^2+dij(2)^2);
Distances(j,i)=Distances(i,j);
end
end
end
%% --------------------------------------------------------------
function ShowIterativeCourse(IBTour,ITime,hmovie)
global Problem ASOption
num = length(IBTour);
if mod(ITime,ASOption.DispInterval)==0
title(get(hmovie,'Parent'),['ITime = ',num2str(ITime)]);
NodeCoord = Problem.nodes;
xd=[];yd=[];
for i=1:num
xd(i)=NodeCoord(IBTour(i),2);
yd(i)=NodeCoord(IBTour(i),3);
end
set(hmovie,'XData',xd,'YData',yd);
pause(0.01);
end
sagolun varolun.
www.easy-share.com ACO.docx
function ACO(inputfile)
%% Example: ACO('ulysses22.tsp')
disp('AS is reading input nodes file...');
[Dimension,NodeCoord,NodeWeight,Name]=FileInput(inputfile);
disp([num2str(Dimension),' nodes in',Name,' has been read in']);
disp(['AS start at ',datestr(now)]);
%%%%%%%%%%%%% the key parameters of Ant System %%%%%%%%%
MaxITime=1e3;
AntNum=Dimension;
alpha=1;
beta=5;
rho=0.65;
%%%%%%%%%%%%% the key parameters of Ant System %%%%%%%%%
fprintf('Showing Iterative Best Solution:\n');
[GBTour,GBLength,Option,IBRecord] = ...
AS(NodeCoord,NodeWeight,AntNum,MaxITime,alpha,beta,rho);
disp(['AS stop at ',datestr(now)]);
disp('Drawing the iterative course''s curve');
figure(1);
subplot(2,1,1)
plot(1:length(IBRecord(1,:)),IBRecord(1,:));
xlabel('Iterative Time');
ylabel('Iterative Best Cost');
title(['Iterative Course: ','GMinL=',num2str(GBLength),', FRIT=',num2str(Option.OptITime)]);
subplot(2,1,2)
plot(1:length(IBRecord(2,:)),IBRecord(2,:));
xlabel('Iterative Time');
ylabel('Average Node Branching');
figure(2);
DrawCity(NodeCoord,GBTour);
title([num2str(Dimension),' Nodes Tour Path of ',Name]);
function [Dimension,NodeCoord,NodeWeight,Name]=FileInput(infile)
if ischar(infile)
fid=fopen(infile,'r');
else
disp('input file no exist');
return;
end
if fid<0
disp('error while open file');
return;
end
NodeWeight = [];
while feof(fid)==0
temps=fgetl(fid);
if strcmp(temps,'')
continue;
elseif strncmpi('NAME',temps,4)
k=findstr(temps,':');
Name=temps(k+1:length(temps));
elseif strncmpi('DIMENSION',temps,9)
k=findstr(temps,':');
d=temps(k+1:length(temps));
Dimension=str2double(d); %str2num
elseif strncmpi('EDGE_WEIGHT_SECTION',temps,19)
formatstr = [];
for i=1:Dimension
formatstr = [formatstr,'%g '];
end
NodeWeight=fscanf(fid,formatstr,[Dimension,Dimension]);
NodeWeight=NodeWeight';
elseif strncmpi('NODE_COORD_SECTION',temps,18) || strncmpi('DISPLAY_DATA_SECTION',temps,20)
NodeCoord=fscanf(fid,'%g %g %g',[3 Dimension]);
NodeCoord=NodeCoord';
end
end
fclose(fid);
function plothandle=DrawCity(CityList,Tours)
xd=[];yd=[];
nc=length(Tours);
plothandle=plot(CityList(:,2:3),'.');
set(plothandle,'MarkerSize',16);
for i=1:nc
xd(i)=CityList(Tours(i),2);
yd(i)=CityList(Tours(i),3);
end
set(plothandle,'XData',xd,'YData',yd);
line(xd,yd);
function [GBTour,GBLength,Option,IBRecord]=AS(CityMatrix,WeightMatrix,AntNum,MaxITime,alpha,beta,rho)
%% (Ant System) date:070427
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Reference：
% Dorigo M, Maniezzo Vittorio, Colorni Alberto.
% The Ant System: Optimization by a colony of cooperating agents [J].
% IEEE Transactions on Systems, Man, and Cybernetics--Part B,1996, 26(1)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
global ASOption Problem AntSystem
ASOption = InitParameter(CityMatrix,AntNum,alpha,beta,rho,MaxITime);
Problem = InitProblem(CityMatrix,WeightMatrix);
AntSystem = InitAntSystem();
ITime = 0;
IBRecord = [];
if ASOption.DispInterval ~= 0
close all
set(gcf,'Doublebuffer','on');
hline=plot(1,1,'-o');
end
while 1
InitStartPoint();
for step = 2:ASOption.n
for ant = 1:ASOption.m
P = CaculateShiftProb(step,ant);
nextnode = Roulette(P,1);
RefreshTabu(step,ant,nextnode);
end
end
CloseTours();
ITime = ITime + 1;
CaculateToursLength();
GlobleRefreshPheromone();
ANB = CaculateANB();
[GBTour,GBLength,IBRecord(:,ITime)] = GetResults(ITime,ANB);
ShowIterativeCourse(GBTour,ITime,hline);
% ShowIterativeCourse(IBRecord(3:end,ITime),ITime,hline);
if Terminate(ITime,ANB)
break;
end
end
Option = ASOption;
%% --------------------------------------------------------------
function ASOption = InitParameter(Nodes,AntNum,alpha,beta,rho,MaxITime)
ASOption.n = length(Nodes(:,1));
ASOption.m = AntNum;
ASOption.alpha = alpha;
ASOption.beta = beta;
ASOption.rho = rho;
ASOption.MaxITime = MaxITime;
ASOption.OptITime = 1;
ASOption.Q = 10;
ASOption.C = 100;
ASOption.lambda = 0.15;
ASOption.ANBmin = 2;
ASOption.GBLength = inf;
ASOption.GBTour = zeros(length(Nodes(:,1))+1,1);
ASOption.DispInterval = 10;
rand('state',sum(100*clock));
%% --------------------------------------------------------------
function Problem = InitProblem(Nodes,WeightMatrix)
global ASOption
n = length(Nodes(:,1));
MatrixTau = (ones(n,n)-eye(n,n))*ASOption.C;
Distances = WeightMatrix;
SymmetryFlag = false;
if isempty(WeightMatrix)
Distances = CalculateDistance(Nodes);
SymmetryFlag = true;
end
Problem = struct('nodes',Nodes,'dis',Distances,'tau',MatrixTau,'symmetry',SymmetryFlag);
%% --------------------------------------------------------------
function AntSystem = InitAntSystem()
global ASOption
AntTours = zeros(ASOption.m,ASOption.n+1);
ToursLength = zeros(ASOption.m,1);
AntSystem = struct('tours',AntTours,'lengths',ToursLength);
%% --------------------------------------------------------------
function InitStartPoint()
global AntSystem ASOption
AntSystem.tours = zeros(ASOption.m,ASOption.n+1);
rand('state',sum(100*clock));
AntSystem.tours(:,1) = randint(ASOption.m,1,[1,ASOption.n]);
AntSystem.lengths = zeros(ASOption.m,1);
%% --------------------------------------------------------------
function Probs = CaculateShiftProb(step_i, ant_k)
global AntSystem ASOption Problem
CurrentNode = AntSystem.tours(ant_k, step_i-1);
VisitedNodes = AntSystem.tours(ant_k, 1:step_i-1);
tau_i = Problem.tau(CurrentNode,:);
tau_i(1,VisitedNodes) = 0;
dis_i = Problem.dis(CurrentNode,:);
dis_i(1,CurrentNode) = 1;
Probs = (tau_i.^ASOption.alpha).*((1./dis_i).^ASOption.beta);
if sum(Probs) ~= 0
Probs = Probs/sum(Probs);
else
NoVisitedNodes = setdiff(1:ASOption.n,VisitedNodes);
Probs(1,NoVisitedNodes) = 1/length(NoVisitedNodes);
end
%% --------------------------------------------------------------
function Select = Roulette(P,num)
m = length(P);
flag = (1-sum(P)<=1e-5);
Select = zeros(1,num);
rand('state',sum(100*clock));
r = rand(1,num);
for i=1:num
sumP = 0;
j = ceil(m*rand);
while (sumP<r(i)) && flag
sumP = sumP + P(mod(j-1,m)+1);
j = j+1;
end
Select(i) = mod(j-2,m)+1;
end
%% --------------------------------------------------------------
function RefreshTabu(step_i,ant_k,nextnode)
global AntSystem
AntSystem.tours(ant_k,step_i) = nextnode;
%% --------------------------------------------------------------
function CloseTours()
global AntSystem ASOption
AntSystem.tours(:,ASOption.n+1) = AntSystem.tours(:,1);
%% --------------------------------------------------------------
function CaculateToursLength()
global AntSystem ASOption Problem
Lengths = zeros(ASOption.m,1);
for k=1:ASOption.m
for i=1:ASOption.n
Lengths(k)=Lengths(k)+...
Problem.dis(AntSystem.tours(k,i),AntSystem.tours(k,i+1));
end
end
AntSystem.lengths = Lengths;
%% --------------------------------------------------------------
function [GBTour,GBLength,Record] = GetResults(ITime,ANB)
global AntSystem ASOption
[IBLength,AntIndex] = min(AntSystem.lengths);
IBTour = AntSystem.tours(AntIndex,:);
if IBLength<=ASOption.GBLength
ASOption.GBLength = IBLength;
ASOption.GBTour = IBTour;
ASOption.OptITime = ITime;
end
GBTour = ASOption.GBTour';
GBLength = ASOption.GBLength;
Record = [IBLength,ANB,IBTour]';
%% --------------------------------------------------------------
function GlobleRefreshPheromone()
global AntSystem ASOption Problem
AT = AntSystem.tours;
TL = AntSystem.lengths;
sumdtau=zeros(ASOption.n,ASOption.n);
for k=1:ASOption.m
for i=1:ASOption.n
sumdtau(AT(k,i),AT(k,i+1))=sumdtau(AT(k,i),AT(k,i+1))+ASOption.Q/TL(k);
if Problem.symmetry
sumdtau(AT(k,i+1),AT(k,i))=sumdtau(AT(k,i),AT(k,i+1));
end
end
end
Problem.tau=Problem.tau*(1-ASOption.rho)+sumdtau;
%% --------------------------------------------------------------
function flag = Terminate(ITime,ANB)
global ASOption
flag = false;
if ANB<=ASOption.ANBmin || ITime>=ASOption.MaxITime
flag = true;
end
%% --------------------------------------------------------------
function ANB = CaculateANB()
global ASOption Problem
mintau = min(Problem.tau+ASOption.C*eye(ASOption.n,ASOption.n));
sigma = max(Problem.tau) - mintau;
dis = Problem.tau - repmat(sigma*ASOption.lambda+mintau,ASOption.n,1);
NB = sum(dis>=0,1);
ANB = sum(NB)/ASOption.n;
%% --------------------------------------------------------------
function Distances = CalculateDistance(Nodes)
global ASOption
Nodes(:,1)=[];
Distances=zeros(ASOption.n,ASOption.n);
for i=2:ASOption.n
for j=1:i
if(i==j)
continue;
else
dij=Nodes(i,:)-Nodes(j,:);
Distances(i,j)=sqrt(dij(1)^2+dij(2)^2);
Distances(j,i)=Distances(i,j);
end
end
end
%% --------------------------------------------------------------
function ShowIterativeCourse(IBTour,ITime,hmovie)
global Problem ASOption
num = length(IBTour);
if mod(ITime,ASOption.DispInterval)==0
title(get(hmovie,'Parent'),['ITime = ',num2str(ITime)]);
NodeCoord = Problem.nodes;
xd=[];yd=[];
for i=1:num
xd(i)=NodeCoord(IBTour(i),2);
yd(i)=NodeCoord(IBTour(i),3);
end
set(hmovie,'XData',xd,'YData',yd);
pause(0.01);
end
ACO fonksiyonu asil isi yapan AS'yi icinde calistiriyor gordugum kadariyla, ama bu ACO fonksiyonunu kim calistiriyor? biz calistiracaksak, inputfile'i napicaz?
- tom riddle (24.01.11 21:49:26)
matlab da yazilmis , hoca bu kodu calistirip odevime eklememi istedi cok da anlamiyorum programlama dilinden o yuzden net bir sey diyemeyecegim :(. bir parcasi bile calissa yeterli maksat yapilmis olmasi.
- madworld (24.01.11 22:31:08)
[]
Muhendislere sorum var
Merhaba frigyali dostlarim,
arkadaslar is ile ilgili bir sorunum var da. Soyle ki; 5 farkli kalemde fason uretim yapiyoruz. bu urunlerden 1 si icin biz 0.3 kurusa urunu satarken bu adamlar 0.18 kurusa baska bir yerden teklif aldiklarini soylediler. ya fiyati dusurcez ya da uretimi durdurucaz. parcanin bize maliyeti de 0.12. tamam bizim karimiz yuksek gozukebilir ama bu parcalarin uretimi icin tasarimlarda buyuk emekler harcandi. bu parcanin 0.18 liraya baska bir yerden fiyat verilmesi cok garip geliyor bana. simdi adamlarin blof yapma ihtimali bana yuksek geliyor. amma velakin adamlar uretimi bizden de cekebilirler. direk fiyat da kirmak istemiyorum. boyle bir durumda nasil hareket etsem en guzelini yapmis olurum.
aslinda daha ayrintili bilgi de verebilirim ama su an yeni haberim oldu bu durumdan, ilgili mail yarin sabah okuyabilecegim.
saygilar
arkadaslar is ile ilgili bir sorunum var da. Soyle ki; 5 farkli kalemde fason uretim yapiyoruz. bu urunlerden 1 si icin biz 0.3 kurusa urunu satarken bu adamlar 0.18 kurusa baska bir yerden teklif aldiklarini soylediler. ya fiyati dusurcez ya da uretimi durdurucaz. parcanin bize maliyeti de 0.12. tamam bizim karimiz yuksek gozukebilir ama bu parcalarin uretimi icin tasarimlarda buyuk emekler harcandi. bu parcanin 0.18 liraya baska bir yerden fiyat verilmesi cok garip geliyor bana. simdi adamlarin blof yapma ihtimali bana yuksek geliyor. amma velakin adamlar uretimi bizden de cekebilirler. direk fiyat da kirmak istemiyorum. boyle bir durumda nasil hareket etsem en guzelini yapmis olurum.
aslinda daha ayrintili bilgi de verebilirim ama su an yeni haberim oldu bu durumdan, ilgili mail yarin sabah okuyabilecegim.
saygilar
soyle olaiblir, tasarımları vs teslim etmısnızdır firmaya. adamlar direk gidip 1-0 onden baslayıp sadece fiyat vermıslerdır. bu durumda pek ciddi bi yatırım yapmasıgerekmıyor.
- bryan fury (21.12.10 01:17:12)
ürünün ne olduğunu sektörün ne olduğunu bilmiyoruz ama söylendiği şekilde sizin tasarımızı (projenizi) alıp tasarım maliyeti olmadığı için daha ucuza üretmeye başlayabilmeleri normal. ancak ön yatırım gerektiren bir işse (kalıp, makina yatırımı ıvır zıvır) aslında biraz fiyat kırarak adamları sizden almaya razı edebilirsiniz gibi görünüyor. bol şanslar yerinizde olmak istemezdim.
- raa (21.12.10 03:11:11)
doğaldır....bekle bi kokusu çıkar. sen 0,12 ye üretebiliyrosan birileri 0,2 a üretip 0,18 e satabilir
doğaldır.
doğaldır.
- raki masasinin degismez adami (21.12.10 07:14:11)
olabilir. biz de bu yaz böyle bir durumdaydık:
%75 ihracat yapıyoruz. iç pazarda da çok büyük müşterilerimiz var. ortalama 50 kalem ürünümüz var. fiyatlar değişiyor. ama bir ürün için örnek vereyim. büyük bir firmaya 95 kuruşa satıyoruz. adamlar dediler ki pahalı! ee siz bunu bizden bu paraya alıyordunuz dedik. yok daha ucuz veren var dediler. inanmadık. bize faturasını faksladılar. inanamadık. adamlar 87 kuruş teklif yapmışlar. inanılmaz bir rakam. tamam dedik biz bunu 85 kuruşa veririz. anlaştık. aradan zaman geçti bir faks daha geldi. başka bir firma 80 kuruş teklif etmiş. onun faturasının faksı:) elimiz kolumuz bağlandı. ya tamam biz size son 83 kuruşa verelim dedik. yok sağolun biz 78 kuruşa aldık dediler.
bu niye oldu. çünkü bizim bu ürünümüzü piyasada herkes yapıyor. basit bir ürün. üretimi, tasarımı her şeyi kolay. adamlar karadüzen iş yapıyor. işçinin sigortasını yatırmıyor. maaşını vermiyor. hammadde kalitesiz. ordan çal burdan çal. bir sürü yalan dolan iş. ama ürününü 78 kuruşa satacak kadar maliyetleri düşürebiliyor. biz o şekilde yapamayız. o yüzden maliyetlerimiz kabarıyor.
işte bu durum çoğu firmanın en büyük problemi. mesela alman mühendisler geldi. bize siz neler yapıyorsunuz dediler. bizim yaptığımız h<atalıymış. adam şöyle şöyle yapıyoruz biz diyorlar. öyle yapsak o maliyetlerle biz ürün satamayız. dediğim firmalar varken biz alman, italyan gibi çalışmaya kalksak üretim yapamayız. zaten almanlar da satamıyor. o kurallara, o sisteme uyacağız diye maliyetleri fırladı. şimdi onların çoğu sektörü ülkemize kaydı. onlar bile bizden alıyorlar ucuz diye çoğu ürünü.
onlar da başka ülkelerde üretilemeyen ürünleri üretip, fiyatları şişirerek devam ediyorlar. tabi temelinde arge var. bu yüzden firmalar argeye yatırım yapıyorlar. piyasada üretilemeyen, farklı mamüller üretebilmek için.
mesela biz sırf bu iş için geçen sene eski parayla 2 trilyon harcadık. ortaya çıkardığımız ürün ortadoğuda, türkiyede, balkanalrda bile üretilemiyor. batıda üretim hududunun en doğusu italya.
şimdi ne oldu. bizim o mamülümüz türkiye şartlarında inanılmaz pahalı bir ürün. ama aynı firma şu an çocuk gibi yalvarıyor. yetiştiremiyoruz. talebe inanamadık.
olaylar böyle. benim size önerim bu maliyet hesaplarını kim yapıyorsa o biraz uğraşsın. hammadde-işçilik-enerji giderlerini bir hesaplasın. bakalım kar marjı ne. baktınız rakamı tutturuyorsunuz, müşteri talebi de fazla verirsiniz.
ama bence faturanın faksını isteyin. dediğim gibi bize gönderdiler. hem de şu an 2000 işçisi olan çok büyük bir firma yaptı bunu. blöf filan olur mu. blöfe kanıp indirim mi yapacaksınız. olmaz. çocuk oyuncağı değil ki bu:)
%75 ihracat yapıyoruz. iç pazarda da çok büyük müşterilerimiz var. ortalama 50 kalem ürünümüz var. fiyatlar değişiyor. ama bir ürün için örnek vereyim. büyük bir firmaya 95 kuruşa satıyoruz. adamlar dediler ki pahalı! ee siz bunu bizden bu paraya alıyordunuz dedik. yok daha ucuz veren var dediler. inanmadık. bize faturasını faksladılar. inanamadık. adamlar 87 kuruş teklif yapmışlar. inanılmaz bir rakam. tamam dedik biz bunu 85 kuruşa veririz. anlaştık. aradan zaman geçti bir faks daha geldi. başka bir firma 80 kuruş teklif etmiş. onun faturasının faksı:) elimiz kolumuz bağlandı. ya tamam biz size son 83 kuruşa verelim dedik. yok sağolun biz 78 kuruşa aldık dediler.
bu niye oldu. çünkü bizim bu ürünümüzü piyasada herkes yapıyor. basit bir ürün. üretimi, tasarımı her şeyi kolay. adamlar karadüzen iş yapıyor. işçinin sigortasını yatırmıyor. maaşını vermiyor. hammadde kalitesiz. ordan çal burdan çal. bir sürü yalan dolan iş. ama ürününü 78 kuruşa satacak kadar maliyetleri düşürebiliyor. biz o şekilde yapamayız. o yüzden maliyetlerimiz kabarıyor.
işte bu durum çoğu firmanın en büyük problemi. mesela alman mühendisler geldi. bize siz neler yapıyorsunuz dediler. bizim yaptığımız h<atalıymış. adam şöyle şöyle yapıyoruz biz diyorlar. öyle yapsak o maliyetlerle biz ürün satamayız. dediğim firmalar varken biz alman, italyan gibi çalışmaya kalksak üretim yapamayız. zaten almanlar da satamıyor. o kurallara, o sisteme uyacağız diye maliyetleri fırladı. şimdi onların çoğu sektörü ülkemize kaydı. onlar bile bizden alıyorlar ucuz diye çoğu ürünü.
onlar da başka ülkelerde üretilemeyen ürünleri üretip, fiyatları şişirerek devam ediyorlar. tabi temelinde arge var. bu yüzden firmalar argeye yatırım yapıyorlar. piyasada üretilemeyen, farklı mamüller üretebilmek için.
mesela biz sırf bu iş için geçen sene eski parayla 2 trilyon harcadık. ortaya çıkardığımız ürün ortadoğuda, türkiyede, balkanalrda bile üretilemiyor. batıda üretim hududunun en doğusu italya.
şimdi ne oldu. bizim o mamülümüz türkiye şartlarında inanılmaz pahalı bir ürün. ama aynı firma şu an çocuk gibi yalvarıyor. yetiştiremiyoruz. talebe inanamadık.
olaylar böyle. benim size önerim bu maliyet hesaplarını kim yapıyorsa o biraz uğraşsın. hammadde-işçilik-enerji giderlerini bir hesaplasın. bakalım kar marjı ne. baktınız rakamı tutturuyorsunuz, müşteri talebi de fazla verirsiniz.
ama bence faturanın faksını isteyin. dediğim gibi bize gönderdiler. hem de şu an 2000 işçisi olan çok büyük bir firma yaptı bunu. blöf filan olur mu. blöfe kanıp indirim mi yapacaksınız. olmaz. çocuk oyuncağı değil ki bu:)
- atmosphere (21.12.10 10:23:54 ~ 10:30:01)
düzenli çalıştığın bir müşterinse blöf olduğunu ben de sanmıyorum. bir de tam mühendislik değil de finans yönetimi sorusu aslında bu. maliyetlendirmeyi iyi yapmak lazım. başka ürünlerin maliyetlerini (işçilik, elektrik vs.)buna da ekliyor olabilirsin. bir sürü maliyetlendirme yöntemi var. tasarım demişsin mesela... eğer tasarım dosyalarının hepsini müşteriye vermişsen o kalemi sil bi kere. ya da tasarımı en başta fiyatlandırıp fatura etmen lazımdı müşteriye. müşterinden ucuz üründe kullanılan malzeme özelliklerini talep edebilirsin. bazı müşteriler detaya hakim olmayabilir. rakibin kalitesiz malzeme çakıyordur belki. şu da olabilir müşterin kalitesiz malzeme de olsa ucuza razıdır. o zaman sen de o malzemeyi kullanırsın.
- merhum (21.12.10 11:53:35)
[]
Muhendislere gelsin bu soru, 200 kisilik bir uretim bandinda...
200 kişilik bir üretim bandında personelin ve grup başlarının tümünün istediğimiz sisteme çok uzak kişiler olduğunu düşünelim, istenilen sistemi bu banda uygulayabilmek için ne yapardiniz?
ful otomasyona gecin. sadece bakımcılar kalsın.
- bryan fury (31.10.10 21:32:22)
patron sirketiyse patrona o sistemi kabul ettirmen yeter. o gerekeni yapar.
- feedback (31.10.10 21:41:53)
grup başlarının (ustabaşı) ve ustabaşıların seçtiği yardakçılarını karşıma alıp konuşurdum. sizin sisteme uymayacak olanları önce o noktada elerdim. gerisi gelir zati. iş onlarda bitiyor.
- ermoo (31.10.10 22:12:00)
karar ver , sıstemı uygulaman gereklı mı degıl mı ? cevabın evet ıse..
oncelıkle elındekı kaynagı egıterek mevcut sısteme entegre etmeyı dene yada egıtemıyorsan dıs kaynak alımı ıle ıstedıgın sısteme uygun kısılerı al.. kritik noktaları kontrolde tutman ılk etapta cok onemlı..
textil gibi bir sektorde bu kısım dıkım şefınde oluyor maalesef.. olay onda bıter onu halledersen gerisi sorun olmaz..
oncelıkle elındekı kaynagı egıterek mevcut sısteme entegre etmeyı dene yada egıtemıyorsan dıs kaynak alımı ıle ıstedıgın sısteme uygun kısılerı al.. kritik noktaları kontrolde tutman ılk etapta cok onemlı..
textil gibi bir sektorde bu kısım dıkım şefınde oluyor maalesef.. olay onda bıter onu halledersen gerisi sorun olmaz..
- kennym (31.10.10 23:20:49)
zorla yapılan hiç bir uygulama başarılı olamaz. mutlaka çalışanların gönüllü katılımını sağlayın. çatışmaları mümkün olduğukça uzlaşmayla çözmeye çalışın. "ben yaptım oldu"ya göre daha sancılı ve uzun bir süreçtir ama daha uzun vadelidir.
- merhum (01.11.10 09:26:42)
1
