diff options
author | Andreas Müller <afm@ws-mn-120019.hsr.ch> | 2021-12-07 11:50:16 +0100 |
---|---|---|
committer | Andreas Müller <afm@ws-mn-120019.hsr.ch> | 2021-12-07 11:50:16 +0100 |
commit | 2ec6a4c9a9625261e954c2dc525e6bbfd744bd1a (patch) | |
tree | 2351c87007597d4f38025c95d6362ac39121386a /buch/chapters/050-differential/hyperdgl.maxima | |
parent | Fehlerfunktion als hypergeometrische Funktion (diff) | |
download | SeminarSpezielleFunktionen-2ec6a4c9a9625261e954c2dc525e6bbfd744bd1a.tar.gz SeminarSpezielleFunktionen-2ec6a4c9a9625261e954c2dc525e6bbfd744bd1a.zip |
add new section on hypergeometric differential equation
Diffstat (limited to 'buch/chapters/050-differential/hyperdgl.maxima')
-rw-r--r-- | buch/chapters/050-differential/hyperdgl.maxima | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/buch/chapters/050-differential/hyperdgl.maxima b/buch/chapters/050-differential/hyperdgl.maxima new file mode 100644 index 0000000..d63524b --- /dev/null +++ b/buch/chapters/050-differential/hyperdgl.maxima @@ -0,0 +1,23 @@ +/* + * hyperdgl.maxima + * + * (c) 2021 Prof Dr Andreas Müller, OST Ostschweizer Fachhochschule + */ + +x0: +c*(a*b)/c - a*b +; +ratsimp(x0); + +x1: +(a*(a+1)*b*(b+1)/(c*(c+1)))*(1 + c - (a+b+1) - a*b*(c+1)/((a+1)*(b+1))) +; +ratsimp(x1); + +xk: (a+k)*(b+k)/((c+k)*(k-1)) +-1 ++c*(a+k)*(b+k)/((c+k)*(k-1)*k) +-(a+b+1)/(k-1) +-a*b/((k-1)*k); + +ratsimp(xk); |