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

|>F<eldreservierung und >N<ullsetzen<'|
	dim'a'l0''
s0l'	0';'i''
sl0'	0';'a'i''
	for'i'step'l'until'9'rpeat'sl0''
	0';'b''
	0';'c''
	0';'h''
	0';'n''
	|>U|<eberschrift und >E<inlesen der >K<onstanten|'
	daprt'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'
	x'uc2'>)<' '>:<'lcl'cr4'uc2'p'o'l'y'n'o'm'g'r'a'd'lcl' 'n'uc2'>=<'lcl' ''
	iread'n''
	daprt'cr4'uc2'k'o'e'f'f'i'z'i'e'n't'e'n'lcl' ''
	0';'i''
s20'	machn'p5700'z0000''
	200'iprt'i''
	machn'p0800'z0000'pll00'z0000'p0400'z0000''
	read'a'i''
	machn'p2700'z0000''
	for'i'step'l'until'9'rpeat's20''
	daprt'cr4'cr4'x' 'm'i'n' 'uc2'>=<'lcl' ''
	read'b''
	daprt'cr4'x' 'm'a'x' 'uc2'>=<'lcl' ''
	read'c''
	daprt'cr4'uc2's'c'h'r'i't't'l'a'e'n'g'e'lcl' ' ''
	read'h''

>|Z<eichnen des >G<raphen'
|	daprt'cr4' ' ' ' ' ' 'x' ' ' ' ' ' ' ' ' ' ' 'f'uc2'<>(<'x'>)<'lcl' ' ' ' ' ' ' ' '-'l'0' ' '-'9' ' ' '-'8' ' ' '
	-'7' ' ' '-'6' ' ' '-'5' ' ' '-'4' ' ' '-'3' ' ' '-'2' ' ' '-'l' ' ' '0' ' ' ' '+'l' ' ' '+'2' ' ' '+'3' ' ' '
	+'4' ' ' '+'5' ' ' '+'6' ' ' '+'7' ' ' '+'8' ' ' '+'9' ' ' '+'l'0'cr4''
	daprt'cr4' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '+'-'-'-'-'+'-'-'-'-'+'-'-'-'-'+'-'-'-'-'
	+'-'-'-'-'+'-'-'-'-'+'-'-'-'-'+'-'-'-'-'+'-'-'-'-'+'-'-'-'-'+'-'-'-'-'+'-'-'-'-'+'-'-'-'-'+'-'-'-'-'+'-'-'-'-'
	+'-'-'-'-'+'-'-'-'-'+'-'-'-'-'+'-'-'-'-'+'-'-'-'-' 'y'-'uc2'a'c'h's'e'lcl'cr4''
	b';'iks''
s30'	n';'i''
	0';'y''
s40'	y'x'iks'+'a'i';'y''
	0'i-'l';'m''
	for'i'step'm'until'0'rpeat's40''
	802'dprt'iks''
	l802'dprt'y''
	if'>[<'.9999'99999'e'l'-'abs'>[<'y'>]<'<>]<'neg's60''
	0';'i''
s50'	machn'p0300'z0000''
	.5''e'l'x'y'+'.54''e'2';'d''
	0'unflo'd';'d''
	for'i'step'l'until'd'rpeat's50''
	machn'p0800'z0000'pl000'z0000'p0400'z0000'p2000'z0000''
s60'	for'iks'step'h'until'c'rpeat's30''
	stop''
	use's0l'''