一维介质粗糙面散射的矩量法

有没有做一维介质粗糙面散射矩量法研究的，想请教一些问题以及相关代码上的事情。

程序结果与书上结果有些差距，不知道自己做的是不是正确的，如何验证程序结果