Solving an equation in Mathematica?

So I am solving for an equation for projectile calculation and I have come down to a single equation, however, I want to solve it in terms for a variable. This variable is the unknown and the rest of the variables are inputs.
Screenshot2021-06-20174238.png

Screenshot2021-06-20174400.png

I am not able to figure out what I am doing wrong to solve for the equation. I replaced psiF with x in Mathematica. Please help me solve this! Thank You.

Try

Simplify[Reduce[
  j==(a*Sin[x])+(((i-(a*Cos[x]))/(Cos[x]))*Sin[x])+
  (((i-(a*Cos[x]))/(v*Cos[x]))^2*49/10),x]]

Welcome to Wolfram Community! Please make sure you know the rules: https://wolfr.am/READ-1ST

The rules explain how to format your code properly. Images don’t help other members to copy your code. Please EDIT your post and make sure code blocks start on a new paragraph and look framed and colored like this.

int = Integrate[1/(x^3 - 1), x];
Map[Framed, int, Infinity]

You can also embed notebook or attach notebook.