EquationNumericSolveRequest[List[Equal[Exponent[Sin[y],2],Exponent[Cos[y],2]]],List[List[y]]]Solution[{y,,0.7853981633974}]GraphingShow2D[PlotY2D[Exponent[Sin[y],2],Options[Option[RangeX,-1.621,2.621],Option[RangeY,-4.443,4.443]]],PlotY2D[Exponent[Cos[y],2],Options[Option[RangeX,-1.621,2.621],Option[RangeY,-4.443,4.443]]],Options[Option[RangeX,-1.621,2.621],Option[RangeY,-4.443,4.443]]]