XProfan

Français

p.specht

si wieder la fois un Kernkraftwerk hochgeht (ou bien dans ähnlich blöden Fällen) könnten professionelle Geigerzähler vite vergriffen son. Diesfalls peux on sich une solchen mais aussi aus einschlägig angebotenen Elektronik-Bausätzen zusammenlöten. Kleiner le tort cette preiswerten Bausätze: vous weisen aucun Kalibrierung sur, mais laisser dans einem kleinen le haut-parleur allenfalls un lustiges Knacksen écouter.

par Nachschaltung eines schnellen elektronischen Zählers pourrait on zumindest ermitteln, comment longtemps on sinnvoller Weise keinen Freilandsalat manger sollte. Üblicherweise reichen 5 jusqu'à 6 Halbwertszeiten aus, um etwa par Regenfälle qui strahlenden Isotope dans zumindest 1/2 m Erdtiefe spülen trop laisser. Sollten unsere transatlantischen Amis z.B. son Ukraine-Monopoly jusqu'à zum Ende durchspielen, ensuite liefert uns unser Selbstbau zumindest un Indiz pour, comment longtemps wir qui Kinder besser pas rauslassen devrait (cette Text stammt aus 2015, pas 2021) ! Dabei hilft eventuell cela folgende Progrämmchen, vorausgesetzt euer Laptop übersteht den EMP et hat ensuite et avec ca Akku-la charge.

Kompilieren Marque Séparation

Titre de la fenêtre "Halbwertszeit"
Fenêtre Style 24
cls
declare n&,m&,x&,y&,T&,hwz!
Imprimer "\n qui radioactivité eines Isotops wird mittels Geigerzähler    "
imprimer " gemessen: qui Geigerzähler knackst dabei dans N Sekunden X la fois.  "
Imprimer " T Stunden später wird cela Experiment wiederholt et on misst "
imprimer " dabei eh bien dans M Minuten Y la fois un Knacksen. "
imprimer " quelle Halbwertszeit hat cela gemessene radioaktive Isotop? \n"

Repeat

    imprimer
    imprimer " 1. Messung:  Messzeit N [sek]= ";:input n&
    cas n&=0:pause
    imprimer "             Anzahl Knackse X = ";:input x&
    imprimer " qui prochain Messung erfolgt pour T Stunden. T = ";:input t&
    imprimer " 2. Messung:  Messzeit M [sek]= ";:input m&
    imprimer "             Anzahl Knackse Y = ";:input y&
    imprimer

    si x&<=1:font 2

        imprimer " Es handelt sich um un stabiles Element. "
        cas y&>1:imprimer " cet wurde inzwischen avec Neutronen beschossen."
        font 0
        continue

    endif

    si (x&/n&)=(y&/m&):font 2

        imprimer " Es handelt sich um une technische source. "
        imprimer " (qui Halbwertszeit allez vers Unendlich!) \n":font 0
        continue

    endif

    imprimer " qui Halbwertszeit des Isotops beträgt: "
    hwz!=t&*ln(0.5)/(ln(1-(X&-Y&*N&/M&)/X&))
    font 2:imprimer "     ";hwz!;" Stunden."
    cas hwz!>48:imprimer " bzw. ";format$("%g",hwz!/24);" Tage"
    cas hwz!>(24*7):imprimer " bzw. ";format$("%g",hwz!/(24*7));" Wochen"
    cas hwz!>(24*365.25):imprimer " bzw. ";format$("%g",hwz!/(24*365.25));" Julianische Jahre"
    cas hwz!<0:Imprimer "      attention, es handelt sich um une Bombe!\n"
    font 0
    waitinput

Until %clé=27

Fin