pom=pom;
Remove["Global`*"];
SetDirectory[NotebookDirectory[]];
skokMezi[fi_,fim_,k_]:=Tanh[k*(fi+fim)]-Tanh[k*(fi-fim)];
Plot[skokMezi[fi,2,50],{fi,-20,20}];
Manipulate[
buz=50Sin[#]&;
rce={1*fi'[t]+kFi*fi[t]==(c*i'[t]+1*i[t])*skokMezi[fi[t],fim,strmost],fi[0]==0}/.i->buz;
res=NDSolve[rce,fi,{t,0,16Pi},MaxSteps->(10^6)][[1]];
ParametricPlot[{buz[t],fi[t]/.res},{t,14Pi,16Pi},AspectRatio->1.5,PlotRange->{{-55,55},{-1,1}}]
,{{c,0.22},0.01,1},{{fim,0.4},0.2,0.8},{{strmost,10},2,40},{{kFi,10},2,50}]