7Â¥: Originally posted by ÔÂÖ»À¶ at 2015-01-09 08:41:43
²»ÐèÒªÁгÉËÄÔª·½³Ì×é°É¡£°´ÈçÏ°Ña b ¶¨ÒåºÃ¼´¿É¡£
function solve_nolin_eqs
clear all;clc
=fsolve(@myfun,)

function q=myfun(p)
a=5;
b=200;
x=p(1);
y=p(2);
q(1)=abs((a*sin(x)+(b+a*x......;
...

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;