fce1=(x-2)*(Log[x]-y); (*sem napiš funkci, se kterou si chceš hrát*)

rce1=fce1/.{y -> y[x]};  Manipulate[PocPodm = {0.5,p};a1 = VectorPlot[{1,fce1},{x,0,3},{y,-3,3}, Axes->True, AxesStyle->Thick];
b1 = Plot[Log[x], {x,0.01,3}, PlotStyle->{RGBColor[1,0,0]}]; c1= ParametricPlot[{2,u}, {u,-3,3},PlotStyle->{RGBColor[1,0,0]}];  s1=NDSolve[{y'[x] ==rce1, y[PocPodm[[1]]]== PocPodm[[2]]}, y, {x,0.01,3}];
t1=Plot[Evaluate[y[x]/.s1],{x,0.01,3},PlotRange->All, PlotStyle->{RGBColor[0,255,0]}]; d1=Graphics[ {PointSize[Large],Point[PocPodm]}]; Show[a1,b1,c1,t1,d1, ImageSize->Large], {p,-3,3}]

fce2=y^2/(1-y); (*sem napiš funkci, se kterou si chceš hrát*)

rce2=fce2/.{y -> y[x]};  Manipulate[PocPodm = {-2.8,q};a2 = VectorPlot[{1,fce2},{x,-3,3},{y,-3,3}, Axes->True, AxesStyle->Thick];
b2 = ParametricPlot[{u,1}, {u,-3,3},PlotStyle->{RGBColor[1,0,0]}]; c2= ParametricPlot[{u,0}, {u,-3,3},PlotStyle->{RGBColor[1,0,0]}];  s2=NDSolve[{y'[x] ==rce2, y[PocPodm[[1]]]== PocPodm[[2]]}, y, {x,-2.9,3}];
t2=Plot[Evaluate[y[x]/.s2],{x,-2.9,3},PlotRange->All, PlotStyle->{RGBColor[0,255,0]}]; d2=Graphics[ {PointSize[Large],Point[PocPodm]}]; Show[a2,b2,c2,t2,d2, ImageSize->Large], {q,-3,3}]

fce3=(y-1)/(x^2-1); (*sem napiš funkci, se kterou si chceš hrát*)

rce3=fce3/.{y -> y[x]};  Manipulate[PocPodm = {-3,r};a3 = VectorPlot[{1,fce3},{x,-3,3},{y,-3,3}, Axes->True, AxesStyle->Thick];
b3= ParametricPlot[{1,u}, {u,-3,3},PlotStyle->{RGBColor[1,0,0]}]; c3= ParametricPlot[{-1,u}, {u,-3,3},PlotStyle->{RGBColor[1,0,0]}];  d3= ParametricPlot[{u,1}, {u,-3,3},PlotStyle->{RGBColor[1,0,0]}]; s3=NDSolve[{y'[x] ==rce3, y[PocPodm[[1]]]== PocPodm[[2]]}, y, {x,-3,-1.01}];
t3=Plot[Evaluate[y[x]/.s3],{x,-3,-1.01},PlotRange->All, PlotStyle->{RGBColor[0,255,0]}]; d3=Graphics[ {PointSize[Large],Point[PocPodm]}]; Show[a3,b3,c3,t3,d3, ImageSize->Large], {r,-3,3}]