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

登录注册

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

24小时热门版块排行榜

返回列表

独孤神宇

版主 (知名作家)

应助: 490 (硕士)
贵宾: 0.008
金币: 31016.3
散金: 802
红花: 122
沙发: 1
帖子: 5600
在线: 856.5小时
虫号: 3522474
注册: 2014-11-06
性别: GG
专业: 机械动力学
管辖: 计算模拟

[求助] 1stOpt 求助，函数输入有数组时，怎么定义数组！求高手指导！！！！已有1人参与

如下所示，已经定义了y1，在拟合的时候为什么还把y1当做未知参数进行运算呢？跪求指导！！！！
Variable x,y2;
Parameter d,e,f;
Constant epsilon=0.3921,h0=6.3,R=125,Sf=0.03143,VR=1308.33,
y1(0:13)=[60.6230417,81.5505891,90.8638391,89.1365064,82.5600593,
74.2595016,67.0931699,60.2069028,53.4382785,48.8087444,
44.4447673,41.4230248,8.7552541,37.4008104];
ConstStr h1=h0*(1-epsilon),Delta_h=h0-h1,
Lc=sqrt(R*Delta_h-(Delta_h^2)/4),Re=R+(Lc^2)*(2*Sf+Sf^2)/Delta_h,
z0=Re+h1/2,z=z0-sqrt(Re^2-x^2),
Vx=h1*VR*(1+Sf)/(2*z);
Function y2=d*y1+e*(f*Vx-VR)/z;
Data;
x,y2
1.12891986062718e+000   3.19723183391004e+001
2.25783972125436e+000   3.47404844290657e+001
3.76306620209059e+000    4.13840830449827e+001
5.01742160278746e+000   2.58823529411765e+001
6.39721254355401e+000   2.25605536332180e+001
7.77700348432056e+000   1.75778546712803e+001
8.96864111498258e+000    9.68858131487885e-001
1.02229965156794e+001    -1.61937716262976e+001
1.16655052264808e+001 -2.83737024221453e+001
1.28571428571429e+001    -3.05882352941176e+001
1.42369337979094e+001 -3.44636678200692e+001
1.54285714285714e+001    -1.95155709342561e+001
1.67456445993031e+001    -1.01038062283737e+001
1.75609756097561e+001    -4.01384083044982e+000

回复此楼

» 猜你喜欢

化学工程085602 305分求调剂已经有10人回复
289求调剂已经有15人回复
291 求调剂已经有7人回复
274求调剂已经有14人回复
北京林业大学硕导招生广告已经有3人回复
309求调剂已经有5人回复
292求调剂已经有8人回复
求调剂已经有4人回复
一志愿西北大学总分282 英语一62 求调剂已经有3人回复
调剂310 已经有4人回复

» 本主题相关价值贴推荐，对您同样有帮助:

求助matlab 三维曲面拟合，已知x，y两数组，和z（x，y），拟合三维x，y，z 已经有3人回复
求助怎么把两个长度不同的一维数组组合成一个二维数组已经有4人回复
未分配内存的动态数组，如何作为参数传递到子函数，并在子函数中分配内存已经有4人回复
求助数组越界问题！已经有8人回复
求助：在GUI界面中显示m文件中的数组图片已经有3人回复
【求助】如何提取TXT中某列的数据存入一个数组，再对数组做处理已经有4人回复
【求助】求指点，在Fortran里面，怎样实现“数组维度可调”的数组? 已经有5人回复
【求助】定义数组维数已经有4人回复
【求助】ANSYS定义数组时，如何从TXT文件中导入？已经有7人回复

数值计算

1楼 2015-06-28 15:04:48

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

dingd

铁杆木虫 (职业作家)

应助: 1641 (讲师)
金币: 15037.3
散金: 101
红花: 234
帖子: 3410
在线: 1223.7小时
虫号: 291104
注册: 2006-10-28

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与，应助指数 +1
独孤神宇(xzhdty代发): 金币+2, 谢谢应助 2015-06-28 16:23:23
独孤神宇: 金币+3, ★★★★★最佳答案, 非常感谢，高手就是需要膜拜一下，希望多多指教！！！！ 2015-06-28 17:03:10

改写成如下：

CODE:

Variable x,y1,y2;

Parameter d,e,f;

Constant epsilon=0.3921,h0=6.3,R=125,Sf=0.03143,VR=1308.33;

ConstStr h1=h0*(1-epsilon),Delta_h=h0-h1,

Lc=sqrt(R*Delta_h-(Delta_h^2)/4),Re=R+(Lc^2)*(2*Sf+Sf^2)/Delta_h,

z0=Re+h1/2,z=z0-sqrt(Re^2-x^2),

Vx=h1*VR*(1+Sf)/(2*z);

Function y2=d*y1+e*(f*Vx-VR)/z;

Data;

x        y1        y2

1.12891986062718e+000        60.6230417        3.19723183391004e+001

2.25783972125436e+000        81.5505891        3.47404844290657e+001

3.76306620209059e+000        90.8638391        4.13840830449827e+001

5.01742160278746e+000        89.1365064        2.58823529411765e+001

6.39721254355401e+000        82.5600593        2.25605536332180e+001

7.77700348432056e+000        74.2595016        1.75778546712803e+001

8.96864111498258e+000        67.0931699        9.68858131487885e-001

1.02229965156794e+001        60.2069028        -1.61937716262976e+001

1.16655052264808e+001        53.4382785        -2.83737024221453e+001

1.28571428571429e+001        48.8087444        -3.05882352941176e+001

1.42369337979094e+001        44.4447673        -3.44636678200692e+001

1.54285714285714e+001        41.4230248        -1.95155709342561e+001

1.67456445993031e+001        8.7552541        -1.01038062283737e+001

1.75609756097561e+001        37.4008104        -4.01384083044982e+000

均方差(RMSE):12.9061013841584
残差平方和(SSE):2331.94434113444
相关系数(R): 0.861579097025373
相关系数之平方(R^2): 0.742318540431057
确定系数(DC): 0.742267547134247
卡方系数(Chi-Square): -51.6506256494444
F统计(F-Statistic): 21.3399590887563

参数最佳估算
---------- -------------
d -0.0547404174611372
e 0.266418788279103
f 1.18118921590415

赞一下