w+ln(abs(N)) = ln(abs(a*p^2*H+exp(ar)))+ln(abs(y))

w+ln(abs(N)) = ln(abs(a*p^2*H+exp(ar)))+ln(abs(y))

(1)

w = solve(%, w);

w = ln(abs(a*p^2*H+exp(ar)))+ln(abs(y))-ln(abs(N))

(2)

combine(%, ln)

w = ln(abs(a*p^2*H+exp(ar))*abs(y)/abs(N))

(3)

`assuming`([exp(lhs(%)) = exp(rhs(%))], [positive])

exp(w) = (a*p^2*H+exp(ar))*y/N

(4)

N*lhs(%) = N*rhs(%)

N*exp(w) = (a*p^2*H+exp(ar))*y

(5)

expand(%)

N*exp(w) = H*a*p^2*y+y*exp(ar)

(6)

op(1, rhs(%)) = lhs(%)-op(2, rhs(%))

H*a*p^2*y = N*exp(w)-y*exp(ar)

(7)

sort(%)

H*a*p^2*y = N*exp(w)-y*exp(ar)

(8)

subs(p^2 = pp, %)

H*a*pp*y = N*exp(w)-y*exp(ar)

(9)

 

[ Inspired by the Happy New Year Equation: http://imgace.com/pic/tag/the-happy-new-year-equation/ ]

Download HappyNewYear.mw

Cheers.


Please Wait...