collect(sym((X-R)^0.5-0.5*(30-R)^0.5+0.775*(R-22)^0.5),X)collect(sym((X-R)^0.5-0.5*(30-R)^0.5+0.775*(R-22)^0.5),R)
