\mnb150ÿ{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fmodern\fprq1 Courier New;}{\f4\froman\fcharset1 Times New Roman;}} {\colortbl\red0\green0\blue0;\red255\green0\blue0;} \deflang1031\pard\ri4\plain\f4\fs22\cf0 01.Achtung: Pfad anpassen! \par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f3\fs22\cf1 {\pntext\f1\'b7\tab}read("C:\\\\...\\\\FPS.mu") \par \pard\ri4\plain\f4\fs22\cf0 02. \par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f3\fs22\cf1 {\pntext\f1\'b7\tab}f[1]:=x->sin(x)^2 \par \pard\ri4\plain\f4\fs22\cf0 03. \par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f3\fs22\cf1 {\pntext\f1\'b7\tab}[HolonomicDE(f[1](x),F(x)),[eval(subs(diff(f[1](x),x$i),x=0)) $ i=0..2]] \par \pard\ri4\plain\f4\fs22\cf0 04. \par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f3\fs22\cf1 {\pntext\f1\'b7\tab}f[2]:=x->1-cos(x)^2 \par \pard\ri4\plain\f4\fs22\cf0 05. \par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f3\fs22\cf1 {\pntext\f1\'b7\tab}[HolonomicDE(f[2](x),F(x)),[eval(subs(diff(f[2](x),x$i),x=0)) $ i=0..2]] \par \pard\ri4\plain\f4\fs22\cf0 06. \par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f3\fs22\cf1 {\pntext\f1\'b7\tab}f[3]:=x->arctanh(x) \par \pard\ri4\plain\f4\fs22\cf0 07. \par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f3\fs22\cf1 {\pntext\f1\'b7\tab}[HolonomicDE(f[3](x),F(x)),[eval(subs(diff(f[3](x),x$i),x=0)) $ i=0..1]] \par \pard\ri4\plain\f4\fs22\cf0 08. \par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f3\fs22\cf1 {\pntext\f1\'b7\tab}f[4]:=x->1/2*ln((1+x)/(1-x)) \par \pard\ri4\plain\f4\fs22\cf0 09. \par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f3\fs22\cf1 {\pntext\f1\'b7\tab}[HolonomicDE(f[4](x),F(x)),[eval(subs(diff(f[4](x),x$i),x=0)) $ i=0..1]] \par \pard\ri4\plain\f4\fs22\cf0 10. \par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f3\fs22\cf1 {\pntext\f1\'b7\tab}Simplify(f[3](x)-f[4](x)) \par \pard\ri4\plain\f4\fs22\cf0 11. \par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f3\fs22\cf1 {\pntext\f1\'b7\tab}plotfunc2d(f[3](x)-f[4](x),x=-1..1) \par }