Pascal下的 BackPropagation 算法

在Free Pascal 2.0.0 下编译通过编的是Machine Learning上的样例:8x3x8,也是我在TI上编的电脑就是快啊!10000次训练眼睛都不用怎么眨~uses sysutils;const    nin=8;    nhid=3;    nout=8;    rate=0.1; var    t,p,q,r,v,tt,tc:longint;    l1:array[1..nin,1..nhid]of real;    l2:array[1..nhid,1..nout]of real;    i:array[1..nin]of longint;    eo,o,ot:array[1..nout]of real;    h,eh:array[1..nhid]of real;    s1,s2:string;    te:real; function sigmod(x:real):real;begin exit(1/(1+exp(-x)));end; begin    if fileexists(‘bpnet.dat’) then    begin        writeln(‘Reading Network Data:’);        assign(input,’bpnet.dat’);        reset(input);        for t:=1 to nin do        for p:=1 to nhid do        read(l1[t,p]);        for t:=1 to nhid do        for p:=1 …

Continue reading ‘Pascal下的 BackPropagation 算法’ »

处理桌面的方法与数据结构的关系~

今日突然悟到了管理东西的态度与数据结构的关系~学计算机的多半知道数组与二叉排序树,一个插入,访问某一位置的数据很快,而删除,排序很慢,另一个什么都挺快,但比数组的插入快一些.为什么相关呢?有一类人,做事情喜欢铺开一大堆,乱七八糟,等受不了了再一起收拾一下,而这正如数组,平时放东西快,到需要整齐的顺序时,就需要长时间的整理.另有一类人,喜欢将东西保持整齐,这比较像二叉排序树(或其变种),无论是放还是拿都挺快,并且一目了然,只是操作时为了维持原有的秩序,比乱堆的人慢.究竟哪种更好呢?似乎后一种更先进吧~by mobile