关于利用FindRoot求解超越方程

利用Do循环求解随系数变化的超越方程的解，如图
实际上求得就是K与W的关系变化，FindRoot求解需要初值，所以在实际处理的时候均以上一次求解值最为近似初值。
方程一与方程二结果相差不是很大，已验证方程一结果的正确性，然而方程二的结果一直不是特别正确，故请教各位如何提高FindRoot的求解精度，谢谢！
Ps：附件中有源程序！！！！！！！（7.0版本），我擦，等级低传不了。。。。。