برنامه 8 وزیر با الگوریتم ژنتیک

[minimainest]

سلام دوستان کسی می تونه برنامه ی 8 وزیرو در الگوریتم ژنتیک به من بده . شرمنده از تمامی اهالی ،تازه واردیم دیگه، قوانین نمی دونیم... (موقعیت حساس)

 

[minimainest]

سلام به دوستان خوب می خواستم بگم که این برنامه رو دارم البته با سی شارپ و به صورت کامل اگر خواستید فقط کفیه ... درخواست بدید

 

[موج]

درخواست

درخواست

سلام. میشه برای من ارسال کنید؟

سلام به دوستان خوب می خواستم بگم که این برنامه رو دارم البته با سی شارپ و به صورت کامل اگر خواستید فقط کفیه ... درخواست بدید

 

[mk.ir.mj]

سلام. میشه برای من ارسال کنید؟

سلام دوستان میدونید درمورد nوزیر در حالت افزایشی چرا اندازه فضای حالت حداقل 1/3^!n هستش ؟؟؟؟؟

 

[monafadaei]

میشه لطفا جریان 8 وزیر را توشیح بدید

 

[farhad.d.73]

یعنی برنامه ای که هشت وزیر را در صفحه شطرنج قرار می دهد بدون این که هم را تهدید کنند

 

[moon9airl]

سلام. میشه الگوریتم رو برام ارسال کنید؟

سلام به دوستان خوب می خواستم بگم که این برنامه رو دارم البته با سی شارپ و به صورت کامل اگر خواستید فقط کفیه ... درخواست بدید

 

[elenorgt500]

سلام دوستان

اگر کسی داره به من هم بده

 

[mandarari]

من برنامه را به زبان مطلب نوشتم
close all
clear all
clc
%%initial setting
pm=.2;
n=8; % N is number of queens
popsize=80; % size of population
pop=round(rand(popsize,n)*(n-1)+1);
for k=1opsize
x=pop(k,;
fitness(k)=comfitness(x,n);


end
[bestfitness ind]=min(fitness);
bestchromosome=pop(ind,;
while (bestfitness<0)

%%crossover operation
index=1;
for k=1opsize/2
index1=round(rand*(popsize-1)+1);
index2=round(rand*(popsize-1)+1);
while(index1==index2)
index2=round(rand*(popsize-1)+1);
end
x=pop(index1,;
y=pop(index2,;
[newpop(index, newpop(index+1,]=onepoint(x , y , n);
index=index+2;

end
%% mutaion operation
for k=1opsize
if(rand<pm)
pointindex=round(rand*(n-1)+1);
newpop(k,pointindex)=round(rand*(n-1)+1);
end
end
%% compute fitness
for k=1opsize
x=newpop(k,;
newfitness(k)=comfitness(x,n);
end

[val ind]=min(fitness);
bestchromosome=pop(ind,;

[val ind]=max(newfitness);
newpop(ind,=bestchromosome;
pop=newpop;
fitness=newfitness;
[bestfitness ind]=min(fitness);
end
[bestfitness ind]=min(fitness);
bestchromosome=pop(ind,;

فقط یک فانکشن واسش بنویسید
اگه خواستید خبر کنیید تا فانکشن را هم واستون بنویسم

 

[aysa6511]

سلام
شما برنامه ای برای این قسمت همراه با گرافیکشو دارین ؟