| 282 | // ---------------------------------------------------- |
| 283 | |
| 284 | void altersingle(ILint alpha, ILint i, ILint b, ILint g, ILint r) |
| 285 | { |
| 286 | ILint *n; |
| 287 | |
| 288 | n = network[i]; // alter hit neuron |
| 289 | *n -= (alpha*(*n - b)) / initalpha; |
| 290 | n++; |
| 291 | *n -= (alpha*(*n - g)) / initalpha; |
| 292 | n++; |
| 293 | *n -= (alpha*(*n - r)) / initalpha; |
| 294 | return; |
| 295 | } |
| 296 | |
| 297 | |
| 298 | // Move adjacent neurons by precomputed alpha*(1-((i-j)^2/[r]^2)) in radpower[|i-j|] |