Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Вопросы начинающих программистов
Перезагрузить страницу Перевод программного кода с Pascle на Basic
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Csenia Csenia вне форума
Новичок
 
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 17.11.2010
По умолчанию Перевод программного кода с Pascle на Basic - 23.11.2010, 12:30

Вот этот код: (тема нейронны сети)
var
inputs :array[0..NrOfInputs-1]of single; // the node values
inweights:array[0..NrOfInputs-1,0..NrOfHidden1-1] of single; // the weights
hidden1:array[0..NrOfHidden1-1]of single; // the node values
h1weights:array[0..NrOfHidden1-1,0..NrOfHidden2-1] of single; // the weights
hidden2:array[0..NrOfHidden2-1]of single; // the node values
h2weights:array[0..NrOfHidden2-1,0..NrOfOutputs-1] of single; // the weights
outputs:array[0..NrOfOutputs-1]of single; // the node values
forward propagation
the forward propagation calculates the outputs from the inputs

// calculate one node - h1
procedure propagateinputs(h:integer);
var i:integer;
z:single;
begin
z:=0;
for i:=0 to NrOfInputs-1 do
z:=z+inputs[i]*inweights[i,h];
z:=tanh(z);
hidden1[h]:=z;
end;
// calculate one node - h2
procedure propagatehidden1(h:integer);
var i:integer;
z:single;
begin
z:=0;
for i:=0 to NrOfHidden1-1 do
z:=z+hidden1[i]*h1weights[i,h];
z:=tanh(z);
hidden2[h]:=z;
end;
// calculate one node - out
procedure propagatehidden2(h:integer);
var i:integer;
z:single;
begin
z:=0;
for i:=0 to NrOfHidden2-1 do
z:=z+hidden2[i]*h2weights[i,h];
//no nonlinear mapping
output[h]:=z;
end;

// assumes inputs are set - calculates outputs
procedure propagate_all;
var i:integer;
begin
for i:=0 to NrOfHidden1-1 do propagateinputs(i);
for i:=0 to NrOfHidden2-1 do propagatehidden1(i);
for i:=0 to NrOfOutputs-1 do propagatehidden2(i);
end;

Помогите, pleaase///
Ответить с цитированием
  (#2 (permalink)) Старый
IL_Agent IL_Agent вне форума
Member
 
Аватар для IL_Agent
 
Сообщений: 2,015
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 03.07.2005
По умолчанию 23.11.2010, 15:28

Переписать и выслать тебе на почту ?
Ответить с цитированием
  (#3 (permalink)) Старый
Csenia Csenia вне форума
Новичок
 
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 17.11.2010
По умолчанию 23.11.2010, 19:57

Да, если можешь, буду очень признательна.
Ответить с цитированием
  (#4 (permalink)) Старый
IL_Agent IL_Agent вне форума
Member
 
Аватар для IL_Agent
 
Сообщений: 2,015
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 03.07.2005
По умолчанию 24.11.2010, 01:22

А может ещё и стипендию за тебя получить ? ))))
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отправка программного кода из XLS в Access Maxi Visual Basic 1 03.03.2011 19:44
Ошибка при компилировании программного кода tomaticus Вопросы начинающих программистов 2 02.01.2011 13:32
Ошибка при компилировании программного кода Дмитрий-- Вопросы начинающих программистов 1 21.12.2010 23:41
Шифрация и дешифрация программного кода Вася Пупкин Вопросы начинающих программистов 9 18.09.2008 18:25
Написание программного кода в MVC T_Volkova_81 Вопросы начинающих программистов 0 14.09.2006 09:24
Компилирование программного кода dex157 Вопросы начинающих программистов 6 20.08.2006 02:25
Перевод программного кода из Pascal в Delphi azard Delphi 0 26.11.2005 17:34
Написание программного кода cpp-файла на С++ __HIM__ Вопросы начинающих программистов 3 27.10.2004 23:04
Написание программного кода с AVI Sakura-chan Вопросы начинающих программистов 4 15.07.2004 18:06
Перевод программного кода Delphi в код Builder EUGIX C++ Builder 5 13.07.2004 19:32
Ошибка при линковании программного кода Anonymous Visual C++ 9 28.09.2003 10:38
Перевод программного кода в VB Anonymous Delphi 0 16.07.2003 22:28



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов