>ACT<_>V<_>PROGRAMM ZUM ZEICHNEN EINES GRAPHEN EINER GANZEN RATIONALEN FUNKTION

6>F<eldreservierung und >N<ullsetzen<'6
Ddim'a'l0''
s0l'D0';'i''
sl0'D0';'a'i''
Dfor'i'step'l'until'9'rpeat'sl0''
D0';'b''
D0';'c''
D0';'h''
D0';'n''
D6>U6<eberschrift und >E<inlesen der >K<onstanten6'
Ddaprt'cr4'cr4'uc2'g'r'a'p'h' 'd'e'r' 'g'a'n'z'e'n' 'r'a't'i'o'n'a'l'e'n' 'f'u'n'k't'i'o'n' 'lcl'f'uc2'<9'lcl'
Dx'uc2'>)<' '>:<'lcl'cr4'uc2'p'o'l'y'n'o'm'g'r'a'd'lcl' 'n'uc2'>=<'lcl' ''
Diread'n''
Ddaprt'cr4'uc2'k'o'e'f'f'i'z'i'e'n't'e'n'lcl' ''
D0';'i''
s20'Dmachn'p5700'z0000''
D200'iprt'i''
Dmachn'p0800'z0000'pll00'z0000'p0400'z0000''
Dread'a'i''
Dmachn'p2700'z0000''
Dfor'i'step'l'until'9'rpeat's20''
Ddaprt'cr4'cr4'x' 'm'i'n' 'uc2'>=<'lcl' ''
Dread'b''
Ddaprt'cr4'x' 'm'a'x' 'uc2'>=<'lcl' ''
Dread'c''
Ddaprt'cr4'uc2's'c'h'r'i't't'l'a'e'n'g'e'lcl' ' ''
Dread'h''

>6Z<eichnen des >G<raphen'
6Ddaprt'cr4' ' ' ' ' ' 'x' ' ' ' ' ' ' ' ' ' ' 'f'uc2'<>(<'x'>)<'lcl' ' ' ' ' ' ' ' '_'l'0' ' '_'9' ' ' '_'8' ' ' '
D_'7' ' ' '_'6' ' ' '_'5' ' ' '_'4' ' ' '_'3' ' ' '_'2' ' ' '_'l' ' ' '0' ' ' ' '+'l' ' ' '+'2' ' ' '+'3' ' ' '
D+'4' ' ' '+'5' ' ' '+'6' ' ' '+'7' ' ' '+'8' ' ' '+'9' ' ' '+'l'0'cr4''
Ddaprt'cr4' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '+'_'_'_'_'+'_'_'_'_'+'_'_'_'_'+'_'_'_'_'
D+'_'_'_'_'+'_'_'_'_'+'_'_'_'_'+'_'_'_'_'+'_'_'_'_'+'_'_'_'_'+'_'_'_'_'+'_'_'_'_'+'_'_'_'_'+'_'_'_'_'+'_'_'_'_'
D+'_'_'_'_'+'_'_'_'_'+'_'_'_'_'+'_'_'_'_'+'_'_'_'_' 'y'_'uc2'a'c'h's'e'lcl'cr4''
Db';'iks''
s30'Dn';'i''
D0';'y''
s40'Dy'x'iks'+'a'i';'y''
D0'i_'l';'m''
Dfor'i'step'm'until'0'rpeat's40''
D802'dprt'iks''
Dl802'dprt'y''
Dif'>[<'.9999'99999'e'l'_'abs'>[<'y'>]<'<>]<'neg's60''
D0';'i''
s50'Dmachn'p0300'z0000''
D.5''e'l'x'y'+'.54''e'2';'d''
D0'unflo'd';'d''
Dfor'i'step'l'until'd'rpeat's50''
Dmachn'p0800'z0000'pl000'z0000'p0400'z0000'p2000'z0000''
s60'Dfor'iks'step'h'until'c'rpeat's30''
Dstop''
Duse's0l'''