XProfan

Français

p.specht

une Formel pour den durchschnittlichen Blutzucker-Verlauf pour Kohlehydrat-Zufuhr était im gesamten Internet pas pour trouver, bloß Bilder et Tabellen. qui Fachbücher strotzen dagegen avant Doppelintegralen et komplexen, hochtheoretischen physiologischen Modellen, avec denen wir Normalos oui c'est ca nix anfangen peut.

mais là donnais es doch la fois un livre avec Funktionsgraphen et zugehörigen Formeln: Abramowitz-Stegun: Handbook of Mathematical Functions, et so findet on schließlich (Tataaaa!) den Integralcosinus dans seinem ersten positiven paragraphe. qui modelliert ensuite - laienhaft ausgedrückt - sogar qui anfängliche Insulinverzögerung. suivante qui nackte, unskalierte Mathe-Funktion, comment toujours sans chacun Gewähr (qui Reihenentwicklung sollte pas überbeansprucht volonté: chez x=24 ist Schluss)!

Kompilieren Marque Séparation

Titre de la fenêtre "Integralcosinus Ci() aus Reihenentwicklung"
Windowstyle 24:Fenêtre 0,0-%maxx,%maxy
var xh&=width(%hwnd)\2:var yh&=height(%hwnd)\2
Déclarer x!,y!,f!:f!=1/1000:set("decimals",17)
Main:
cls:line 0,yh& - 2*xh&,yh&: line 300,0 - 300,2*yh&:usepen 0,1,255

whileloop 0,24300,50:x!=&loop*f!

    y!=Ci(x!)
    imprimer format$("##0.#####",x!),tab(12);y!
    lineto 300+x!*20,yh&-y!*500
    cas %csrlin>50:locate 1,1

endwhile

waitinput:cls:goto "Main"

Proc Ci :parameters x!:cas x!<=0:return -999999999

    cas x!>24.3:imprimer " **Err: x > 24.3** ";
    var EulerMascheroni!=0.57721566490153286:var lm2!=0
    var sum!=EulerMascheroni!+ln(x!)

    whileloop 30:lm2!=&Boucle*2

        sum!=sum! + si(&loop mod 2,-1,1)*x!^Lm2!/(faku(Lm2!)*Lm2!)

    endwhile

    return sum!

endproc

proc faku :parameters x!:x!=abs(x!)

    si x!>169:imprimer " ***Error dans Faku: Overflow!***"

        waitinput:Fin:endif :var prod!=1

        whileloop int(x!):prod!=prod!*&loop

            endwhile:return prod!

        endproc