(Subscript[a, pm])=(Subscript[a, c])*(Subscript[S, val])sin(2π (Subscript[f, c])t+((Subscript[a, m])/(Subscript[f, m]))sin(2π (Subscript[f, m])t))