Deutsch
Quelltexte/ Codesnippets

Perfektes Frühstücks-Ei: Kochdauer-Formel

 

p.specht


Windowtitle "Eierformel"
'  Fun-Programm (C)2009  by P. Specht, ohne Gewähr. Urheber siehe "Q:"!
declare t!,d!,t_wasser!,t_start!,t_innen!,sw%
T_Wasser!=99.8' für Seehöhe 130 m

while 1

    cls
    print ""
    print "        Empirische Formel, um ein Frühstücks-Ei perfekt zu kochen"
    print ""
    print "  Q: kochen.exp.univie.ac.at/ostern_Ei.html"
    print "  +--------------------------------------------------------------------+"
    print "  ! Formel: t = 0.0016*d^2*ln(2*(t_Wasser-t_Start)/(t_Wasser-t_Innen)) !"
    print "  +--------------------------------------------------------------------+"
    print ""
    print "   d = Ei-Durchesser in mm, besser gesagt: Der Durchmesser"
    print "       einer Röhre, durch die das Ei gerade noch durchginge."
    print ""
    print "   t_Wasser = kochend, auf Meereshöhe 100°C, Hochgebirge 96,5°"
    print ""
    print "   t_Start  = Ei-Temperatur beim Einlegen in kochendes Wasser:"
    print "              Aus Kühlschrank: 4°C, sonst Raumtemperatur(~20°C)"
    print ""
    print "   t_Innen  = WEICHES EI: 62°C (Ovalbumin-Gerinnung schützt Dotter)"
    print "              HARTES  EI: 82°C (Eigelb stockt)"
    print "   Ergebnis:"
    print ""
    print "   t        = Kochdauer in Min. ab Einlegen in viel kochendes Wasser"
    print "   ----------------------------------------------------------------------"
    print
    Locate 24,4: print "Ei-Durchmesser in mm (meist 40-50): ";:input d!
    Locate 25,4: print "Ei-Temperatur vorher: ";:input T_Start!
    Locate 26,4: print "Weich = 0,  Hart = 1: ";:input sw%
    T_Innen! = 62*(sw%=0) + 85*(sw%=1)

    if (T_Wasser!-T_Innen!)>0

        if (2*(T_Wasser!-T_Start!)/(T_Wasser!-T_Innen!))>0

            T! = 0.0016*d!*d!*ln(2*(T_Wasser!-T_Start!)/(T_Wasser!-T_Innen!))

        else

            Print ""
            Print "  Ein Straussen-Ei???" : waitInput: break

        endif

    else

        print ""
        print "  So geht's nicht!" : waitInput : break

    endif

    print
    print "   +--------------------------------------------------------------------+"
    print "   !     Ihr ";

    if sw%=0: print "weiches ";:endif

        if sw%=1: print "hartes ";:endif

            print "Ei benötigt genau ";

            if int(t!)>0: print int(T!);" Minuten";:endif

                if (int(t!)>0) AND (int(t!)<t!):print " und ";:endif

                    if (int(t!)<t!):print int((t!-int(t!))*60+.5); " Sekunden!";:endif

                        print tab(73);"!"
                        print "   +--------------------------------------------------------------------+"
                        beep
                        WaitInput

                    endwhile

                    end
 
XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
12.04.2021  
 




ByteAttack
Wie konnte ich all die Jahre ohne die Formel leben!
 
XProfan X4
Website:  [...] 
Facebook:  [...] 
25.04.2021  
 




p.specht

Ergänzung: Minimalistische Eieruhr

Da die entsprechenden Küchengeräte eher schwierig auf Sekundengenauigkeit einzustellen sind, das perfekte Frühstücks-Ei (normale Größe) aber in meiner Seehöhe genau 2 Minuten und 43 Sekunden Kochzeit benötigt, habe ich mir erlaubt, Dieter Zornow's Millisekunden-Formatierung für meinen Bedarf und XProfan 11.2a zu adaptieren. Weiterer Vorteil: Ich kann die Alarmlautstärke so einstellen, daß ich den Zeitablauf schlimmstenfalls auch noch im Nebenraum hören würde.

Nach dem heutigen Wissensstand bleibt der Cholesterinspiegel beim Verzehr von Eiern im Rahmen einer ausgewogenen Ernährung bei den meisten Menschen relativ konstant. Studien stellten keinen Zusammenhang zwischen einem regelmäßigen Eierkonsum (bis zu sechs Eiern pro Woche) und Herzerkrankungen fest.

Windowstyle 24:WindowTitle "E I E R U H R":cls:font 2
Var alarmmin&=2:var alarmsec&=40'default 02:43
print "\n (Ende mit ESC-Taste)\n\n Bitte Minuten und Sekunden bis zum Alarm eingeben:"
print "\n Alarmminuten = ";:input alarmmin&
print "\n Alarmsekunden= ";:input alarmsec&
Window 150,20:cls rgb(220,200,255)
var az&=alarmmin&*60000+alarmsec&*1000
Declare ti&,tn&:var tm&=&gettickcount
Repeat :tn&=ti&:ti&=&gettickcount-tm&

if ti&>tn&:Windowtitle "Laufzeit: "+ms2minsec(az&-ti&)

    else :waitinput 900:case ti&>az&:beep

endif

until %key=27

End

Proc ms2minsec :parameters ms&:declare s&,w$,ms$,tmp$

w$="00:00":s&=ms&/1000:ms&=s&/60:tmp$=str$(ms&)+":"

If len(tmp$)=2 :w$="0"+tmp$ :else :w$=tmp$ :endif

    s&=s&-ms&*60:case s&<10:w$="0"
    Return @str$(s&)

Endproc

 
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
19.05.2021  
 




RudiB.


Sorry...bringt mir Fehlermeldung...

17 kB
Hochgeladen:19.05.2021
Ladeanzahl67
Herunterladen
 
XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM
19.05.2021  
 




p.specht

Danke für den Hinweis. Meine Tastatur spinnt manchmal, da wurden 2 W eingestreut wo sie nicht hingehörten. Fehler behoben und oben korrigiert!
Gruss
 
XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
20.05.2021  
 



Zum Quelltext


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

3.216 Betrachtungen

Unbenanntvor 0 min.
H.Brill08.06.2024
Member 361000528.09.2022
p.specht21.11.2021
R.Schneider20.11.2021
Mehr...

Themeninformationen

Dieses Thema hat 3 Teilnehmer:

p.specht (3x)
RudiB. (1x)
ByteAttack (1x)


Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie