XProfan

Español

p.specht

Falls otra vez veces una Kernkraftwerk hochgeht (oder en ähnlich blöden Fällen) könnten professionelle Geigerzähler rápidamente vergriffen ser. Diesfalls puede ser se una solchen aber auch de einschlägig ofrece Elektronik-Bausätzen zusammenlöten. Kleiner Nachteil dieser preiswerten Bausätze: Sie weisen no Kalibrierung en, pero dejar en un pequeño Lautsprecher allenfalls una lustiges Knacksen hören.

Durch Nachschaltung uno schnellen elektronischen Zählers podría uno zumindest ermitteln, como largo uno sinnvoller Weise no Freilandsalat essen debería. Üblicherweise reichen 5 a 6 Halbwertszeiten de, en etwa por Regenfälle el strahlenden Isotope en zumindest 1/2 m Erdtiefe spülen que se. Sollten unsere transatlantischen Amigos z.B. Ihr Ukraine-Monopoly a para Ende durchspielen, entonces liefert uns unser Selbstbau zumindest una Indiz dafür, como largo wir el Niños mejor no rauslassen debería (Dieser Texto stammt de 2015, no 2021) ! Dabei hilft eventuell el folgende Progrämmchen, vorausgesetzt euer Laptop übersteht el EMP y ha entonces algo Akku-Ladung.

Kompilieren Marca Separación

Título de la ventana "Halbwertszeit"
Ventana de Estilo 24
cls
declarar n&,m&,x&,y&,T&,hwz!
Imprimir "\n El Radioaktivität uno Isotops se mittels Geigerzähler    "
imprimir " gemessen: Der Geigerzähler knackst esta en N Sekunden X veces.  "
Imprimir " T Stunden später se el Experiment wiederholt y uno misst "
imprimir " esta nun en M Minuten Y veces una Knacksen. "
imprimir " Welche Halbwertszeit ha el gemessene radioaktive Isotop? \n"

Repeat

    imprimir
    imprimir " 1. Messung:  Messzeit N [sek]= ";:input n&
    caso n&=0:romper
    imprimir "             Anzahl Knackse X = ";:input x&
    imprimir " El nächste Messung es después de T Stunden. T = ";:input t&
    imprimir " 2. Messung:  Messzeit M [sek]= ";:input m&
    imprimir "             Anzahl Knackse Y = ";:input y&
    imprimir

    if x&<=1:font 2

        imprimir " Lo es son una stabiles Element. "
        caso y&>1:imprimir " Dieses wurde inzwischen con Neutronen beschossen."
        font 0
        continue

    endif

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

        imprimir " Lo es es una technische Quelle. "
        imprimir " (El Halbwertszeit va gegen Unendlich!) \n":font 0
        continue

    endif

    imprimir " El Halbwertszeit des Isotops beträgt: "
    hwz!=t&*ln(0.5)/(ln(1-(X&-Y&*N&/M&)/X&))
    font 2:imprimir "     ";hwz!;" Stunden."
    caso hwz!>48:imprimir " o. ";format$("%g",hwz!/24);" Tage"
    caso hwz!>(24*7):imprimir " o. ";format$("%g",hwz!/(24*7));" Wochen"
    caso hwz!>(24*365.25):imprimir " o. ";format$("%g",hwz!/(24*365.25));" Julianische Jahre"
    caso hwz!<0:Imprimir "      Vorsicht, lo es es una Bombe!\n"
    font 0
    waitinput

Until %key=27

End