hi leute,
was man damit alles machen kann:
zum beispiel
bis zu 96 Servos fast gleichzeitig controllieren, oder
32 Servos + noch einige andere sachen gleichzeitig machen.
8 gleichzeitige threads mit lock und unlock......

fuer testzwecke benutz ich ein propeller-demoBoard.
Anschluesse: VGA-out, tv-out, ps/2 keyboard und mouse,
- ozi-anschluss, USB etc. dafuer nur 8 digitale I/O
fuer meine richtigen entwicklungen nehm ich dann einen PropStickUSB,
ohne obigen schnick-schnack dafuer 32 I/O pin.

oder man faengt an mit dem prop mathe zu betreiben
ss. spinnenbein-threads (ohne looktables)
Float32Full (mit allen moeglichkeiten die ansi-c unter linux (mathe.h)
bietet.
unten ein kleines beispiel.
ich finde, wenn man diese leistung zu einem einigermassen bezahlbaren
preis bekommt, soll man ihn auch nutzen.
gruss
nomad

Nachtrag: ich waer auch dafuer hier einen eigenen Thread fuer
die propellerchen einzurichten.
nomad
-------------------------------------------------------------------------------------

{
propNN2.spin
begin : Wed. 02.May 11.30:00 GMT 2007
for : Test-spin-program for equations (exp) on a propChips
- with the Demo-Board
--------------------------------------------------------------------------

Reference:
Original equations:

1
output: ________________ = 0.603
-0.42
1+e

with taschenrechner:
output := (1.0 / (1.0 + e(-0.42))) = 0.6034832499

with prop
output: 0.6034832

vorgehen:

test with PUB Exp(a) from Float32-lib

1) x1 := f.FMul(-1.0,inH1) ' positive Value convert to negative Value
2) x2 := f.Exp(x1) ' e(-0.42)
3) x3 := f.FAdd(1.0,x1) ' (1.0 + x2)
4) x4 := f.FDiv(1.0,x3) ' (1.0 / x3)
5) outH1 := x4

************************************************** *************************
}

CON
_clkmode = xtal1 + pll16x
_xinfreq = 5_000_800
xxx = pi
exp = 2.718281828


OBJ

text : "vga_text" ' pc-monitor-output
f : "Float32Full" ' mathe
fp : "FloatString" ' convertieren float to string

VAR
long testerror
long vlong
word vword
byte vbyte

long inH1 ' this is the input-value for the equations
' static = inH1 = 0.42

long outH1 ' solutations

'intermediate results
long x1, x2, x3, x4, x5, x6

PUB Main

' start Float32Full"
f.start

'start vga-term
text.start(16)
'print a string
text.str(string("PropNeuralNet Version 0.2.",13,13))

neuralNet



PUB neuralNet

inH1 := 0.42

x1 := f.FMul(-1.0,inH1) ' positive Value convert to negative Value

x2 := f.Exp(x1) ' e(-0.42)

x3 := f.FAdd(1.0,x2) ' (1.0 + x2)
x4 := f.FDiv(1.0,x3) ' (1.0 / x3)
outH1 := x4

text.out($0D) ' newline
text.str(fp.FloatToString(outH1))
-------------------------------------------------------------------------