版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

返回列表

lz2239129

铁虫 (初入文坛)

应助: 0 (幼儿园)
金币: 6.5
帖子: 9
在线: 4.3小时
虫号: 2354539
注册: 2013-03-17
性别: GG
专业: 动力学与控制

[交流] Matlab 解方程组的问题。

初学matlab，想解一个方程组并画图。但是程序怎么编都不对。希望大家帮个忙看看。十分着急！！！

function F=fu_pin(x)
clear
clc
tic
l=0.6;%长
h=0.003;%厚
Nox=20000;%轴向拉力
mu=0.3;%波松比
E=108*10^9;%弹性模量（轧制纯铜）
rho=8920;%质量密度纯铜
Vox=60;%轴向速度
sigma0=5.7143*10^7;%电导率
Box=0.5;%x方向磁感应强度
Boy=0.5;%y方向磁感应强度
Boz=0.5;%z方向磁感应强度
DM=E*h^3/(12*(1-mu^2));%抗弯刚度
DN=E*h/(1-mu^2);%抗拉刚度
P=1000;%P外加载荷

sigma1=0.03;
epsilon=0.9275/sigma1;
sigma2=0.1;

global x;
p1=5*pi/(4*l);p2=9*pi/(4*l);
CC1=(cosh(p1*l)+cos(p1*l))/(sinh(p1*l)+sin(p1*l)); CC2=(cosh(p2*l)+cos(p2*l))/(sinh(p2*l)+sin(p2*l));
X1=cosh(p1*x)-cos(p1*x)-CC1*(sinh(p1*x)-sin(p1*x)); X2=cosh(p2*x)-cos(p2*x)-CC2*(sinh(p2*x)-sin(p2*x));%振型函数

Gamma1=int(diff(X1,x,1)*diff(X1,x,1)*diff(X1,x,2)*X1,x,0,l);%Gamma1111
Gamma2=int(diff(X1,x,1)*diff(X2,x,1)*diff(X1,x,2)*X1,x,0,l);%Gamma1211
Gamma3=int(diff(X1,x,1)*diff(X1,x,1)*diff(X2,x,2)*X1,x,0,l);%Gamma1121
Gamma4=int(diff(X1,x,1)*diff(X1,x,1)*diff(X1,x,2)*X2,x,0,l);%Gamma1112
Gamma5=int(diff(X2,x,1)*diff(X2,x,1)*diff(X2,x,2)*X2,x,0,l);%Gamma2222
Gamma6=int(diff(X1,x,1)*diff(X2,x,1)*diff(X1,x,2)*X2,x,0,l);%Gamma1212
Gamma7=int(diff(X2,x,1)*diff(X1,x,1)*diff(X2,x,2)*X1,x,0,l);%GAmma2121
Gamma8=int(diff(X1,x,1)*diff(X1,x,1)*diff(X2,x,2)*X2,x,0,l);%Gamma1122
Gamma9=int(diff(X2,x,1)*diff(X2,x,1)*diff(X1,x,2)*X1,x,0,l);%GAmma2211

alpha1=3*Gamma1;             %alpha11
alpha2=2*(2*Gamma6+Gamma8); %alpha12
alpha3=2*(2*Gamma7+Gamma9); %alpha21
alpha4=3*Gamma5;             %alpha22
omega1=3.8545;%一阶固有频率

%epsilon=-0.03;%调谐参数项
omega2=3*omega1+epsilon*sigma1;%二阶固有频率
%Omega=omega(1)+epsilon*sigma(2);%外加频率

C1=int(diff(X1,x,2)*X1,x,0,l);C2=int(diff(X2,x,2)*X2,x,0,l);
D1=int(diff(X1,x,1)*X1,x,0,l);D2=int(diff(X2,x,1)*X2,x,0,l);
E1=int(X1*X1,x,0,l);       E2=int(X2*X2,x,0,l);
M1=(2*rho*h*Vox*D1-sigma0*h*Boy^2*E1-sigma0*h*Box^2*E1-sigma0*h^3*Boz^2*C1/12)/E1;
M2=(2*rho*h*Vox*D2-sigma0*h*Boy^2*E2-sigma0*h*Box^2*E2-sigma0*h^3*Boz^2*C2/12)/E2;
eta=1000;

C1=double(C1);C2=double(C2);
D1=double(D1);D2=double(D2);
E1=double(E1);E2=double(E2);
Gamma2=double(Gamma2);Gamma3=double(Gamma3);Gamma4=double(Gamma4);
M1=double(M1);M2=double(M2);
alpha1=double(alpha1);alpha2=double(alpha2);alpha3=double(alpha3);alpha4=double(alpha4);
omega2=double(omega2);

F=[sigma2*(24*omega2*x(2))-(8*omega2*x(2)*sigma1+sqrt((Gamma4*x(1)^3)^2-(4*M2*omega2*x(2)^2)-x(2)*(alpha2*x(1)^2+alpha4*x(2)^2)));
   sigma2*(8*omega1*x(1)^4*Gamma4-24*omega2*x(1)^2*x(2)^2*(2*Gamma2+Gamma3))-(sqrt((4*eta*Gamma4*x(1)^3)^2-(4*M1*omega1*x(1)^4+M2*omega2*x(1)^2*x(2)^2*(2*Gamma2+Gamma3))^2)+x(1)^2*x(2)*(2*Gamma2+Gamma3)*(-8*omega2*x(2)*sigma1+x(2)*(alpha2*x(1)^2+alpha4*x(2)^2)-Gamma4*x(1)^4*(alpha1*x(1)^2+alpha3*x(2)^2)))];

最后用[x,fval] = fsolve(@fu_pin,x0)来调用。。

我最终是想画出sigma2和x(1),x(2)的关系图。sigma2可以取1=0：0.001：1。
大家看看这么编程对不对。不对的话应该怎么改正。谢谢

回复此楼

» 猜你喜欢

苦逼青椒

1楼 2014-05-19 14:38:40

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

找到一些相关的精华帖子，希望有用哦~

方程系统可以用matlab来模拟它的解吗？希望好心人来说说！已经有10人回复
matlab解方程组求助攻已经有4人回复
matlab 求解线性方程组Ax=b 已经有10人回复
用matlab 求解参数方程组已经有8人回复
用matlab求解一个非线性方程组的解已经有4人回复
求助用matlab或者（1st0pt)编程解方程组已经有3人回复
用matlab求解非线性方程组说无解，一定是方程组本身无解，还是有可能程序有问题呢？已经有11人回复
matlab如何求解一个非线性微分方程组已经有8人回复
matlab求解高阶方程组已经有3人回复
求Matlab高手解决线性方程组的迭代求解问题已经有17人回复
求助 MATLAB解方程组-fslove 已经有7人回复
请教用matlab求解一个非线性偏微分方程组的数值解已经有8人回复
matlab中有关微分方程求解的几个小问题已经有4人回复
求matlab 解方程的问题已经有5人回复
Matlab求解偏微分方程组已经有22人回复
matlab求解非线性方程组已经有16人回复
matlab数值求解边界条件微分方程组已经有7人回复
高金求助matlab解微分方程组已经有12人回复
求matlab求解一个方程组的问题已经有6人回复
MATLAB求解一个比较复杂的方程已经有14人回复
【求助】向各位大侠求助matlab求解微分方程组遇到的一个问题已经有21人回复
【求助】求教matlab解非线性方程组已经有9人回复
【求助】一个时变微分方程组的matlab实现已经有8人回复

点击这里搜索更多相关资源

科研从小木虫开始，人人为我，我为人人

相关版块跳转我要订阅楼主 lz2239129 的主题更新