-=-
.
.....
  
| messages |
 
RSS
Direkomendasikan menggunakan brower Opera/Chrome/Firefox. Resolusi minimal 1024x768 | Powered by ____ |
 
KiOSS.Com
  
| Switch to Default View |
  
Nikmati Delphi-ID dalam berbagai versi tampilan :
Basic View (LOW Bandwidth)
Default View (Full)
Mobile Edition
Main Menu
..:: onWebTools ::..
..:: onLastPosts ::..
goto Postjumlah komponen maksimal dalam sebuah project(6)
 by d4mnf1y32
 on 21.May at 12:16
goto Posttanya grayscale to biner dengan scanline(1)
 by luckynvic
 on 20.May at 20:44
goto Posttanya looping biner to matriks(1)
 by luckynvic
 on 20.May at 20:10
goto Postsql error:acces denied for user....(2)
 by nasbms
 on 19.May at 16:54
goto Postpemanggilan frame(4)
 by nasbms
 on 19.May at 16:14
goto Posttanya AvLock(0)
 by azuriza
 on 19.May at 11:24
goto PostGet TDBEdit Value Menggunakan LookUp Grid(10)
 by henry_sys
 on 18.May at 11:27
goto Postmenghitung record dalam perulangan(4)
 by idhiel
 on 16.May at 13:53
goto Posttanya ascii(4)
 by mas_kofa
 on 16.May at 12:11
goto PostRawPrint Untuk Delphi XE2(0)
 by adewijaya
 on 15.May at 22:34
goto Postdatabase error..(4)
 by idhiel
 on 15.May at 15:57
goto Postbekasi, pt arila putra mahkota(3)
 by mas_kofa
 on 15.May at 15:37
goto Postbagaimana cara membaca file *.doc dg delphi?(0)
 by ficky
 on 15.May at 06:14
goto Posttanya biner to matriks(13)
 by diandewi
 on 14.May at 20:30

..:: onLast Articles ::..
..:: New Download ::..
Pascal-id.Org
Feeds -  Popular -  Latest
RE: The Longue
8 months, 3 weeks ago
RE: belajar pascal
8 months, 3 weeks ago
RE: The Longue
8 months, 3 weeks ago
RE: belajar pascal
8 months, 3 weeks ago
RE: Perkenalan dan Absen
8 months, 3 weeks ago
RE: Alhamdulillah Buka Puasa Bersama
8 months, 4 weeks ago
RE: تَقَبَّلَ اللهُ مِنَّا وَمِنْكَ - Selamat Hari Raya Idul Fitri
8 months, 4 weeks ago
Lintas Situs
«
free web site stats and visitor tracking
•   Forum FAQ  •  Search  • 

(Help)mohon bantuan temen2 bikin flowchart dari code ini
Delphi Indonesia Forum Index » Pemrograman » Tip n Trik Pemrograman
Post new topic   Reply to topic
View previous topic Printable version Log in to check your private messages View next topic
Author Message
l14mOffline
Location:
Post subject: (Help)mohon bantuan temen2 bikin flowchart dari code ini  PostPosted: 10/Aug/2011 21:25
onNewBie


Joined: 23-Feb-2011
Posts: 3

Status: Offline
mohon dibantu yak...

bikin flowchart dari code berikut

procedure TFDiagnosa.backprop;
var i,j,k : integer;
dj : real;
begin


for j:=1 to P do
begin
zin[j] := v[0,j];
for i:= 1 to N do zin[j] := zin[j] + x[i]*v[i,j];
z[j] := f(zin[j]);
end;


for k:=1 to M do
begin
yin[k] := w[0,k];
for j:= 1 to P do yin[k] := yin[k] + z[j]*w[j,k];
y[k] := f(yin[k]);
end;


for k:=1 to M do
begin
errk[k] := (t[k]-y[k])*fa(yin[k]);
for j:= 1 to P do dw[j,k] := alpa*errk[k]*z[j];
dw[0,k] := alpa*errk[k];
end;


for j:= 1 to P do
begin
dj := 0;
for k := 1 to M do dj := dj + errk[k]*w[j,k];
errj[j] := dj*fa(zin[j]);
for i:= 1 to N do dv[i,j] := alpa*errj[j]*x[i];
dv[0,j] := alpa*errj[j];
end;

for k:= 1 to M do
for j := 0 to P do w[j,k] := w[j,k] + dw[j,k] ;
for j := 1 to P do
for i := 0 to N do v[i,j] := v[i,j] + dv[i,j];
end;
 
 View user's profile Send private message  
Reply with quote Back to top
l14mOffline
Location:
Post subject:   PostPosted: 11/Aug/2011 15:46
onNewBie


Joined: 23-Feb-2011
Posts: 3

Status: Offline
banyak yang lihat tapi ga ada yang bantu..
komen aja tidak Sad Sad
 
 View user's profile Send private message  
Reply with quote Back to top
ManzOffline
Location: C.h.i.l.l.e -g- O.n.e
Post subject:   PostPosted: 11/Aug/2011 16:29
onElite


Joined: 12-Sep-2006
Posts: 1161
Location: C.h.i.l.l.e -g- O.n.e
Status: Offline
Bisa diberi tahu dulu, itu code buat apa fungsi nya ?

Mungkin dengan sedikit clue, para temen temen disini bisa menjawab.

Dan jangan putus asa menunggu... Smile mungkin temen temen disini mencoba untuk meng-interpretasikan dari code tersebut

_________________
..:: Everything what i want to write It! ::..
http://manztiara.wordpress.com/ [But, too bad to become bloggers ... hiks...] updated little
 
 View user's profile Send private message Yahoo Messenger  
Reply with quote Back to top
l14mOffline
Location:
Post subject:   PostPosted: 11/Aug/2011 21:49
onNewBie


Joined: 23-Feb-2011
Posts: 3

Status: Offline
      Manz wrote:
Bisa diberi tahu dulu, itu code buat apa fungsi nya ?

Mungkin dengan sedikit clue, para temen temen disini bisa menjawab.

Dan jangan putus asa menunggu... Smile mungkin temen temen disini mencoba untuk meng-interpretasikan dari code tersebut


itu kode algoritma JST Backpropagation..
aplikasinya mendeteksi penyakit ayam dengan metode backpro..
iya neh masih menunggu...
makasih masnya...hehehe
 
 View user's profile Send private message  
Reply with quote Back to top
Display posts from previous:     
Jump to:  
All times are GMT - 12 Hours
Post new topic   Reply to topic
View previous topic Printable version Log in to check your private messages View next topic
 Delphi Indonesia Forum Index » Pemrograman »  Tip n Trik Pemrograman





Powered by PNphpBB2 © 2003-2009 The Zafenio Team
Credits


| Register | Lost Password ? |