{VERSION 2 3 "IBM INTEL NT" "2.3" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "" -1 256 "" 1 24 0 0 0 0 0 1 0 0 0 0 0 0 0 } {CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 260 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 } {CSTYLE "" -1 261 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 262 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 263 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 264 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 257 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 258 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 } {PSTYLE "" 0 259 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 } 3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 256 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 " " 0 "" {TEXT -1 0 "" }}{PARA 257 "" 0 "" {TEXT 256 34 "Polynominterpol ation nach Lagrange" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 258 "" 0 "" {TEXT -1 39 "Dipl.- Ing. Bj\366rnstjerne Zindler, M.Sc." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 259 "" 0 "" {TEXT -1 56 "Erstellt: 02. J uli 2014 - Letzte Revision: 04. Juli 2014" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 257 42 "Definition \+ der Lagrangschen- Grundpolynome" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "expr:=product(( x-x[k])/(a[i]-x[k]),k=0..n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 138 "############################################################### ###################################################################### #####" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 258 21 "Lineare Interpolation" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "n:=1:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "for i from 0 to n do L[i]:=product( (x[m]-x[k])/(a[i]-x[k]),k=0..n) od:L[0]:L[1]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[0]:=subs(a[0]-x[0]=1,L[0]):L[0]:=subs(a[0]=x[0 ],L[0]):L[0]:=subs(x[m]-x[0]=1,L[0]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[1]:=subs(a[1]-x[1]=1,L[1]):L[1]:=subs(a[1]=x[1],L[1 ]):L[1]:=subs(x[m]-x[1]=1,L[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "expr_1 :=y[0]*L[0]+y[1]*L[1]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "# " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "L[0]:=subs(x[0]-x[1]=a, L[0]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "L[1]:=subs(x[1]-x [0]=-a,L[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "expr_1:=collect(y[0]*L[0]+y[ 1]*L[1],x[m]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 49 "################################## ###############" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "a[1]:=(y [0]/a-y[1]/a):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a [1]:=factor(numer(a[1]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[1]:=factor(denom(a[1]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 49 "#################################################" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "a[0]:=(-y[0]*x[1]/a+y[1]*x[0 ]/a):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a[0]:=fact or(numer(a[0]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_ a[0]:=factor(denom(a[0]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 49 "### ##############################################" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 139 "################################################################# ###################################################################### ####" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 259 26 "Quadratische Interpolati on" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "n:=2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "for i from 0 to n do L[i] :=product((x[m]-x[k])/(a[i]-x[k]),k=0..n) od:L[0]:L[1]:L[2]:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[0]:=subs(a[0]-x[0]=1,L[0]) :L[0]:=subs(a[0]=x[0],L[0]):L[0]:=subs(x[m]-x[0]=1,L[0]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[1]:=subs(a[1]-x[1]=1,L[1]):L[1]:= subs(a[1]=x[1],L[1]):L[1]:=subs(x[m]-x[1]=1,L[1]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[2]:=subs(a[2]-x[2]=1,L[2]):L[2]:=subs(a[2 ]=x[2],L[2]):L[2]:=subs(x[m]-x[2]=1,L[2]);" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "expr _2:=y[0]*L[0]+y[1]*L[1]+y[2]*L[2]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "L[0]:= subs(x[0]-x[1]=+a,L[0]):L[0]:=subs(x[0]-x[2]=+b,L[0]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "L[1]:=subs(x[1]-x[0]=-a,L[1]):L[1]: =subs(x[1]-x[2]=+c,L[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "L[2]:=subs(x[2]-x[0]=-b,L[2]):L[2]:=subs(x[2]-x[1]=-c,L[2]):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 52 "expr_2:=collect(y[0]*L[0]+y[1]*L[1]+y[2]*L[2],x[m]) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 " " 0 "" {TEXT -1 74 "################################################## ########################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "a[2]:=(-y[1]/a/c+y[0]/a/b+y[2]/b/c):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a[2]:=factor(numer(a[2]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[2]:=factor(denom(a[2]));" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 74 "################################## ########################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 95 "a[1]:=((-y[0]*x[1]/a-y[0]/a*x[2])/b-(-y[1]*x[0]/a-y[1 ]/a*x[2])/c+(-y[2]*x[0]/b-y[2]/b*x[1])/c):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 34 "Zaehler_a[1]:=factor(numer(a[1]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[1]:=factor(denom(a[1]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 74 "############################### ###########################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "a[0]:=(+y[0]*x[1]/a*x[2]/b+y[2]*x[0]/b*x[1]/c-y[1] *x[0]/a*x[2]/c):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler _a[0]:=factor(numer(a[0]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[0]:=factor(denom(a[0]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 157 "##### ###################################################################### ###################################################################### ############" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 260 22 "Kubische Interpo lation" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "n:=3: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 90 "for i from 0 to n do L[ i]:=product((x[m]-x[k])/(a[i]-x[k]),k=0..n) od:L[0]:L[1]:L[2]:L[3]:" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[0]:=subs(a[0]-x[0]=1,L[0 ]):L[0]:=subs(a[0]=x[0],L[0]):L[0]:=subs(x[m]-x[0]=1,L[0]);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[1]:=subs(a[1]-x[1]=1,L[1]) :L[1]:=subs(a[1]=x[1],L[1]):L[1]:=subs(x[m]-x[1]=1,L[1]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[2]:=subs(a[2]-x[2]=1,L[2]):L[2]:= subs(a[2]=x[2],L[2]):L[2]:=subs(x[m]-x[2]=1,L[2]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[3]:=subs(a[3]-x[3]=1,L[3]):L[3]:=subs(a[3 ]=x[3],L[3]):L[3]:=subs(x[m]-x[3]=1,L[3]);" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "expr _3:=y[0]*L[0]+y[1]*L[1]+y[2]*L[2]+y[3]*L[3]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 90 "L [0]:=subs(x[0]-x[1]=+a,L[0]):L[0]:=subs(x[0]-x[2]=+b,L[0]):L[0]:=subs( x[0]-x[3]=+d,L[0]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 90 "L[1] :=subs(x[1]-x[0]=-a,L[1]):L[1]:=subs(x[1]-x[2]=+c,L[1]):L[1]:=subs(x[1 ]-x[3]=+e,L[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 90 "L[2]:=s ubs(x[2]-x[0]=-b,L[2]):L[2]:=subs(x[2]-x[1]=-c,L[2]):L[2]:=subs(x[2]-x [3]=+f,L[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 90 "L[3]:=subs (x[3]-x[0]=-d,L[3]):L[3]:=subs(x[3]-x[1]=-e,L[3]):L[3]:=subs(x[3]-x[2] =-f,L[3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "expr_3:=collect(y[0]*L[0]+y[1]*L[1] +y[2]*L[2]+y[3]*L[3],x[m]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 92 "######################### ###################################################################" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "a[3]:=(y[0]/a/b/d-y[1]/a/c /e+y[2]/b/c/f-y[3]/d/e/f):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a[3]:=factor(numer(a[3]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[3]:=factor(denom(a[3]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 92 "################################################# ###########################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 196 "a[2]:=(((-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0]/a/b*x[3 ])/d-((-y[1]*x[0]/a-y[1]/a*x[2])/c-y[1]/a/c*x[3])/e+((-y[2]*x[0]/b-y[2 ]/b*x[1])/c-y[2]/b/c*x[3])/f-((-y[3]*x[0]/d-y[3]/d*x[1])/e-y[3]/d/e*x[ 2])/f):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a[2]:=fa ctor(numer(a[2]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenne r_a[2]:=factor(denom(a[2]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 91 "# ###################################################################### ####################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 236 "a[ 1]:=((y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x[2])/b*x[3])/d-(y[1]*x[ 0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x[3])/e+(y[2]*x[0]/b*x[1]/c-( -y[2]*x[0]/b-y[2]/b*x[1])/c*x[3])/f-(y[3]*x[0]/d*x[1]/e-(-y[3]*x[0]/d- y[3]/d*x[1])/e*x[2])/f):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a[1]:=factor(numer(a[1]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[1]:=factor(denom(a[1]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 91 "################################################# ##########################################" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 113 "a[0]:=(-y[0]*x[1]/a*x[2]/b*x[3]/d+y[1]*x[0]/a*x[2] /c*x[3]/e-y[2]*x[0]/b*x[1]/c*x[3]/f+y[3]*x[0]/d*x[1]/e*x[2]/f):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a[0]:=factor(numer(a [0]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[0]:=fact or(denom(a[0]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 91 "############# ###################################################################### ########" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 137 "################################## ###################################################################### #################################" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 261 28 "Biquadratische Interpolation" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "n:=4:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 95 "for i from 0 to n do L[i]:=product((x[m]-x[k])/(a[i]-x[k]),k=0.. n) od:L[0]:L[1]:L[2]:L[3]:L[4]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[0]:=subs(a[0]-x[0]=1,L[0]):L[0]:=subs(x[m]-x[0]=1,L[0]):L[0] :=subs(a[0]=x[0],L[0]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 " L[1]:=subs(a[1]-x[1]=1,L[1]):L[1]:=subs(x[m]-x[1]=1,L[1]):L[1]:=subs(a [1]=x[1],L[1]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[2]:=su bs(a[2]-x[2]=1,L[2]):L[2]:=subs(x[m]-x[2]=1,L[2]):L[2]:=subs(a[2]=x[2] ,L[2]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[3]:=subs(a[3]- x[3]=1,L[3]):L[3]:=subs(x[m]-x[3]=1,L[3]):L[3]:=subs(a[3]=x[3],L[3]); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[4]:=subs(a[4]-x[4]=1, L[4]):L[4]:=subs(x[m]-x[4]=1,L[4]):L[4]:=subs(a[4]=x[4],L[4]);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 120 "L[0]:=subs(x[0]-x[1]=+a,L[0]):L[0]:=subs(x[0]-x[2] =+b,L[0]):L[0]:=subs(x[0]-x[3]=+d,L[0]):L[0]:=subs(x[0]-x[4]=+g,L[0]): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 120 "L[1]:=subs(x[1]-x[0]=- a,L[1]):L[1]:=subs(x[1]-x[2]=+c,L[1]):L[1]:=subs(x[1]-x[3]=+e,L[1]):L[ 1]:=subs(x[1]-x[4]=+h,L[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 120 "L[2]:=subs(x[2]-x[0]=-b,L[2]):L[2]:=subs(x[2]-x[1]=-c,L[2]):L[2 ]:=subs(x[2]-x[3]=+f,L[2]):L[2]:=subs(x[2]-x[4]=+j,L[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 120 "L[3]:=subs(x[3]-x[0]=-d,L[3]):L[3] :=subs(x[3]-x[1]=-e,L[3]):L[3]:=subs(x[3]-x[2]=-f,L[3]):L[3]:=subs(x[3 ]-x[4]=+K,L[3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 120 "L[4]:= subs(x[4]-x[0]=-g,L[4]):L[4]:=subs(x[4]-x[1]=-h,L[4]):L[4]:=subs(x[4]- x[2]=-j,L[4]):L[4]:=subs(x[4]-x[3]=-K,L[4]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "e xpr_4:=y[0]*L[0]+y[1]*L[1]+y[2]*L[2]+y[3]*L[3]+y[4]*L[4]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "expr_4:=collect(y[0]*L[0]+y[1]*L[1]+y[2]*L[2]+y[3]*L[ 3]+y[4]*L[4],x[m]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }} }{EXCHG {PARA 0 "" 0 "" {TEXT -1 91 "################################# ##########################################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "a[4]:=(y[2]/b/c/f/j+y[0]/a/b/d/g-y[ 1]/a/c/e/h-y[3]/d/e/f/K+y[4]/g/h/j/K):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a[4]:=factor(numer(a[4]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[4]:=factor(denom(a[4]));" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 91 "################################## #########################################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 343 "a[3]:=((((-y[2]*x[0]/b-y[2]/b*x[1] )/c-y[2]/b/c*x[3])/f-y[2]/b/c/f*x[4])/j-(((-y[3]*x[0]/d-y[3]/d*x[1])/e -y[3]/d/e*x[2])/f-y[3]/d/e/f*x[4])/K-(((-y[1]*x[0]/a-y[1]/a*x[2])/c-y[ 1]/a/c*x[3])/e-y[1]/a/c/e*x[4])/h+(((-y[4]*x[0]/g-y[4]/g*x[1])/h-y[4]/ g/h*x[2])/j-y[4]/g/h/j*x[3])/K+(((-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0]/a/b *x[3])/d-y[0]/a/b/d*x[4])/g):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a[3]:=factor(numer(a[3]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[3]:=factor(denom(a[3]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 91 "################################################# ##########################################" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 574 "a[2]:=(-((y[3]*x[0]/d*x[1]/e-(-y[3]*x[0]/d-y[3]/d* x[1])/e*x[2])/f-((-y[3]*x[0]/d-y[3]/d*x[1])/e-y[3]/d/e*x[2])/f*x[4])/K +((y[4]*x[0]/g*x[1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j-((-y[4]*x[0 ]/g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j*x[3])/K+((y[2]*x[0]/b*x[1]/c-(-y[2 ]*x[0]/b-y[2]/b*x[1])/c*x[3])/f-((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c *x[3])/f*x[4])/j+((y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x[2])/b*x[3 ])/d-((-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0]/a/b*x[3])/d*x[4])/g-((y[1]*x[0 ]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x[3])/e-((-y[1]*x[0]/a-y[1]/a* x[2])/c-y[1]/a/c*x[3])/e*x[4])/h):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a[2]:=factor(numer(a[2]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[2]:=factor(denom(a[2]));" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 91 "################################## #########################################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 473 "a[1]:=((-y[4]*x[0]/g*x[1]/h*x[2]/j -(y[4]*x[0]/g*x[1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j*x[3])/K+(-y[ 0]*x[1]/a*x[2]/b*x[3]/d-(y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x[2]) /b*x[3])/d*x[4])/g-(-y[3]*x[0]/d*x[1]/e*x[2]/f-(y[3]*x[0]/d*x[1]/e-(-y [3]*x[0]/d-y[3]/d*x[1])/e*x[2])/f*x[4])/K-(-y[1]*x[0]/a*x[2]/c*x[3]/e- (y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x[3])/e*x[4])/h+(-y[2 ]*x[0]/b*x[1]/c*x[3]/f-(y[2]*x[0]/b*x[1]/c-(-y[2]*x[0]/b-y[2]/b*x[1])/ c*x[3])/f*x[4])/j):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaeh ler_a[1]:=factor(numer(a[1]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[1]:=factor(denom(a[1]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 90 "######################################################### #################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 174 "a[0]:=(+y[0]*x[1]/a*x[2]/b*x[3]/d*x[4]/g-y[1]*x[0]/a *x[2]/c*x[3]/e*x[4]/h-y[3]*x[0]/d*x[1]/e*x[2]/f*x[4]/K+y[4]*x[0]/g*x[1 ]/h*x[2]/j*x[3]/K+y[2]*x[0]/b*x[1]/c*x[3]/f*x[4]/j):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a[0]:=factor(numer(a[0]));" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[1]:=factor(denom(a[ 0]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 91 "######################## ###################################################################" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 140 "############################################### ###################################################################### #######################" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 262 24 "Quint ische Interpolation" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "n:=5:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 100 "for i from 0 t o n do L[i]:=product((x[m]-x[k])/(a[i]-x[k]),k=0..n) od:L[0]:L[1]:L[2] :L[3]:L[4]:L[5]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[0]:=s ubs(a[0]-x[0]=1,L[0]):L[0]:=subs(x[m]-x[0]=1,L[0]):L[0]:=subs(a[0]=x[0 ],L[0]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[1]:=subs(a[1] -x[1]=1,L[1]):L[1]:=subs(x[m]-x[1]=1,L[1]):L[1]:=subs(a[1]=x[1],L[1]); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[2]:=subs(a[2]-x[2]=1, L[2]):L[2]:=subs(x[m]-x[2]=1,L[2]):L[2]:=subs(a[2]=x[2],L[2]);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[3]:=subs(a[3]-x[3]=1,L[3]) :L[3]:=subs(x[m]-x[3]=1,L[3]):L[3]:=subs(a[3]=x[3],L[3]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[4]:=subs(a[4]-x[4]=1,L[4]):L[4]:= subs(x[m]-x[4]=1,L[4]):L[4]:=subs(a[4]=x[4],L[4]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[5]:=subs(a[5]-x[5]=1,L[5]):L[5]:=subs(x[m ]-x[5]=1,L[5]):L[5]:=subs(a[5]=x[5],L[5]);" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 150 "L[0 ]:=subs(x[0]-x[1]=+a,L[0]):L[0]:=subs(x[0]-x[2]=+b,L[0]):L[0]:=subs(x[ 0]-x[3]=+d,L[0]):L[0]:=subs(x[0]-x[4]=+g,L[0]):L[0]:=subs(x[0]-x[5]=+l ,L[0]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 150 "L[1]:=subs(x[1] -x[0]=-a,L[1]):L[1]:=subs(x[1]-x[2]=+c,L[1]):L[1]:=subs(x[1]-x[3]=+e,L [1]):L[1]:=subs(x[1]-x[4]=+h,L[1]):L[1]:=subs(x[1]-x[5]=+o,L[1]):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 150 "L[2]:=subs(x[2]-x[0]=-b,L[2 ]):L[2]:=subs(x[2]-x[1]=-c,L[2]):L[2]:=subs(x[2]-x[3]=+f,L[2]):L[2]:=s ubs(x[2]-x[4]=+j,L[2]):L[2]:=subs(x[2]-x[5]=+p,L[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 150 "L[3]:=subs(x[3]-x[0]=-d,L[3]):L[3] :=subs(x[3]-x[1]=-e,L[3]):L[3]:=subs(x[3]-x[2]=-f,L[3]):L[3]:=subs(x[3 ]-x[4]=+K,L[3]):L[3]:=subs(x[3]-x[5]=+q,L[3]):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 150 "L[4]:=subs(x[4]-x[0]=-g,L[4]):L[4]:=subs(x[4] -x[1]=-h,L[4]):L[4]:=subs(x[4]-x[2]=-j,L[4]):L[4]:=subs(x[4]-x[3]=-K,L [4]):L[4]:=subs(x[4]-x[5]=+r,L[4]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 150 "L[5]:=subs(x[5]-x[0]=-l,L[5]):L[5]:=subs(x[5]-x[1]=- o,L[5]):L[5]:=subs(x[5]-x[2]=-p,L[5]):L[5]:=subs(x[5]-x[3]=-q,L[5]):L[ 5]:=subs(x[5]-x[4]=-r,L[5]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "expr_5:=y[0]*L[0] +y[1]*L[1]+y[2]*L[2]+y[3]*L[3]+y[4]*L[4]+y[5]*L[5]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "expr_5:=collect(y[0]*L[0]+y[1]*L[1]+y[2]*L[2]+y[3]*L[3]+y[4]*L[4 ]+y[5]*L[5],x[m]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 106 "################################# ###################################################################### ###" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "a[5]:=(-y[3]/d/e/f/K /q+y[0]/a/b/d/g/l-y[1]/a/c/e/h/o+y[4]/g/h/j/K/r+y[2]/b/c/f/j/p-y[5]/l/ o/p/q/r):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a[5]:= factor(numer(a[5]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nen ner_a[5]:=factor(denom(a[5]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 106 "################################################################# #########################################" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 543 "a[4]:=(-((((-y[1]*x[0]/a-y[1]/a*x[2])/c-y[1]/a/c*x [3])/e-y[1]/a/c/e*x[4])/h-y[1]/a/c/e/h*x[5])/o+((((-y[2]*x[0]/b-y[2]/b *x[1])/c-y[2]/b/c*x[3])/f-y[2]/b/c/f*x[4])/j-y[2]/b/c/f/j*x[5])/p-(((( -y[3]*x[0]/d-y[3]/d*x[1])/e-y[3]/d/e*x[2])/f-y[3]/d/e/f*x[4])/K-y[3]/d /e/f/K*x[5])/q+((((-y[4]*x[0]/g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j-y[4]/g /h/j*x[3])/K-y[4]/g/h/j/K*x[5])/r+((((-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0] /a/b*x[3])/d-y[0]/a/b/d*x[4])/g-y[0]/a/b/d/g*x[5])/l-((((-y[5]*x[0]/l- y[5]/l*x[1])/o-y[5]/l/o*x[2])/p-y[5]/l/o/p*x[3])/q-y[5]/l/o/p/q*x[4])/ r):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a[4]:=factor (numer(a[4]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[ 4]:=factor(denom(a[4]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 108 "#### ###################################################################### ##################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1142 "a[3]:=((((y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x [2])/b*x[3])/d-((-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0]/a/b*x[3])/d*x[4])/g- (((-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0]/a/b*x[3])/d-y[0]/a/b/d*x[4])/g*x[5 ])/l-(((y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x[3])/e-((-y[1 ]*x[0]/a-y[1]/a*x[2])/c-y[1]/a/c*x[3])/e*x[4])/h-(((-y[1]*x[0]/a-y[1]/ a*x[2])/c-y[1]/a/c*x[3])/e-y[1]/a/c/e*x[4])/h*x[5])/o+(((y[2]*x[0]/b*x [1]/c-(-y[2]*x[0]/b-y[2]/b*x[1])/c*x[3])/f-((-y[2]*x[0]/b-y[2]/b*x[1]) /c-y[2]/b/c*x[3])/f*x[4])/j-(((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c*x[ 3])/f-y[2]/b/c/f*x[4])/j*x[5])/p-(((y[3]*x[0]/d*x[1]/e-(-y[3]*x[0]/d-y [3]/d*x[1])/e*x[2])/f-((-y[3]*x[0]/d-y[3]/d*x[1])/e-y[3]/d/e*x[2])/f*x [4])/K-(((-y[3]*x[0]/d-y[3]/d*x[1])/e-y[3]/d/e*x[2])/f-y[3]/d/e/f*x[4] )/K*x[5])/q+(((y[4]*x[0]/g*x[1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j -((-y[4]*x[0]/g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j*x[3])/K-(((-y[4]*x[0]/ g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j-y[4]/g/h/j*x[3])/K*x[5])/r-(((y[5]*x [0]/l*x[1]/o-(-y[5]*x[0]/l-y[5]/l*x[1])/o*x[2])/p-((-y[5]*x[0]/l-y[5]/ l*x[1])/o-y[5]/l/o*x[2])/p*x[3])/q-(((-y[5]*x[0]/l-y[5]/l*x[1])/o-y[5] /l/o*x[2])/p-y[5]/l/o/p*x[3])/q*x[4])/r):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 34 "Zaehler_a[3]:=factor(numer(a[3]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "Nenner_a[]:=factor(denom(a[3]));" } }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 114 "############################### ###################################################################### #############" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1298 "a[2]:=(( (-y[0]*x[1]/a*x[2]/b*x[3]/d-(y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x [2])/b*x[3])/d*x[4])/g-((y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x[2]) /b*x[3])/d-((-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0]/a/b*x[3])/d*x[4])/g*x[5] )/l-((-y[1]*x[0]/a*x[2]/c*x[3]/e-(y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1 ]/a*x[2])/c*x[3])/e*x[4])/h-((y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a* x[2])/c*x[3])/e-((-y[1]*x[0]/a-y[1]/a*x[2])/c-y[1]/a/c*x[3])/e*x[4])/h *x[5])/o+((-y[2]*x[0]/b*x[1]/c*x[3]/f-(y[2]*x[0]/b*x[1]/c-(-y[2]*x[0]/ b-y[2]/b*x[1])/c*x[3])/f*x[4])/j-((y[2]*x[0]/b*x[1]/c-(-y[2]*x[0]/b-y[ 2]/b*x[1])/c*x[3])/f-((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c*x[3])/f*x[ 4])/j*x[5])/p-((-y[3]*x[0]/d*x[1]/e*x[2]/f-(y[3]*x[0]/d*x[1]/e-(-y[3]* x[0]/d-y[3]/d*x[1])/e*x[2])/f*x[4])/K-((y[3]*x[0]/d*x[1]/e-(-y[3]*x[0] /d-y[3]/d*x[1])/e*x[2])/f-((-y[3]*x[0]/d-y[3]/d*x[1])/e-y[3]/d/e*x[2]) /f*x[4])/K*x[5])/q+((-y[4]*x[0]/g*x[1]/h*x[2]/j-(y[4]*x[0]/g*x[1]/h-(- y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j*x[3])/K-((y[4]*x[0]/g*x[1]/h-(-y[4] *x[0]/g-y[4]/g*x[1])/h*x[2])/j-((-y[4]*x[0]/g-y[4]/g*x[1])/h-y[4]/g/h* x[2])/j*x[3])/K*x[5])/r-((-y[5]*x[0]/l*x[1]/o*x[2]/p-(y[5]*x[0]/l*x[1] /o-(-y[5]*x[0]/l-y[5]/l*x[1])/o*x[2])/p*x[3])/q-((y[5]*x[0]/l*x[1]/o-( -y[5]*x[0]/l-y[5]/l*x[1])/o*x[2])/p-((-y[5]*x[0]/l-y[5]/l*x[1])/o-y[5] /l/o*x[2])/p*x[3])/q*x[4])/r):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a[2]:=factor(numer(a[2]));" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 33 "Nenner_a[2]:=factor(denom(a[2]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 114 "############################################## ####################################################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 818 "a[1]:=((y[0]*x[1]/a*x[2] /b*x[3]/d*x[4]/g-(-y[0]*x[1]/a*x[2]/b*x[3]/d-(y[0]*x[1]/a*x[2]/b-(-y[0 ]*x[1]/a-y[0]/a*x[2])/b*x[3])/d*x[4])/g*x[5])/l-(y[5]*x[0]/l*x[1]/o*x[ 2]/p*x[3]/q-(-y[5]*x[0]/l*x[1]/o*x[2]/p-(y[5]*x[0]/l*x[1]/o-(-y[5]*x[0 ]/l-y[5]/l*x[1])/o*x[2])/p*x[3])/q*x[4])/r-(y[1]*x[0]/a*x[2]/c*x[3]/e* x[4]/h-(-y[1]*x[0]/a*x[2]/c*x[3]/e-(y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y [1]/a*x[2])/c*x[3])/e*x[4])/h*x[5])/o+(y[2]*x[0]/b*x[1]/c*x[3]/f*x[4]/ j-(-y[2]*x[0]/b*x[1]/c*x[3]/f-(y[2]*x[0]/b*x[1]/c-(-y[2]*x[0]/b-y[2]/b *x[1])/c*x[3])/f*x[4])/j*x[5])/p-(y[3]*x[0]/d*x[1]/e*x[2]/f*x[4]/K-(-y [3]*x[0]/d*x[1]/e*x[2]/f-(y[3]*x[0]/d*x[1]/e-(-y[3]*x[0]/d-y[3]/d*x[1] )/e*x[2])/f*x[4])/K*x[5])/q+(y[4]*x[0]/g*x[1]/h*x[2]/j*x[3]/K-(-y[4]*x [0]/g*x[1]/h*x[2]/j-(y[4]*x[0]/g*x[1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x [2])/j*x[3])/K*x[5])/r):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a[1]:=factor(numer(a[1]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[2]:=factor(denom(a[1]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 114 "################################################ ##################################################################" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 249 "a[0]:=(-y[0]*x[1]/a*x[2]/b *x[3]/d*x[4]/g*x[5]/l+y[3]*x[0]/d*x[1]/e*x[2]/f*x[4]/K*x[5]/q+y[1]*x[0 ]/a*x[2]/c*x[3]/e*x[4]/h*x[5]/o-y[4]*x[0]/g*x[1]/h*x[2]/j*x[3]/K*x[5]/ r+y[5]*x[0]/l*x[1]/o*x[2]/p*x[3]/q*x[4]/r-y[2]*x[0]/b*x[1]/c*x[3]/f*x[ 4]/j*x[5]/p):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a[ 0]:=factor(numer(a[0]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[0]:=factor(denom(a[0]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 106 "############################################################## ############################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 140 " ###################################################################### ###################################################################### " }}}{EXCHG {PARA 0 "" 0 "" {TEXT 263 41 "Sextische (Triquadratische) \+ Interpolation" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "n:=6:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "for i from 0 t o n do L[i]:=product((x[m]-x[k])/(a[i]-x[k]),k=0..n) od:L[0]:L[1]:L[2] :L[3]:L[4]:L[5]:L[6]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[ 0]:=subs(a[0]-x[0]=1,L[0]):L[0]:=subs(x[m]-x[0]=1,L[0]):L[0]:=subs(a[0 ]=x[0],L[0]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[1]:=subs (a[1]-x[1]=1,L[1]):L[1]:=subs(x[m]-x[1]=1,L[1]):L[1]:=subs(a[1]=x[1],L [1]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[2]:=subs(a[2]-x[ 2]=1,L[2]):L[2]:=subs(x[m]-x[2]=1,L[2]):L[2]:=subs(a[2]=x[2],L[2]);" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[3]:=subs(a[3]-x[3]=1,L[3 ]):L[3]:=subs(x[m]-x[3]=1,L[3]):L[3]:=subs(a[3]=x[3],L[3]);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[4]:=subs(a[4]-x[4]=1,L[4]) :L[4]:=subs(x[m]-x[4]=1,L[4]):L[4]:=subs(a[4]=x[4],L[4]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[5]:=subs(a[5]-x[5]=1,L[5]):L[5]:= subs(x[m]-x[5]=1,L[5]):L[5]:=subs(a[5]=x[5],L[5]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[6]:=subs(a[6]-x[6]=1,L[6]):L[6]:=subs(x[m ]-x[6]=1,L[6]):L[6]:=subs(a[6]=x[6],L[6]);" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 180 "L[0 ]:=subs(x[0]-x[1]=+a,L[0]):L[0]:=subs(x[0]-x[2]=+b,L[0]):L[0]:=subs(x[ 0]-x[3]=+d,L[0]):L[0]:=subs(x[0]-x[4]=+g,L[0]):L[0]:=subs(x[0]-x[5]=+l ,L[0]):L[0]:=subs(x[0]-x[6]=+s,L[0]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 180 "L[1]:=subs(x[1]-x[0]=-a,L[1]):L[1]:=subs(x[1]-x[2]=+ c,L[1]):L[1]:=subs(x[1]-x[3]=+e,L[1]):L[1]:=subs(x[1]-x[4]=+h,L[1]):L[ 1]:=subs(x[1]-x[5]=+o,L[1]):L[1]:=subs(x[1]-x[6]=+t,L[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 180 "L[2]:=subs(x[2]-x[0]=-b,L[2]):L[2] :=subs(x[2]-x[1]=-c,L[2]):L[2]:=subs(x[2]-x[3]=+f,L[2]):L[2]:=subs(x[2 ]-x[4]=+j,L[2]):L[2]:=subs(x[2]-x[5]=+p,L[2]):L[2]:=subs(x[2]-x[6]=+u, L[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 180 "L[3]:=subs(x[3]- x[0]=-d,L[3]):L[3]:=subs(x[3]-x[1]=-e,L[3]):L[3]:=subs(x[3]-x[2]=-f,L[ 3]):L[3]:=subs(x[3]-x[4]=+K,L[3]):L[3]:=subs(x[3]-x[5]=+q,L[3]):L[3]:= subs(x[3]-x[6]=+v,L[3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 180 "L[4]:=subs(x[4]-x[0]=-g,L[4]):L[4]:=subs(x[4]-x[1]=-h,L[4]):L[4]: =subs(x[4]-x[2]=-j,L[4]):L[4]:=subs(x[4]-x[3]=-K,L[4]):L[4]:=subs(x[4] -x[5]=+r,L[4]):L[4]:=subs(x[4]-x[6]=+w,L[4]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 180 "L[5]:=subs(x[5]-x[0]=-l,L[5]):L[5]:=subs(x[5]-x [1]=-o,L[5]):L[5]:=subs(x[5]-x[2]=-p,L[5]):L[5]:=subs(x[5]-x[3]=-q,L[5 ]):L[5]:=subs(x[5]-x[4]=-r,L[5]):L[5]:=subs(x[5]-x[6]=+x,L[5]):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 180 "L[6]:=subs(x[6]-x[0]=-s,L[6 ]):L[6]:=subs(x[6]-x[1]=-t,L[6]):L[6]:=subs(x[6]-x[2]=-u,L[6]):L[6]:=s ubs(x[6]-x[3]=-v,L[6]):L[6]:=subs(x[6]-x[4]=-w,L[6]):L[6]:=subs(x[6]-x [5]=-x,L[6]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "expr_6:=y[0]*L[0]+y[1]*L[1]+ y[2]*L[2]+y[3]*L[3]+y[4]*L[4]+y[5]*L[5]+y[6]*L[6]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 92 "expr_6:=collect(y[0]*L[0]+y[1]*L[1]+y[2]*L[2]+y[3]*L[3]+y[4]*L[4]+ y[5]*L[5]+y[6]*L[6],x[m]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 86 "######################### #############################################################" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 127 "a[6]:=(y[2]/b/c/f/j/p/u-y[1 ]/a/c/e/h/o/t-y[3]/d/e/f/K/q/v-y[5]/l/o/p/q/r/x+y[0]/a/b/d/g/l/s+y[4]/ g/h/j/K/r/w+y[6]/s/t/u/v/w/x):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a[6]:=factor(numer(a[6]));" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 33 "Nenner_a[6]:=factor(denom(a[6]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 86 "############################################### #######################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 800 "a[5]:=(-(((((-y[3]*x[0]/d-y[3]/d*x[1])/e-y[3]/d/e*x[ 2])/f-y[3]/d/e/f*x[4])/K-y[3]/d/e/f/K*x[5])/q-y[3]/d/e/f/K/q*x[6])/v+( ((((-y[4]*x[0]/g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j-y[4]/g/h/j*x[3])/K-y[ 4]/g/h/j/K*x[5])/r-y[4]/g/h/j/K/r*x[6])/w+(((((-y[0]*x[1]/a-y[0]/a*x[2 ])/b-y[0]/a/b*x[3])/d-y[0]/a/b/d*x[4])/g-y[0]/a/b/d/g*x[5])/l-y[0]/a/b /d/g/l*x[6])/s+(((((-y[6]*x[0]/s-y[6]/s*x[1])/t-y[6]/s/t*x[2])/u-y[6]/ s/t/u*x[3])/v-y[6]/s/t/u/v*x[4])/w-y[6]/s/t/u/v/w*x[5])/x-(((((-y[5]*x [0]/l-y[5]/l*x[1])/o-y[5]/l/o*x[2])/p-y[5]/l/o/p*x[3])/q-y[5]/l/o/p/q* x[4])/r-y[5]/l/o/p/q/r*x[6])/x+(((((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b /c*x[3])/f-y[2]/b/c/f*x[4])/j-y[2]/b/c/f/j*x[5])/p-y[2]/b/c/f/j/p*x[6] )/u-(((((-y[1]*x[0]/a-y[1]/a*x[2])/c-y[1]/a/c*x[3])/e-y[1]/a/c/e*x[4]) /h-y[1]/a/c/e/h*x[5])/o-y[1]/a/c/e/h/o*x[6])/t):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a[5]:=factor(numer(a[5]));" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[5]:=factor(denom(a[ 5]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 86 "######################## ##############################################################" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2018 "a[4]:=(-((((y[5]*x[0]/l*x[ 1]/o-(-y[5]*x[0]/l-y[5]/l*x[1])/o*x[2])/p-((-y[5]*x[0]/l-y[5]/l*x[1])/ o-y[5]/l/o*x[2])/p*x[3])/q-(((-y[5]*x[0]/l-y[5]/l*x[1])/o-y[5]/l/o*x[2 ])/p-y[5]/l/o/p*x[3])/q*x[4])/r-((((-y[5]*x[0]/l-y[5]/l*x[1])/o-y[5]/l /o*x[2])/p-y[5]/l/o/p*x[3])/q-y[5]/l/o/p/q*x[4])/r*x[6])/x-((((y[3]*x[ 0]/d*x[1]/e-(-y[3]*x[0]/d-y[3]/d*x[1])/e*x[2])/f-((-y[3]*x[0]/d-y[3]/d *x[1])/e-y[3]/d/e*x[2])/f*x[4])/K-(((-y[3]*x[0]/d-y[3]/d*x[1])/e-y[3]/ d/e*x[2])/f-y[3]/d/e/f*x[4])/K*x[5])/q-((((-y[3]*x[0]/d-y[3]/d*x[1])/e -y[3]/d/e*x[2])/f-y[3]/d/e/f*x[4])/K-y[3]/d/e/f/K*x[5])/q*x[6])/v+(((( y[6]*x[0]/s*x[1]/t-(-y[6]*x[0]/s-y[6]/s*x[1])/t*x[2])/u-((-y[6]*x[0]/s -y[6]/s*x[1])/t-y[6]/s/t*x[2])/u*x[3])/v-(((-y[6]*x[0]/s-y[6]/s*x[1])/ t-y[6]/s/t*x[2])/u-y[6]/s/t/u*x[3])/v*x[4])/w-((((-y[6]*x[0]/s-y[6]/s* x[1])/t-y[6]/s/t*x[2])/u-y[6]/s/t/u*x[3])/v-y[6]/s/t/u/v*x[4])/w*x[5]) /x+((((y[4]*x[0]/g*x[1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j-((-y[4] *x[0]/g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j*x[3])/K-(((-y[4]*x[0]/g-y[4]/g *x[1])/h-y[4]/g/h*x[2])/j-y[4]/g/h/j*x[3])/K*x[5])/r-((((-y[4]*x[0]/g- y[4]/g*x[1])/h-y[4]/g/h*x[2])/j-y[4]/g/h/j*x[3])/K-y[4]/g/h/j/K*x[5])/ r*x[6])/w+((((y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x[2])/b*x[3])/d- ((-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0]/a/b*x[3])/d*x[4])/g-(((-y[0]*x[1]/a -y[0]/a*x[2])/b-y[0]/a/b*x[3])/d-y[0]/a/b/d*x[4])/g*x[5])/l-((((-y[0]* x[1]/a-y[0]/a*x[2])/b-y[0]/a/b*x[3])/d-y[0]/a/b/d*x[4])/g-y[0]/a/b/d/g *x[5])/l*x[6])/s-((((y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x [3])/e-((-y[1]*x[0]/a-y[1]/a*x[2])/c-y[1]/a/c*x[3])/e*x[4])/h-(((-y[1] *x[0]/a-y[1]/a*x[2])/c-y[1]/a/c*x[3])/e-y[1]/a/c/e*x[4])/h*x[5])/o-((( (-y[1]*x[0]/a-y[1]/a*x[2])/c-y[1]/a/c*x[3])/e-y[1]/a/c/e*x[4])/h-y[1]/ a/c/e/h*x[5])/o*x[6])/t+((((y[2]*x[0]/b*x[1]/c-(-y[2]*x[0]/b-y[2]/b*x[ 1])/c*x[3])/f-((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c*x[3])/f*x[4])/j-( ((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c*x[3])/f-y[2]/b/c/f*x[4])/j*x[5] )/p-((((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c*x[3])/f-y[2]/b/c/f*x[4])/ j-y[2]/b/c/f/j*x[5])/p*x[6])/u):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Zaehler_a[4]:=factor(numer(a[4]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[4]:=factor(denom(a[4]));" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 86 "################################## ####################################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2900 "a[3]:=(-(((-y[5]*x[0]/l*x[1]/o*x[2]/p-( y[5]*x[0]/l*x[1]/o-(-y[5]*x[0]/l-y[5]/l*x[1])/o*x[2])/p*x[3])/q-((y[5] *x[0]/l*x[1]/o-(-y[5]*x[0]/l-y[5]/l*x[1])/o*x[2])/p-((-y[5]*x[0]/l-y[5 ]/l*x[1])/o-y[5]/l/o*x[2])/p*x[3])/q*x[4])/r-(((y[5]*x[0]/l*x[1]/o-(-y [5]*x[0]/l-y[5]/l*x[1])/o*x[2])/p-((-y[5]*x[0]/l-y[5]/l*x[1])/o-y[5]/l /o*x[2])/p*x[3])/q-(((-y[5]*x[0]/l-y[5]/l*x[1])/o-y[5]/l/o*x[2])/p-y[5 ]/l/o/p*x[3])/q*x[4])/r*x[6])/x+(((-y[6]*x[0]/s*x[1]/t*x[2]/u-(y[6]*x[ 0]/s*x[1]/t-(-y[6]*x[0]/s-y[6]/s*x[1])/t*x[2])/u*x[3])/v-((y[6]*x[0]/s *x[1]/t-(-y[6]*x[0]/s-y[6]/s*x[1])/t*x[2])/u-((-y[6]*x[0]/s-y[6]/s*x[1 ])/t-y[6]/s/t*x[2])/u*x[3])/v*x[4])/w-(((y[6]*x[0]/s*x[1]/t-(-y[6]*x[0 ]/s-y[6]/s*x[1])/t*x[2])/u-((-y[6]*x[0]/s-y[6]/s*x[1])/t-y[6]/s/t*x[2] )/u*x[3])/v-(((-y[6]*x[0]/s-y[6]/s*x[1])/t-y[6]/s/t*x[2])/u-y[6]/s/t/u *x[3])/v*x[4])/w*x[5])/x+(((-y[4]*x[0]/g*x[1]/h*x[2]/j-(y[4]*x[0]/g*x[ 1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j*x[3])/K-((y[4]*x[0]/g*x[1]/h -(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j-((-y[4]*x[0]/g-y[4]/g*x[1])/h-y[ 4]/g/h*x[2])/j*x[3])/K*x[5])/r-(((y[4]*x[0]/g*x[1]/h-(-y[4]*x[0]/g-y[4 ]/g*x[1])/h*x[2])/j-((-y[4]*x[0]/g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j*x[3 ])/K-(((-y[4]*x[0]/g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j-y[4]/g/h/j*x[3])/ K*x[5])/r*x[6])/w-(((-y[3]*x[0]/d*x[1]/e*x[2]/f-(y[3]*x[0]/d*x[1]/e-(- y[3]*x[0]/d-y[3]/d*x[1])/e*x[2])/f*x[4])/K-((y[3]*x[0]/d*x[1]/e-(-y[3] *x[0]/d-y[3]/d*x[1])/e*x[2])/f-((-y[3]*x[0]/d-y[3]/d*x[1])/e-y[3]/d/e* x[2])/f*x[4])/K*x[5])/q-(((y[3]*x[0]/d*x[1]/e-(-y[3]*x[0]/d-y[3]/d*x[1 ])/e*x[2])/f-((-y[3]*x[0]/d-y[3]/d*x[1])/e-y[3]/d/e*x[2])/f*x[4])/K-(( (-y[3]*x[0]/d-y[3]/d*x[1])/e-y[3]/d/e*x[2])/f-y[3]/d/e/f*x[4])/K*x[5]) /q*x[6])/v+(((-y[2]*x[0]/b*x[1]/c*x[3]/f-(y[2]*x[0]/b*x[1]/c-(-y[2]*x[ 0]/b-y[2]/b*x[1])/c*x[3])/f*x[4])/j-((y[2]*x[0]/b*x[1]/c-(-y[2]*x[0]/b -y[2]/b*x[1])/c*x[3])/f-((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c*x[3])/f *x[4])/j*x[5])/p-(((y[2]*x[0]/b*x[1]/c-(-y[2]*x[0]/b-y[2]/b*x[1])/c*x[ 3])/f-((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c*x[3])/f*x[4])/j-(((-y[2]* x[0]/b-y[2]/b*x[1])/c-y[2]/b/c*x[3])/f-y[2]/b/c/f*x[4])/j*x[5])/p*x[6] )/u+(((-y[0]*x[1]/a*x[2]/b*x[3]/d-(y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[ 0]/a*x[2])/b*x[3])/d*x[4])/g-((y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a *x[2])/b*x[3])/d-((-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0]/a/b*x[3])/d*x[4])/ g*x[5])/l-(((y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x[2])/b*x[3])/d-( (-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0]/a/b*x[3])/d*x[4])/g-(((-y[0]*x[1]/a- y[0]/a*x[2])/b-y[0]/a/b*x[3])/d-y[0]/a/b/d*x[4])/g*x[5])/l*x[6])/s-((( -y[1]*x[0]/a*x[2]/c*x[3]/e-(y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[ 2])/c*x[3])/e*x[4])/h-((y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/ c*x[3])/e-((-y[1]*x[0]/a-y[1]/a*x[2])/c-y[1]/a/c*x[3])/e*x[4])/h*x[5]) /o-(((y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x[3])/e-((-y[1]* x[0]/a-y[1]/a*x[2])/c-y[1]/a/c*x[3])/e*x[4])/h-(((-y[1]*x[0]/a-y[1]/a* x[2])/c-y[1]/a/c*x[3])/e-y[1]/a/c/e*x[4])/h*x[5])/o*x[6])/t):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Zaehler_a[3]:=(numer(a[3])); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[3]:=factor(den om(a[3]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 86 "################### ###################################################################" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2521 "a[2]:=(((y[4]*x[0]/g*x[1 ]/h*x[2]/j*x[3]/K-(-y[4]*x[0]/g*x[1]/h*x[2]/j-(y[4]*x[0]/g*x[1]/h-(-y[ 4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j*x[3])/K*x[5])/r-((-y[4]*x[0]/g*x[1]/h *x[2]/j-(y[4]*x[0]/g*x[1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j*x[3]) /K-((y[4]*x[0]/g*x[1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j-((-y[4]*x [0]/g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j*x[3])/K*x[5])/r*x[6])/w-((y[5]*x [0]/l*x[1]/o*x[2]/p*x[3]/q-(-y[5]*x[0]/l*x[1]/o*x[2]/p-(y[5]*x[0]/l*x[ 1]/o-(-y[5]*x[0]/l-y[5]/l*x[1])/o*x[2])/p*x[3])/q*x[4])/r-((-y[5]*x[0] /l*x[1]/o*x[2]/p-(y[5]*x[0]/l*x[1]/o-(-y[5]*x[0]/l-y[5]/l*x[1])/o*x[2] )/p*x[3])/q-((y[5]*x[0]/l*x[1]/o-(-y[5]*x[0]/l-y[5]/l*x[1])/o*x[2])/p- ((-y[5]*x[0]/l-y[5]/l*x[1])/o-y[5]/l/o*x[2])/p*x[3])/q*x[4])/r*x[6])/x +((y[6]*x[0]/s*x[1]/t*x[2]/u*x[3]/v-(-y[6]*x[0]/s*x[1]/t*x[2]/u-(y[6]* x[0]/s*x[1]/t-(-y[6]*x[0]/s-y[6]/s*x[1])/t*x[2])/u*x[3])/v*x[4])/w-((- y[6]*x[0]/s*x[1]/t*x[2]/u-(y[6]*x[0]/s*x[1]/t-(-y[6]*x[0]/s-y[6]/s*x[1 ])/t*x[2])/u*x[3])/v-((y[6]*x[0]/s*x[1]/t-(-y[6]*x[0]/s-y[6]/s*x[1])/t *x[2])/u-((-y[6]*x[0]/s-y[6]/s*x[1])/t-y[6]/s/t*x[2])/u*x[3])/v*x[4])/ w*x[5])/x+((y[2]*x[0]/b*x[1]/c*x[3]/f*x[4]/j-(-y[2]*x[0]/b*x[1]/c*x[3] /f-(y[2]*x[0]/b*x[1]/c-(-y[2]*x[0]/b-y[2]/b*x[1])/c*x[3])/f*x[4])/j*x[ 5])/p-((-y[2]*x[0]/b*x[1]/c*x[3]/f-(y[2]*x[0]/b*x[1]/c-(-y[2]*x[0]/b-y [2]/b*x[1])/c*x[3])/f*x[4])/j-((y[2]*x[0]/b*x[1]/c-(-y[2]*x[0]/b-y[2]/ b*x[1])/c*x[3])/f-((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c*x[3])/f*x[4]) /j*x[5])/p*x[6])/u+((y[0]*x[1]/a*x[2]/b*x[3]/d*x[4]/g-(-y[0]*x[1]/a*x[ 2]/b*x[3]/d-(y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x[2])/b*x[3])/d*x [4])/g*x[5])/l-((-y[0]*x[1]/a*x[2]/b*x[3]/d-(y[0]*x[1]/a*x[2]/b-(-y[0] *x[1]/a-y[0]/a*x[2])/b*x[3])/d*x[4])/g-((y[0]*x[1]/a*x[2]/b-(-y[0]*x[1 ]/a-y[0]/a*x[2])/b*x[3])/d-((-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0]/a/b*x[3] )/d*x[4])/g*x[5])/l*x[6])/s-((y[3]*x[0]/d*x[1]/e*x[2]/f*x[4]/K-(-y[3]* x[0]/d*x[1]/e*x[2]/f-(y[3]*x[0]/d*x[1]/e-(-y[3]*x[0]/d-y[3]/d*x[1])/e* x[2])/f*x[4])/K*x[5])/q-((-y[3]*x[0]/d*x[1]/e*x[2]/f-(y[3]*x[0]/d*x[1] /e-(-y[3]*x[0]/d-y[3]/d*x[1])/e*x[2])/f*x[4])/K-((y[3]*x[0]/d*x[1]/e-( -y[3]*x[0]/d-y[3]/d*x[1])/e*x[2])/f-((-y[3]*x[0]/d-y[3]/d*x[1])/e-y[3] /d/e*x[2])/f*x[4])/K*x[5])/q*x[6])/v-((y[1]*x[0]/a*x[2]/c*x[3]/e*x[4]/ h-(-y[1]*x[0]/a*x[2]/c*x[3]/e-(y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a *x[2])/c*x[3])/e*x[4])/h*x[5])/o-((-y[1]*x[0]/a*x[2]/c*x[3]/e-(y[1]*x[ 0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x[3])/e*x[4])/h-((y[1]*x[0]/a *x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x[3])/e-((-y[1]*x[0]/a-y[1]/a*x[2 ])/c-y[1]/a/c*x[3])/e*x[4])/h*x[5])/o*x[6])/t):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 28 "Zaehler_a[2]:=(numer(a[2]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[2]:=factor(denom(a[2]));" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 86 "################################## ####################################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1304 "a[1]:=(-(-y[5]*x[0]/l*x[1]/o*x[2]/p*x[3 ]/q*x[4]/r-(y[5]*x[0]/l*x[1]/o*x[2]/p*x[3]/q-(-y[5]*x[0]/l*x[1]/o*x[2] /p-(y[5]*x[0]/l*x[1]/o-(-y[5]*x[0]/l-y[5]/l*x[1])/o*x[2])/p*x[3])/q*x[ 4])/r*x[6])/x+(-y[4]*x[0]/g*x[1]/h*x[2]/j*x[3]/K*x[5]/r-(y[4]*x[0]/g*x [1]/h*x[2]/j*x[3]/K-(-y[4]*x[0]/g*x[1]/h*x[2]/j-(y[4]*x[0]/g*x[1]/h-(- y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j*x[3])/K*x[5])/r*x[6])/w-(-y[1]*x[0] /a*x[2]/c*x[3]/e*x[4]/h*x[5]/o-(y[1]*x[0]/a*x[2]/c*x[3]/e*x[4]/h-(-y[1 ]*x[0]/a*x[2]/c*x[3]/e-(y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/ c*x[3])/e*x[4])/h*x[5])/o*x[6])/t+(-y[0]*x[1]/a*x[2]/b*x[3]/d*x[4]/g*x [5]/l-(y[0]*x[1]/a*x[2]/b*x[3]/d*x[4]/g-(-y[0]*x[1]/a*x[2]/b*x[3]/d-(y [0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x[2])/b*x[3])/d*x[4])/g*x[5])/l *x[6])/s+(-y[6]*x[0]/s*x[1]/t*x[2]/u*x[3]/v*x[4]/w-(y[6]*x[0]/s*x[1]/t *x[2]/u*x[3]/v-(-y[6]*x[0]/s*x[1]/t*x[2]/u-(y[6]*x[0]/s*x[1]/t-(-y[6]* x[0]/s-y[6]/s*x[1])/t*x[2])/u*x[3])/v*x[4])/w*x[5])/x+(-y[2]*x[0]/b*x[ 1]/c*x[3]/f*x[4]/j*x[5]/p-(y[2]*x[0]/b*x[1]/c*x[3]/f*x[4]/j-(-y[2]*x[0 ]/b*x[1]/c*x[3]/f-(y[2]*x[0]/b*x[1]/c-(-y[2]*x[0]/b-y[2]/b*x[1])/c*x[3 ])/f*x[4])/j*x[5])/p*x[6])/u-(-y[3]*x[0]/d*x[1]/e*x[2]/f*x[4]/K*x[5]/q -(y[3]*x[0]/d*x[1]/e*x[2]/f*x[4]/K-(-y[3]*x[0]/d*x[1]/e*x[2]/f-(y[3]*x [0]/d*x[1]/e-(-y[3]*x[0]/d-y[3]/d*x[1])/e*x[2])/f*x[4])/K*x[5])/q*x[6] )/v):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Zaehler_a[1]:=(num er(a[1]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[1]:= factor(denom(a[1]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 86 "######### ###################################################################### #######" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 338 "a[0]:=(+y[0]*x[ 1]/a*x[2]/b*x[3]/d*x[4]/g*x[5]/l*x[6]/s+y[2]*x[0]/b*x[1]/c*x[3]/f*x[4] /j*x[5]/p*x[6]/u+y[6]*x[0]/s*x[1]/t*x[2]/u*x[3]/v*x[4]/w*x[5]/x-y[1]*x [0]/a*x[2]/c*x[3]/e*x[4]/h*x[5]/o*x[6]/t-y[3]*x[0]/d*x[1]/e*x[2]/f*x[4 ]/K*x[5]/q*x[6]/v-y[5]*x[0]/l*x[1]/o*x[2]/p*x[3]/q*x[4]/r*x[6]/x+y[4]* x[0]/g*x[1]/h*x[2]/j*x[3]/K*x[5]/r*x[6]/w):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Zaehler_a[0]:=(numer(a[0]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[0]:=factor(denom(a[0]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 86 "######################################### #############################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 141 " ###################################################################### ###################################################################### #" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 264 23 "Septische Interpolation" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "n:=7:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 110 "for i from 0 to n do L[i]:=product ((x[m]-x[k])/(a[i]-x[k]),k=0..n) od:L[0]:L[1]:L[2]:L[3]:L[4]:L[5]:L[6] :L[7]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[0]:=subs(a[0]-x [0]=1,L[0]):L[0]:=subs(x[m]-x[0]=1,L[0]):L[0]:=subs(a[0]=x[0],L[0]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[1]:=subs(a[1]-x[1]=1,L[ 1]):L[1]:=subs(x[m]-x[1]=1,L[1]):L[1]:=subs(a[1]=x[1],L[1]);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[2]:=subs(a[2]-x[2]=1,L[2]) :L[2]:=subs(x[m]-x[2]=1,L[2]):L[2]:=subs(a[2]=x[2],L[2]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[3]:=subs(a[3]-x[3]=1,L[3]):L[3]:= subs(x[m]-x[3]=1,L[3]):L[3]:=subs(a[3]=x[3],L[3]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[4]:=subs(a[4]-x[4]=1,L[4]):L[4]:=subs(x[m ]-x[4]=1,L[4]):L[4]:=subs(a[4]=x[4],L[4]);" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 85 "L[5]:=subs(a[5]-x[5]=1,L[5]):L[5]:=subs(x[m]-x[5]=1 ,L[5]):L[5]:=subs(a[5]=x[5],L[5]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[6]:=subs(a[6]-x[6]=1,L[6]):L[6]:=subs(x[m]-x[6]=1,L [6]):L[6]:=subs(a[6]=x[6],L[6]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "L[7]:=subs(a[7]-x[7]=1,L[7]):L[7]:=subs(x[m]-x[7]=1,L [7]):L[7]:=subs(a[7]=x[7],L[7]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 210 "L[0]: =subs(x[0]-x[1]=+a,L[0]):L[0]:=subs(x[0]-x[2]=+b,L[0]):L[0]:=subs(x[0] -x[3]=+d,L[0]):L[0]:=subs(x[0]-x[4]=+g,L[0]):L[0]:=subs(x[0]-x[5]=+l,L [0]):L[0]:=subs(x[0]-x[6]=+s,L[0]):L[0]:=subs(x[0]-x[7]=+y,L[0]):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 210 "L[1]:=subs(x[1]-x[0]=-a,L[1 ]):L[1]:=subs(x[1]-x[2]=+c,L[1]):L[1]:=subs(x[1]-x[3]=+e,L[1]):L[1]:=s ubs(x[1]-x[4]=+h,L[1]):L[1]:=subs(x[1]-x[5]=+o,L[1]):L[1]:=subs(x[1]-x [6]=+t,L[1]):L[1]:=subs(x[1]-x[7]=+z,L[1]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 210 "L[2]:=subs(x[2]-x[0]=-b,L[2]):L[2]:=subs(x[2]-x[1 ]=-c,L[2]):L[2]:=subs(x[2]-x[3]=+f,L[2]):L[2]:=subs(x[2]-x[4]=+j,L[2]) :L[2]:=subs(x[2]-x[5]=+p,L[2]):L[2]:=subs(x[2]-x[6]=+u,L[2]):L[2]:=sub s(x[2]-x[7]=+A,L[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 210 "L [3]:=subs(x[3]-x[0]=-d,L[3]):L[3]:=subs(x[3]-x[1]=-e,L[3]):L[3]:=subs( x[3]-x[2]=-f,L[3]):L[3]:=subs(x[3]-x[4]=+K,L[3]):L[3]:=subs(x[3]-x[5]= +q,L[3]):L[3]:=subs(x[3]-x[6]=+v,L[3]):L[3]:=subs(x[3]-x[7]=+B,L[3]): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 210 "L[4]:=subs(x[4]-x[0]=- g,L[4]):L[4]:=subs(x[4]-x[1]=-h,L[4]):L[4]:=subs(x[4]-x[2]=-j,L[4]):L[ 4]:=subs(x[4]-x[3]=-K,L[4]):L[4]:=subs(x[4]-x[5]=+r,L[4]):L[4]:=subs(x [4]-x[6]=+w,L[4]):L[4]:=subs(x[4]-x[7]=+C,L[4]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 210 "L[5]:=subs(x[5]-x[0]=-l,L[5]):L[5]:=subs(x[5 ]-x[1]=-o,L[5]):L[5]:=subs(x[5]-x[2]=-p,L[5]):L[5]:=subs(x[5]-x[3]=-q, L[5]):L[5]:=subs(x[5]-x[4]=-r,L[5]):L[5]:=subs(x[5]-x[6]=+x,L[5]):L[5] :=subs(x[5]-x[7]=+D,L[5]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 210 "L[6]:=subs(x[6]-x[0]=-s,L[6]):L[6]:=subs(x[6]-x[1]=-t,L[6]):L[6]: =subs(x[6]-x[2]=-u,L[6]):L[6]:=subs(x[6]-x[3]=-v,L[6]):L[6]:=subs(x[6] -x[4]=-w,L[6]):L[6]:=subs(x[6]-x[5]=-x,L[6]):L[6]:=subs(x[6]-x[7]=+F,L [6]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 210 "L[7]:=subs(x[7]-x [0]=-y,L[7]):L[7]:=subs(x[7]-x[1]=-z,L[7]):L[7]:=subs(x[7]-x[2]=-A,L[7 ]):L[7]:=subs(x[7]-x[3]=-B,L[7]):L[7]:=subs(x[7]-x[4]=-C,L[7]):L[7]:=s ubs(x[7]-x[5]=-D,L[7]):L[7]:=subs(x[7]-x[6]=-F,L[7]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "expr_7:=y[0]*L[0]+y[1]*L[1]+y[2]*L[2]+y[3]*L[3]+y[4]* L[4]+y[5]*L[5]+y[6]*L[6]+y[7]*L[7]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 102 "expr_ 7:=collect(y[0]*L[0]+y[1]*L[1]+y[2]*L[2]+y[3]*L[3]+y[4]*L[4]+y[5]*L[5] +y[6]*L[6]+y[7]*L[7],x[m]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 79 "######################### ######################################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 160 "a[7]:=(y[6]/s/t/u/v/w/x/F+y[4]/g/h /j/K/r/w/C-y[1]/a/c/e/h/o/t/z+y[0]/a/b/d/g/l/s/y-y[5]/l/o/p/q/r/x/D-y[ 3]/d/e/f/K/q/v/B+y[2]/b/c/f/j/p/u/A-y[7]/y/z/A/B/C/D/F):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Zaehler_a[7]:=(numer(a[7]));" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[7]:=factor(denom(a[ 7]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 79 "######################## #######################################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1120 "a[6]:=(((((((-y[6]*x[0]/s-y[6]/s* x[1])/t-y[6]/s/t*x[2])/u-y[6]/s/t/u*x[3])/v-y[6]/s/t/u/v*x[4])/w-y[6]/ s/t/u/v/w*x[5])/x-y[6]/s/t/u/v/w/x*x[7])/F-((((((-y[7]*x[0]/y-y[7]/y*x [1])/z-y[7]/y/z*x[2])/A-y[7]/y/z/A*x[3])/B-y[7]/y/z/A/B*x[4])/C-y[7]/y /z/A/B/C*x[5])/D-y[7]/y/z/A/B/C/D*x[6])/F-((((((-y[5]*x[0]/l-y[5]/l*x[ 1])/o-y[5]/l/o*x[2])/p-y[5]/l/o/p*x[3])/q-y[5]/l/o/p/q*x[4])/r-y[5]/l/ o/p/q/r*x[6])/x-y[5]/l/o/p/q/r/x*x[7])/D+((((((-y[4]*x[0]/g-y[4]/g*x[1 ])/h-y[4]/g/h*x[2])/j-y[4]/g/h/j*x[3])/K-y[4]/g/h/j/K*x[5])/r-y[4]/g/h /j/K/r*x[6])/w-y[4]/g/h/j/K/r/w*x[7])/C-((((((-y[3]*x[0]/d-y[3]/d*x[1] )/e-y[3]/d/e*x[2])/f-y[3]/d/e/f*x[4])/K-y[3]/d/e/f/K*x[5])/q-y[3]/d/e/ f/K/q*x[6])/v-y[3]/d/e/f/K/q/v*x[7])/B-((((((-y[1]*x[0]/a-y[1]/a*x[2]) /c-y[1]/a/c*x[3])/e-y[1]/a/c/e*x[4])/h-y[1]/a/c/e/h*x[5])/o-y[1]/a/c/e /h/o*x[6])/t-y[1]/a/c/e/h/o/t*x[7])/z+((((((-y[0]*x[1]/a-y[0]/a*x[2])/ b-y[0]/a/b*x[3])/d-y[0]/a/b/d*x[4])/g-y[0]/a/b/d/g*x[5])/l-y[0]/a/b/d/ g/l*x[6])/s-y[0]/a/b/d/g/l/s*x[7])/y+((((((-y[2]*x[0]/b-y[2]/b*x[1])/c -y[2]/b/c*x[3])/f-y[2]/b/c/f*x[4])/j-y[2]/b/c/f/j*x[5])/p-y[2]/b/c/f/j /p*x[6])/u-y[2]/b/c/f/j/p/u*x[7])/A):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Zaehler_a[6]:=(numer(a[6]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[6]:=factor(denom(a[6]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 79 "######################################### ######################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3280 "a[5]:=((((((y[6]*x[0]/s*x[1]/t-(-y[6]*x[0]/s-y[6]/s *x[1])/t*x[2])/u-((-y[6]*x[0]/s-y[6]/s*x[1])/t-y[6]/s/t*x[2])/u*x[3])/ v-(((-y[6]*x[0]/s-y[6]/s*x[1])/t-y[6]/s/t*x[2])/u-y[6]/s/t/u*x[3])/v*x [4])/w-((((-y[6]*x[0]/s-y[6]/s*x[1])/t-y[6]/s/t*x[2])/u-y[6]/s/t/u*x[3 ])/v-y[6]/s/t/u/v*x[4])/w*x[5])/x-(((((-y[6]*x[0]/s-y[6]/s*x[1])/t-y[6 ]/s/t*x[2])/u-y[6]/s/t/u*x[3])/v-y[6]/s/t/u/v*x[4])/w-y[6]/s/t/u/v/w*x [5])/x*x[7])/F-(((((y[5]*x[0]/l*x[1]/o-(-y[5]*x[0]/l-y[5]/l*x[1])/o*x[ 2])/p-((-y[5]*x[0]/l-y[5]/l*x[1])/o-y[5]/l/o*x[2])/p*x[3])/q-(((-y[5]* x[0]/l-y[5]/l*x[1])/o-y[5]/l/o*x[2])/p-y[5]/l/o/p*x[3])/q*x[4])/r-(((( -y[5]*x[0]/l-y[5]/l*x[1])/o-y[5]/l/o*x[2])/p-y[5]/l/o/p*x[3])/q-y[5]/l /o/p/q*x[4])/r*x[6])/x-(((((-y[5]*x[0]/l-y[5]/l*x[1])/o-y[5]/l/o*x[2]) /p-y[5]/l/o/p*x[3])/q-y[5]/l/o/p/q*x[4])/r-y[5]/l/o/p/q/r*x[6])/x*x[7] )/D-(((((y[3]*x[0]/d*x[1]/e-(-y[3]*x[0]/d-y[3]/d*x[1])/e*x[2])/f-((-y[ 3]*x[0]/d-y[3]/d*x[1])/e-y[3]/d/e*x[2])/f*x[4])/K-(((-y[3]*x[0]/d-y[3] /d*x[1])/e-y[3]/d/e*x[2])/f-y[3]/d/e/f*x[4])/K*x[5])/q-((((-y[3]*x[0]/ d-y[3]/d*x[1])/e-y[3]/d/e*x[2])/f-y[3]/d/e/f*x[4])/K-y[3]/d/e/f/K*x[5] )/q*x[6])/v-(((((-y[3]*x[0]/d-y[3]/d*x[1])/e-y[3]/d/e*x[2])/f-y[3]/d/e /f*x[4])/K-y[3]/d/e/f/K*x[5])/q-y[3]/d/e/f/K/q*x[6])/v*x[7])/B-(((((y[ 1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x[3])/e-((-y[1]*x[0]/a-y [1]/a*x[2])/c-y[1]/a/c*x[3])/e*x[4])/h-(((-y[1]*x[0]/a-y[1]/a*x[2])/c- y[1]/a/c*x[3])/e-y[1]/a/c/e*x[4])/h*x[5])/o-((((-y[1]*x[0]/a-y[1]/a*x[ 2])/c-y[1]/a/c*x[3])/e-y[1]/a/c/e*x[4])/h-y[1]/a/c/e/h*x[5])/o*x[6])/t -(((((-y[1]*x[0]/a-y[1]/a*x[2])/c-y[1]/a/c*x[3])/e-y[1]/a/c/e*x[4])/h- y[1]/a/c/e/h*x[5])/o-y[1]/a/c/e/h/o*x[6])/t*x[7])/z+(((((y[0]*x[1]/a*x [2]/b-(-y[0]*x[1]/a-y[0]/a*x[2])/b*x[3])/d-((-y[0]*x[1]/a-y[0]/a*x[2]) /b-y[0]/a/b*x[3])/d*x[4])/g-(((-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0]/a/b*x[ 3])/d-y[0]/a/b/d*x[4])/g*x[5])/l-((((-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0]/ a/b*x[3])/d-y[0]/a/b/d*x[4])/g-y[0]/a/b/d/g*x[5])/l*x[6])/s-(((((-y[0] *x[1]/a-y[0]/a*x[2])/b-y[0]/a/b*x[3])/d-y[0]/a/b/d*x[4])/g-y[0]/a/b/d/ g*x[5])/l-y[0]/a/b/d/g/l*x[6])/s*x[7])/y+(((((y[4]*x[0]/g*x[1]/h-(-y[4 ]*x[0]/g-y[4]/g*x[1])/h*x[2])/j-((-y[4]*x[0]/g-y[4]/g*x[1])/h-y[4]/g/h *x[2])/j*x[3])/K-(((-y[4]*x[0]/g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j-y[4]/ g/h/j*x[3])/K*x[5])/r-((((-y[4]*x[0]/g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j -y[4]/g/h/j*x[3])/K-y[4]/g/h/j/K*x[5])/r*x[6])/w-(((((-y[4]*x[0]/g-y[4 ]/g*x[1])/h-y[4]/g/h*x[2])/j-y[4]/g/h/j*x[3])/K-y[4]/g/h/j/K*x[5])/r-y [4]/g/h/j/K/r*x[6])/w*x[7])/C+(((((y[2]*x[0]/b*x[1]/c-(-y[2]*x[0]/b-y[ 2]/b*x[1])/c*x[3])/f-((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c*x[3])/f*x[ 4])/j-(((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c*x[3])/f-y[2]/b/c/f*x[4]) /j*x[5])/p-((((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c*x[3])/f-y[2]/b/c/f *x[4])/j-y[2]/b/c/f/j*x[5])/p*x[6])/u-(((((-y[2]*x[0]/b-y[2]/b*x[1])/c -y[2]/b/c*x[3])/f-y[2]/b/c/f*x[4])/j-y[2]/b/c/f/j*x[5])/p-y[2]/b/c/f/j /p*x[6])/u*x[7])/A-(((((y[7]*x[0]/y*x[1]/z-(-y[7]*x[0]/y-y[7]/y*x[1])/ z*x[2])/A-((-y[7]*x[0]/y-y[7]/y*x[1])/z-y[7]/y/z*x[2])/A*x[3])/B-(((-y [7]*x[0]/y-y[7]/y*x[1])/z-y[7]/y/z*x[2])/A-y[7]/y/z/A*x[3])/B*x[4])/C- ((((-y[7]*x[0]/y-y[7]/y*x[1])/z-y[7]/y/z*x[2])/A-y[7]/y/z/A*x[3])/B-y[ 7]/y/z/A/B*x[4])/C*x[5])/D-(((((-y[7]*x[0]/y-y[7]/y*x[1])/z-y[7]/y/z*x [2])/A-y[7]/y/z/A*x[3])/B-y[7]/y/z/A/B*x[4])/C-y[7]/y/z/A/B/C*x[5])/D* x[6])/F):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Zaehler_a[5]:= (numer(a[5]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[ 5]:=factor(denom(a[5]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 79 "##### ###################################################################### ####" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5680 "a[4]:=(((((-y[6]* x[0]/s*x[1]/t*x[2]/u-(y[6]*x[0]/s*x[1]/t-(-y[6]*x[0]/s-y[6]/s*x[1])/t* x[2])/u*x[3])/v-((y[6]*x[0]/s*x[1]/t-(-y[6]*x[0]/s-y[6]/s*x[1])/t*x[2] )/u-((-y[6]*x[0]/s-y[6]/s*x[1])/t-y[6]/s/t*x[2])/u*x[3])/v*x[4])/w-((( y[6]*x[0]/s*x[1]/t-(-y[6]*x[0]/s-y[6]/s*x[1])/t*x[2])/u-((-y[6]*x[0]/s -y[6]/s*x[1])/t-y[6]/s/t*x[2])/u*x[3])/v-(((-y[6]*x[0]/s-y[6]/s*x[1])/ t-y[6]/s/t*x[2])/u-y[6]/s/t/u*x[3])/v*x[4])/w*x[5])/x-((((y[6]*x[0]/s* x[1]/t-(-y[6]*x[0]/s-y[6]/s*x[1])/t*x[2])/u-((-y[6]*x[0]/s-y[6]/s*x[1] )/t-y[6]/s/t*x[2])/u*x[3])/v-(((-y[6]*x[0]/s-y[6]/s*x[1])/t-y[6]/s/t*x [2])/u-y[6]/s/t/u*x[3])/v*x[4])/w-((((-y[6]*x[0]/s-y[6]/s*x[1])/t-y[6] /s/t*x[2])/u-y[6]/s/t/u*x[3])/v-y[6]/s/t/u/v*x[4])/w*x[5])/x*x[7])/F-( (((-y[3]*x[0]/d*x[1]/e*x[2]/f-(y[3]*x[0]/d*x[1]/e-(-y[3]*x[0]/d-y[3]/d *x[1])/e*x[2])/f*x[4])/K-((y[3]*x[0]/d*x[1]/e-(-y[3]*x[0]/d-y[3]/d*x[1 ])/e*x[2])/f-((-y[3]*x[0]/d-y[3]/d*x[1])/e-y[3]/d/e*x[2])/f*x[4])/K*x[ 5])/q-(((y[3]*x[0]/d*x[1]/e-(-y[3]*x[0]/d-y[3]/d*x[1])/e*x[2])/f-((-y[ 3]*x[0]/d-y[3]/d*x[1])/e-y[3]/d/e*x[2])/f*x[4])/K-(((-y[3]*x[0]/d-y[3] /d*x[1])/e-y[3]/d/e*x[2])/f-y[3]/d/e/f*x[4])/K*x[5])/q*x[6])/v-((((y[3 ]*x[0]/d*x[1]/e-(-y[3]*x[0]/d-y[3]/d*x[1])/e*x[2])/f-((-y[3]*x[0]/d-y[ 3]/d*x[1])/e-y[3]/d/e*x[2])/f*x[4])/K-(((-y[3]*x[0]/d-y[3]/d*x[1])/e-y [3]/d/e*x[2])/f-y[3]/d/e/f*x[4])/K*x[5])/q-((((-y[3]*x[0]/d-y[3]/d*x[1 ])/e-y[3]/d/e*x[2])/f-y[3]/d/e/f*x[4])/K-y[3]/d/e/f/K*x[5])/q*x[6])/v* x[7])/B-((((-y[7]*x[0]/y*x[1]/z*x[2]/A-(y[7]*x[0]/y*x[1]/z-(-y[7]*x[0] /y-y[7]/y*x[1])/z*x[2])/A*x[3])/B-((y[7]*x[0]/y*x[1]/z-(-y[7]*x[0]/y-y [7]/y*x[1])/z*x[2])/A-((-y[7]*x[0]/y-y[7]/y*x[1])/z-y[7]/y/z*x[2])/A*x [3])/B*x[4])/C-(((y[7]*x[0]/y*x[1]/z-(-y[7]*x[0]/y-y[7]/y*x[1])/z*x[2] )/A-((-y[7]*x[0]/y-y[7]/y*x[1])/z-y[7]/y/z*x[2])/A*x[3])/B-(((-y[7]*x[ 0]/y-y[7]/y*x[1])/z-y[7]/y/z*x[2])/A-y[7]/y/z/A*x[3])/B*x[4])/C*x[5])/ D-((((y[7]*x[0]/y*x[1]/z-(-y[7]*x[0]/y-y[7]/y*x[1])/z*x[2])/A-((-y[7]* x[0]/y-y[7]/y*x[1])/z-y[7]/y/z*x[2])/A*x[3])/B-(((-y[7]*x[0]/y-y[7]/y* x[1])/z-y[7]/y/z*x[2])/A-y[7]/y/z/A*x[3])/B*x[4])/C-((((-y[7]*x[0]/y-y [7]/y*x[1])/z-y[7]/y/z*x[2])/A-y[7]/y/z/A*x[3])/B-y[7]/y/z/A/B*x[4])/C *x[5])/D*x[6])/F-((((-y[5]*x[0]/l*x[1]/o*x[2]/p-(y[5]*x[0]/l*x[1]/o-(- y[5]*x[0]/l-y[5]/l*x[1])/o*x[2])/p*x[3])/q-((y[5]*x[0]/l*x[1]/o-(-y[5] *x[0]/l-y[5]/l*x[1])/o*x[2])/p-((-y[5]*x[0]/l-y[5]/l*x[1])/o-y[5]/l/o* x[2])/p*x[3])/q*x[4])/r-(((y[5]*x[0]/l*x[1]/o-(-y[5]*x[0]/l-y[5]/l*x[1 ])/o*x[2])/p-((-y[5]*x[0]/l-y[5]/l*x[1])/o-y[5]/l/o*x[2])/p*x[3])/q-(( (-y[5]*x[0]/l-y[5]/l*x[1])/o-y[5]/l/o*x[2])/p-y[5]/l/o/p*x[3])/q*x[4]) /r*x[6])/x-((((y[5]*x[0]/l*x[1]/o-(-y[5]*x[0]/l-y[5]/l*x[1])/o*x[2])/p -((-y[5]*x[0]/l-y[5]/l*x[1])/o-y[5]/l/o*x[2])/p*x[3])/q-(((-y[5]*x[0]/ l-y[5]/l*x[1])/o-y[5]/l/o*x[2])/p-y[5]/l/o/p*x[3])/q*x[4])/r-((((-y[5] *x[0]/l-y[5]/l*x[1])/o-y[5]/l/o*x[2])/p-y[5]/l/o/p*x[3])/q-y[5]/l/o/p/ q*x[4])/r*x[6])/x*x[7])/D+((((-y[4]*x[0]/g*x[1]/h*x[2]/j-(y[4]*x[0]/g* x[1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j*x[3])/K-((y[4]*x[0]/g*x[1] /h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j-((-y[4]*x[0]/g-y[4]/g*x[1])/h- y[4]/g/h*x[2])/j*x[3])/K*x[5])/r-(((y[4]*x[0]/g*x[1]/h-(-y[4]*x[0]/g-y [4]/g*x[1])/h*x[2])/j-((-y[4]*x[0]/g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j*x [3])/K-(((-y[4]*x[0]/g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j-y[4]/g/h/j*x[3] )/K*x[5])/r*x[6])/w-((((y[4]*x[0]/g*x[1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/ h*x[2])/j-((-y[4]*x[0]/g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j*x[3])/K-(((-y [4]*x[0]/g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j-y[4]/g/h/j*x[3])/K*x[5])/r- ((((-y[4]*x[0]/g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j-y[4]/g/h/j*x[3])/K-y[ 4]/g/h/j/K*x[5])/r*x[6])/w*x[7])/C+((((-y[2]*x[0]/b*x[1]/c*x[3]/f-(y[2 ]*x[0]/b*x[1]/c-(-y[2]*x[0]/b-y[2]/b*x[1])/c*x[3])/f*x[4])/j-((y[2]*x[ 0]/b*x[1]/c-(-y[2]*x[0]/b-y[2]/b*x[1])/c*x[3])/f-((-y[2]*x[0]/b-y[2]/b *x[1])/c-y[2]/b/c*x[3])/f*x[4])/j*x[5])/p-(((y[2]*x[0]/b*x[1]/c-(-y[2] *x[0]/b-y[2]/b*x[1])/c*x[3])/f-((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c* x[3])/f*x[4])/j-(((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c*x[3])/f-y[2]/b /c/f*x[4])/j*x[5])/p*x[6])/u-((((y[2]*x[0]/b*x[1]/c-(-y[2]*x[0]/b-y[2] /b*x[1])/c*x[3])/f-((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c*x[3])/f*x[4] )/j-(((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c*x[3])/f-y[2]/b/c/f*x[4])/j *x[5])/p-((((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c*x[3])/f-y[2]/b/c/f*x [4])/j-y[2]/b/c/f/j*x[5])/p*x[6])/u*x[7])/A-((((-y[1]*x[0]/a*x[2]/c*x[ 3]/e-(y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x[3])/e*x[4])/h- ((y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x[3])/e-((-y[1]*x[0] /a-y[1]/a*x[2])/c-y[1]/a/c*x[3])/e*x[4])/h*x[5])/o-(((y[1]*x[0]/a*x[2] /c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x[3])/e-((-y[1]*x[0]/a-y[1]/a*x[2])/c- y[1]/a/c*x[3])/e*x[4])/h-(((-y[1]*x[0]/a-y[1]/a*x[2])/c-y[1]/a/c*x[3]) /e-y[1]/a/c/e*x[4])/h*x[5])/o*x[6])/t-((((y[1]*x[0]/a*x[2]/c-(-y[1]*x[ 0]/a-y[1]/a*x[2])/c*x[3])/e-((-y[1]*x[0]/a-y[1]/a*x[2])/c-y[1]/a/c*x[3 ])/e*x[4])/h-(((-y[1]*x[0]/a-y[1]/a*x[2])/c-y[1]/a/c*x[3])/e-y[1]/a/c/ e*x[4])/h*x[5])/o-((((-y[1]*x[0]/a-y[1]/a*x[2])/c-y[1]/a/c*x[3])/e-y[1 ]/a/c/e*x[4])/h-y[1]/a/c/e/h*x[5])/o*x[6])/t*x[7])/z+((((-y[0]*x[1]/a* x[2]/b*x[3]/d-(y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x[2])/b*x[3])/d *x[4])/g-((y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x[2])/b*x[3])/d-((- y[0]*x[1]/a-y[0]/a*x[2])/b-y[0]/a/b*x[3])/d*x[4])/g*x[5])/l-(((y[0]*x[ 1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x[2])/b*x[3])/d-((-y[0]*x[1]/a-y[0]/a *x[2])/b-y[0]/a/b*x[3])/d*x[4])/g-(((-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0]/ a/b*x[3])/d-y[0]/a/b/d*x[4])/g*x[5])/l*x[6])/s-((((y[0]*x[1]/a*x[2]/b- (-y[0]*x[1]/a-y[0]/a*x[2])/b*x[3])/d-((-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0 ]/a/b*x[3])/d*x[4])/g-(((-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0]/a/b*x[3])/d- y[0]/a/b/d*x[4])/g*x[5])/l-((((-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0]/a/b*x[ 3])/d-y[0]/a/b/d*x[4])/g-y[0]/a/b/d/g*x[5])/l*x[6])/s*x[7])/y):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Zaehler_a[4]:=(numer(a[4])); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[4]:=factor(den om(a[4]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 79 "################### ############################################################" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6257 "a[3]:=(-(((y[7]*x[0]/y*x[1 ]/z*x[2]/A*x[3]/B-(-y[7]*x[0]/y*x[1]/z*x[2]/A-(y[7]*x[0]/y*x[1]/z-(-y[ 7]*x[0]/y-y[7]/y*x[1])/z*x[2])/A*x[3])/B*x[4])/C-((-y[7]*x[0]/y*x[1]/z *x[2]/A-(y[7]*x[0]/y*x[1]/z-(-y[7]*x[0]/y-y[7]/y*x[1])/z*x[2])/A*x[3]) /B-((y[7]*x[0]/y*x[1]/z-(-y[7]*x[0]/y-y[7]/y*x[1])/z*x[2])/A-((-y[7]*x [0]/y-y[7]/y*x[1])/z-y[7]/y/z*x[2])/A*x[3])/B*x[4])/C*x[5])/D-(((-y[7] *x[0]/y*x[1]/z*x[2]/A-(y[7]*x[0]/y*x[1]/z-(-y[7]*x[0]/y-y[7]/y*x[1])/z *x[2])/A*x[3])/B-((y[7]*x[0]/y*x[1]/z-(-y[7]*x[0]/y-y[7]/y*x[1])/z*x[2 ])/A-((-y[7]*x[0]/y-y[7]/y*x[1])/z-y[7]/y/z*x[2])/A*x[3])/B*x[4])/C-(( (y[7]*x[0]/y*x[1]/z-(-y[7]*x[0]/y-y[7]/y*x[1])/z*x[2])/A-((-y[7]*x[0]/ y-y[7]/y*x[1])/z-y[7]/y/z*x[2])/A*x[3])/B-(((-y[7]*x[0]/y-y[7]/y*x[1]) /z-y[7]/y/z*x[2])/A-y[7]/y/z/A*x[3])/B*x[4])/C*x[5])/D*x[6])/F+(((y[6] *x[0]/s*x[1]/t*x[2]/u*x[3]/v-(-y[6]*x[0]/s*x[1]/t*x[2]/u-(y[6]*x[0]/s* x[1]/t-(-y[6]*x[0]/s-y[6]/s*x[1])/t*x[2])/u*x[3])/v*x[4])/w-((-y[6]*x[ 0]/s*x[1]/t*x[2]/u-(y[6]*x[0]/s*x[1]/t-(-y[6]*x[0]/s-y[6]/s*x[1])/t*x[ 2])/u*x[3])/v-((y[6]*x[0]/s*x[1]/t-(-y[6]*x[0]/s-y[6]/s*x[1])/t*x[2])/ u-((-y[6]*x[0]/s-y[6]/s*x[1])/t-y[6]/s/t*x[2])/u*x[3])/v*x[4])/w*x[5]) /x-(((-y[6]*x[0]/s*x[1]/t*x[2]/u-(y[6]*x[0]/s*x[1]/t-(-y[6]*x[0]/s-y[6 ]/s*x[1])/t*x[2])/u*x[3])/v-((y[6]*x[0]/s*x[1]/t-(-y[6]*x[0]/s-y[6]/s* x[1])/t*x[2])/u-((-y[6]*x[0]/s-y[6]/s*x[1])/t-y[6]/s/t*x[2])/u*x[3])/v *x[4])/w-(((y[6]*x[0]/s*x[1]/t-(-y[6]*x[0]/s-y[6]/s*x[1])/t*x[2])/u-(( -y[6]*x[0]/s-y[6]/s*x[1])/t-y[6]/s/t*x[2])/u*x[3])/v-(((-y[6]*x[0]/s-y [6]/s*x[1])/t-y[6]/s/t*x[2])/u-y[6]/s/t/u*x[3])/v*x[4])/w*x[5])/x*x[7] )/F-(((y[5]*x[0]/l*x[1]/o*x[2]/p*x[3]/q-(-y[5]*x[0]/l*x[1]/o*x[2]/p-(y [5]*x[0]/l*x[1]/o-(-y[5]*x[0]/l-y[5]/l*x[1])/o*x[2])/p*x[3])/q*x[4])/r -((-y[5]*x[0]/l*x[1]/o*x[2]/p-(y[5]*x[0]/l*x[1]/o-(-y[5]*x[0]/l-y[5]/l *x[1])/o*x[2])/p*x[3])/q-((y[5]*x[0]/l*x[1]/o-(-y[5]*x[0]/l-y[5]/l*x[1 ])/o*x[2])/p-((-y[5]*x[0]/l-y[5]/l*x[1])/o-y[5]/l/o*x[2])/p*x[3])/q*x[ 4])/r*x[6])/x-(((-y[5]*x[0]/l*x[1]/o*x[2]/p-(y[5]*x[0]/l*x[1]/o-(-y[5] *x[0]/l-y[5]/l*x[1])/o*x[2])/p*x[3])/q-((y[5]*x[0]/l*x[1]/o-(-y[5]*x[0 ]/l-y[5]/l*x[1])/o*x[2])/p-((-y[5]*x[0]/l-y[5]/l*x[1])/o-y[5]/l/o*x[2] )/p*x[3])/q*x[4])/r-(((y[5]*x[0]/l*x[1]/o-(-y[5]*x[0]/l-y[5]/l*x[1])/o *x[2])/p-((-y[5]*x[0]/l-y[5]/l*x[1])/o-y[5]/l/o*x[2])/p*x[3])/q-(((-y[ 5]*x[0]/l-y[5]/l*x[1])/o-y[5]/l/o*x[2])/p-y[5]/l/o/p*x[3])/q*x[4])/r*x [6])/x*x[7])/D-(((y[3]*x[0]/d*x[1]/e*x[2]/f*x[4]/K-(-y[3]*x[0]/d*x[1]/ e*x[2]/f-(y[3]*x[0]/d*x[1]/e-(-y[3]*x[0]/d-y[3]/d*x[1])/e*x[2])/f*x[4] )/K*x[5])/q-((-y[3]*x[0]/d*x[1]/e*x[2]/f-(y[3]*x[0]/d*x[1]/e-(-y[3]*x[ 0]/d-y[3]/d*x[1])/e*x[2])/f*x[4])/K-((y[3]*x[0]/d*x[1]/e-(-y[3]*x[0]/d -y[3]/d*x[1])/e*x[2])/f-((-y[3]*x[0]/d-y[3]/d*x[1])/e-y[3]/d/e*x[2])/f *x[4])/K*x[5])/q*x[6])/v-(((-y[3]*x[0]/d*x[1]/e*x[2]/f-(y[3]*x[0]/d*x[ 1]/e-(-y[3]*x[0]/d-y[3]/d*x[1])/e*x[2])/f*x[4])/K-((y[3]*x[0]/d*x[1]/e -(-y[3]*x[0]/d-y[3]/d*x[1])/e*x[2])/f-((-y[3]*x[0]/d-y[3]/d*x[1])/e-y[ 3]/d/e*x[2])/f*x[4])/K*x[5])/q-(((y[3]*x[0]/d*x[1]/e-(-y[3]*x[0]/d-y[3 ]/d*x[1])/e*x[2])/f-((-y[3]*x[0]/d-y[3]/d*x[1])/e-y[3]/d/e*x[2])/f*x[4 ])/K-(((-y[3]*x[0]/d-y[3]/d*x[1])/e-y[3]/d/e*x[2])/f-y[3]/d/e/f*x[4])/ K*x[5])/q*x[6])/v*x[7])/B+(((y[2]*x[0]/b*x[1]/c*x[3]/f*x[4]/j-(-y[2]*x [0]/b*x[1]/c*x[3]/f-(y[2]*x[0]/b*x[1]/c-(-y[2]*x[0]/b-y[2]/b*x[1])/c*x [3])/f*x[4])/j*x[5])/p-((-y[2]*x[0]/b*x[1]/c*x[3]/f-(y[2]*x[0]/b*x[1]/ c-(-y[2]*x[0]/b-y[2]/b*x[1])/c*x[3])/f*x[4])/j-((y[2]*x[0]/b*x[1]/c-(- y[2]*x[0]/b-y[2]/b*x[1])/c*x[3])/f-((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/ b/c*x[3])/f*x[4])/j*x[5])/p*x[6])/u-(((-y[2]*x[0]/b*x[1]/c*x[3]/f-(y[2 ]*x[0]/b*x[1]/c-(-y[2]*x[0]/b-y[2]/b*x[1])/c*x[3])/f*x[4])/j-((y[2]*x[ 0]/b*x[1]/c-(-y[2]*x[0]/b-y[2]/b*x[1])/c*x[3])/f-((-y[2]*x[0]/b-y[2]/b *x[1])/c-y[2]/b/c*x[3])/f*x[4])/j*x[5])/p-(((y[2]*x[0]/b*x[1]/c-(-y[2] *x[0]/b-y[2]/b*x[1])/c*x[3])/f-((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c* x[3])/f*x[4])/j-(((-y[2]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c*x[3])/f-y[2]/b /c/f*x[4])/j*x[5])/p*x[6])/u*x[7])/A+(((y[0]*x[1]/a*x[2]/b*x[3]/d*x[4] /g-(-y[0]*x[1]/a*x[2]/b*x[3]/d-(y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/ a*x[2])/b*x[3])/d*x[4])/g*x[5])/l-((-y[0]*x[1]/a*x[2]/b*x[3]/d-(y[0]*x [1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x[2])/b*x[3])/d*x[4])/g-((y[0]*x[1]/ a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x[2])/b*x[3])/d-((-y[0]*x[1]/a-y[0]/a*x[ 2])/b-y[0]/a/b*x[3])/d*x[4])/g*x[5])/l*x[6])/s-(((-y[0]*x[1]/a*x[2]/b* x[3]/d-(y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x[2])/b*x[3])/d*x[4])/ g-((y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x[2])/b*x[3])/d-((-y[0]*x[ 1]/a-y[0]/a*x[2])/b-y[0]/a/b*x[3])/d*x[4])/g*x[5])/l-(((y[0]*x[1]/a*x[ 2]/b-(-y[0]*x[1]/a-y[0]/a*x[2])/b*x[3])/d-((-y[0]*x[1]/a-y[0]/a*x[2])/ b-y[0]/a/b*x[3])/d*x[4])/g-(((-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0]/a/b*x[3 ])/d-y[0]/a/b/d*x[4])/g*x[5])/l*x[6])/s*x[7])/y+(((y[4]*x[0]/g*x[1]/h* x[2]/j*x[3]/K-(-y[4]*x[0]/g*x[1]/h*x[2]/j-(y[4]*x[0]/g*x[1]/h-(-y[4]*x [0]/g-y[4]/g*x[1])/h*x[2])/j*x[3])/K*x[5])/r-((-y[4]*x[0]/g*x[1]/h*x[2 ]/j-(y[4]*x[0]/g*x[1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j*x[3])/K-( (y[4]*x[0]/g*x[1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j-((-y[4]*x[0]/ g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j*x[3])/K*x[5])/r*x[6])/w-(((-y[4]*x[0 ]/g*x[1]/h*x[2]/j-(y[4]*x[0]/g*x[1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2 ])/j*x[3])/K-((y[4]*x[0]/g*x[1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j -((-y[4]*x[0]/g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j*x[3])/K*x[5])/r-(((y[4 ]*x[0]/g*x[1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j-((-y[4]*x[0]/g-y[ 4]/g*x[1])/h-y[4]/g/h*x[2])/j*x[3])/K-(((-y[4]*x[0]/g-y[4]/g*x[1])/h-y [4]/g/h*x[2])/j-y[4]/g/h/j*x[3])/K*x[5])/r*x[6])/w*x[7])/C-(((y[1]*x[0 ]/a*x[2]/c*x[3]/e*x[4]/h-(-y[1]*x[0]/a*x[2]/c*x[3]/e-(y[1]*x[0]/a*x[2] /c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x[3])/e*x[4])/h*x[5])/o-((-y[1]*x[0]/a *x[2]/c*x[3]/e-(y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x[3])/ e*x[4])/h-((y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x[3])/e-(( -y[1]*x[0]/a-y[1]/a*x[2])/c-y[1]/a/c*x[3])/e*x[4])/h*x[5])/o*x[6])/t-( ((-y[1]*x[0]/a*x[2]/c*x[3]/e-(y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a* x[2])/c*x[3])/e*x[4])/h-((y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2] )/c*x[3])/e-((-y[1]*x[0]/a-y[1]/a*x[2])/c-y[1]/a/c*x[3])/e*x[4])/h*x[5 ])/o-(((y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x[3])/e-((-y[1 ]*x[0]/a-y[1]/a*x[2])/c-y[1]/a/c*x[3])/e*x[4])/h-(((-y[1]*x[0]/a-y[1]/ a*x[2])/c-y[1]/a/c*x[3])/e-y[1]/a/c/e*x[4])/h*x[5])/o*x[6])/t*x[7])/z) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Zaehler_a[3]:=(numer(a [3]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[3]:=fact or(denom(a[3]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 79 "############# ##################################################################" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4432 "a[2]:=(((-y[0]*x[1]/a*x[2 ]/b*x[3]/d*x[4]/g*x[5]/l-(y[0]*x[1]/a*x[2]/b*x[3]/d*x[4]/g-(-y[0]*x[1] /a*x[2]/b*x[3]/d-(y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x[2])/b*x[3] )/d*x[4])/g*x[5])/l*x[6])/s-((y[0]*x[1]/a*x[2]/b*x[3]/d*x[4]/g-(-y[0]* x[1]/a*x[2]/b*x[3]/d-(y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0]/a*x[2])/b* x[3])/d*x[4])/g*x[5])/l-((-y[0]*x[1]/a*x[2]/b*x[3]/d-(y[0]*x[1]/a*x[2] /b-(-y[0]*x[1]/a-y[0]/a*x[2])/b*x[3])/d*x[4])/g-((y[0]*x[1]/a*x[2]/b-( -y[0]*x[1]/a-y[0]/a*x[2])/b*x[3])/d-((-y[0]*x[1]/a-y[0]/a*x[2])/b-y[0] /a/b*x[3])/d*x[4])/g*x[5])/l*x[6])/s*x[7])/y-((-y[5]*x[0]/l*x[1]/o*x[2 ]/p*x[3]/q*x[4]/r-(y[5]*x[0]/l*x[1]/o*x[2]/p*x[3]/q-(-y[5]*x[0]/l*x[1] /o*x[2]/p-(y[5]*x[0]/l*x[1]/o-(-y[5]*x[0]/l-y[5]/l*x[1])/o*x[2])/p*x[3 ])/q*x[4])/r*x[6])/x-((y[5]*x[0]/l*x[1]/o*x[2]/p*x[3]/q-(-y[5]*x[0]/l* x[1]/o*x[2]/p-(y[5]*x[0]/l*x[1]/o-(-y[5]*x[0]/l-y[5]/l*x[1])/o*x[2])/p *x[3])/q*x[4])/r-((-y[5]*x[0]/l*x[1]/o*x[2]/p-(y[5]*x[0]/l*x[1]/o-(-y[ 5]*x[0]/l-y[5]/l*x[1])/o*x[2])/p*x[3])/q-((y[5]*x[0]/l*x[1]/o-(-y[5]*x [0]/l-y[5]/l*x[1])/o*x[2])/p-((-y[5]*x[0]/l-y[5]/l*x[1])/o-y[5]/l/o*x[ 2])/p*x[3])/q*x[4])/r*x[6])/x*x[7])/D-((-y[3]*x[0]/d*x[1]/e*x[2]/f*x[4 ]/K*x[5]/q-(y[3]*x[0]/d*x[1]/e*x[2]/f*x[4]/K-(-y[3]*x[0]/d*x[1]/e*x[2] /f-(y[3]*x[0]/d*x[1]/e-(-y[3]*x[0]/d-y[3]/d*x[1])/e*x[2])/f*x[4])/K*x[ 5])/q*x[6])/v-((y[3]*x[0]/d*x[1]/e*x[2]/f*x[4]/K-(-y[3]*x[0]/d*x[1]/e* x[2]/f-(y[3]*x[0]/d*x[1]/e-(-y[3]*x[0]/d-y[3]/d*x[1])/e*x[2])/f*x[4])/ K*x[5])/q-((-y[3]*x[0]/d*x[1]/e*x[2]/f-(y[3]*x[0]/d*x[1]/e-(-y[3]*x[0] /d-y[3]/d*x[1])/e*x[2])/f*x[4])/K-((y[3]*x[0]/d*x[1]/e-(-y[3]*x[0]/d-y [3]/d*x[1])/e*x[2])/f-((-y[3]*x[0]/d-y[3]/d*x[1])/e-y[3]/d/e*x[2])/f*x [4])/K*x[5])/q*x[6])/v*x[7])/B-((-y[7]*x[0]/y*x[1]/z*x[2]/A*x[3]/B*x[4 ]/C-(y[7]*x[0]/y*x[1]/z*x[2]/A*x[3]/B-(-y[7]*x[0]/y*x[1]/z*x[2]/A-(y[7 ]*x[0]/y*x[1]/z-(-y[7]*x[0]/y-y[7]/y*x[1])/z*x[2])/A*x[3])/B*x[4])/C*x [5])/D-((y[7]*x[0]/y*x[1]/z*x[2]/A*x[3]/B-(-y[7]*x[0]/y*x[1]/z*x[2]/A- (y[7]*x[0]/y*x[1]/z-(-y[7]*x[0]/y-y[7]/y*x[1])/z*x[2])/A*x[3])/B*x[4]) /C-((-y[7]*x[0]/y*x[1]/z*x[2]/A-(y[7]*x[0]/y*x[1]/z-(-y[7]*x[0]/y-y[7] /y*x[1])/z*x[2])/A*x[3])/B-((y[7]*x[0]/y*x[1]/z-(-y[7]*x[0]/y-y[7]/y*x [1])/z*x[2])/A-((-y[7]*x[0]/y-y[7]/y*x[1])/z-y[7]/y/z*x[2])/A*x[3])/B* x[4])/C*x[5])/D*x[6])/F+((-y[6]*x[0]/s*x[1]/t*x[2]/u*x[3]/v*x[4]/w-(y[ 6]*x[0]/s*x[1]/t*x[2]/u*x[3]/v-(-y[6]*x[0]/s*x[1]/t*x[2]/u-(y[6]*x[0]/ s*x[1]/t-(-y[6]*x[0]/s-y[6]/s*x[1])/t*x[2])/u*x[3])/v*x[4])/w*x[5])/x- ((y[6]*x[0]/s*x[1]/t*x[2]/u*x[3]/v-(-y[6]*x[0]/s*x[1]/t*x[2]/u-(y[6]*x [0]/s*x[1]/t-(-y[6]*x[0]/s-y[6]/s*x[1])/t*x[2])/u*x[3])/v*x[4])/w-((-y [6]*x[0]/s*x[1]/t*x[2]/u-(y[6]*x[0]/s*x[1]/t-(-y[6]*x[0]/s-y[6]/s*x[1] )/t*x[2])/u*x[3])/v-((y[6]*x[0]/s*x[1]/t-(-y[6]*x[0]/s-y[6]/s*x[1])/t* x[2])/u-((-y[6]*x[0]/s-y[6]/s*x[1])/t-y[6]/s/t*x[2])/u*x[3])/v*x[4])/w *x[5])/x*x[7])/F+((-y[4]*x[0]/g*x[1]/h*x[2]/j*x[3]/K*x[5]/r-(y[4]*x[0] /g*x[1]/h*x[2]/j*x[3]/K-(-y[4]*x[0]/g*x[1]/h*x[2]/j-(y[4]*x[0]/g*x[1]/ h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j*x[3])/K*x[5])/r*x[6])/w-((y[4]* x[0]/g*x[1]/h*x[2]/j*x[3]/K-(-y[4]*x[0]/g*x[1]/h*x[2]/j-(y[4]*x[0]/g*x [1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j*x[3])/K*x[5])/r-((-y[4]*x[0 ]/g*x[1]/h*x[2]/j-(y[4]*x[0]/g*x[1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2 ])/j*x[3])/K-((y[4]*x[0]/g*x[1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j -((-y[4]*x[0]/g-y[4]/g*x[1])/h-y[4]/g/h*x[2])/j*x[3])/K*x[5])/r*x[6])/ w*x[7])/C+((-y[2]*x[0]/b*x[1]/c*x[3]/f*x[4]/j*x[5]/p-(y[2]*x[0]/b*x[1] /c*x[3]/f*x[4]/j-(-y[2]*x[0]/b*x[1]/c*x[3]/f-(y[2]*x[0]/b*x[1]/c-(-y[2 ]*x[0]/b-y[2]/b*x[1])/c*x[3])/f*x[4])/j*x[5])/p*x[6])/u-((y[2]*x[0]/b* x[1]/c*x[3]/f*x[4]/j-(-y[2]*x[0]/b*x[1]/c*x[3]/f-(y[2]*x[0]/b*x[1]/c-( -y[2]*x[0]/b-y[2]/b*x[1])/c*x[3])/f*x[4])/j*x[5])/p-((-y[2]*x[0]/b*x[1 ]/c*x[3]/f-(y[2]*x[0]/b*x[1]/c-(-y[2]*x[0]/b-y[2]/b*x[1])/c*x[3])/f*x[ 4])/j-((y[2]*x[0]/b*x[1]/c-(-y[2]*x[0]/b-y[2]/b*x[1])/c*x[3])/f-((-y[2 ]*x[0]/b-y[2]/b*x[1])/c-y[2]/b/c*x[3])/f*x[4])/j*x[5])/p*x[6])/u*x[7]) /A-((-y[1]*x[0]/a*x[2]/c*x[3]/e*x[4]/h*x[5]/o-(y[1]*x[0]/a*x[2]/c*x[3] /e*x[4]/h-(-y[1]*x[0]/a*x[2]/c*x[3]/e-(y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/ a-y[1]/a*x[2])/c*x[3])/e*x[4])/h*x[5])/o*x[6])/t-((y[1]*x[0]/a*x[2]/c* x[3]/e*x[4]/h-(-y[1]*x[0]/a*x[2]/c*x[3]/e-(y[1]*x[0]/a*x[2]/c-(-y[1]*x [0]/a-y[1]/a*x[2])/c*x[3])/e*x[4])/h*x[5])/o-((-y[1]*x[0]/a*x[2]/c*x[3 ]/e-(y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x[3])/e*x[4])/h-( (y[1]*x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x[3])/e-((-y[1]*x[0]/ a-y[1]/a*x[2])/c-y[1]/a/c*x[3])/e*x[4])/h*x[5])/o*x[6])/t*x[7])/z):" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Zaehler_a[2]:=(numer(a[2]) );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "Nenner_a[2]:=(denom(a [2]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 79 "####################### ########################################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1937 "a[1]:=(-(y[5]*x[0]/l*x[1]/o*x[2]/ p*x[3]/q*x[4]/r*x[6]/x-(-y[5]*x[0]/l*x[1]/o*x[2]/p*x[3]/q*x[4]/r-(y[5] *x[0]/l*x[1]/o*x[2]/p*x[3]/q-(-y[5]*x[0]/l*x[1]/o*x[2]/p-(y[5]*x[0]/l* x[1]/o-(-y[5]*x[0]/l-y[5]/l*x[1])/o*x[2])/p*x[3])/q*x[4])/r*x[6])/x*x[ 7])/D-(y[7]*x[0]/y*x[1]/z*x[2]/A*x[3]/B*x[4]/C*x[5]/D-(-y[7]*x[0]/y*x[ 1]/z*x[2]/A*x[3]/B*x[4]/C-(y[7]*x[0]/y*x[1]/z*x[2]/A*x[3]/B-(-y[7]*x[0 ]/y*x[1]/z*x[2]/A-(y[7]*x[0]/y*x[1]/z-(-y[7]*x[0]/y-y[7]/y*x[1])/z*x[2 ])/A*x[3])/B*x[4])/C*x[5])/D*x[6])/F+(y[6]*x[0]/s*x[1]/t*x[2]/u*x[3]/v *x[4]/w*x[5]/x-(-y[6]*x[0]/s*x[1]/t*x[2]/u*x[3]/v*x[4]/w-(y[6]*x[0]/s* x[1]/t*x[2]/u*x[3]/v-(-y[6]*x[0]/s*x[1]/t*x[2]/u-(y[6]*x[0]/s*x[1]/t-( -y[6]*x[0]/s-y[6]/s*x[1])/t*x[2])/u*x[3])/v*x[4])/w*x[5])/x*x[7])/F+(y [4]*x[0]/g*x[1]/h*x[2]/j*x[3]/K*x[5]/r*x[6]/w-(-y[4]*x[0]/g*x[1]/h*x[2 ]/j*x[3]/K*x[5]/r-(y[4]*x[0]/g*x[1]/h*x[2]/j*x[3]/K-(-y[4]*x[0]/g*x[1] /h*x[2]/j-(y[4]*x[0]/g*x[1]/h-(-y[4]*x[0]/g-y[4]/g*x[1])/h*x[2])/j*x[3 ])/K*x[5])/r*x[6])/w*x[7])/C-(y[3]*x[0]/d*x[1]/e*x[2]/f*x[4]/K*x[5]/q* x[6]/v-(-y[3]*x[0]/d*x[1]/e*x[2]/f*x[4]/K*x[5]/q-(y[3]*x[0]/d*x[1]/e*x [2]/f*x[4]/K-(-y[3]*x[0]/d*x[1]/e*x[2]/f-(y[3]*x[0]/d*x[1]/e-(-y[3]*x[ 0]/d-y[3]/d*x[1])/e*x[2])/f*x[4])/K*x[5])/q*x[6])/v*x[7])/B+(y[2]*x[0] /b*x[1]/c*x[3]/f*x[4]/j*x[5]/p*x[6]/u-(-y[2]*x[0]/b*x[1]/c*x[3]/f*x[4] /j*x[5]/p-(y[2]*x[0]/b*x[1]/c*x[3]/f*x[4]/j-(-y[2]*x[0]/b*x[1]/c*x[3]/ f-(y[2]*x[0]/b*x[1]/c-(-y[2]*x[0]/b-y[2]/b*x[1])/c*x[3])/f*x[4])/j*x[5 ])/p*x[6])/u*x[7])/A+(y[0]*x[1]/a*x[2]/b*x[3]/d*x[4]/g*x[5]/l*x[6]/s-( -y[0]*x[1]/a*x[2]/b*x[3]/d*x[4]/g*x[5]/l-(y[0]*x[1]/a*x[2]/b*x[3]/d*x[ 4]/g-(-y[0]*x[1]/a*x[2]/b*x[3]/d-(y[0]*x[1]/a*x[2]/b-(-y[0]*x[1]/a-y[0 ]/a*x[2])/b*x[3])/d*x[4])/g*x[5])/l*x[6])/s*x[7])/y-(y[1]*x[0]/a*x[2]/ c*x[3]/e*x[4]/h*x[5]/o*x[6]/t-(-y[1]*x[0]/a*x[2]/c*x[3]/e*x[4]/h*x[5]/ o-(y[1]*x[0]/a*x[2]/c*x[3]/e*x[4]/h-(-y[1]*x[0]/a*x[2]/c*x[3]/e-(y[1]* x[0]/a*x[2]/c-(-y[1]*x[0]/a-y[1]/a*x[2])/c*x[3])/e*x[4])/h*x[5])/o*x[6 ])/t*x[7])/z):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Zaehler_a [1]:=(numer(a[1]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Nenn er:=factor(denom(a[1]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 79 "##### ###################################################################### ####" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 441 "a[0]:=(-y[0]*x[1]/ a*x[2]/b*x[3]/d*x[4]/g*x[5]/l*x[6]/s*x[7]/y+y[5]*x[0]/l*x[1]/o*x[2]/p* x[3]/q*x[4]/r*x[6]/x*x[7]/D-y[4]*x[0]/g*x[1]/h*x[2]/j*x[3]/K*x[5]/r*x[ 6]/w*x[7]/C-y[2]*x[0]/b*x[1]/c*x[3]/f*x[4]/j*x[5]/p*x[6]/u*x[7]/A+y[7] *x[0]/y*x[1]/z*x[2]/A*x[3]/B*x[4]/C*x[5]/D*x[6]/F-y[6]*x[0]/s*x[1]/t*x [2]/u*x[3]/v*x[4]/w*x[5]/x*x[7]/F+y[3]*x[0]/d*x[1]/e*x[2]/f*x[4]/K*x[5 ]/q*x[6]/v*x[7]/B+y[1]*x[0]/a*x[2]/c*x[3]/e*x[4]/h*x[5]/o*x[6]/t*x[7]/ z):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Zaehler_a[0]:=(numer (a[0]));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Nenner_a[0]:=fa ctor(denom(a[0]));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 79 "########### ####################################################################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 110 "#######################################ENDE#### ###############################################################" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "6 0 0" 1 } {VIEWOPTS 1 1 0 1 1 1803 }