VBA 解三元二次方程

cdsawdc

a=7.5
d=0.2
xr=[0.2:1]   以0.2增加（即0.2  0.4  0.6  0.8  1）
xb=1
xg=1
上面都是已知数，由表格输入

下面是方程组
   x1*x1  /  (2*((2a*a)^0.5-x4-2*d)*x3) =xr/xg
   x1*x1  /  (x4*x4)=xr/xb
  ((2a*a)^0.5-x4-2*d)*x3)  /  (2*x4*x4) =xg/xb

求x1 x3 x4的值    （>0,小数点后两位小数）

新人求助，大佬们帮个忙吧