Error: Unexpected MATLAB operator. 在线等,谢谢Em=1.07*10^11;\sigmaYm=4.5*10^8;Hm=1.4*10^10;Ec=3.75*10^11;\num=0.34;\nuc=0.14;q=4.5*10^9;k=10;H=0.8/10^3;R=50/10^3;L=0.1;n=20;Zh=z/h;Vc=(0.5+Zh)^k;Vm=1-Vc;e=(Vm*Em*(q+Ec)/(q+Em)+Vc*Ec)/(Vm*(q+Ec)/(q

Error: Unexpected MATLAB operator. 在线等,谢谢Em=1.07*10^11;\sigmaYm=4.5*10^8;Hm=1.4*10^10;Ec=3.75*10^11;\num=0.34;\nuc=0.14;q=4.5*10^9;k=10;H=0.8/10^3;R=50/10^3;L=0.1;n=20;Zh=z/h;Vc=(0.5+Zh)^k;Vm=1-Vc;e=(Vm*Em*(q+Ec)/(q+Em)+Vc*Ec)/(Vm*(q+Ec)/(q
Error: Unexpected MATLAB operator. 在线等,谢谢
Em=1.07*10^11;\sigmaYm=4.5*10^8;Hm=1.4*10^10;Ec=3.75*10^11;
\num=0.34;\nuc=0.14;q=4.5*10^9;k=10;
H=0.8/10^3;R=50/10^3;L=0.1;
n=20;
Zh=z/h;Vc=(0.5+Zh)^k;Vm=1-Vc;
e=(Vm*Em*(q+Ec)/(q+Em)+Vc*Ec)/(Vm*(q+Ec)/(q+Em)+Vc);
\nu=Vm*\num+\nuc*Vc;
\sigmaY=\sigmaYm *(Vc*(q+Em)/(q+Ec)+Vm);
H=(Vm*Hm*(q+Ec)/(q+Hm)+Vc*Ec)/(Vm*(q+Ec)/(q+Hm)+Vc);
\sigmaP2=1000;
\epsilongP=(\sigmaP2-\sigmaY/10^6)/(H/10^6);
z=h/2-h*(i-0.5)/n;
Do[
Print[ '*Material, name=Material-',i];
Print['*Elastic'];
Print[e/10^6,',',\nu];
Print['*Plastic'];
Print[\sigmaY/10^6,',0.'];
Print['1000.,',\epsilongP],{i,1,n}]
Do[
Print['i=',i, ' ' , 'z=',1000z, 'mm ' ',e=',e/10^6, 'MPa ' , 'H=',
H/10^6 , 'MPa ', '\nu=' ,\nu, ' ', '\sigmaY=', \sigmaY/10^6, 'MPa', ' ', '\epsilongP=' , \epsilongP],
{i,
1,
n }]
Do[
Print[1000*h/n, ',3,Material-',i, ',0. ,Ply-' , i]
,{i, 1. n}]
Em=1.07*10^11;\sigmaYm=4.5*10^8;Hm=1.4*10^10;Ec=3.75*10^11;
|
Error: Unexpected MATLAB operator.
谁能帮我看看到底哪里出错了?在线等,谢谢.

Error: Unexpected MATLAB operator. 在线等,谢谢Em=1.07*10^11;\sigmaYm=4.5*10^8;Hm=1.4*10^10;Ec=3.75*10^11;\num=0.34;\nuc=0.14;q=4.5*10^9;k=10;H=0.8/10^3;R=50/10^3;L=0.1;n=20;Zh=z/h;Vc=(0.5+Zh)^k;Vm=1-Vc;e=(Vm*Em*(q+Ec)/(q+Em)+Vc*Ec)/(Vm*(q+Ec)/(q
你这就不是Matlab程序!
如果没猜错,应该是 Mathematica程序.
i = 1;
Em = 1.07*10^11; sigmaYm = 4.5*10^8; Hm = 1.4*10^10; Ec = 3.75*10^11;
num = 0.34; nuc = 0.14; q = 4.5*10^9; k = 10;
(*H*)h = 0.8/10^3; R = 50/10^3; L = 0.1;
n = 20;
Zh = z/h; Vc = (0.5 + Zh)^k; Vm = 1 - Vc;
e = (Vm*Em*(q + Ec)/(q + Em) + Vc*Ec)/(Vm*(q + Ec)/(q + Em) + Vc);
nu = Vm*num + nuc*Vc;
sigmaY = sigmaYm*(Vc*(q + Em)/(q + Ec) + Vm);
H = (Vm*Hm*(q + Ec)/(q + Hm) + Vc*Ec)/(Vm*(q + Ec)/(q + Hm) + Vc);
sigmaP2 = 1000;
epsilongP = (sigmaP2 - sigmaY/10^6)/(H/10^6);
z = h/2 - h*(i - 0.5)/n; (*检查一下此行*)
Do[Print["*Material,name=Material-",i];
Print["*Elastic"];
Print[e/10^6,",",nu];
Print["*Plastic"];
Print[sigmaY/10^6,",0."];
Print["1000.,",epsilongP],{i,1,n}]
Do[Print["i=",i,",z=",1000 z,"mm,e=",e/10^6,"MPa,H=",H/10^6,
"MPa,\\nu=",nu,",\\sigmaY=",sigmaY/10^6,"MPa,","\\epsilongP=",
epsilongP],{i,1,n}]
Do[Print[1000*h/n,",3,Material-",i,",0.,Ply-",i],{i,1.n}]