سلام. من دنبال یه سری موضوع برای پروزه هوش مصنوعی میگردم. لطفا دوستان چندتا ارئه کنن که زیاد هم سخت نباشه.
مثل مکعب موبیک، تخته نرد، ...........
Printable View
سلام. من دنبال یه سری موضوع برای پروزه هوش مصنوعی میگردم. لطفا دوستان چندتا ارئه کنن که زیاد هم سخت نباشه.
مثل مکعب موبیک، تخته نرد، ...........
1-مدلسازی ریاضی به همراه گراف نفسای حالت برای سه مسئله مختلف
2-مدلسازی ریاضی به همراه گراف نفسای حالت برای سه بازی مختلف
3-پیاده سازی ترکیبی الگوریتم های بیان شده برای حل سه مسئله مختلف
4-حل سه مسئله به روش CSP
5-تحقیق در مورد انواع برخورد یا عدم قطعیت
نمي دونم ب دردت مي خوره يا نه
من يه مقاله گذاشتم اينجا
کد:http://forum.p30world.com/showthread.php?t=236407
از کمک دوستان ممنون.
من رنگ کردن گراف با 6 رنگ رو انتخاب کردم دوستان میشه یه کمکی بکنید؟
این کجاش هوش مصنوعیه؟؟نقل قول:
طراحی الگوریتم نیست به نظرت؟؟
این برنامه ی رنگ آمیزی گراف هست
ببین بدردت میخوره
البته باید تغییرش بدی به زبان C که خوب کاری نداره
[PHP]Program Coloring_Graph;
uses Crt,Graph;
Type rec= Record
x: integer;
y: integer;
end;
var
Matrix : Array [1..10,1..10] of Byte;
Deadline : Array [1..10,1..10] of Byte;
Colors : Array [1..10] of Byte;
Last: Array [1..10] of Byte;
Locat:Array [1..10] of Rec;
i,j,n : integer;
{************************************************* ******************}
Procedure Drawing;
var
Gd, Gm,clr: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
if GraphResult <> grOk then
Halt(1);
setfillstyle(1,8);
bar(350,30,570,160);
setcolor(7);
Rectangle(350,30,570,160);
line(350,55,570,55);
setcolor(15);
Locat[1].x:=50; Locat[1].y:=100;
Locat[2].x:=100; Locat[2].y:=50;
Locat[3].x:=150; Locat[3].y:=50;
Locat[4].x:=200; Locat[4].y:=100;
Locat[5].x:=200; Locat[5].y:=150;
Locat[6].x:=150; Locat[6].y:=200;
Locat[7].x:=100; Locat[7].y:=200;
Locat[8].x:=50; Locat[8].y:=150;
---------------------------------------
setcolor(14);
for i:=1 to n-1 do
for j:=i+1 to n do
begin
if Matrix[i,j]<> 0 then
Line(locat[i].x,locat[i].y,locat[j].x,locat[j].y);
end;
for i:=1 to n do
begin
if (colors[i]>=3)
then clr:=colors[i]+1 else clr:=colors[i];
setcolor(15);
SetFillStyle(1,clr);
fillEllipse(locat[i].x,locat[i].y,10,10);
end;
setcolor(15);
for i:=1 to n do
OutTextXY(locat[i].x-2,locat[i].y-3,char(64+i));
Readkey;
CloseGraph;
end;
{************************************************* *******************
}
Procedure Select_color( p,index:byte);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
if deadline[j,p]=i then break;
if j=n then
begin
Colors[p]:=i;
deadline[index,p]:= Colors[p];
last[p]:=last[p] + 1;
break;
end;
end;
end;
{
************************************************** ***************
* s t a r t *
************************************************** ***************
}
Begin
clrscr;
write('please set size of matrix [ n<8 !] : ');
readln(n);
---------------------------------------
if n>8 then halt;
for i:=1 to n do
last[i]:=1;
for i:=1 to n-1 do
for j:=i+1 to n do
begin
write('[',i,',',j,'] : ');
read(Matrix[i,j]);
Matrix[j,i]:=Matrix[i,j];
end;
for i:=1 to n do
for j:=1 to n do
begin
gotoxy(10+2*i,j+5);
Write(Matrix[i,j]);
end;
for i:=1 to n do
begin
Select_color(i,last[i]);
for j:=1 to n do
if Matrix[i,j]<>0 then
begin
Deadline[last[j],j]:=Colors[i] ;
last[j]:=last[j] + 1 ;
end;
end;
for i:=1 to n do
begin
gotoxy(10+3*i,20);
Write(Colors[i]);
end;
Readkey;
Drawing;
End.[/PHP]
نخیر.نقل قول:
این موضوع تو هوش مصنوعی ارائه شده.
از توجهتون خیلی ممنون.
اولا ممنون.نقل قول:
این به چه زبانی هست.؟ میشه یه توضیحی در این مورد هم بدید.
به زبان پاسکال هست
تبدیلش به C یا ++C هم کاری نداره فقط باید هدر تعریف کنی و ورودی و خروجی هاشو به Cin و COUT تغییر بدی
یه کم باهاش کار کن
اجراش کن متوجه میشی
سلام ببخشید در این برنامه از چه الگوریتمی استفاده شده؟نقل قول:
میشه لطفا فایل اجرایی همین برنامه و نحوه ی کار با اون را بذارید؟
خواهش میکنم ازتون
من خیلی بهش نیاز دارم