Yes, it is working. Thank you so much for your help Xavier.
Is this what you are looking for
intwtsol = NIntegrate[wtsol[x], {x, 1, #}] & /@ Range[2, 10, 1]; intsol = NIntegrate[sol[x], {x, 1, #}] & /@ Range[2, 10, 1]; wttran = intwtsol/intsol 100 cumulloss = 100 - wttran
?
