XProfan

Español

p.specht

Un Formel para el durchschnittlichen Blutzucker-Progreso después de Kohlehydrat-Zufuhr war en el gesamten Internet no para encontrar, bloß Bilder y Tabellen. El Fachbücher strotzen dagegen antes Doppelintegralen y komplexen, hochtheoretischen physiologischen Modellen, con denen wir Normalos genau nix anfangen puede.

Aber como gab lo doch veces una Buch con Funktionsgraphen y zugehörigen Formeln: Abramowitz-Stegun: Handbook of Mathematical Functions, y así findet uno schließlich (Tataaaa!) el Integralcosinus en seinem ersten positiven Abschnitt. Der modelliert entonces - laienhaft ausgedrückt - incluso el anfängliche Insulinverzögerung. Nachstehend el nackte, unskalierte Mathe-Función, como siempre sin jede Gewähr (El Reihenentwicklung debería no überbeansprucht voluntad: En x=24 es Schluss)!

Kompilieren Marca Separación

Título de la ventana "Integralcosinus Ci() de Reihenentwicklung"
Windowstyle 24:Ventana 0,0-%maxx,%maxy
var xh&=width(%hwnd)\2:var yh&=height(%hwnd)\2
Declarar 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!=&bucle*f!

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

endwhile

waitinput:cls:goto "Main"

Proc Ci :parámetros x!:caso x!<=0:volver -999999999

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

    whileloop 30:lm2!=&Loop*2

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

    endwhile

    volver sum!

ENDPROC

proc faku :parámetros x!:x!=abs(x!)

    if x!>169:imprimir " ***Error en Faku: Overflow!***"

        waitinput:End:endif :var prod!=1

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

            endwhile:volver prod!

        ENDPROC