########################### # (C) www.diaware.de # Programm zur Berechnung # einer Polynomdivion # beliebigen Grades # Hinweis: für die Richtigkeit übernehme # ich keinerlei Garantie ########################### [[0,0,0,0,0,0,0,0,0,0,0]] -> Mat A [[0,0,0,0,0,0,0,0,0,0,0]] -> Mat B [[0,0,0,0,0,0,0,0,0,0,0]] -> Mat C "Gr.Exp.Zahler"? -> N "Gr.Exp.Nenner"? -> M For (N+4) -> X To 4 Step -1 "A"? -> Mat A[1,X] Next For (M+4) -> X To 4 Step -1 "B"? -> Mat B[1,X] Next "Gr.Exp.Ergebnis":(N - M)# "Ergebnis:" For (N-M) -> K To 0 Step -1 0 -> X For (M-1) -> S To 0 Step -1 X + Mat B[1,S+4] * Mat C[1,M-S+K+4] -> X Next (Mat A[1,M+K+4] - X) / Mat B[1,M+4] -> Mat C[1,K+4]# Next "Gr.Exp.Rest":(M-1)# "Rest:" For -1 -> V To -M Step -1 0 -> X For 0 -> Z To (M+V) X+Mat B[1,Z+4] * Mat C[1,M-Z+V+4] -> X Next Mat A[1,M+V+4]-X# Next