set term qt font 'serif,14'
set xlabel "I"
set ylabel "R"

muU = 5
muI = 0.1

set xtics ("0" 0,"{/Symbol m}_{I}" muI)
set ytics ("0" 0,"{/Symbol m}_{U} / {/Symbol m}_{I}" muU/muI)

plot [0:2*muI][0:3*muU/muI] muU/x t "R = {/Symbol m}_{U} / I" lw 2

set arrow from muI,0 to muI,muU/muI nohead ls 0 lw 2
set arrow from 0, muU/muI to muI,muU/muI nohead ls 0 lw 2

#replot muU/muI t "0. řád Taylorova rozvoje"
replot muU/muI - (muU/muI**2)*(x-muI) t "1. řád Taylorova rozvoje"
#replot muU/muI - (muU/muI**2)*(x-muI) + (muU/muI**3)*(x-muI)**2 \
#	t "2. řád Taylorova rozvoje"
#replot muU/muI - (muU/muI**2)*(x-muI) + (muU/muI**3)*(x-muI)**2 \
#	- (muU/muI**4)*(x-muI)**3 t "3. řád Taylorova rozvoje" ls 6