XProfan

Deutsch

p.specht

Falls wieder mal ein Kernkraftwerk hochgeht (oder in ähnlich blöden Fällen) könnten professionelle Geigerzähler schnell vergriffen sein. Diesfalls kann man sich einen solchen aber auch aus einschlägig angebotenen Elektronik-Bausätzen zusammenlöten. Kleiner Nachteil dieser preiswerten Bausätze: Sie weisen keine Kalibrierung auf, sondern lassen in einem kleinen Lautsprecher allenfalls ein lustiges Knacksen hören.

Durch Nachschaltung eines schnellen elektronischen Zählers könnte man zumindest ermitteln, wie lange man sinnvoller Weise keinen Freilandsalat essen sollte. Üblicherweise reichen 5 bis 6 Halbwertszeiten aus, um etwa durch Regenfälle die strahlenden Isotope in zumindest 1/2 m Erdtiefe spülen zu lassen. Sollten unsere transatlantischen Freunde z.B. Ihr Ukraine-Monopoly bis zum Ende durchspielen, dann liefert uns unser Selbstbau zumindest ein Indiz dafür, wie lange wir die Kinder besser nicht rauslassen sollten (Dieser Text stammt aus 2015, nicht 2021) ! Dabei hilft eventuell das folgende Progrämmchen, vorausgesetzt euer Laptop übersteht den EMP und hat dann noch etwas Akku-Ladung.

Kompilieren Markieren Separieren

WindowTitle "Halbwertszeit"
WindowStyle 24
cls
declare n&,m&,x&,y&,T&,hwz!
Print "\n Die Radioaktivität eines Isotops wird mittels Geigerzähler    "
print " gemessen: Der Geigerzähler knackst dabei in N Sekunden X mal.  "
Print " T Stunden später wird das Experiment wiederholt und man misst "
print " dabei nun in M Minuten Y mal ein Knacksen. "
print " Welche Halbwertszeit hat das gemessene radioaktive Isotop? \n"

Repeat

    print
    print " 1. Messung:  Messzeit N [sek]= ";:input n&
    case n&=0:break
    print "             Anzahl Knackse X = ";:input x&
    print " Die nächste Messung erfolgt nach T Stunden. T = ";:input t&
    print " 2. Messung:  Messzeit M [sek]= ";:input m&
    print "             Anzahl Knackse Y = ";:input y&
    print

    if x&<=1:font 2

        print " Es handelt sich um ein stabiles Element. "
        case y&>1:print " Dieses wurde inzwischen mit Neutronen beschossen."
        font 0
        continue

    endif

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

        print " Es handelt sich um eine technische Quelle. "
        print " (Die Halbwertszeit geht gegen Unendlich!) \n":font 0
        continue

    endif

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

Until %key=27

End