« first day (3609 days earlier)      last day (872 days later) » 

Meta
Meta
10:25 AM
-1
Q: Objection to systematic down vote to all questions of a user

Alex97I have gotten down vote on almost all of my questions at once! How should I inform the moderators to check this sabotage and give me the lost reputation points back?

discussion support feature-request
 
 
6 hours later…
Michael E2
Michael E2
4:06 PM
<< Optimization`UnconstrainedProblems`

findMaximumPlot // ClearAll;
findMaximumPlot[{f_, cons_}, rest__] :=
  Internal`InheritedBlock[{FindMinimum},
   Unprotect@FindMinimum;
   FindMinimum[obj_, r___] /; ! TrueQ[$in] := Block[{$in = True},
     FindMaximum[{f, cons}, r]
     ];
   Protect@FindMinimum;

   FindMinimumPlot[f, rest]
   ];

problem = {-0.248226 Cos[2 x] - 0.0184829 Cos[4 x] -
    0.0594608 Cos[x] Sin[x] + 0.123626 Sin[4 x], 0 <= x <= 3/2};

findMaximumPlot[problem, {{x, 3/4}},
 PlotStyle -> Directive[Opacity[0.5], Red]]
 

« first day (3609 days earlier)      last day (872 days later) »