In[]:=
sol=NDSolve[{32f'[t]==Exp[Cos[t]-f[t]-f'[t]-f''[t]]-1,f[0]==f[2Pi],f'[0]==f'[2Pi]},f,{t,0,2Pi},Method->{"EquationSimplification"->"Residual"}];Plot[f[t]/.sol,{t,0,2Pi}]
′
f
1.+Times[2]+Times[2]+Times[2]
′
f
′
f
′
f
1.+Times[2]+Times[2]+Times[2]
2.71828
′
f
′
f
′
f
0.991774+Times[2]+Times[2]+Times[2]
′
f
′
f
Out[]=
