Главная Новости сайта Контрольные Форум Полезные статьи Фотогалерея Пользователи Карта сайта
Главная arrow Форум

Вы не авторизованы.

дипломы,курсовые,рефераты,контрольные,диссертации,отчеты на заказ

Форум
Добро пожаловать, Гость   /   Вы можете зарегистрироваться с Главной страницы.
Вход   
Экономисты, давайте кучковаться (1 чел.) (1) Гость
Контрольные
Вниз
Сообщения темы: Экономисты, давайте кучковаться
#4208
Еленка
Пользователи
Ранг участника форума равен 1
Постов: 4

Пользователь в оффлайне  Кликните здесь, чтобы посмотреть профиль этого пользователя
RE: Экономисты, давайте кучковаться11 г., 8 мес. назад Репутация: 0  
Кто нибудь сдал КП "Практика по технологии отраслевого производства" 080502?
 
ЗарегистрированЗарегистрирован  
  Для добавления сообщений Вы должны зарегистрироваться или авторизоваться
#4209
r00sh
Пользователи
Ранг участника форума равен 1
Постов: 4

Пользователь в оффлайне  Кликните здесь, чтобы посмотреть профиль этого пользователя
RE: Экономисты, давайте кучковаться11 г., 8 мес. назад Репутация: 0  
Ребят, привет. Нужна помощь. Конкретнее: КП Учебная практика (ознакомительная). Вот. Специальность 080502. Буду премного благодарен.)
 
ЗарегистрированЗарегистрирован  
 
Последнее редактирование: 09.03.2011 15:07 Редактировал r00sh.
  Для добавления сообщений Вы должны зарегистрироваться или авторизоваться
#4211
combat182
Пользователи
080503
Ранг участника форума равен 1
Постов: 6

Пользователь в оффлайне  Кликните здесь, чтобы посмотреть профиль этого пользователя
Пол: МужскойСтрана, город: Казахстан,
RE: Экономисты, давайте кучковаться11 г., 8 мес. назад Репутация: 0  
Добрый день- у меня специальность 080503,кто-нибудь понимает в паскале.
1 Исходные данные:
Z(x,y)= intx+inty, -5.12≤x≤5.12, -5.12≤y≤5.12.
Каждая переменная кодируется 30 битами.
2 Задание
Рассмотреть одноточечное скрещивание и двухточечную мутацию.
Провести расчеты для 30 и 100 поколений.
Сравнить получающиеся решения при размерах популяции 10, 20, 30 особей.
Поместить содержание главной программы в соответствующий цикл, повторяющийся 20-30 раз, в котором будет одновременно выбираться наилучшее решение из набора полученных. Одновременно вычислить и среднее значение минимума за эти 20-30 прогонов.
Cама программа приведена ниже.



program sga;
uses crt;

const
maxpop=100;
maxstring=30;
dim=2;
type
allele=boolean;
chromosome=array[1..maxstring*dim] of allele;
fenotype=array[1..dim] of real;
individual=record
chrom:chromosome;
x:fenotype;
fitness:real;
end;
population=array[1..maxpop] of individual;

const
xmax:fenotype=(5.12,5.12);
xmin:fenotype=(-5.12,-5.12);

var
oldpop, newpop, intpopopulation;
popsize, lchrom, gen, maxgen:integer;
pcross, pmutation, sumfitness:real;
nmutation, ncross:integer;
avg, max, min:real;
h, psize, razpop, s, b:integer;
Otv, Otvet:real;

function random_:real;
begin
random_:=random(65535)/(65535-1);
end;

function flip(probability:real):boolean;
begin
if probability=1.0 then flip:=true else
flip:=(random_<=probability);
end;

function rnd(low, high:integer):integer;
var
i:integer;
begin
if low>=high then i:=low else
begin
i:=trunc(random_*(high-low+1)+low);
if i>high then i:=high
end;
rnd:=i;
end;

function objfunc(x:fenotype):real;
begin
objfunc:=int(x[1])+int(x[2]);
end;

procedure decode(chrom:chromosome; lbits:integer; var x:fenotype);
var
i,j:integer;
f,accum,powerof2:real;
begin
for i:=1 to dim do
begin
accum:=0.0;
powerof2:=1;
f:=1;
for j:=1+lbits*(i-1) to lbits+lbits*(i-1) do
begin
if chrom[j] then accum:=accum+powerof2;
powerof2:=powerof2*2;
f:=f*2;
end;
x[i]:=xmin[i]+(xmax[i]-xmin[i])*accum/(f-1);
end;
end;

procedure statistics(popsize:integer; var max,avg,min,sumfitness:real;
var popopulation);
var
j:integer;
begin
sumfitness:=pop[1].fitness;
min:=pop[1].fitness;
max:=pop[1].fitness;
for j:=2 to popsize do with pop[j] do
begin
sumfitness:=sumfitness+fitness;
if fitness>max then max:=fitness;
if fitness<min then min:=fitness;
end;
avg:=sumfitness/popsize;
end;

procedure initpop;
var
j,j1:integer;
begin
for j:=1 to popsize do with oldpop[j] do
begin
for j1:=1 to lchrom*dim do chrom[j1]:=flip(0.5);
decode(chrom,lchrom,x);
fitness:=objfunc(x);
end;
end;

procedure select;
var
ipick:integer;
procedure shuffle(var popopulation);
var
i,j:integer;
ind0:individual;
begin
for i:=popsize downto 2 do
begin
j:=random(i-1)+1;
ind0:=pop[i];
pop[i]:=pop[j];
pop[j]:=ind0;
end;
end;

