Användarbidrag av Anders

Från Täpp-Anders
En användare med 1 635 redigeringar. Konto skapat 31 januari 2013.
Hoppa till navigeringHoppa till sök
Sök efter användarbidragVisaDölj
⧼contribs-top⧽
⧼contribs-date⧽
(nyaste | äldsta) Visa ( | ) (20 | 50 | 100 | 250 | 500)

12 maj 2026

11 maj 2026

  • 17.1111 maj 2026 kl. 17.11 skillnad historik +489 N Fältstyrka Skapade sidan med '= Bakgrund = Fältstyrkan av en radiosignal avtar linjärt med avståndet från en sändare. Denna kan räknas ut med en enkel formel som stämmer utmärkt i fjärrfältet från antennen. I närfältet är det mer komplicerat. = Formel = <math> E= \frac{ \sqrt{30 \cdot P \cdot G} } { r } </math> Där <math>E</math> är fältstyrkan i V/m<br> och <math>P</math> är effekten hos sändaren i W<br> samt <math>G</math> är antennens antennvinst i bästa riktningen (linj...'

7 maj 2026

25 april 2026

24 april 2026

19 april 2026

11 april 2026

10 april 2026

7 april 2026

6 april 2026

5 april 2026

  • 14.175 april 2026 kl. 14.17 skillnad historik +62 Racket/Erastothenes Ingen redigeringssammanfattning
  • 13.015 april 2026 kl. 13.01 skillnad historik +7 320 N Racket/Posits Skapade sidan med '<pre> #lang racket ;;;;; ;; En enkel implementation av Posists eller Unum typ III ;; i Racket för skojs skull och för att lära sig mer ;; ;; Täpp-Anders Sikvall anders@sikvall.se 2026-04-04 ;; ;; Posit representeras som ett heltal (bitmönster, 0 till 2^n-1). ;; Parametrar: n = totalt antal bits, es = antal exponent-bits (t.ex. n=16, es=1 för posit16). ;; Innehåller: ;; * Konvertering till/från generiska tal (number->posit och posit->number) ;; * Addition, subt...'
  • 13.015 april 2026 kl. 13.01 skillnad historik +9 924 N Racket/Neural Skapade sidan med '<pre> #lang racket ;;;;; ;; Neuralt nät implementerad i Racket ;; Täpp-Anders Sikvall 2026-04-03 anders@sikvall.se ;;;;; ;;;;; NEURALT NÄT ;;; ;; Detta program implementerar ett litet neuralt nät och tränar det på sannings- ;; tabellen för XOR. Efter några tusen epoker ska prediktionerna ligga extremt nära ;; följande: ;; ;; a,b → a XOR b ;; 0,0 → 0 ;; 0,1 → 1 ;; 1,0 → 1 ;; 1,1 → 0 ;; ;; Implementationen har två input-neuroner för a...'
  • 13.005 april 2026 kl. 13.00 skillnad historik +3 437 N Racket/Genetic Skapade sidan med '<pre> #lang racket ;;;;; ;; Genetisk algoritm implementerad i Racket ;; Täpp-Anders Sikvall 2026-04-03 anders@sikvall.se ;;;;; ;; ================================================================ ;; Genetisk algoritm – Hitta kromosom med: ;; 1. De första 10 bitarna = 1 ;; 2. Totalt antal 1:or så nära 50 som möjligt ;; ================================================================ ;; --------------------- Parametrar --------------------- (define populatio...'
  • 12.595 april 2026 kl. 12.59 skillnad historik +2 737 N Racket/Lille-GUI Skapade sidan med '<pre> #lang racket/gui ;;;;; ;; Riktigt Enkelt GUI-Demo implementerad i Racket ;; Täpp-Anders Sikvall 2026-04-03 anders@sikvall.se ;;;;; ;; Skapa huvudfönstret (define frame (new frame% [label "Racket GUI Demo"] [width 520] [height 420])) ;; Meny (define menu-bar (new menu-bar% [parent frame])) (define menu-file (new menu% [label "Arkiv"] [parent menu-bar])) (new menu-item% [label "Öppna..."] [parent menu-file] [callback (λ (i e) (mess...'
  • 12.595 april 2026 kl. 12.59 skillnad historik +7 511 N Racket/Personreg Skapade sidan med '<pre> #lang racket ;;;;; ;; Enkel personinfodatabas implementerad i Racket ;; Täpp-Anders Sikvall 2026-04-03 anders@sikvall.se ;;;;; ;; Global lista som håller alla personer, just nu tom (define personer '()) ;; Skapa en person med namngivna parametrar (define (skapa-person #:förnamn förnamn #:efternamn efternamn #:ålder ålder #:stad [stad ""] ;Valfria parametrar med defaultvärden #:telefon [telefon ""])...'
  • 12.585 april 2026 kl. 12.58 skillnad historik +3 394 N Racket/Hexdump Skapade sidan med '<pre> #lang racket ;;;;; ;; Hexdump implementerad i Racket ;; Täpp-Anders Sikvall 2026-04-03 anders@sikvall.se ;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;; ;; SYNOPSIS ;; racket hexdump.rkt [ OPTIONS ] filename ;; ;; OPTIONS ;; -h Gives a short help text to the utility ;; --bytes-per-line, -n Determines how many bytes are decoded per line (default 16) ;; --hex, -x Show only hex dump ;; --ascii, -a...'
(nyaste | äldsta) Visa ( | ) (20 | 50 | 100 | 250 | 500)