|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
源程序如下:
function [C,D]=F1
syms Phy phy1 phy2 phy3 xi phyi xi1 xi2 xi3 phyi1 phyi2 phyi3 L a b pho1 xi1t xi2t xi3t phyi1t phyi2t phyi3t ...
xi1tt xi2tt xi3tt phyi1tt phyi2tt phyi3tt phy1t phy2t phy3t phy1tt phy2tt phy3tt Cyk1 Cyk2 Cyk3 Cphyk1 Cphyk2 Cphyk3...
Dyk1 Dyk2 Dyk3 Dphyk1 Dphyk2 Dphyk3
n=input('请输入划分的rfe的个数:n=');
Sye=[0 0 0;0 0 1/2*L;0 -1/2*L 0];
I=[1 0 0;0 1 0;0 0 1];
I1=zeros(3,3);
K=[I Sye;I1 I];
Cyk=[Cyk1 0 0;0 Cyk2 0;0 0 Cyk3];
Cphyk=[Cphyk1 0 0;0 Cphyk2 0;0 0 Cphyk3];
ck=[Cyk I1;I1 Cphyk];
Ckll=K'*ck*K %(6*6)
Cklr=-K'*ck*K;
Ckrl=-K'*ck*K;
Ckrr=K'*ck*K;
Dyk=[Dyk1 0 0;0 Dyk2 0;0 0 Dyk3];
Dphyk=[Dphyk1 0 0;0 Dphyk2 0;0 0 Dphyk3];
dk=[Dyk I1;I1 Dphyk];
Dkll=K'*dk*K; %(6*6)
Dklr=-K'*dk*K;
Dkrl=-K'*dk*K;
Dkrr=K'*dk*K;
b=6*n;
C=zeros(b,b);
k=input('请输入第k个sde:k=');
d=k+5
Ckll=sym(Ckll)
C(k:d,k:d)=double(Ckll)
提示问题:
??? Error using ==> reshape
To RESHAPE the number of elements must not change.
Error in ==> sym.double at 37
X = reshape(X,siz);
Error in ==> F1 at 29
C(k:d,k:d)=double(vpa(Ckll))
请问怎么修改?
谢谢!!!!!!
[ 本帖最后由 eight 于 2008-3-18 15:24 编辑 ] |
|