紧急求助，程序调用问题

云雨 · 发表于 2006-1-10 17:19

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？我要加入

x

麻烦各位大虾看一下下面一段程序，运行不了。定义了两个函数，y1要调用函数y2. 不知道怎么调用。 function y1= jieguo(ts,y,s) a=0; ts=8; s=4; y=10000/24*1.1*1.3; for i=0:s-1; a=0; a=a+ts*y/3600)^i/jiecheng(i); end b=(ts*y)^s/jiecheng(s-1)/(3600-ts*y)*3600^(s-1); c=3600^(s-1)*jiecheng(s-1)*(3600*s-y*ts); c=c*(a+b); d=(ts*y)^(s+1)/c; lq=d; end
function y2= jiecheng(n)%求n的阶乘 double p; p=1; double n; %n=4; for i=1:n p=p*i; end re=p; end

[此贴子已经被VibInfo于2006-1-10 20:27:50编辑过]

happy · 发表于 2006-1-11 09:43

这个程序本身思路就有问题 ts,y,s既然是传递变量怎么又在程序中定义？

happy · 发表于 2006-1-11 09:46

另外两个函数的都没有设置返回值 y2应该改成： function y2= jiecheng(n)%求n的阶乘 %double p; p=1; %double n; %n=4; for i=1:n p=p*i; end y2=p; 第一个程序不知道你要返回什么，参照上面自己该吧

[此贴子已经被作者于2006-1-11 9:47:15编辑过]

云雨 · 发表于 2006-1-11 22:22

谢谢，我明白了一些，可是还有问题。改成这样： ts=8;%计算排队长度lq s=4; y=10000*1.1*1.3; a=0; for i=0:s-1; b1=(ts*y/3600)^i/jiecheng(i); a=a+b1; end b=(ts*y)^s/jiecheng(s-1)/(3600*s-ts*y)*3600^(s-1); c=3600^(s-1)*jiecheng(s-1)*(3600*s-y*ts)^2; d=c*(a+b); e=(ts*y)^(s+1)/d; lq=e; %%%%%%%%%%%%%%%% function y2= jiecheng(n)%求n的阶乘 p=1; for i=1:n p=p*i; end y2=p; 运行结果应该是个位数或十位数的，可是得到的数却小得很，不对。 原题是这样的： <v:shapetype> <v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path connecttype="rect" gradientshapeok="t" extrusionok="f"></v:path><lock aspectratio="t" v:ext="edit"></lock></v:shapetype><v:shape><v:imagedata></v:imagedata></v:shape>

云雨 · 发表于 2006-1-11 22:26

<v:shapetype><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path connecttype="rect" gradientshapeok="t" extrusionok="f"></v:path><lock aspectratio="t" v:ext="edit">想通过公式计算s的，已知lq.可是公式正好相反，不知该怎么改过来。 </lock></v:shapetype>

happy · 发表于 2006-1-12 15:38

<DIV class=quote>以下是引用云雨在2006-1-11 22:26:31的发言： 
<v:shapetype><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path extrusionok="f" gradientshapeok="t" connecttype="rect"></v:path><LOCK v:ext="edit" aspectratio="t">想通过公式计算s的，已知lq.可是公式正好相反，不知该怎么改过来。 </LOCK></v:shapetype></DIV>
没看到公式，建议自己对一下你的程序看是否和公式有偏差 这种工作还是自己作比较好

[此贴子已经被作者于2006-1-12 15:39:11编辑过]

账号		自动登录	找回密码
密码			我要加入

紧急求助，程序调用问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

回复：（云雨）紧急求助，程序调用问题

回复：（云雨）紧急求助，程序调用问题

回复：（云雨）想通过公式计算s的，已知lq.可是公式正...