Bijeenkomst

Zaterdag 14 februari 11:00 tot 15:00

Georganiseerd door:

• HCC!forth

Zuiderkapel - naast het kerkgebouw
Boslaan 3
3722 BA Bilthoven

Tijdens deze 2 maandelijkse bijeenkomst van HCC!Forth interessegroep is iedereen die met Forth werkt of er meer van wil weten van harte welkom.

Er zijn Forth systemen ontwikkeld voor diverse microprocessors en ook voor op de PC.
Voor meer informatie zie https://forth.hcc.nl of stuur een mail met je vraag naar info@forth.hcc.nl

Voor deze bijeenkomst heeft Albert een nieuwe opdracht verzonnen.
We gaan een miniAI system bouwen.
Bij de opdracht is een tekst bestand toegevoegd om het miniAI systeem te trainen

Programma:

10.30 - Zaal open en koffie voor vroege vogels
11.00 – Werkgroepen verslag (AvdH/W.O.)
11.15 – Behandeling opdracht: miniAI (A.N.)
12.15 – Pauze
13.00 – nRF24 netwerk communicatie discussie (W.O./H.L.)
13.45 – Geluid voor mijn homecomputer 2e poging (J.J. Hoekstra)
14.30 – O.K.T.

13.45 – Geluid voor mijn homecomputer 2e poging (J.J. Hoekstra)
14.30 – Creatief moment.

Uit de bibliotheek van noForth t, een goede pseudo random generator:

\ 32-bit pseudo random generator with 2 seeds in values
decimal create SEEDS 2345 , 6789 ,
v: extra definitions
: RANDOM ( -- u )       \ Design by J.J.Hoekstra
    seeds >r r@ @       \ put seed0 on stack
    r@ 4 + @  r@ !      \ move value in seed1 to seed0
    dup 13 lshift xor   \ do three XORs of seed0
    dup 17 rshift xor   \ with shifted copies of itself
    dup 5 lshift xor
    dup r> 4 + **bix ;  \ XOR the new random value with
                        \ the old seed1 and update seed1

\ u2 is a pseudo random number between 0 and u1
: CHOOSE ( u1 - u2 ) random um* nip ;

Code voor een simpele dobbelsteen:

: DICE ( -- 1 to 6 )    6 choose 1+ ;

Zie ForthWords voor meer informatie