f=2.9*ArcTan[x]-4x+2;
f1=D[f,x];
f11=D[f1,x];
f0=Integrate[f,x];
f00=Integrate[f0,x];




g=-(x-2)*Exp[-.5*(x-2)^2]*Cos[x/2];
g1=D[g,x];
g11=D[g1,x];



h =Exp[Abs[x]]+2;
h0 =Integrate[h/.x:>t,{t,.4,x}];
h1[t_]:=Module[{},
If[t<0,Return[-Exp[Abs[t]]],Return[Exp[Abs[t]]]]
];

Plot[{f,f1,f11,f0},{x,-4,4},PlotStyle->{{Orange,Thick,Dashing[Tiny]},{Blue,Thick,Dashing[Large]},{Red,Thick},{Green,Dashed,Thick}},PlotRange->{{-3,3},{-4,4.5}}]

Plot[{g,g11,g1},{x,-2,5},PlotStyle->{{Orange,Thick,Dashing[Tiny]},{Blue,Thick,Dashing[Large]},{Red,Thick}},PlotRange->{{-2,5},{-1.2,1.2}}]

Plot[{h1[x],h0,h},{x,-2,2},PlotStyle->{{Brown,Thick,Dashing[Tiny]},{Green,Thick,Dashing[Large]},{Red,Thick}},PlotRange->{{-2,2},{-6,6}}]

<<Graphics`ImplicitPlot`;

ImplicitPlot[(1+x-y)==Cos[x+y],{x,-5,5},{y,-5,5}]
(* ImplicitPlot[(1+x-y)^2==Cos[x+y],{x,-5,5},{y,-5,5}] *)
ImplicitPlot[(1+x-y^2)^2==Cos[x+y],{x,-5,5.5},{y,-5,5}]