計算例を示します。

周波数特性とかのグラフを書けないかやっています。

FindRootは便利です。ニュートン法で連立方程式の解を求めるらしいです。
FindRoot[{11*10^3*y==0.026*Log[(2/y*(x-0.7)*0.5-0.7)/100/10^3],
(x-0.7)*0.5-y*100*10^3-0.7==0},{x,1.5},{y,10^-6}]

メールはこちらまで