Simplify code for optimal homotopy asymptotic method

I want to solve the given problem with Optimal homotopy asymptotic method. I get the solution according the way but I want to simplify the method in Mathematica code as I made it step by step. I want that without separating the values of constant I will calculate the plot of velocity and temperature easily. Kindly help me out to simplified it. The pdf is also attached for the problem and method is also define. Please help me to simplify the steps.

Graph for F.nb (36.7 KB)
Micropolar flow in a porous channel with high mass transfer.pdf (768 KB)
Review OHAM.nb (302 KB)

Crossposted here.

Welcome to Wolfram Community!
Please make sure you know the rules: https://wolfr.am/READ-1ST
Please next time link your post to the duplicated one from MSE site.