function select_1:integer;
var
j1,j2,m:integer;
begin
if (ipick>popsize) then
begin
shuffle(oldpop);
ipick:=1;
end;
j1:=ipick;
j2:=ipick+1;
if (oldpop[j2].fitness<oldpop[j1].fitness) then m:=j2 else
m:=j1;
ipick:=ipick+2;
select_1:=m;
end;

var
j:integer;
begin
ipick:=1;
for j:=1 to popsize do
begin
intpop[j]:=oldpop[select_1];
end;
oldpop:=intpop;
end;

function mutation(var child:chromosome; alleleval:allele; pmutation:real;
var nmutation:integer; flchrom:integer):allele;
var
p,mutate:boolean;j1,j2:integer;
begin
mutate:=flip(pmutation);
if mutate then
begin
repeat
begin
j1:=rnd(1,flchrom-1);
j2:=rnd(1,flchrom-1);
end;
until j1<>j2;
mutation:=not alleleval;
p:=child[j1];
child[j1]:=child[j2];
child[j2]:=p;
nmutation:=nmutation+1;
end else
mutation:=alleleval
end;

procedure crossover(var parent1, parent2, child1, child2:chromosome;
flchrom:integer; var ncross, nmutation, jcross:integer;
var pcross, pmutation:real);
var
j:integer;
begin
if flip(pcross) then
begin
jcross:=rnd(1,flchrom-1);
ncross:=ncross+1;
end else jcross:=flchrom;
for j:=1 to jcross do
begin
child1[j]:=mutation(parent1,parent1[j],pmutation,nmutation,flchrom);
child2[j]:=mutation(parent2,parent2[j],pmutation,nmutation,flchrom);
end;
if jcross<>flchrom then
for j:=jcross+1 to flchrom do
begin
child1[j]:=mutation(parent2, parent2[j],pmutation,nmutation,flchrom);
child2[j]:=mutation(parent1,parent1[j],pmutation,nmutation,flchrom);
end;
end;

procedure generation;
var
j,mate1,mate2,jcross:integer;
begin
select;
j:=1;
repeat
mate1:=j;
mate2:=j+1;
crossover(oldpop[mate1].chrom,oldpop[mate2].chrom,newpop[j].chrom,
newpop[j+1].chrom,lchrom*dim,ncross,nmutation,jcross,pcross,pmutation);
with newpop[j] do
begin
decode(chrom,lchrom,x);
fitness:=objfunc(x);
end;
with newpop[j+1] do
begin
decode(chrom,lchrom,x);
fitness:=objfunc(x);
end;
j:=j+2;
until j>popsize
end;

begin
clrscr;
for h:=1 to 2 do
begin
if h=1 then psize:=30;
if h=2 then psize:=100;
for s:=1 to 3 do
begin
if s=1 then razpop:=10;
if s=2 then razpop:=20;
if s=3 then razpop:=30;
Otv:=0;
for b:=1 to 100 do
begin
popsize:=razpop;
lchrom:=30;
maxgen:=psize;
pmutation:=0.01;
pcross:=0.9;
randomize;
nmutation:=0;
ncross:=0;
initpop;
statistics(popsize,max,avg,min,sumfitness,oldpop);
gen:=0;
repeat
gen:=gen+1;
generation;
statistics(popsize,max,avg,min,sumfitness,newpop);
oldpop:=newpop;
until(gen>=maxgen);
Otv:=Otv+min;
end;
writeln('Kolichestvo pokolenij - ',psize);
Otvet:=Otv/100;
writeln('Razmer populjacii, osobej - ',razpop);
writeln('Srednij minimum vechshestvennoj funkcii = ',otvet:1:15);
writeln('---------------------------------------------------------';
Otv:=0;
end;
end;
write('Dlja zavershenija prorammy nazhmite ENTER';

Readln
end.
 
ЗарегистрированЗарегистрирован  
  Для добавления сообщений Вы должны зарегистрироваться или авторизоваться
#4358
karolinanilorak
Пользователи
Ранг участника форума равен 1
Постов: 3

Пользователь в оффлайне  Кликните здесь, чтобы посмотреть профиль этого пользователя
RE: Экономисты, давайте кучковаться11 г., 7 мес. назад Репутация: 0  

ну кто делал расчетный раздел по курсовой бухгалтерский управленческий учет?????!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ПОМОГИТЕ!!!!!!!
у меня есть все контрольные у курсовые до 11 семестра!!!!!
 
ЗарегистрированЗарегистрирован  
  Для добавления сообщений Вы должны зарегистрироваться или авторизоваться
#4362
fdohelp
Пользователи
Ранг участника форума равен 5
Постов: 214

Пользователь в оффлайне  Кликните здесь, чтобы посмотреть профиль этого пользователя
fdo-help
RE: Экономисты, давайте кучковаться11 г., 7 мес. назад Репутация: 7  
 
ЗарегистрированЗарегистрирован  
 
fdohelp@yandex.ru
ICQ 319645903,
Skype: fdo-help
  Для добавления сообщений Вы должны зарегистрироваться или авторизоваться
#4415
Castell
Пользователи
Ранг участника форума равен 1
Постов: 8

Пользователь в оффлайне  Кликните здесь, чтобы посмотреть профиль этого пользователя
RE: Экономисты, давайте кучковаться11 г., 7 мес. назад Репутация: 1  
Подскажите, не пойму, ошибки это или нет. В методичке по эк. анализу Земцовой в 1 задании по итого суммы не сходятся... Или так должно быть?
 
ЗарегистрированЗарегистрирован  
  Для добавления сообщений Вы должны зарегистрироваться или авторизоваться
Вверх

Сообщения на форуме могут оставлять только зарегистрированные пользователи.