4Â¥: Originally posted by ÔÂÖ»À¶ at 2015-01-08 21:41:28
²»¹ýÐèҪ˵Ã÷µÄÊÇ£¬ÓÉÓÚ ÕýÏÒ ÓàÏÒ µÄÖÜÆÚÐÔ£¬¸Ã·½³Ì×éµÄ½â²»Î¨Ò»¡£

function solve_nolin_eqs
clear all;clc
[x fval]=fsolve(@myfun,[3,4])

function q=myfun(p)
x=p(1);
y=p(2);
q(1)=abs((5*sin(x)+(200+5*x)*cos(x))*(5*cos(x)-(200+5*x)*sin(x))^(-1)*((200+5*x)*cos(x)-(200+5*y)*cos(y))-(200+5*x)*sin(x)+(200+5*y)*sin(y))*(((5*sin(x)+(200+5*x)*cos(x))*(5*cos(x)-(200+5*x)*sin(x))^(-1))^2+1)^(-1/2)-30;
q(2)=abs(((200+5*x)*sin(x)-5*cos(x))*(5*sin(x)+(200+5*x)*cos(x))^(-1)*((200+5*y)*cos(y)-(200+5*x)*cos(x))-(200+5*y)*sin(y)+(200+5*x)*sin(x))*((((200+5*x)*sin(x)-5*cos(x))*(5*sin(x)+(200+5*x)*cos(x))^(-1))^2+1)^(-1/2)-140;