RombergPlot.48s

«
	-0.6 20 PlotXRange
	-0.2 4 PlotYRange
	DrawAxes

	1E-10 100
	«
		→ x
		«
			'x↑3*(sin((5_r)*x)+1)÷expm1(x)' Evaluate
			→ y
			«
				TICKS FOREGROUND
				x 0 ℝ→ℂ x y ℝ→ℂ DrawLine
				#0 FOREGROUND
				y
			»
		»
	»
	'x' ∫
	"I=" SWAP +
    (7;3) DISP
»