6Â¥: Originally posted by 514741735 at 2015-01-09 08:16:13
ÇëÎÊ£¬ÎÒÔÚ±à³ÌµÄʱºòÊDzÎÕÕÀý×Ó×öµÄ¶þÔª·½³Ì£¬±äÁ¿aºÍbÓõÄÊÇÈ·¶¨ÖµÌæ»»µÄ£¬Èç¹ûÎÒÏë°Ña=5,b=200×÷Ϊ·½³Ì£¬ÁÐËÄÔª·½³Ì×飬³ÌÐòÓ¦¸ÃÔõô±àÄØ£¿Ð»Ð»ÁË...

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;